# singlize.pl reformats a NET USER output listing to 1 user per line.
# Written 05-June-1997 by fhb.
# Expects filename (raw data output from NET) passed on command line.

$bDebug = 0;

MAIN:
$sAppName = "singlize";
$sVersion = "0.1";
$nTotal = 0;

print "$sAppName $sVersion\n";

unless ($#ARGV + 1) {
  die "Missing data file on command line.\n";		# somebody give me an arg!
  }

$sFile = $ARGV[0];
$sNewData = sprintf(">%s.new",$sFile);

open(FOUTPUT,$sNewData);
open(FDATA,$sFile) || die "Can't open file $sFile: $!\n";
while (<FDATA>) {
  if (!/^\!/) {						# skip comments
    ($u1,$u2,$u3) = split;
    $sLine = sprintf("%s\n%s\n%s",$u1,$u2,$u3);
    print FOUTPUT "$u1\n$u2\n$u3\n";
    }
  }
close(FDATA);
close(FOUTPUT);

print "$sAppName: created $sNewData.\n";