#!/usr/bin/perl -w
#
# Lame-o-Nickometer frontend
#
# (c) 1998 Adam Spiers <nickometer@adamspiers.org>
#
# You may do whatever you want with this code, but give me credit.
#

use strict;
use Getopt::Std;

use vars qw(%opts $VERSION $verbose);

require 'nickometer.pl';

getopts('q', \%opts);

$verbose = $opts{'q'} ? 0 : 1;

print "Welcome to the Lame-o-Nickometer(TM) version $VERSION\n\n" if $verbose;

while (<>) {
  chomp;

  print "\n" if $verbose;
  my $percentage = &nickometer($_);

  if ($verbose) {
    if ($percentage =~ /NaN/) {
      print "Oh dear!  The Lame-o-Nickometer just blew up!\n";
    } else {
      print "$_ reads $percentage% lame on the Lame-o-Nickometer\n";
    }
    print '-' x 78, "\n\n";
  } else {
    print "$percentage\n";
  }
}