projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branches 'mojo' and 'test' of ssh://server/scm/spider into test
[spider.git]
/
perl
/
convkeps.pl
diff --git
a/perl/convkeps.pl
b/perl/convkeps.pl
index 5b546ca7839d5a05979ccfea3d0830f1dfe15bc1..5c8cc077a740d86e66d5e0ad4cec45c3376174d3 100755
(executable)
--- a/
perl/convkeps.pl
+++ b/
perl/convkeps.pl
@@
-1,4
+1,4
@@
-#!/usr/bin/
perl -w
+#!/usr/bin/
env perl
#
# Convert an Amsat 2 line keps bull into Sun.pm format
#
#
# Convert an Amsat 2 line keps bull into Sun.pm format
#
@@
-32,7
+32,7
@@
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
#
# Copyright (c) 2000 Dirk Koopman G1TLH
#
-#
$Id$
+#
#
require 5.004;
#
require 5.004;
@@
-104,7
+104,7
@@
while (<$f>) {
last if m{^-};
next if m{^To\s+all}i;
last if m{^-};
next if m{^To\s+all}i;
- if (/^([- \w]+)(?:\s+\[[-+\w]\])$/) {
+ if (/^([- \w]+)(?:\s+\[[-+\w]\])
?
$/) {
my $n = uc $1;
$n =~ s/\s/-/g;
$name = $lookup{$n};
my $n = uc $1;
$n =~ s/\s/-/g;
$name = $lookup{$n};