our $SESSN_EXPR = '+30m';
our $DATE_UNI = '0';
our $RELEASE_VER = '1.3';
+our $AUTHORITY = '';
+our $IMG_W_H = '210x120';
#END OF SETTINGS
#15mg data post limit
case "SESSN_EXPR"{$SESSN_EXPR=$var; updConfSetting($r[0],$var)}
case "DATE_UNI" {$DATE_UNI=$var; updConfSetting($r[0],$var)}
case "LANGUAGE" {$LANGUAGE=$var; updConfSetting($r[0],$var)}
+ case "AUTHORITY" {$AUTHORITY=$var; updConfSetting($r[0],$var)}
+ case "IMG_W_H" {$IMG_W_H=$var; updConfSetting($r[0],$var)}
}
}
}
print "<font color=red><b>SERVER ERROR</b></font>:".$_;
}
-}
\ No newline at end of file
+}
my $lang = Date::Language->new($LANGUAGE);
my $today = DateTime->now;
$today->set_time_zone( $TIME_ZONE );
-
+print "<h1>$IMG_W_H</h1>";
my $stmtCat = "SELECT * FROM CAT;";
my $stmt = "SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT FROM LOG ORDER BY rowid DESC, DATE DESC;";
catch{
print "<font color=red><b>SERVER ERROR</b></font>:".$_;
}
-}
\ No newline at end of file
+}