"Fossies" - the Fresh Open Source Software archive

Member "linux_monitor-2.0RC3/contrib/settings.cgi" of archive linux_monitor-2.0RC3.tar.gz:

#!/usr/bin/perl
use strict;
use vars;
use CGI;
use DBI;

my $query=new CGI;
my $dsn = 'DBI:Pg:dbname=linuxmond';
my $db_user_name = 'linuxmond';
my $db_password = 'r4k8u7';
my $PATH="/cgi-bin/";

#Fetch the settings
my $orderby = $query->param('orderby');
my $ascordesc = $query->param('ascordesc');
my $nick = $query->param('nick');

#Process settings
if($orderby eq "Nro")
{
 $orderby = "nro";
}elsif ($orderby eq "Status") {
 $orderby = "status";
}elsif ($orderby eq "Machine") {
 $orderby = "machine";
}elsif ($orderby eq "Time") {
 $orderby = "time";
}
if($ascordesc eq "Descending")
{
 $ascordesc = "DESC";
}elsif($ascordesc eq "Ascending") {
$ascordesc = "ASC";
}

#Setting cookie
my $cookie_info = $query->cookie('lmonsettings');
my $my_cookie = $query->cookie(-name=>'lmonsettings',
                                -value=>$cookie_info,
				-path=>$PATH,
                                -expires=>'+900d');

if ($query->request_method() eq 'GET') {
	&menu($query,$my_cookie,$cookie_info);
}
if ($query->request_method() eq 'POST') {
        &Settings($query,$orderby,$ascordesc,$nick,$my_cookie);
}


sub menu {

my($query,$my_cookie,$cookie_info)=@_;

print $query->header(-cookie=>$my_cookie);
print $query->start_html(-title=>'Lmonitor settings', -BGCOLOR=>'#F3F2F4');
print $query->start_multipart_form();

my @details=split(/_/, $cookie_info);
my $orderby = $details[0];
my $descorasc = $details[1];
my $nick = $details[2];



print "<B>Order by:</B>:<BR>",
$query->popup_menu(-name=>'orderby',
                   -values=>['Nro','Status','Time','Machine'],
                   -default=>'Nro');
print $query->popup_menu('ascordesc',['Descending','Ascending']),"<BR>";

print '<BR>Your nick name: ',
      $query->textfield(-name=>'nick',
                        -size=>10,
			-default=>$nick,
                        -maxlength=>30);

print '<P>',$query->submit(-name=>'submit',
                        -value=>'Ok');

print $query->defaults('Tyhjennä');

print $query->endform;


}

sub Settings {
my($query,$orderby,$ascordesc,$nick,$my_cookie)=@_;

my $cookie_info = $orderby."_".$ascordesc."_".$nick;
my $my_cookie = $query->cookie(-name=>'lmonsettings',
                                -value=>$cookie_info,
				-path=>$PATH,
                                -expires=>'+900d');


print $query->header(-cookie=>$my_cookie);
print $query->start_html(-title=>'Lmonitor settings', -BGCOLOR=>'#F3F2F4');
print $query->start_multipart_form();

print "<b>Settings saved to your computer</b><BR>";
print "<b>Press Refresh</b><BR>";
print $query->endform;
}