Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 
    
    ...
          "File Name: $xmlfile moved to Fileshare - 30 mins for next uploa
    +d.\n\n";
        sleep 1800;    # 30 Minutes
    }
    
  2. or download this
        my $oldestfile;
        my $oldestage;
    ...
                $oldestage = -M $file;
            }
        }