projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
change the Hello to use default values
[spider.git]
/
perl
/
importkeps.pl
diff --git
a/perl/importkeps.pl
b/perl/importkeps.pl
index fe3cc1142fb940a643c63345b12a2caefbcd3aff..39fa21dfc3dae59467143fdb961bdfce2193e5ea 100644
(file)
--- a/
perl/importkeps.pl
+++ b/
perl/importkeps.pl
@@
-22,7
+22,7
@@
BEGIN {
unshift @INC, "$root/local";
}
unshift @INC, "$root/local";
}
-
+my $fromcall = shift || 'G1TLH';
my $inp;
{
local $/ = undef;
my $inp;
{
local $/ = undef;
@@
-44,7
+44,7
@@
exit(0);
sub process
{
# chop off most of the beginning
sub process
{
# chop off most of the beginning
- return unless $inp =~ s/^.*SB\s+KEPS\s+\@\s+AMSAT\s+\$ORB\d{5}\.\w/SB ALL/s;
+ return unless $inp =~ s/^.*SB\s+KEPS\s+\@\s+AMSAT\s+\$ORB\d{5}\.\w/SB ALL
< $fromcall
/s;
return unless $inp =~ s/2Line\s+Orbital\s+Elements/2Line Keps/;
# open the output file in the data area
return unless $inp =~ s/2Line\s+Orbital\s+Elements/2Line Keps/;
# open the output file in the data area