projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added logging
[spider.git]
/
perl
/
DXMsg.pm
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index 9316c374444ca0eff24087994b181f17c1fb7978..6a6f104aa346073dc0a6eb5e979b7beee023ed72 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-19,6
+19,7
@@
use DXCluster;
use DXProtVars;
use DXProtout;
use DXDebug;
use DXProtVars;
use DXProtout;
use DXDebug;
+use DXLog;
use FileHandle;
use Carp;
use FileHandle;
use Carp;
@@
-268,6
+269,7
@@
sub store
}
$fh->close;
dbg('msg', "file $ref->{to} stored\n");
}
$fh->close;
dbg('msg', "file $ref->{to} stored\n");
+ Log('msg', "file $ref->{to} from $ref->{from} stored" );
} else {
confess "can't open file $ref->{to} $!";
}
} else {
confess "can't open file $ref->{to} $!";
}
@@
-294,6
+296,7
@@
sub store
}
$fh->close;
dbg('msg', "msg $ref->{msgno} stored\n");
}
$fh->close;
dbg('msg', "msg $ref->{msgno} stored\n");
+ Log('msg', "msg $ref->{msgno} from $ref->{from} to $ref->{to} stored" );
} else {
confess "can't open msg file $fn $!";
}
} else {
confess "can't open msg file $fn $!";
}