#!/usr/ug/bin/perl5
#
# sample use:
# hothour
#
# by Wei-Hwa Huang (whuang@ugcs.caltech.edu)

use strict;

my $ct;
my $TIME = `date +%s`;
chomp $TIME;

my @MESSAGE;
my $muck;

    my %catlist = ();

    # add the old cats to catlist.
    if (-e "/home/whuang/gale/stats") {
      open(FHAND,"</home/whuang/gale/stats");
      my @data = <FHAND>;
      chomp(@data);
      my $line;
      foreach $line (@data) {
        my ($tm, $guy, $ct) = split(' ',$line);
        if ($TIME - $tm <= (60 * 60 * 99)) {
          my @ar = ();
          if ($catlist{$ct} == 0) {
            $catlist{$ct} = \@ar;
          }
          push(@{$catlist{$ct}},"$tm $guy");
        }
      }
      close(FHAND);
    }
    

  my $outstring = "| /usr/contrib/bin/gsend /nolog bot.hot.hourly.".(($TIME/60/60-7)%24);

  eval(`cat /home/whuang/prog/gale/hotpout`);