divi
By: a guest | Jun 13th, 2008 | Syntax:
Perl | Size: 1.32 KB | Hits: 467 | Expires: Never
#!/usr/bin/perl
$|=1;
$count = 0;
$pid = $$;
while (<>) {
if ($_ =~ /(.*\.jpg)/i) {
$url = $1;
system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.jpg", "$url");
system("/usr/bin/mogrify", "-flip","/var/www/images/$pid-$count.jpg");
system("/bin/chmod", "777","/var/www/images/$pid-$count.jpg");
print "http://192.168.0.30/images/$pid-$count.jpg\n";
}
elsif ($_ =~ /(.*\.png)/i) {
$url = $1;
system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.png", "$url");
system("/usr/bin/mogrify", "-flip","/var/www/images/$pid-$count.png");
system("/bin/chmod", "777","/var/www/images/$pid-$count.png");
print "http://192.168.0.30/images/$pid-$count.png\n";
}
elsif ($_ =~ /(.*\.gif)/i) {
$url = $1;
system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.gif", "$url");
system("/usr/bin/mogrify", "-flip","/var/www/images/$pid-$count.gif");
system("/bin/chmod", "777","/var/www/images/$pid-$count.gif");
print "http://192.168.0.30/images/$pid-$count.gif\n";
}
else {
}
$count++;
}