jablonka.czprosek.czf

hotsanic

Subversion Repositories:
[/] [branches/] [HotSaNIC-0.5.0-pre6/] [modules/] [ntp/] [makeindex.pl] - Blame information for rev 31

 

Line No. Rev Author Line
11simandl#!/usr/bin/env perl
2 
3# $Id: makeindex.pl,v 1.10 2004/06/02 23:25:10 bernisys Exp $
4 
5# include PERL libraries
6use warnings;
7use diagnostics;
8 
9# include HotSaNIC libraries
10use lib "../../lib";
11use lib "./platform";
12use HotSaNICparser;
13use HotSaNIChtml;
14use common;
15 
16(my $VERSION = '$Revision: 1.10 $') =~ s/.*(\d+\.\d+).*/$1/;
17(my $IDENTIFIER = '$Id: makeindex.pl,v 1.10 2004/06/02 23:25:10 bernisys Exp $') =~ s/.*,v (.*) \$/$1/;
18 
19# read global settings
20#
21$MODNAME=lc HotSaNICparser::get_module_name();
22%CONFIG=HotSaNICparser::get_config("../..");
23$IMAGEFORMAT=$CONFIG{IMAGEFORMAT};
24$WEBDIR=$CONFIG{WEBDIR}."/".lc $MODNAME;
25$VARDIR=$CONFIG{VARDIR}."/modules/".lc $MODNAME;
26$REFRESH=$CONFIG{REFRESH};
27$REFRESH=0 if !defined $REFRESH;
28 
29%MODCONFIG=HotSaNICmod::common::configure();
30@DIAGRAMS=("hour","6h","day","week","month","year");
31@TIMES=("6h","week");
32@GRAPHS=("stratum","distance","dispersion","frequency","stability");
33 
34# build time-based .html files
35#
36foreach $time (@TIMES) {
37 open (FILE,">$WEBDIR/$time.html");
38 print FILE HotSaNIChtml::create_header($MODNAME,$REFRESH,"$time overview page")."<table>\n";
39 foreach $graph (@GRAPHS) {
40 foreach $entry (@{$MODCONFIG{HOST}}) {
41 my (undef,undef,undef,$dbname,$name,$file,$description)=HotSaNICmod::common::get_names($entry,$graph);
42 print FILE HotSaNIChtml::create_table_entry($IMAGEFORMAT,$file,$time,$name,$description,1);
43 }
44 }
45 print FILE "</table>\n".HotSaNIChtml::create_footer($MODNAME);
46 close FILE;
47 }
48 
49# build device-based .html files and complete index
50#
51my $maxcols = scalar@{$MODCONFIG{HOST}};
52open (IDXFILE,">$VARDIR/idxdata");
53print IDXFILE HotSaNIChtml::create_overview_table_header($MODNAME,join(" ",@TIMES),$maxcols);
54$num=0;
55foreach $graph (@GRAPHS) {
56 $num++;
57 foreach $entry (@{$MODCONFIG{HOST}}) {
58 my (undef,undef,undef,$dbname,$name,$file,$description)=HotSaNICmod::common::get_names($entry,$graph);
59 print IDXFILE HotSaNIChtml::create_overview_table_entry($MODNAME,$IMAGEFORMAT,$num,$file,$name,$description);
60 HotSaNIChtml::make_device_page($MODNAME,$WEBDIR,$IMAGEFORMAT,$file,$description,@DIAGRAMS);
61 }
62 }
63 
64close IDXFILE;
65 
66 

Powered by WebSVN 2.2.1