tele-watch.pl
changeset 21 b0b16e440460
parent 14 9da9fe83c77c
child 33 9f628506a2e3
child 34 d569d7a1adff
--- a/tele-watch.pl	Sun Mar 01 18:42:08 2009 +0100
+++ b/tele-watch.pl	Mon Mar 02 11:59:08 2009 +0100
@@ -172,7 +172,7 @@
             my $fullname = $e->fullname;
 
             if ($e->IN_CREATE) {
-                notice "new dir $fullname";
+                notice "CREATE dir $fullname";
 
                 # find the owner and permissions
                 my ($uid, $gid, $mode) = (stat $fullname)[ 4, 5, 2 ];
@@ -197,12 +197,13 @@
             }
 
             if ($e->IN_MOVED_FROM) {
-                notice "$fullname moves away, set cookie";
+                notice "MOVED_FROM $fullname, set cookie";
                 $COOKIE{ $e->{cookie} } = $e->{name};
                 next EVENT;
             }
 
             if ($e->IN_MOVED_TO) {
+				notice "MOVED_TO $fullname";
 
                 if (!exists($COOKIE{ $e->{cookie} })) {
                     warn "no known source for $fullname\n";
@@ -211,7 +212,7 @@
 
                 my $from      = $COOKIE{ $e->{cookie} };
                 my $from_base = basename $from;
-                notice "$fullname moved here from $from";
+                notice "moved here from $from";
 
                 # change the link targets
 
@@ -239,6 +240,8 @@
             }
 
             if ($e->IN_DELETE) {
+				notice "DELETE $fullname";
+
                 foreach my $dir (grep { -d } dir "$target/") {
 
                     -d "$dir/,old"