Changeset 37

Timestamp:

11/18/05 19:29:09 (19 years ago)

Author:

thauvin

Message:

• add postrun function

Location:

trunk/soft/scripts

Files:

• transfert (modified) (2 diffs, 1 prop)
• transfert-config (modified) (1 diff, 1 prop)

trunk/soft/scripts/transfert

@@ -202 +202 @@
     if ($?) {
         loging(4, "rsync exit with non 0 status: %d", $? >> 8);
+    } else {
+        # No error running action:
+        if (my $postrun = $config->val($entry, 'postrun')) {
+            loging(0, "found postrun: %s for %s", $postrun || '(unset)', $entry);
+            foreach my $f (@files) {
+                my $filename = "/$f->{file}";
+                my $fpostrun = sprintf($postrun, $filename);
+                loging(0, "Running `%s'", $fpostrun);
+                my $postrunres = system($fpostrun);
+                
+            }
+        }
     }
     my $totalsize = 0;
@@ -242 +254 @@
 
     $Log$
+    Revision 1.4  2005/11/18 18:29:08  thauvin
+    - add postrun function
+
     Revision 1.3  2005/11/08 18:40:43  thauvin
     - add documentation

trunk/soft/scripts/transfert-config

@@ -5 +5 @@
 
 [test]
-source=/.automount/virgo/root/home/users/olivier/lidarcvs/soft/scripts/*
+source=/home/users/olivier/lidarcvs/soft/scripts/*
 dest=/net/tmp/s/
 mailto=thauvin@aerov.jussieu.fr, olivier.thauvin@aero.jussieu.fr
+postrun= cp %s /tmp