#!/usr/bin/perl use CGI qw(-nosticky :cgi :form); $prefix="@prefix@"; $exec_prefix="@exec_prefix@"; $syscall = "@bindir@/sinfo -qW"; # my local test configuration: #$syscall = "$syscall -h localhost:61001 -h localhost"; # set default values $top=3; $show_sysinfo=''; $show_network=''; $show_diskload=''; $show_own=''; $user=""; if ( param() ) { # read cgi variables $top = param('top'); $show_sysinfo = param('show_sysinfo'); $show_network = param('show_network'); $show_diskload = param('show_diskload'); $show_own = param('show_own'); $user = param('user'); } # apply configuration $syscall = "$syscall -t $top"; if ( $show_sysinfo eq 'ON') { $syscall = "$syscall -s"; } if ( $show_network eq 'ON') { $syscall = "$syscall -n"; } if ( $show_diskload eq 'ON') { $syscall = "$syscall -D"; } if ( $show_own eq 'ON') { $syscall = "$syscall -o"; } # prevent that someone enters "; cat /etc/passwd" as a user-name # to start "cat /etc/passwd" or other bad things # as cgi-user (normally "nobody") # # strategy: # lookup if parameter $user contains a valid user name with getpwnam. ($dummy)=getpwnam($user) or $user=""; if ( $user ) { $syscall = "$syscall -u $user"; } # filter all ";" $syscall =~s/;//g; ############################# start of HTML output ############################# print "Content-type: text/html\n\n"; print "\n\n"; print "\n\n"; print " \n", " \n", " sinfo @VERSION@ @ ",virtual_host(),"\n"; # define the colors of sinfo´s output. # change the definitions to fit the look & feel of your web site print " \n"; print " \n\n"; print " \n"; print "
\n"; print " \n"; # print a headline print " \n", " \n", " \n\n"; # print the menu print " \n", " \n", " \n\n"; # print the output of sinfo print " \n", " \n", " \n\n"; # add a link to sinfo´s homepage print " \n", " \n", " \n\n"; print "
\n", " sinfo @VERSION@ @ ",virtual_host(),"\n", "
\n", "
\n", " ",start_form(-method=>'get', -action=>$ENV{'SCRIPT_NAME'}), " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", "
\n", " settings", "
\n", " show top", " ",popup_menu( -name=>'top', -default=>$top, -values=>['0','1','2','3','4','5']), " processes\n", "
\n", " ",checkbox(-name=>'show_sysinfo', -checked=>$show_sysinfo, -value=>'ON',-label=>'show system info',), "
\n", " ",checkbox(-name=>'show_network', -checked=>$show_network,-value=>'ON', -label=>'show network info',), "
\n", " ",checkbox(-name=>'show_diskload', -checked=>$show_diskload,-value=>'ON', -label=>'show disk load',), "
\n", " ",checkbox(-name=>'show_own', -checked=>$show_own, -value=>'ON', -label=>'show only user',), " ",textfield(-name=>'user',-size=>8), "
\n", " ",submit(-name=>'reload page'), "
\n", " ",end_form(), "
\n", "
\n", " \n", " \n", " \n", " \n", "
\n", " \n", `$syscall`, " \n", "
\n", "
\n", " \n", " \n", " generated using \n", " sinfo @VERSION@ \n", " by \n", " J. Rinas\n", " \n", " \n", "
\n"; print "
\n"; print " \n\n"; print "\n";