use DXProtVars;
use DXProtout;
use DXDebug;
+use DXLog;
use FileHandle;
use Carp;
}
$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} $!";
}
}
$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 $!";
}