File: Sensor_Tree.pl

package info (click to toggle)
piwi 0.8%2B20041206-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, jessie, jessie-kfreebsd, lenny, sarge, squeeze, wheezy
  • size: 1,076 kB
  • ctags: 162
  • sloc: perl: 5,425; makefile: 49; xml: 49
file content (45 lines) | stat: -rwxr-xr-x 822 bytes parent folder | download | duplicates (2)
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' );