projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tidy blocking for windows (possibly)
[spider.git]
/
perl
/
process_ursa.pl
diff --git
a/perl/process_ursa.pl
b/perl/process_ursa.pl
index 3416d976e58dff57defd92563ca7dd60580e67a8..01427fc8327ff2d0aba9726ff38148c4e60082bb 100644
(file)
--- a/
perl/process_ursa.pl
+++ b/
perl/process_ursa.pl
@@
-8,7
+8,7
@@
#
# Copyright (c) 2004 Dirk Koopman G1TLH
#
#
# Copyright (c) 2004 Dirk Koopman G1TLH
#
-#
$Id$
+#
#
use strict;
#
use strict;
@@
-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 $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;
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 $!";
}
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;
print OUT map {s/\r\n$/\n/; $_} @$body;
print OUT "/ex\n";
close OUT;