1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#! /usr/bin/perl -w
use strict;
use warnings;
use DBI;
use CGI;
package main;
require 'Functions/config.pl';
require 'Functions/db.pl';
require 'Functions/parser.pl';
require 'Functions/web.pl';
require 'Functions/encode.pl';
require 'Functions/FakeFunctions.pl';
require 'Functions/Sensor_Tree.pl';
our %conf = (); # configuration directives
our $cgi = ''; #
our %miss = (); #
LoadConfig();
$cgi = CGI->new();
print "Pragma: no-cache\n";
print "Expires: -1\n";
print "Cache-Control: no-cache\n";
print "Content-Type: text/html\n\n";
# Open the DB connection :
our $dbh = DB_Open();
our $PageTitle = ' - Heart Beat';
ParseComponent( 'CommonHeader' );
print sensor_tree();
print '<br><br><br>';
print "<center><a href=\"Filters.pl\" target=_top>Close frame</a></center>";
ParseComponent( 'CommonFooter' );
|
