📄 brokerstats.cgi
字号:
#!/usr/bin/perl##Program brokerstats.cgi: harvest broker statistics#Version 0.6 Hermann Straus, Madrid February 1998#Send comments to hstraus@cipres.upm.es##Kang-Jin Lee <lee@arco.met.fu-berlin.de> 30 January 2000#Minor changes.require "cgi_lib.pl";&ReadParse; # puts in @in the variables from the HTML page.######################################################################## User configurable parameters#######################################################################$logprefix="/usr/local/harvest/brokers/";$bargifurl="/~hstraus/blueblock.gif";$brokerprefix="http://buho.cipres.upm.es/Harvest/brokers/";################################# Read variables from HTML page################################$broker=@in{'broker'}; #broker name$maxdetail=@in{'maxdetail'}; #max detail in query list$ano_ini=@in{'ano_ini'}; # initial year$mes_ini=@in{'mes_ini'}; # initial month$dia_ini=@in{'dia_ini'}; # initial day$ano_fin=@in{'ano_fin'}; # same for final$mes_fin=@in{'mes_fin'};$dia_fin=@in{'dia_fin'};#to make tests from the command line#$broker="MAP-comparativa1";#$maxdetail=2;#$ano_ini=1997;#$mes_ini=12;#$dia_ini=26;#$ano_fin=1998;#$mes_fin="01";#$dia_fin="12";#$fechaini="19980120";#$fechafin="19980120";######################################################################## Definicion de variables#######################################################################$logfile=$logprefix.$broker.'/broker.out';$brokerurl=$brokerprefix.$broker;$fechaini=$ano_ini.$mes_ini.$dia_ini; #initial date$fechafin=$ano_fin.$mes_fin.$dia_fin; #final date%stat = ( 'totresult', 0, # number of results given 'totqueries', 0, # number of queries received 'totcomplet', 0, # number of queries completed 'resmax', 0, # maximo de results results 'errores', 0, # numero de errores 'maxhour', 0, # number of queries in the 'top' hour 'maxhourv', 0, # 'top' hour 'maxresgrp', 1, # number of results in the 'top' result group 'maxresgrpv', 0, # 'top' result group 'hr0', '0', # accesses in hour 0 'hr1', '0', # accesses in hour 1 'hr2', '0', # accesses in hour 2 'hr3', '0', # accesses in hour 3 'hr4', '0', # accesses in hour 4 'hr5', '0', # accesses in hour 5 'hr6', '0', # accesses in hour 6 'hr7', '0', # accesses in hour 7 'hr8', '0', # accesses in hour 8 'hr9', '0', # accesses in hour 9 'hr10', '0', # accesses in hour 10 'hr11', '0', # accesses in hour 11 'hr12', '0', # accesses in hour 12 'hr13', '0', # accesses in hour 13 'hr14', '0', # accesses in hour 14 'hr15', '0', # accesses in hour 15 'hr16', '0', # accesses in hour 16 'hr17', '0', # accesses in hour 17 'hr18', '0', # accesses in hour 18 'hr19', '0', # accesses in hour 19 'hr20', '0', # accesses in hour 20 'hr21', '0', # accesses in hour 21 'hr22', '0', # accesses in hour 22 'hr23', '0', # accesses in hour 23 'r0', '0', # results 0 'r5', '0', # results 0-5 'r10', '0', # results 6-10 'r20', '0', # results 11-20 'r50', '0', # results 21-50 'rn', '0' # results 51- );######################################################################## Main program########################################################################Print HTTP Header, and then the HTML.print "Content-type: text/html\n\n";print "<HTML>\n";print "<HEAD>\n";print "<TITLE>Broker Statistics</TITLE>\n";print "</HEAD>\n";print '<BODY BGCOLOR="#FFFFFF">',"\n";&Calcula;print "<HR><H1>Statistics for the Broker <EM>$broker</EM></H1><HR>\n";print "<CENTER>\n";print "From $dia_ini/$mes_ini/$ano_ini to $dia_fin/$mes_fin/$ano_fin <BR>\n";print "The broker obtained <EM>$stats{'totresult'}</EM> results\n";print "in <EM>$stats{totqueries}</EM> queries,";print " completing <EM>$stats{'totcomplet'}</EM>. \n";&GrafResults;print "</CENTER>\n";print '<TABLE border="0">',"\n";print '<TR><TD>'; &GrafHoras;print "</TD>\n";print "<TD>"; &AnalyseStructure; &OtherData;print "</TD></TR>\n";print "</TABLE>\n";print "<BR>\n";print "<H3>The following is a detailed list of the queries:</h3>\n";&Detailed;&Message;&Final;print "</BODY>\n";print "</HTML>\n";exit;########################################################################### Subroutines############################################################################Comprueba: comprueba que los datos sean correctos (useless yet)#####################################################################sub Comprueba {}#error : da un mensaje de error (useless yet)############################################################################sub error { print "Ocurri⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -