# ver_check.cfg
path=/var/www
master=master
current=current
log=version_check.log

##</code><code>##

# version_check.pl
#! perl -w

# Not a bug-free program
use Digest::MD5;
#    _______________________________
#   /                              /
#  /   Generate List Variablea    /
# /______________________________/
my $flag1=1;
my $flag2=0;
my %filelist = ();
my %md5 = ();
my $current_path = $_;
my $path = $_;
my $filename = $_;

#    _______________________________
#   /                              /
#  /   Compare Lists Variablea    /
# /_____________________________ /
my $masterfile=$currentfile=$_;
my %a=();
my %b=();

#==================================

if($#ARGV > -1){
        foreach (@ARGV){
                if (/\-file\:(\w.*)/){
                        $filename = $1;
                        chomp($filename);
                        GENLIST();
                }elsif(/\-comp$/){
                        COMPARE();
                #}elsif(/\-log\:(\w.*)/){
                #       my $logfile = $1;
                #       LOG($logfile);
                }elsif(/\-v$/){
                        VERBOSE();
                }else{
                        print "option: $ARGV[0]\n";
                        OPTION();
                }
        }
}else{
        OPTION();
}

# Generate a list
sub GENLIST{
        open(CONF, "ver_check.cfg");
        while(<CONF>){
                if (/path\=(.*)$/){
                        $path = $1;
                }
        }
        close(CONF);

        open (LIST, "ls -lAR $path|");
        while(<LIST>){
                if(($flag1==0) && (/^$/)){
                        $flag1++;
                        $flag2=0;

                }elsif(($flag1==1) && (/(.*)\:$/)){
                        $flag1=0;
                        $flag2=1;
                        $current_path = $1;

                }elsif(($flag2==1) && (/^(([dsrwx\-]{10})\s*(\d{1,})\s*([\w\-]*)\s*([\w\-]*)\s*(\d*)\s*([\w\s\:]{1,12}))\s*(\w
.*)$/)){
                #$1=whole line b4 filename $2=permission $4,$5=user\group name $8=filename
                #drwxr-xr-x    2 root     root         4096 Oct 23  2003 cgi-bin
                        my $desc = $1;
                        my $filename = $8;
                        my $key = "$current_path/$filename";   ## base on which system

                        if($desc!~/^d/){
                                my $x = MD5("$key");
                                $desc = "$desc\&$x";
                        }
                        $filelist{$key} = $desc;
                }
        }
        close(LIST);

        open(OUTPUT, "> $filename");
        foreach (keys %filelist){
                print OUTPUT "$_|$filelist{$_}\n";
        }
        close(OUTPUT);
} # end of GENLIST

sub OPTION{
        print "Wrong\/missing operation!\n\n";
        print "You should write in this way\:\n";
        print "\t\-file\:\[file\]\tCreate file list follow by the file name\n";
        print "\n";
        exit;
} # end of OPTION

sub MD5{
        my $file = $_[0];
        my $md5code;

        open(FILE, $file) or die "Can't open '$file': $!";
        binmode(FILE);

        $md5 = Digest::MD5->new;
        while (<FILE>) {
                $md5->add($_);
        }
        close(FILE);

        $md5code = $md5->b64digest;
        $md5{$file} = $md5code;

        return $md5code;
} # end of MD5

######## Comparison part

sub COMPARE{
        my @error = @_;
        open(CONF, "ver_check.cfg");
        while(<CONF>){
                if(/^master\=(.*)$/){ $masterfile = $1};
                if(/^current\=(.*)$/){ $currentfile = $1};
        }
        close(CONF);

        %a=READIN("$masterfile");
        %b=READIN("$currentfile");

        foreach (keys %a){

                if(!exists $b{$_}){
                        push(@error, "File/Dir deleted: $_\n")
                }elsif($a{$_} eq $b{$_}){
                        delete $a{$_};
                        delete $b{$_};

                }elsif($a{$_} ne $b{$_}){
                        $a{$_} =~ s/\&/ /;
                        $b{$_} =~ s/\&/ /;
                        push(@error, "File/Dir modified: $_\n$masterfile : $a{$_}\n$currentfile : $b{$_}\n\n");
                        delete $a{$_};
                        delete $b{$_};
                }
        }

        HASHSIZE_DECI(\%b, "current");
        LOG(\@error);

} # end of COMPARE

sub READIN{
        my $filename = $_[0];
        my @temp=@_;
        my %temphash=();

        open(FILE, $filename);
        while(<FILE>){
                if(/\|/){
                        chomp($_);
                        @temp = split(/\|/,$_);
                        $temphash{$temp[0]}=$temp[1];
                }
        }
        close(FILE);
        return %temphash;
} # end of READIN

sub HASHSIZE_DECI{
        my $temp = shift;
        my $file = shift;
        if((scalar (keys %$temp)) > 0){
                foreach (keys %$temp){
                        if ($file eq "master"){
                                push(@error, "File/Dir deleted: $_\n")
                        }elsif($file eq "current"){
                                push(@error, "File/Dir added: $_\n")
                        }
                }
        }
} # end of HASHSIZE_DECI

sub LOG{
        my $error = shift;
        my $logfile = "";

        open(CONF, "ver_check.cfg");
        while(<CONF>){
                if(/log\=(\w.*)/){ $logfile = $1}
        }
        close(CONF);
        chomp($logfile);
        if($logfile eq ""){
                foreach (@$error){
                        print $_;
                }

        }else{
                open(LOG, "> $logfile");
                foreach (@$error){
                        print LOG $_
                }
                close(LOG);
        }
}

sub VERBOSE{
}

##</code><code>##

perl version_check.pl -file:master

##</code><code>##

perl version_check.pl -file:current -comp