Ovo je za pronalazenje downloada
fajlove imena download smestati u direktorijume. Svaki fajl download mora da sadrzi samo linkove jedan u jednom redu, kao za wget.
Zavisno je od wget-a
Sva prava zadrzana. Moze da se koristi samo u nekomercijalne svrhe. Zabranjeno prodavanje. Zabranjeno umnozavanje, ako nekome zelite da date ovo, onda ga usmerite na ovu stranu.
Komentare zabranjeno brisati
Code:
#!/usr/bin/env perl
#Written by Nemanja Jakovljevic
#
#Sva prava zadrzana. Moze da se koristi samo u nekomercijalne svrhe. Zabranjeno #prodavanje. Zabranjeno umnozavanje, ako nekome zelite da date ovo, onda ga #usmerite na ovu stranu.
#
#Komentare zabranjeno brisati
my $br = -1;
my $putanja = "/storage/LinuxPortal";
my $tempfile = "/tmp/.temp";
my @temp = `find $putanja -type f -iname download`;
chop(@temp);
until ( ++$br == @temp )
{
my $ln = $temp[$br];
my $ln2 = substr($ln,0,length($ln)-9);
my $command = "wget -b -c --output-file=$ln2/log --input-file=$ln --directory-prefix=$ln2";
my $st=`ps x | grep -c "$command"`;
if ( $st == 2 )
{
if ( -e $ln2."/log" )
{
open (file,$ln2."/log");
@log = <file>;
close (file);
system ("$command") if (! $log[@log-2] =~ /FINISHED/g);
}
system ("$command");
}
}
Ovo ti je za prikazivanje statusa downloada (ima mesta za poboljsanja)
Code:
#!/usr/bin/env perl
#Written by Nemanja Jakovljevic
#
#Sva prava zadrzana. Moze da se koristi samo u nekomercijalne svrhe. Zabranjeno #prodavanje. Zabranjeno umnozavanje, ako nekome zelite da date ovo, onda ga #usmerite na ovu stranu.
#
#Komentare zabranjeno brisati
my $br = -1;
my $putanja = "/storage/LinuxPortal";
my @temp1 = `find $putanja -type f -iname log`;
until (++$br == @temp1)
{
my $ln = @temp1[$br];
open(file,"$ln");
@temp2=<file>;
close(file);
print(substr($ln,21,length($ln)-26));
print(" " x (46-length($ln)));
open(file,substr($ln,0,length($ln)-4)."download");
my $kol=@temp3=<file>;
close(file);
my $bro = @matches = "@temp2" =~ / saved /g;
$bro++;
print " $bro/$kol " if ( $bro <= $kol );
print ($temp2[@temp2-2] =~ /..\%.*\/s/g);
print ("@temp2" =~ /FINISHED/g,"\n");
}
Ovo je za brisanje download i log fajlova zavrsenih downloada
Code:
#!/usr/bin/env perl
#Written by Nemanja Jakovljevic
#
#Sva prava zadrzana. Moze da se koristi samo u nekomercijalne svrhe. Zabranjeno #prodavanje. Zabranjeno umnozavanje, ako nekome zelite da date ovo, onda ga #usmerite na ovu stranu.
#
#Komentare zabranjeno brisati
my $br = -1;
my $putanja = "/storage/LinuxPortal";
my @temp = `find $putanja -type f -iname log`;
until ( ++$br == @temp )
{
my $ln = @temp[$br];
my $deldir = substr($ln,0,length($ln)-5);
open (file,$ln);
my @log = <file>;
close (file);
if ($log[@log-2] =~ /FINISHED/g)
{
system("rm $deldir/download");
system("rm $deldir/log");
}
}
Nemanja Jakovljevic
Program/scripta za mass download
