--- 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"