my $time = ztime($t);
$private = $private ? '1' : '0';
$rr = $rr ? '1' : '0';
+ $subject ||= ' ';
return "PC28^$tonode^$fromnode^$to^$from^$date^$time^$private^$subject^ ^5^$rr^ ^$origin^~";
}
my $call = shift;
$call = shift if ref $call;
- my ($sort, $info) = @_;
- $sort ||= '0';
- $info ||= ' ';
+ my $sort = shift || '0';
+ my $info = shift || ' ';
my $hops = shift || get_hops(41);
return "PC41^$call^$sort^$info^$hops^~";
}