Index of /radius/Raw

#!/usr/bin/perl -w # # Converts "index.raw" in the current directory into an html hot-linked # version (linking to user files). Writes "index.html". # # Contributed by Richard A. Soderberg, June 1998 open(INDEX, "index.raw") or die "Can't read index: $!"; open(HTML, ">index.html") or die "Can't write index.html: $!"; print HTML 'Index of /radius/Raw

',
		"\n";

while () {
  print HTML;
  last if /=/;
}

while () {
  if (/=/) {
    print HTML;
    last;
  }
  chomp($record = $_);
  ($username = substr($record, 0, 19)) =~ s/\s+$//g;;
  next if (length($username) > 20);
  $end = substr($record, 20);
  print HTML '' . $username . '' .
		( ' ' x ( 20 - length($username) ) ) . "$end\n";
}

print HTML '

', "\n";