#!/usr/bin/env perl use warnings; use diagnostics; use lib "../../lib"; use HotSaNICparser; # read global settings # $MODNAME=lc HotSaNICparser::get_module_name(); %CONFIG=HotSaNICparser::get_config("../.."); $IMAGEFORMAT=$CONFIG{"IMAGEFORMAT"}; $REFRESH=$CONFIG{"REFRESH"}; $REFRESH=0 if !defined $REFRESH; # read module-specific settings # undef %DESCR; foreach (HotSaNICparser::read_settings(".")) { ($var,$value)=HotSaNICparser::parse_line($_); if ($var eq "DEVEXT") { ($dev,$descr)=split(/,/,$value); $devname=$dev; $dev =~ s/\//_/g; $dev =~ s/! /!/g; $DESCR{"ext$dev"}=$descr; $DEVNAME{"ext$dev"}=$devname; next; } if ($var eq "DEVINT") { ($dev,$descr)=split(/,/,$value); $devname=$dev; $dev =~ s/\//_/g; $dev =~ s/! /!/g; $DESCR{"int$dev"}=$descr; $DEVNAME{"int$dev"}=$devname; next; } } @DIAGRAMS=("hour","6h","day","week","month","year"); @TIMES=("6h","week"); # build time-based .html files # foreach $time (@TIMES) { open (FILE,">index/$time.html"); print FILE "\n"; if ($REFRESH > 0) { print FILE " \n"; } print FILE "\n\n"; foreach $dev (sort keys %DESCR) { $descr=$DESCR{$dev}; $devname=$DEVNAME{$dev}; print FILE " \n"; } print FILE "

",$devname,"

",$descr,"

\n\n\n"; close FILE; } # build device-based .html files and complete index # open (IDXFILE,">idxdata"); print IDXFILE "0## ",$MODNAME,"
0## 6 hours 0## week
0##

0## \n"; $nn=0; foreach $dev (sort keys %DESCR) { $nn++; $descr=$DESCR{$dev}; $devname=$DEVNAME{$dev}; print IDXFILE $nn,"##

",$nn,"## ",$devname,"
",$descr,"\n"; # build device-based .html # open (FILE,">index/$dev.html"); print FILE "\n"; if ($REFRESH > 0) { print FILE " \n"; } print FILE "\n"; foreach $diagram (@DIAGRAMS) { print FILE "

\n"; } print FILE "\n\n"; close FILE; } close IDXFILE; WebSVN - hotsanic - Blame - Rev 36 - /branches/HotSaNIC-0.5.0-jablonecka/modules/networks/makeindex.pl

hotsanic

Subversion Repositories:

[/] [branches/] [HotSaNIC-0.5.0-jablonecka/] [modules/] [networks/] [makeindex.pl] - Blame information for rev 36

Line No.	Rev	Author	Line