Web

Powered by

Thursday, October 2. 2008

Making server side playlist with PHP

Hi again,

whole last week I was mad about hearing music. I've heared tons of mp3's and radio stations over the internet. After a couple of days hearing music at work and at home I was really bored with creating and syncronizing playlists/files. Based on this, I came to the idea to make an online playlist which I would must update only one time and in one place and it would be accessible from anywhere. The idea was easy brougth out with PHP. So just a light reading for you:

Continue reading "Making server side playlist with PHP"

Posted by Anatoliy Belsky in Linux, PHP5, Web at 19:36 | Comments (2) | Trackbacks (0)

Wednesday, March 12. 2008

Domains avaliability checker

About a month ago I've written a simple domain checker, which is using whois.net to get the domains availiable. The main goal was to find free 3-symbols domains.

BASH:

#!/bin/sh 
 
if [ $# -lt 1 ]
then
    echo "usage: `basename $0` extension
Check domains avaliability
 
examples:
`basename $0` com
";
    exit 2;
fi
 
EXT=$1;
LAST_FILENAME=/tmp/dc_$USER$EXT.last
 
if [ -f "$LAST_FILENAME" ]; then LAST_DOMAIN=`cat $LAST_FILENAME`; fi 
 
for DOMAIN in {{0..9},{a..z},-}{{0..9},{a..z},-}{{0..9},{a..z},-}
do
    if [ "$DOMAIN" \< "$LAST_DOMAIN" ]; then continue; fi
 
    trap "echo $DOMAIN > $LAST_FILENAME;exit;" SIGHUP SIGINT SIGTERM
 
    STATUS_STRING=`wget -qO - http://www.whois.net/whois_new.cgi\?d\=$DOMAIN\&tld\=$EXT | grep 'Status'`
 
    echo "$STATUS_STRING" | grep 'free' && 
    echo "$DOMAIN.$EXT" >> ~/domains_found_$EXT.txt && 
    echo "the domain is free: $DOMAIN.$EXT" | mail -c my@mail.com -s "free domain" other@mail.com
 
    sleep 7
 
done

The thing is very simple and the results can be kept on. Additionally it sends mail messages about each found domain. Lets see, what it brought for the .de domains ( about 9000 free domains was found

)

Continue reading "Domains avaliability checker"

Posted by Anatoliy Belsky in Bash, Linux, Web at 22:44 | Comments (0) | Trackbacks (0)

Sunday, December 23. 2007

I know the future weather

A simply and cool script for the weather forecast. May be even correct

.. thanks to Weather::Underground perl module

PERL:

#!/usr/bin/perl
use Weather::Underground;

Continue reading "I know the future weather"

Posted by Anatoliy Belsky in Perl, Web at 23:16 | Comments (0) | Trackbacks (0)

Stop image hotlinking with Perl

Sometimes there are things, which can bring everyone to the rage accumulation. For example if traffic of the server is exceeded because of hotlinking and it's measured at least in hundreds of megabytes. | So, for me this is only a story about someone else because I'm always using the following script, if the traffic of the server is not unlimited. I've used Perl to convert or resize images, because according my measurements Perl was doing this at least twice as fast as PHP and more qualitatively as PHP (this concerns anyhow PHP4). Only the one weakness can prevent you from using this script - it works with HTTP_REFERER server variable and since some browsers, firewalls or proxies for any reasons don't sending this field to the webserver, you can punish innocent people, who want only to see your images. But the advantages are evident - you can place your images out of the web space and show them only if they has been called from your web site. Lets go on.

Continue reading "Stop image hotlinking with Perl"

Posted by Anatoliy Belsky in Perl, Web at 21:04 | Comments (0) | Trackbacks (0)

(Page 1 of 1, totaling 4 entries)

Quicksearch

Top Exits

Top Referrers

aimtrust.com (292)
www.google.com (143)
www.netvibes.com (100)
theinvestblog.com (44)
codingforums.com (33)
www.google.co.in (33)
www.google.de (32)
theblogmoney.com (24)
phurple.rubay.de (20)
www.keywordspy.com (20)

Anatoliy Belsky

Archives