sub cgiOut { print $q->header( "text/html" ), $q->start_html( -title=>"Apache Stats for $hostname", -bgcolor=>"#383838", -text=>"#FFFFFF", -link=>"#FFFFFF", -alink=>"#FFFFFF", -vlink=>"#FFFFFF"), $q->h2( "Apache Stats for $hostname" ), $q->start_form( -method=>"POST", -action=>"/cgi-bin/logrep"), $q->popup_menu( -name=>'filename', , -values=>[ '/var/log/apache/access_log', '/var/log/apache/access_log.1', '/var/log/apache/access_log.2', '/var/log/apache/access_log.3', '/var/log/apache/access_log.4', '/var/log/apache/access_log.5', '/var/log/apache/access_log.6', '/var/log/apache/access_log.7', '/var/log/apache/mega',], -defaults=>'', -labels=>"Label"); print "  "; print $q->submit( -value=>"Query" ); print "  "; print $q->reset, $q->end_form, $q->a( { href=>$q->url() }, "Refresh" ); print "  "; print $q->a( { href=>"/lug" }, "Home" ), $q->hr, $q->br; &tableOut(1, $q, 'Host Client', 'Hits', %host); print $q->br; my @data = ( ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"], [ 1203, 3500, 3973, 2859, 3012, 3423, 1230] ); my $graph = new GD::Graph::lines3d( 400, 300 ); $graph->set( x_label => 'Day of the week', y_label => 'Number of hits', title => 'Daily Summary of Web Site', ); my $gd = $graph->plot( \@data ); # ---> HOW DO I PRINT THIS $gd object, create another CGI object perhaps?? &tableOut(0, $q, 'Referring Site', 'Ref\'d', %ref); print $q->br; &tableOut(0, $q, , 'Page Requested', 'Hits', %page); print $q->br, $q->hr; print $q->p( "Created by Pararox" ); print $q->end_html; 1; }