From: djk Date: Fri, 10 Mar 2000 21:42:01 +0000 (+0000) Subject: added plain file mode to convkeps and also made it an update X-Git-Tag: R_1_39~17 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c2bce62e2acf1128bb09ce0ad1225986cf2de7f;p=spider.git added plain file mode to convkeps and also made it an update --- diff --git a/perl/Keps.pm b/perl/Keps.pm index 4a059625..657793b2 100644 --- a/perl/Keps.pm +++ b/perl/Keps.pm @@ -1,6 +1,8 @@ # # this file is automatically produced by convkeps.pl # +# Last update: Fri Mar 10 21:40:03 2000 +# package Sun; diff --git a/perl/convkeps.pl b/perl/convkeps.pl index 5102e3d2..3b08e64d 100755 --- a/perl/convkeps.pl +++ b/perl/convkeps.pl @@ -8,7 +8,8 @@ # It will write a file called /spider/local/Keps.pm, this means that # the latest version will be read in every time you restart the # cluster.pl. You can also call Sun::load from a cron line if -# you like to re-read it automatically. +# you like to re-read it automatically. If you update it manually +# load/keps will load the latest version into the cluster # # This program is designed to be called from /etc/aliases or # a .forward file so you can get yourself on the keps mailing @@ -20,12 +21,19 @@ # # http://www.amsat.org/amsat/ftp/keps/current/nasa.all # +# Please note that this will UPDATE your keps file +# +# Usage: +# email | convkeps.pl (in amsat email format) +# convkeps.pl -p keps.in (a file with just plain keps) +# # Copyright (c) 2000 Dirk Koopman G1TLH # # $Id$ # require 5.004; +package Sun; # search local then perl directories BEGIN { @@ -38,18 +46,32 @@ BEGIN { } use strict; -use Data::Dumper; +use vars qw($root %keps); -use vars qw($root); +use Data::Dumper; +use Keps; my $fn = "$root/local/Keps.pm"; my $state = 0; my $name; -my %keps; my $ref; my $line; +my $f = \*STDIN; -while () { +while (@ARGV) { + my $arg = shift @ARGV; + if ($arg eq '-p') { + $state = 1; + } elsif ($arg eq '-e') { + $state = 0; + } elsif ($arg =~ /^-/) { + die "Usage: convkeps.pl [-e|-p] []\n\t-p - plain file just containing keps\n\t-e - amsat email format input file (default)\n"; + } else { + open (IN, $arg) or die "cannot open $arg (!$)"; + $f = \*IN; + } +} +while (<$f>) { ++$line; chomp; s/^\s+//; @@ -113,6 +135,7 @@ $dd->Indent(1); $dd->Quotekeys(0); open(OUT, ">$fn") or die "$fn $!"; 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 "\n";