our $REC_LIMIT = 25;
our $TIME_ZONE = 'Australia/Sydney';
our $LANGUAGE = 'English';
-our $PRC_WIDTH = '60';
+our $PRC_WIDTH = '70';
our $LOG_PATH = '../../dbLifeLog/';
our $SESSN_EXPR = '+30m';
our $DATE_UNI = '0';
-our $RELEASE_VER = '1.3';
+our $RELEASE_VER = '1.4';
our $AUTHORITY = '';
our $IMG_W_H = '210x120';
+our $AUTO_WRD_LMT= 200;
#END OF SETTINGS
#15mg data post limit
while (my @r=$dbs->fetchrow_array()){
switch ($r[1]) {
- case "REC_LIMIT" {$REC_LIMIT=$r[2]}
- case "TIME_ZONE" {$TIME_ZONE=$r[2]}
- case "PRC_WIDTH" {$PRC_WIDTH=$r[2]}
- case "SESSN_EXPR" {$SESSN_EXPR=$r[2]}
- case "DATE_UNI" {$DATE_UNI=$r[2]}
- case "LANGUAGE" {$LANGUAGE=$r[2]}
+ case "REC_LIMIT" {$REC_LIMIT=$r[2]}
+ case "TIME_ZONE" {$TIME_ZONE=$r[2]}
+ case "PRC_WIDTH" {$PRC_WIDTH=$r[2]}
+ case "SESSN_EXPR" {$SESSN_EXPR=$r[2]}
+ case "DATE_UNI" {$DATE_UNI=$r[2]}
+ case "LANGUAGE" {$LANGUAGE=$r[2]}
+ case "IMG_W_H" {$IMG_W_H=$r[2]}
+ case "AUTO_WRD_LMT" {$AUTO_WRD_LMT=$r[2]}
else {print "Unknow variable setting: ".$r[1]. " == ". $r[2]}
}
}
}
+
use DateTime::Duration;
use Text::CSV;
+
#DEFAULT SETTINGS HERE!
our $REC_LIMIT = 25;
our $TIME_ZONE = 'Australia/Sydney';
our $LANGUAGE = 'English';
-our $PRC_WIDTH = '60';
+our $PRC_WIDTH = '70';
our $LOG_PATH = '../../dbLifeLog/';
our $SESSN_EXPR = '+30m';
our $DATE_UNI = '0';
-our $RELEASE_VER = '1.3';
+our $RELEASE_VER = '1.4';
+our $AUTHORITY = '';
+our $IMG_W_H = '210x120';
+our $AUTO_WRD_LMT= 200;
#END OF SETTINGS