#!/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;
@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";
my $descr="Routing2";
my $page="routing2";
my $dev="routing2";
print FILE " ![](\"",$page,"-",$time,".",$IMAGEFORMAT,"\") |
",$dev,"
",$descr," |
\n";
print FILE "
\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;
$nn++;
my $descr="Routing2";
my $page="routing2";
my $dev="routing2";
($page=$dev) =~ s/[.:]/_/g;
print IDXFILE $nn,"## ![](\"",$MODNAME,"/thumb-",$page,".",$IMAGEFORMAT,"\") |
",$nn,"## ",$dev,"
",$descr," | \n";
# build device-based .html
#
open (FILE,">index/$page.html");
print FILE "\n";
if ($REFRESH > 0) {
print FILE "
\n";
}
print FILE "\n";
foreach $diagram (@DIAGRAMS) {
print FILE "![](\"",$page,"-",$diagram,".",$IMAGEFORMAT,"\")
\n";
}
print FILE "\n\n";
close FILE;
close IDXFILE;