#!/usr/bin/perl --

sub editDirectory($) {
    my ($path) = @_;

    local(*DIR);
    opendir DIR, "$path";
    
    my @files = grep {-f "$path/$_" } readdir DIR;
    foreach (@files) {
        $f = $path."/".$_;
        if ($f =~ /.php/) {
        
         open(FILE,"$f");
            flock (FILE, 1);
            $fileStr ="";
            while (<FILE>) {
                $fileStr .= $_;
            
            }
            close(FILE);
            if ($fileStr =~ /\s+$/) {
                print $f."\n";
  	        $fileStr =~ s/\s+$//;
		open(FILE,">$f");
		print FILE $fileStr;
		close(FILE);

            }
            if ($fileStr =~ /^\s+/) {
                print $f."\n";
  	        $fileStr =~ s/^\s+//;
		open(FILE,">$f");
		print FILE $fileStr;
		close(FILE);

            }

        
        }
        
        
        
    }
    close DIR;

    opendir DIR, "$path";
    
    foreach (grep {-d "$path/$_" } readdir DIR) {
        editDirectory($path."/".$_)
    }
}



&editDirectory(".");