Форум программистов [Powered by Invision Power Board]

Код

#!/usr/bin/perl

use DBI;
use CGI qw(:standard);
use strict;

my $n;
my $interval;
my @facility;
my @severity;
my @host;
my @syslogtag;
my @words;
my @base=(*Названия баз*);
my $sourse=param("sourse");
my $date=param("date");
my $fac=param("facility");
my $sev=param("severity");
my $hos=param("Host");
my $sys=param("syslogtag");
my $mes=param("message");

my $head = new CGI;
print $head->header(-charset => "UTF-8");
my $dbh = DBI->connect(***) || die $DBI::errstr;

#в следующих пяти запросах собираются данные для выпадающих списков фильтра
my $query = "SELECT facility FROM syslog GROUP BY facility ORDER BY facility;";
my $output = $dbh->prepare($query);
$output->execute;
my $facility;
$output->bind_columns(undef, \($facility));
@facility=('all');
while ($output->fetch) {
    push @facility, $facility;
}

my $query = "SELECT priority FROM `syslog` GROUP BY priority ORDER BY priority;";
my $output = $dbh->prepare($query);
$output->execute;
my $priority;
$output->bind_columns(undef, \($priority));
@severity=('all');
while ($output->fetch) {
    push @severity, $priority;
}

my $query = "SELECT host FROM `syslog` GROUP BY host ORDER BY host;";
my $output = $dbh->prepare($query);
$output->execute;
my $host;
$output->bind_columns(undef, \($host));
@host=('all');
while ($output->fetch) {
    push @host, $host;
}

my $query = "SELECT tag FROM `syslog` GROUP BY tag ORDER BY tag;";
my $output = $dbh->prepare($query);
$output->execute;
my $tag;
$output->bind_columns(undef, \($tag));
@syslogtag=('all');
while ($output->fetch) {
    push @syslogtag, $tag;
}

my $query = "SELECT fr FROM ind_word;";
my $output = $dbh->prepare($query);
$output->execute;
my $fr;
$output->bind_columns(undef, \($fr));
@words=('all');
while ($output->fetch) {
    push @words, $fr;
}

print start_html("Syslog filter"), h3("Syslog filter");
print p(hr);
print start_form;
print p("Sourse :", popup_menu ("sourse",[@base]), 
    "Date :", popup_menu ("date",['all time', 'last hour', 'last 12 hours', 'last 24 hours', 'last week', 'last month']),
    "Fasility :", popup_menu ("facility",[@facility]),
    "Severity :", popup_menu ("severity",[@severity]),
    "Host :", popup_menu ("Host",[@host]),
    "Syslogtag :", popup_menu ("syslogtag",[@syslogtag]),
    "Message :", popup_menu ("message",[@words]));
print p(submit("Ok"));
print end_form; hr;

    print qq{<table border="1" cellpadding="5" cellspacing="0" width="95%">
        <tr>
            <td width="10%" align="left">Date: </td>
            <td width="8%" align="left">Facility: </td>
            <td width="8%" align="left">Severity: </td>
            <td width="8%" align="left">Host: </td>
            <td width="8%" align="left">Syslogtag: </td>
            <td width="8%" align="left">ProcessID: </td>
            <td width="50%" align="left">Message: </td>
        </tr>};

if ($date eq 'all time') {$interval=100000;} 
elsif ($date eq 'last hour'){$interval=(1/24);}
elsif ($date eq 'last 12 hours'){$interval=0.5;}
elsif ($date eq 'last 24 hours'){$interval=1;}
elsif ($date eq 'last week'){$interval=7;}
elsif ($date eq 'last month'){$interval=30;};

#Условия для вывода таблицы с данными на экран
my $query = "SELECT datetime, facility, priority, host, tag, program, msg FROM `syslog` WHERE (TO_DAYS(NOW()) - TO_DAYS(datetime) <= ".$interval.")";
if ($fac ne 'all'){
    $query = $query." AND (facility=".$fac.")"
}
if ($sev ne 'all'){
    $query = $query." AND (priority=".$sev.")"
}
if ($hos ne 'all'){
    $query = $query." AND (host='".$hos."')"
}
if ($sys ne 'all'){
    $query = $query." AND (tag='".$sys."')"
}
if ($mes ne 'all'){
    $query = $query." AND (msg like '%".$mes."%')"
}
$query=$query." LIMIT ".$n;
my $output = $dbh->prepare($query);
$output->execute;
my ($datetime, $facility, $priority, $host, $tag, $program, $msg);
$output->bind_columns(undef, \($datetime, $facility, $priority, $host, $tag, $program, $msg));
while ($output->fetch) {
        print qq{<tr>
            <td width="10%" align="left">$datetime </td>
            <td width="8%" align="left">$facility </td>
            <td width="8%" align="left">$priority </td>
            <td width="8%" align="left">$host </td>
            <td width="8%" align="left">$tag </td>
            <td width="8%" align="left">$program </td>
            <td width="50%" align="left">$msg </td>
        </tr>};
}
    print qq{</table>};
print end_html();
$dbh->close();