#!/usr/bin/perl

my $pdfpath = "/u/www/robbe/robbepdf/r10.x.xx.de/";

opendir (HOMEDIR, "$pdfpath") || die ("Unable to open directory");

while (defined ($filename=readdir(HOMEDIR))) {

  $oldname = $filename;
  $filename =~ s/[.\t]+/;/g;
  my ($name, $ext) = split(/;/, $filename);

	if ($ext EQ "PDF") {
	        $ext =~ s/PDF/pdf/;
        	print ("$pdfpath$oldname","$pdfpath$newname\n");
                $pdfold = ("$pdfpath$oldname"); 
                $pdfnew = ("$pdfpath$name.$ext");
                system("mv", $pdfold, $pdfnew);                     
                print ("Extention GROSS\n");
	}
	else {
	     print ("$pdfpath$oldname","$pdfpath$newname\n");	
             print ("Extention klein\n") 
	}

}
closedir(HOMEDIR);

my $pdfpath = "/u/www/robbe/robbepdf/r10.x.xx.en/";

opendir (HOMEDIR, "$pdfpath") || die ("Unable to open directory");

while (defined ($filename=readdir(HOMEDIR))) {

  $oldname = $filename;
  $filename =~ s/[.\t]+/;/g;
  my ($name, $ext) = split(/;/, $filename);

        if ($ext EQ "PDF") {
	        $ext =~ s/PDF/pdf/;
                print ("$pdfpath$oldname","$pdfpath$newname\n");
                $pdfold = ("$pdfpath$oldname");
                $pdfnew = ("$pdfpath$name.$ext");
                system("mv", $pdfold, $pdfnew);
                print ("Extention GROSS\n");
        }
        else {
             print ("$pdfpath$oldname","$pdfpath$newname\n");
             print ("Extention klein\n")
        }

}
closedir(HOMEDIR);

my $pdfpath = "/u/www/robbe/robbepdf/r10.x.xx.fr/";

opendir (HOMEDIR, "$pdfpath") || die ("Unable to open directory");

while (defined ($filename=readdir(HOMEDIR))) {

  $oldname = $filename;
  $filename =~ s/[.\t]+/;/g;
  my ($name, $ext) = split(/;/, $filename);

        if ($ext EQ "PDF") {
	        $ext =~ s/PDF/pdf/;
                print ("$pdfpath$oldname","$pdfpath$newname\n");
                $pdfold = ("$pdfpath$oldname");
                $pdfnew = ("$pdfpath$name.$ext");
                system("mv", $pdfold, $pdfnew);
                print ("Extention GROSS\n");
        }
        else {
             print ("$pdfpath$oldname","$pdfpath$newname\n");
             print ("Extention klein\n")
        }

}
closedir(HOMEDIR);

my $pdfpath = "/u/www/robbe/robbepdf/r10.x.xx.it/";

opendir (HOMEDIR, "$pdfpath") || die ("Unable to open directory");

while (defined ($filename=readdir(HOMEDIR))) {

  $oldname = $filename;
  $filename =~ s/[.\t]+/;/g;
  my ($name, $ext) = split(/;/, $filename);

        if ($ext EQ "PDF") {
	        $ext =~ s/PDF/pdf/;
                print ("$pdfpath$oldname","$pdfpath$newname\n");
                $pdfold = ("$pdfpath$oldname");
                $pdfnew = ("$pdfpath$name.$ext");
                system("mv", $pdfold, $pdfnew);
                print ("Extention GROSS\n");
        }
        else {
             print ("$pdfpath$oldname","$pdfpath$newname\n");
             print ("Extention klein\n")
        }

}
closedir(HOMEDIR);