Help for this page

Select Code to Download

Select or download this

sub AddDate ( $ )
{
...

  return $DID;
}

Select or download this

  my $datestr;
  if ( $header =~ /(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)(\
+w*)\s(\d\d),\s(\d\d\d\d)/s )
...
  }

  my $DID = main::AddDate ( $datestr );