- die "Usage: convkeps.pl [-e|-p] [<filename>]\n\t-p - plain file just containing keps\n\t-e - amsat email format input file (default)\n";
+ die "Usage: convkeps.pl [-c] [-e|-p] [<filename>]\n\t-p - plain file just containing keps\n\t-e - amsat email format input file (default)\n\t-c - clear Keps data before adding this lot\n";
} else {
open (IN, $arg) or die "cannot open $arg (!$)";
$f = \*IN;
}
}
} else {
open (IN, $arg) or die "cannot open $arg (!$)";
$f = \*IN;
}
}
+
while (<$f>) {
++$line;
chomp;
while (<$f>) {
++$line;
chomp;
@@ -138,7+144,7 @@ print OUT "#\n# this file is automatically produced by convkeps.pl\n#\n";
print OUT "# Last update: ", scalar gmtime, "\n#\n";
print OUT "\npackage Sun;\n\n";
print OUT $dd->Dumpxs;
print OUT "# Last update: ", scalar gmtime, "\n#\n";