From 9c797d05bcdc046e87b20248f7bbeadbbb305a1e Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 12 Feb 2005 15:49:51 +0000 Subject: [PATCH] force a default callsign that can be overridden on command line -1 is not liked by some software --- perl/process_ursa.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/process_ursa.pl b/perl/process_ursa.pl index 3416d976..3894ba16 100644 --- a/perl/process_ursa.pl +++ b/perl/process_ursa.pl @@ -32,6 +32,7 @@ my $tmp = "$root/tmp"; my $msg = Mail::Internet->new(\*STDIN) or die "Mail::Internet $!"; my $head = $msg->head->header_hashref; +my $fromcall = shift || 'G1TLH'; if ($head && $head->{From}->[0] =~ /sidc/i && $head->{Subject}->[0] =~ /Ursigram/i) { my $body = $msg->body; @@ -46,7 +47,7 @@ if ($head && $head->{From}->[0] =~ /sidc/i && $head->{Subject}->[0] =~ /Ursigram } my $fn = "ursigram$date.txt.$$"; open OUT, ">$tmp/$fn" or die "import $tmp/$fn $!"; - print OUT "SB ALL\n$title\n"; + print OUT "SB ALL < $fromcall\n$title\n"; print OUT map {s/\r\n$/\n/; $_} @$body; print OUT "/ex\n"; close OUT; -- 2.43.0