39 lines
898 B
Diff
39 lines
898 B
Diff
--- pilot-link.0.9.5/src/sync-plan.PL.md5 Wed May 29 11:08:47 2002
|
|
+++ pilot-link.0.9.5/src/sync-plan.PL Wed May 29 11:09:03 2002
|
|
@@ -6,7 +6,7 @@
|
|
use IO::Socket;
|
|
use IO::Select;
|
|
use Time::Local;
|
|
-use MD5;
|
|
+use Digest::MD5;
|
|
use PDA::Pilot;
|
|
|
|
sub DatePlanToPerl {
|
|
@@ -313,7 +313,7 @@
|
|
}
|
|
}
|
|
|
|
- my($hash) = new MD5;
|
|
+ my($hash) = new Digest::MD5;
|
|
foreach (@output) {
|
|
#print "Adding |$_| to hash\n";
|
|
$hash->add($_);
|
|
@@ -490,7 +490,7 @@
|
|
my(@l) = split(/\n/,$r);
|
|
my($rec) = { raw => [@l], other => [] };
|
|
my(@E,@R,@N,@M,@S,@US);
|
|
- my($hash) = new MD5;
|
|
+ my($hash) = new Digest::MD5;
|
|
$l[0] =~ s/\s+/ /g;
|
|
$hash->add($l[0]);
|
|
my($date, $time, $length, $early, $late, $flags, $color) = split(/\s+/, shift @l);
|
|
@@ -566,7 +566,7 @@
|
|
|
|
sub HashPilotRecord {
|
|
my($record) = @_;
|
|
- my($hash) = new MD5;
|
|
+ my($hash) = new Digest::MD5;
|
|
$hash->add($record->{raw});
|
|
$hash->hexdigest;
|
|
}
|