#!/usr/bin/perl use CGI; use strict; my $req = new CGI; my $host = $req->url_param( 'host' ); my $lines = $req->url_param( 'lines' ); my $grep = $req->url_param( 'grep' ); my $cut = $req->url_param( 'cut' ); $host = "b0" unless $host; $lines = 100 unless $lines; $grep = '.' unless $grep; $cut = '43-' unless $cut; my $log = "/home/j2eetck/agent-logs/$host.log"; my %hosts = ( 'b0' => 'stan', 'b1' => 'kenny', 'b2' => 'cartman', 'b3' => 'kyle', 'b4' => 'chef', 'b5' => 'jimmy', 'b6' => 'timmy' ); print "Content-type: text/html\n\n"; print < GBUILD :: Log :: $hosts{$host}.gbuild.org

\  GBUILD :: Logs :: $hosts{$host}.gbuild.org 
HTML

print `cut -c $cut $log | egrep $grep | tail -n $lines`;


print <
HTML