#!/local/bin/perl

while(<>) {
  if((/^x-request-date:/i) && !/\(.*\)/) {
    chop;
    print $_ . " (" . &gettime($_) . ")\n";
  }
  elsif((/^x-request-updated:/i) && !/\(.*\)/) {
    chop;
    print $_ . " (" . &gettime($_) . ")\n";
  }
  else {
    print;
  }
}


sub gettime {
  local($datestr) = @_;
  local($sec);

  $datestr =~ s/^[^:]*://;
  # Otherwise, parse the date string.
  if(!(($datestr =~ /[A-Z][A-Z][A-Z]/) || ($datestr =~ /-\d\d\d/))) {
    $datestr .= " EDT";
  }
  $datestr =~ s:\(.*\)::;
  open(FOO, "getdate \"$datestr\"|") || die "Can't run getdate";
  chop($sec = <FOO>);
  close(FOO);

  $sec;
}
