#!/usr/bin/env perl # $Id: makeindex.pl,v 1.11 2004/05/29 09:43:00 bernisys Exp $ # include PERL libraries use warnings; use diagnostics; # include HotSaNIC libraries use lib "../../lib"; use HotSaNICparser; use HotSaNIChtml; (my $VERSION = '$Revision: 1.11 $') =~ s/.*(\d+\.\d+).*/$1/; (my $IDENTIFIER = '$Id: makeindex.pl,v 1.11 2004/05/29 09:43:00 bernisys Exp $') =~ s/.*,v (.*) \$/$1/; # read global settings # $MODNAME=lc HotSaNICparser::get_module_name(); %CONFIG=HotSaNICparser::get_config("../.."); $IMAGEFORMAT=$CONFIG{IMAGEFORMAT}; $WEBDIR=$CONFIG{WEBDIR}."/".lc $MODNAME; $VARDIR=$CONFIG{VARDIR}."/modules/".lc $MODNAME; $REFRESH=$CONFIG{REFRESH}; $REFRESH=0 if !defined $REFRESH; @DIAGRAMS=("hour","6h","day","week","month","year"); @TIMES=("6h","week"); # build time-based .html files # %DESCR=("connections" => "TCP connections"); foreach $time (@TIMES) { open (FILE,">$WEBDIR/$time.html"); print FILE HotSaNIChtml::create_header($MODNAME,$REFRESH,"$time overview page")."\n"; foreach $proc (keys %DESCR) { $descr=$DESCR{$proc}; ($name = $proc) =~ s/_/:/; ($file=$proc) =~ s/[.:]/_/g; print FILE HotSaNIChtml::create_table_entry($IMAGEFORMAT,$file,$time,$name,$descr,1); } print FILE "

\n".HotSaNIChtml::create_footer($MODNAME); close FILE; } # build device-based .html files and complete index # open (IDXFILE,">$VARDIR/idxdata"); print IDXFILE HotSaNIChtml::create_overview_table_header($MODNAME,join(" ",@TIMES),1); $num=0; foreach $proc (sort keys %DESCR) { $num++; $description=$DESCR{$proc}; ($file=$proc) =~ s/[.:]/_/g; ($name = $proc) =~ s/_/:/; print IDXFILE HotSaNIChtml::create_overview_table_entry($MODNAME,$IMAGEFORMAT,$num,$file,$name,$description); HotSaNIChtml::make_device_page($MODNAME,$WEBDIR,$IMAGEFORMAT,$file,$description,@DIAGRAMS); } close IDXFILE; WebSVN - hotsanic - Blame - Rev 6 - /branches/HotSaNIC-0.5.0-pre6/modules/netstat/makeindex.pl

hotsanic

Subversion Repositories:

[/] [branches/] [HotSaNIC-0.5.0-pre6/] [modules/] [netstat/] [makeindex.pl] - Blame information for rev 6

Line No.	Rev	Author	Line