Subversion Repositories sysadmin_scripts

%config = (

   # location where directories are put by end users   

   'local root dir' => '/home/dallas_active_projects/ready_to_archive',

   # location where directories are moved when job is completed

   'local trash dir' => '/home/archiveDirectories/Trash',

   # location where directories are moved while being transferred

   'local staging area' => '/home/archiveDirectories/Staging',

   # target server name/ip. Must be accessible via ssh with no password

   'target server' => 'davinci',

   # location on target server where directories are placed while copying

   'target staging area' => '/home/samba/archives/ready_to_archive',

   # location on target server where directories are finally put

   'target final directory' => '/home/samba/archives/MC',

   # suffix of md5 of directories

   'md5 suffix' => 'md5sum',

   # suffix of filename to create showing actions

   'log suffix' => 'log',

   # suffix of error log

   'error suffix' => 'err',

   # how long a directory must be undisturbed before it is ready to work on

   'quiesent seconds' => 60*5, # five minutes

   # how long to leave stuff in the trash directory. 0 indicates never do it.

   'trash cleanup' => 86400*7, # 7 days

   # anoymous subroutine to do any final processing on remote machine

   'final procedure' =>

      sub {

         my ( $remoteServer, $remoteStaging, $remoteTarget, $directory ) = @_;

         my $target = substr( $directory, 0, 2 );

         $target = "$remoteTarget/MC_Patient_20$target/";

         my ($message, $error ) = &runRemoteCommand( $remoteServer, "[ ! -d $target ] && mkdir -p $target" );

         if ( $error == 0 ) {

            my $command = "mv '$remoteStaging/$directory' '$target'";

            $command = "ssh $remoteServer " . '"' . $command . '"';

            my $message = qx/$command/;

            &logit( $directory, $error == 0 ? $config{ 'log suffix' } : $config{ 'error suffix' }, $message );

         } else {

            &logit( $directory, $config{ 'error suffix' }, $message );

         }

      } # anonymous sub

);