From: Stephen L Johnson <sjohnson@monsters.org>
Date: Wed, 9 Feb 2000 19:55:01 +0000 (+0000)
Subject: added history type code to display routines
X-Git-Tag: spong-2_7-alpha5~90
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f0433bfd70774b8d833b905bb5dfa4f65e1ff601;p=spong.git

added history type code to display routines
---

diff --git a/src/lib/Spong/History.pm b/src/lib/Spong/History.pm
index 9ed0566..7d1e9d3 100755
--- a/src/lib/Spong/History.pm
+++ b/src/lib/Spong/History.pm
@@ -85,6 +85,8 @@ sub display_text {
    $shost = (split( /\./, $self->host() ))[0] unless $shost;
 
    print $self->color(), " "x(7-length($self->color()));
+   my($type) = substr($self->type,0,1); $type =~ tr/a-z/A-Z/;
+   print " $type ";
    print sprintf( "%2.2d:%2.2d  ", $hour, $min );
    print substr( $shost, 0, 12 ), " "x(14-length(substr($shost, 0, 12)));
    print substr( $self->service(), 0, 5 );
@@ -103,7 +105,7 @@ sub display_html {
 
    $shost = (split( /\./, $self->host() ))[0] unless $shost;
 
-   print "<tr><td width=7% align=left valign=top>";
+   print "<tr><td width=5% align=left valign=top>";
 
    if( $main::WWW_USE_IMAGES == 1 ) {
       print "<a href=\"" . $main::WWWSPONG . "/histservice/".$self->host()
@@ -120,7 +122,11 @@ sub display_html {
       print "</td></tr></table>";
    }
 
-   print "</td><td width=12% align=center valign=top>";
+   print "</td>\n";
+   print "<td width=5% align=center>";
+   my($type) = substr($self->type,0,1); $type =~ tr/a-z/A-Z/;
+   print "$type</td>\n";
+   print "<td width=10% align=center valign=top>";
    printf ( "%2.2d:%2.2d</td>", $hour, $min );
    print "<td width=15% align=left valign=top>$shost </td>\n";
    print "<td width=15% align=left valign=top>$service</td>\n";