+my %debversions;
+
+# Pending modification dates
+my %olddates; # Read in from the file
+my %newdates; # To be written in the new version of the file
+my $datefilename = "aptcheck.data";
+my $dateoldfilename = "aptcheck.old";
+my $thisdate = "*"; # indicates really old stuff
+my $warndate; # Older than this will be boldfaced
+
+if ( -f $datefilename ) {
+ print "Reading dates from $datefilename\n" if $debug;
+ open F, $datefilename or die "Could not open date file $datefilename: $!";
+ while (<F>) {
+ chop();
+ my ($pkg, $date) = split;
+ next unless $pkg; # skip empty lines
+ $olddates{$pkg} = $date;
+ print "Date for '$pkg' is '$date' \n" if $debug;
+ }
+ close F;
+ $thisdate = `date +%F`;
+ chomp($thisdate);
+ $warndate = `date +%F -d "30 days ago"` ; ;
+ chomp($warndate);
+ print "Dates: now: '$thisdate' warn: '$warndate'\n" if $debug;
+} else {
+ print "No datefile $datefilename found, starting from scratch\n";
+}
+