MiniReminder   Nostalgia


Here it is the first version of MiniReminder:

# REMIND.PL
# (c) 1992, Jose M Balaguer (xxxxxxxx@compuserve.com)

@linies = ();
$arxiu = 'REMIND.TXT';
@dies = (31,29,31,30,31,30,31,31,30,31,30,31);

@time = localtime;
$diaActual = $time[3];
$mesActual = $time[4]+1;

open( FP, $arxiu );
while( $linia =  ) {

  chop $linia;
  if( $linia ) {
    $diaLlegit = substr( $linia, 0, 2);
    $mesLlegit = substr( $linia, 3, 2);
    $textLlegit = substr( $linia, 6 );

    $difMes = $mesLlegit - $mesActual;

    if( $difMes == 1 ) { $difDies = $dies[$mesActual] - $diaActual + $diaLlegit; }
    elsif( $difMes == 0 ) { $difDies = $diaLlegit - $diaActual; }
    elsif( $difMes == -11 ) { $difDies = $dies[$mesActual] - $diaActual + $diaLlegit; }
    else { $difDies = -1; }

    if( $difDies >= 0 && $difDies <= 10 ) {
      $linies[++$#linies] = (" " x ($difDies<10)) . "$difDies dies per: $linia\n";
    }
  }

}
close( FP );

sort @linies;
foreach $linia ( @linies ) { print $linia; }

This first version was written in Perl because I just wanted a small utility, and
I didn't want to spend much time with the edit/compile/link/run cycle.
Today, I would write it in Python!

-- Jose M Balaguer