+sub formathead
+{
+ my $mycall = shift;
+ my $dts = shift;
+ my $hop = shift;
+ my $user = shift;
+ my $group = shift;
+
+ my $s = "$mycall,$dts,$hop";
+ $s .= ",$user" if $user;
+ if ($group) {
+ $s .= "," unless $user;
+ $s .= ",$group" if $group;
+ }
+ return $s;
+}
+