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");
        }
}

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");
}

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");
}
}