From: minima <minima>
Date: Sat, 12 Feb 2005 15:49:51 +0000 (+0000)
Subject: force a default callsign that can be overridden on command line -1 is not
X-Git-Tag: R_1_52~205
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=9c797d05bcdc046e87b20248f7bbeadbbb305a1e

force a default callsign that can be overridden on command line -1 is not
liked by some software
---

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;