sub init
{
$fp = DXLog::new('wwv', 'dat', 'm');
- mkdir $dirprefix, 0777 if !-e $dirprefix; # now unnecessary DXLog will create it
do "$param" if -e "$param";
confess $@ if $@;
}
return 2 if $d < $main::systime - $dupage;
$d /= 60; # to the nearest minute
- chomp $text;
- $text = substr($text, 0, $duplth) if length $text > $duplth;
- my $dupkey = "$d|$sfi|$k|$a|$text";
+# chomp $text;
+# $text = substr($text, 0, $duplth) if length $text > $duplth;
+ my $dupkey = "$d|$sfi|$k|$a";
return 1 if exists $dup{$dupkey};
$dup{$dupkey} = $d * 60; # in seconds (to the nearest minute)
return 0;
}
1;
__END__;
+