#! /usr/bin/perl

# srom: Sucks-Rules-O-Meter
#
# Copyright 1998 Electric Lichen L.L.C.
# Don Marti <dmarti@electriclichen.com>

# revised 3 June 1999 -- new AltaVista result page format

# revised 19 Mar 1998 -- added $rule_offset

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.

require 5.004;
use LWP::Simple;

my $SEARCH_PREFIX = qq{http://altavista.digital.com/cgi-bin/query?pg=q&what=web&kl=XX&q=%2B%22};

my $SEARCH_SUFFIX = '%22';

my %aliases = ('AmigaOS' => ['AmigaOS'],
	       'BeOS' => ['BeOS'],
	       'FreeBSD' => ['FreeBSD'],
	       'Linux' => ['Linux'],
	       'Mac OS' => ['Mac OS', 'MacOS'],
	       'NetBSD' => ['NetBSD'],
	       'OS/2' => ['OS/2'],
	       'OS/400' => ['OS/400'],
	       'Solaris' => ['Solaris'],
	       'Unix' => ['Unix'],
	       'VMS' => ['VMS', 'OpenVMS'],
	       'Windows' => ['Windows']
	      );

my %synonyms = ('sucks' => ['sucks'],
		'rules' => ['rules', 'rocks']
	       );

###########################################################################

$greatest = 1;

foreach my $os (keys(%aliases)) {
  foreach my $alias (@{$aliases{$os}}) {
    
    foreach $quality ('sucks', 'rules') {	
      foreach my $synonym (@{$synonyms{$quality}}) {
	
	if (get($SEARCH_PREFIX . lc("$alias +$synonym") . $SEARCH_SUFFIX) =~ 
	    /found\D+(\d+)\D+web/i) {
	  $count{$os}{$quality} += $1 + 0;
	  
	  print STDERR "$alias $synonym ($os $quality): $1\n";
	  
	}
      }    
      $greatest = $count{$os}{$quality} if $count{$os}{$quality} > $greatest;
    }
  }
  print "\n";
}

die "bad AltaVista, bad, bad " if $greatest == 1;


# print comment for srom2gif...
print "<!--\nOSCOUNT ";
print scalar(keys(%aliases)), "\n";
foreach my $os (sort(keys(%aliases))) {
  print "OSRATING $os ";
  print $count{$os}{'sucks'} + 0, " ", $count{$os}{'rules'} + 0, "\n";
}
print "-->";

print qq{<table width="100%" cellspacing="0">};
print qq{\n<tr><th>&nbsp;</th><th width="40%">sucks
	   </th><th width="40%">rules, rocks
	   </th></tr>};

foreach my $os (sort(keys(%aliases))) {
  my $suckage = int (100* $count{$os}{'sucks'}/$greatest);
  my $suck_offset = 100 - $suckage;
  my $ruleage = int (100* $count{$os}{'rules'}/$greatest);
  my $rule_offset = 100 - $ruleage;

  print qq{\n<tr><th align="right" width="20%">$os</th>};
  print '<td width="40%">';

  print qq{<table width="100%" cellspacing="0">};
  print qq{<tr><th width="$suck_offset%" align="right">};

  if ($suck_offset >= 75) {
    print qq{<font color="red">},
    $count{$os}{'sucks'} + 0,
    qq{</font>};
  }

  else {
    print "&nbsp;";
  }

  print "</th>";

  print qq{<th width="$suckage%" bgcolor="red">};

  if ($suckage > 25) {
    print qq{<font color="white">$count{$os}{'sucks'}</font>};
  }

  elsif ($suckage == 0) {
  }

  else {
    print "&nbsp;";
  }

  print "</th></tr></table></td>";


  print '<td width="40%">';

  print qq{<table width="100%" cellspacing="0"><tr>};
  print qq{<th width="$ruleage%" bgcolor="green">};

  if ($ruleage >= 25) {
    print qq{<font color="white">$count{$os}{'rules'}</font>};
  }

  elsif ($ruleage == 0) {
  }

  else {
    print "&nbsp;";
  }

  print "</th>";

  print qq{<th bgcolor="white" align="left" width="$rule_offset%">};

  if ($ruleage < 25) {
    print qq{<font color="green">$count{$os}{'rules'}</font>};
  }

  else {
    print "&nbsp;";
  }

  print "</th></tr></table></td></tr>";

}

print "</table>";

my $date = scalar(gmtime(time()));
print qq{<h3 align="right">Updated $date GMT.</h3>};

exit 0;