use Date::Parse;
use Time::localtime;
use Regexp::Common qw /URI/;
+use JSON;
#DEFAULT SETTINGS HERE!
our $REC_LIMIT = 25;
our $LOG_PATH = '../../dbLifeLog/';
our $SESSN_EXPR = '+30m';
our $DATE_UNI = '0';
-our $RELEASE_VER = '1.4';
+our $RELEASE_VER = '1.5';
our $AUTHORITY = '';
our $IMG_W_H = '210x120';
our $AUTO_WRD_LMT = 200;
my $session =
new CGI::Session( "driver:File", $cgi, { Directory => $LOG_PATH } );
my $sid = $session->id();
-my $dbname = $session->param('database');
+my $dbname = "";#$session->param('database');
my $userid = $session->param('alias');
my $password = $session->param('passw');
$dbname = 'data_' . $userid . '_log.db';
}
elsif ( !$userid || !$dbname ) {
- print $cgi->redirect("login_ctr.cgi?CGISESSID=$sid");
- exit;
+ # print $cgi->redirect("login_ctr.cgi?CGISESSID=$sid");
+ # exit;
}
my $database = '../../dbLifeLog/' . $dbname;
my $dsn = "DBI:SQLite:dbname=$database";
-my $db = DBI->connect( $dsn, $userid, $password, { RaiseError => 1 } )
- or die "<p>Error->" & $DBI::errstri & "</p>";
-
-my ( $imgw, $imgh );
+my $db;
+#$db = DBI->connect( $dsn, $userid, $password, { RaiseError => 1 } );
### Authenticate session to alias password
-&authenticate;
-&getConfiguration($db );
-
-my $tbl_rc = 0;
-my $tbl_rc_prev = 0;
-my $tbl_cur_id;
-my $rs_keys = $cgi->param('keywords');
-my $rs_cat_idx = $cgi->param('category');
-my $prm_vc = $cgi->param("vc");
-my $rs_dat_from = $cgi->param('v_from');
-my $rs_dat_to = $cgi->param('v_to');
-my $rs_prev = $cgi->param('rs_prev');
-my $rs_cur = $cgi->param('rs_cur');
-my $rs_page = $cgi->param('rs_page');
-my $stmS = "SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT from LOG WHERE";
-my $stmE = " ORDER BY DATE DESC;";
-my $stmD = "";
-if ( !$rs_dat_to ) {
- $rs_dat_to = 'now';
-}
-
-if ( $rs_dat_from && $rs_dat_to ) {
- $stmD =qq( DATE BETWEEN date('$rs_dat_from') AND date('$rs_dat_to') );
-}
-
-my $toggle = "";
-if ( $rs_keys || $rs_cat_idx || $stmD ) { $toggle = 1; }
-
-$session->expire($SESSN_EXPR);
-
-#tag related framed sizing.
-my @arrwh = split /x/, $IMG_W_H;
-if ( @arrwh == 2 ) {
- $imgw = $arrwh[0];
- $imgh = $arrwh[1];
-}
-else { #defaults
- $imgw = 210;
- $imgh = 120;
-}
-
-print $cgi->header(
- -expires => "0s",
- -charset => "UTF-8"
- );
-print $cgi->start_html(
- -title => "Personal Log",
- -BGCOLOR => "#c8fff8",
- -onload => "loadedBody('" . $toggle . "');",
- -style => [
- { -type => 'text/css', -src => 'wsrc/main.css' },
- { -type => 'text/css', -src => 'wsrc/jquery-ui.css' },
- { -type => 'text/css', -src => 'wsrc/jquery-ui.theme.css' },
- {
- -type => 'text/css',
- -src => 'wsrc/jquery-ui-timepicker-addon.css'
- },
- { -type => 'text/css', -src => 'wsrc/tip-skyblue/tip-skyblue.css' },
- {
- -type => 'text/css',
- -src => 'wsrc/tip-yellowsimple/tip-yellowsimple.css'
- },
-
- {-type => 'application/atom+xml',
- -src=>'https://quilljs.com/feed.xml', -title=>"Quill - Your powerful rich text editor"},
- {-type => 'text/css', -src=>'wsrc/quill/katex.min.css'},
- {-type => 'text/css', -src=>'wsrc/quill/monokai-sublime.min.css'},
- {-type => 'text/css', -src=>'wsrc/quill/quill.snow.css'},
+#&authenticate;
- ],
- -script => [
- { -type => 'text/javascript', -src => 'wsrc/main.js' },
- { -type => 'text/javascript', -src => 'wsrc/jquery.js' },
- { -type => 'text/javascript', -src => 'wsrc/jquery-ui.js' },
- {
- -type => 'text/javascript',
- -src => 'wsrc/jquery-ui-timepicker-addon.js'
- },
- {
- -type => 'text/javascript',
- -src => 'wsrc/jquery-ui-sliderAccess.js'
- },
- { -type => 'text/javascript', -src => 'wsrc/jquery.poshytip.js' },
-
- { -type => 'text/javascript', -src => 'wsrc/quill/katex.min.js'},
- { -type => 'text/javascript', -src => 'wsrc/quill/highlight.min.js'},
- { -type => 'text/javascript', -src => 'wsrc/quill/quill.min.js'},
-
- ],
- );
-
-my $rv;
-my $st;
my $lang = Date::Language->new($LANGUAGE);
my $today = DateTime->now;
$today->set_time_zone($TIME_ZONE);
-my $stmtCat = "SELECT * FROM CAT;";
-my $stmt =
-"SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT FROM LOG ORDER BY DATE DESC, rowid DESC;";
-
-$st = $db->prepare($stmtCat);
-$rv = $st->execute() or die or die "<p>Error->" & $DBI::errstri & "</p>";
-
-my $cats = qq(<select class="ui-widget-content" id="ec" name="ec"
- onFocus="showCat();"
- onBlur="helpSelCategory(this);"
- onScroll="helpSelCategory(this);updateSelCategory(this)"
- onChange="updateSelCategory(this)">
- <option value="0">---</option>\n);
-my %hshCats;
-my %desc = {};
-my $c_sel = 1;
-my $cats_v = $cats;
-$cats_v =~ s/\"ec\"/\"vc\"/g;
-
-while ( my @row = $st->fetchrow_array() ) {
- if ( $row[0] == $c_sel ) {
- $cats =
- $cats
- . '<option selected value="'
- . $row[0] . '">'
- . $row[1]
- . '</option>\n';
- }
- else {
- $cats =
- $cats
- . '<option value="'
- . $row[0] . '">'
- . $row[1]
- . '</option>\n';
- }
- if ( $row[0] == $prm_vc ) {
- $cats_v =
- $cats_v
- . '<option selected value="'
- . $row[0] . '">'
- . $row[1]
- . '</option>\n';
- }
- else {
- $cats_v =
- $cats_v
- . '<option value="'
- . $row[0] . '">'
- . $row[1]
- . '</option>\n';
- }
- $hshCats{ $row[0] } = $row[1];
- $desc{ $row[0] } = $row[2];
-}
-
-$cats = $cats . '</select>';
-
-my $cat_descriptions = "";
-for my $key ( keys %desc ) {
- my $kv = $desc{$key};
- if ( $kv ne ".." ) {
- $cat_descriptions .= qq(<li id="$key">$kv</li>\n);
- }
-}
-
-my $tbl =
-qq(<form id="frm_log" action="remove.cgi" onSubmit="return formDelValidation();">
-<table class="tbl" border="0" width="$PRC_WIDTH%">
-<tr class="r0">
- <th class="tbl">Date</th>
- <th class="tbl">Time</th>
- <th class="tbl">Log</th><th>#</th>
- <th class="tbl">Category</th><th>Edit</th>
-</tr>);
-
-if (defined $prm_vc) { #view category form selection
- $rs_cat_idx = $prm_vc;
-}
-
-if ($rs_keys) {
-
- my @keywords = split / /, $rs_keys;
- if ($rs_cat_idx) {
- $stmS = $stmS . " ID_CAT='" . $rs_cat_idx . "' AND";
- }
- else {
- $stmS = $stmS . " ID_CAT='0' OR";
- }
- if ($stmD) {
- $stmS = $stmS . $stmD . " AND";
- }
-
- if (@keywords) {
- foreach (@keywords) {
- $stmS = $stmS . " LOWER(LOG) REGEXP '\\b" . lc $_ . "\\b'";
- if ( \$_ != \$keywords[-1] ) {
- $stmS = $stmS . " OR ";
- }
- }
- $stmt = $stmS . $stmE;
- }
-}
-elsif ($rs_cat_idx) {
- if ($stmD) {
- $stmt = $stmS . $stmD . " AND ID_CAT='" . $rs_cat_idx . "'" . $stmE;
- }
- else {
- $stmt = $stmS . " ID_CAT='" . $rs_cat_idx . "'" . $stmE;
- }
-}
-else {
- if ($stmD) {
- $stmt = $stmS . $stmD . $stmE;
- }
-}
###############
-&processSubmit;
+#&processSubmit;
###############
-#
-# Uncomment bellow to see main query statement issued!
-#print $cgi->pre("### -> ".$stmt);
-#
-my $tfId = 0;
-my $id = 0;
-my $tbl_start = index $stmt, "<=";
-my $re_a_tag = qr/<a\s+.*?>.*<\/a>/si;
+my $json = JSON->new->utf8->space_after->pretty->allow_blessed->encode
+ ({date => DateTime::Format::SQLite->format_datetime($today),
+ origin => "LifeLog.".$RELEASE_VER,
+ response => "Feature Under Development!"
+ });
-if ( $tbl_start > 0 ) {
- #check if we are at the beggining of the LOG table?
- my $stc =
- $db->prepare('select rowid from LOG order by rowid DESC LIMIT 1;');
- $stc->execute();
- my @row = $stc->fetchrow_array();
- if ( $row[0] == $rs_prev && $rs_cur == $rs_prev ) {
- $tbl_start = -1;
- }
- $stc->finish();
-}
-#
-#Fetch entries!
-#
-my $CID_EVENT = 9;
-my $tags = "";
-$st = $db->prepare($stmt);
-$rv = $st->execute() or die or die "<p>Error->" & $DBI::errstri & "</p>";
-if ( $rv < 0 ) {
- print "<p>Error->" & $DBI::errstri & "</p>";
-}
-while ( my @row = $st->fetchrow_array() ) {
-
- $id = $row[0];
-
- my $ct = $hshCats{ $row[1] };
- my $dt = DateTime::Format::SQLite->parse_datetime( $row[2] );
- my $log = $row[3];
- my $amm = camm(sprintf "%.2f", $row[4]);
-
- #Apostrophe in the log value is doubled to avoid SQL errors.
- $log =~ s/''/'/g;
- #
- if ( !$ct ) {
- $ct = $hshCats{1};
- }
- if ( !$dt ) {
- $dt = $today;
- }
- if ( !$amm ) {
- $amm = "0.00";
- }
- if ( $tbl_rc_prev == 0 ) {
- $tbl_rc_prev = $id;
- }
- if ( $tfId == 1 ) {
- $tfId = 0;
- }
- else {
- $tfId = 1;
- }
-
- my $sub = "";
- my $tagged = 0;
-
-#Check for LNK takes precedence here as we also parse plain placed URL's for http protocol later.
- if ( $log =~ /<<LNK</ ) {
- my $idx = $-[0] + 5;
- my $len = index( $log, '>', $idx );
- $sub = substr( $log, $idx + 1, $len - $idx - 1 );
- my $url = qq(<a href="$sub" target=_blank>$sub</a>);
- $tags .= qq(<input id="tag$id" type="hidden" value="$log"/>\n);
- $tagged = 1;
- $log =~ s/<<LNK<(.*?)>/$url/osi;
- }
-
- if ( $log =~ /<<IMG</ ) {
- my $idx = $-[0] + 5;
- my $len = index( $log, '>', $idx );
- $sub = substr( $log, $idx + 1, $len - $idx - 1 );
- my $url = qq(<img src="$sub"/>);
- if ( !$tagged ) {
- $tags .= qq(<input id="tag$id" type="hidden" value="$log"/>\n);
- }
- $log =~ s/<<IMG<(.*?)>/$url/osi;
- }
- elsif ( $log =~ /<<FRM</ ) {
- my $idx = $-[0] + 5;
- my $len = index( $log, '>', $idx );
- $sub = substr( $log, $idx + 1, $len - $idx - 1 );
- my $lnk = $sub;
- if ( $lnk =~ /_frm.png/ ) {
- my $ext = substr( $lnk, index( $lnk, '.' ) );
- $lnk =~ s/_frm.png/$ext/;
- if ( not -e "./images/$lnk" ) {
- $lnk =~ s/$ext/.jpg/;
- if ( not -e "./images/$lnk" ) {
- $lnk =~ s/.jpg/.gif/;
- }
- }
- $lnk =
- qq(\n<a href="./images/$lnk" style="border=0;" target="_IMG">
- <img src="./images/$sub" width="$imgw" height="$imgh" class="tag_FRM"/></a>);
- }
- else {
- #TODO fetch from web locally the original image.
- $lnk=qq(\n<img src="$lnk" width="$imgw" height="$imgh" class="tag_FRM"/>);
- }
- if ( !$tagged ) {
- $tags .= qq(<input id="tag$id" type="hidden" value="$log"/>\n);
- }
- $log =~ s/<<FRM<(.*?)>/$lnk/o;
- }
- elsif ( $log =~ /<<LIST</ ) {
- my $idx = $-[0];
- my $len = index( $log, '>', $idx ) - 7;
- my $lst = substr( $log, $idx + 7, $len - $idx );
- my $sub = "";
- my @arr = split(/\n/, $lst);
- foreach my $ln (@arr) {
- $ln =~ s/^\s*//g;
- $sub .= "<li>$ln</li>" if length($ln)>0;
- }
-
- $log = "<ul>$sub</ul>";
- #$log =~ s/<<LIST<(.*?)>/$lst/o;
- # print $lst;
-
- }
-
-
- #Replace with a full link an HTTP URI
- my @chnks = split( /($re_a_tag)/si, $log );
- foreach my $ch_i (@chnks) {
- next if $ch_i =~ /$re_a_tag/;
- next if index( $ch_i, "<img" ) > -1;
- $ch_i =~ s/https/http/gsi;
- $ch_i =~ s/($RE{URI}{HTTP})/<a href="$1" target=_blank>$1<\/a>/gsi;
- }
- $log = join( '', @chnks );
-
- while ( $log =~ /<<B</ ) {
- my $idx = $-[0];
- my $len = index( $log, '>', $idx ) - 4;
- my $sub = "<b>" . substr( $log, $idx + 4, $len - $idx ) . "</b>";
- $log =~ s/<<B<(.*?)>/$sub/o;
- }
- while ( $log =~ /<<I</ ) {
- my $idx = $-[0];
- my $len = index( $log, '>', $idx ) - 4;
- my $sub = "<i>" . substr( $log, $idx + 4, $len - $idx ) . "</i>";
- $log =~ s/<<I<(.*?)>/$sub/o;
- }
- while ( $log =~ /<<TITLE</ ) {
- my $idx = $-[0];
- my $len = index( $log, '>', $idx ) - 8;
- my $sub = "<h3>" . substr( $log, $idx + 8, $len - $idx ) . "</h3>";
- $log =~ s/<<TITLE<(.*?)>/$sub/o;
- }
-
- #Decode escaped \\n
- $log =~ s/\r\n/<br>/gs;
- $log =~ s/\n/<br>/gs;
-
- if ( $CID_EVENT == $row[1] ) {
- $log = "<font color='#eb4848' style='font-weight:bold'>$log</font>";
- }
- elsif ( 1 == $row[1] ) {
- $log =
-"<font color='midnightblue' style='font-weight:bold;font-style:italic'>$log</font>";
- }
-
- my ( $dty, $dtf ) = $dt->ymd;
- my $dth = $dt->hms;
- if ( $DATE_UNI == 1 ) {
- $dtf = $dty;
- }
- else {
- $dtf = $lang->time2str( "%d %b %Y", $dt->epoch, $TIME_ZONE);
- }
- $tbl .= qq(<tr class="r$tfId">
- <td width="15%">$dtf<input id="y$id" type="hidden" value="$dty"/></td>
- <td id="t$id" width="10%" class="tbl">$dth</td>
- <td id="v$id" class="log" width="40%">$log</td>
- <td id="a$id" width="10%" class="tbl">$amm</td>
- <td id="c$id" width="10%" class="tbl">$ct</td>
- <td width="20%">
- <button class="edit" value="Edit" onclick="return edit($id);">Edit</button>
- <input name="chk" type="checkbox" value="$id"/>
- </td>
- </tr>);
- $tbl_rc += 1;
-
- if ( $REC_LIMIT > 0 && $tbl_rc == $REC_LIMIT ) {
- &buildNavigationButtons;
- last;
- }
-
-} #while end
-
-##
-#Fetch Keywords autocomplete we go by words larger then three.
-#
-$st = $db->prepare('select LOG from LOG;');
-my $aw_cnt = 0;
-my $autowords = qq("gas","money","today");
-$rv = $st->execute() or die or die "<p>Error->" & $DBI::errstri & "</p>";
-if ( $rv < 0 ) {
- print "<p>Error->" & $DBI::errstri & "</p>";
-}
-&fetchAutocomplete;
-
-#End of table?
-if ( $rs_prev && $tbl_rc < $REC_LIMIT ) {
- $st = $db->prepare("SELECT count(*) FROM LOG;");
- $st->execute();
- my @row = $st->fetchrow_array();
- if ( $row[0] > $REC_LIMIT ) {
- &buildNavigationButtons(1);
- }
-}
+print $cgi->header( -expires => "+0s", -charset => "UTF-8" );
+print $json;
-if ( $tbl_rc == 0 ) {
-
- if ($stmD) {
- $tbl = $tbl . '<tr><td colspan="5">
- <b>Search Failed to Retrive any records on select: [<i>' . $stmD
- . '</i>] !</b></td></tr>';
- }
- elsif ($rs_keys) {
- my $criter = "";
- if ( $rs_cat_idx > 0 ) {
- $criter = "->Criteria[" . $hshCats{$rs_cat_idx} . "]";
- }
- $tbl = $tbl . qq(<tr><td colspan="5">
- <b>Search Failed to Retrive any records on keywords: [<i>$rs_keys</i>]$criter!</b></td>
- </tr>);
- }
- else {
- $tbl = $tbl
- . '<tr><td colspan="5"><b>Database is New or Empty!</b></td></tr>\n';
- }
-}
-
-$tbl .=
-'<tr class="r0"><td><a id="menu_close" href="#" onclick="return showFloatingMenu();"><span class="ui-icon ui-icon-heart"></span></a>
-<a href="#top">↟</a></td><td colspan="5" align="right">
-<input type="hidden" name="datediff" id="datediff" value="0"/>
-<input type="submit" value="Date Diff Selected" onclick="return dateDiffSelected()"/>
-<button onclick="return selectAllLogs()">Select All</button>
-<input type="reset" value="Unselect All"/>
-<input id="del_sel" type="submit" value="Delete Selected"/>
-</td></tr></form>
-<tr class="r0"><form id="frm_srch" action="main.cgi"><td><b>Keywords:</b></td><td colspan="4" align="left">
-<input id="rs_keys2" name="keywords" type="text" size="60"/></td>
-<td><input type="submit" value="Search"/></form></td></tr>
-</table>';
-my $COLLAPSED_LOG = 's';
-my ($sp1,$sp2);
-$sp1 = '<span class="ui-icon ui-icon-heart" style="float:right;"></span>';
-$sp2 = qq(<span class="ui-icon ui-icon-circle-triangle-$COLLAPSED_LOG" style="float:right;"></span>);
-
-
-my $frm = qq(<a name="top"></a>
-<form id="frm_entry" action="main.cgi" onSubmit="return formValidation();">
- <table class="tbl" border="0" width="$PRC_WIDTH%">
- <tr class="r0"><td colspan="3"><b>* LOG ENTRY FORM *</b>
- <a id="log_close" href="#" onclick="return hideLog();">$sp1</a>
- <a id="log_close" href="#" onclick="return toggleLog();">$sp2</a>
- </td></tr>
- <tr class="collpsd">
- <td style="text-align:right; vertical-align:top; width:10%;">Date:</td>
- <td id="al" colspan="1" style="text-align:top; vertical-align:top"><input id="ed" type="text" name="date" size="18" value=")
- . $today->ymd . " "
- . $today->hms . qq(">
-
- <button type="button" onclick="return setNow();">Now</button>
- <button type="reset">Reset</button></td>
- <td style="text-align:top; vertical-align:top">Category:
-$cats
- <br><br><div id="cat_desc" name="cat_desc"></div>
- </td>
- </tr>
- <tr class="collpsd"><td style="text-align:right; vertical-align:top">Log:</td>
- <td id="al" colspan="2" style="text-align:top;">
- <textarea id="el" name="log" rows="3" style="float:left; width:99%;" onChange="toggleVisibility('cat_desc',true)"></textarea>
- </td>
- </tr>
- <tr class="collpsd"><td style="text-align:right"><a id="to_bottom" href="#bottom" title="Go to bottom of page.">↡</a> Ammount:</td>
- <td id="al">
- <input id="am" name="am" type="number" step="any"> <input id="RTF" type="checkbox" value="0" onclick="return toggleDocument();"> RTF Document</input>
- </td>
- <td align="right">
- <div style="float: right;"><button id="btn_srch" onclick="toggleSearch(); return false;">Show Search</button>
- <input id="log_submit" type="submit" onclick="saveRTF(); return true;" value="Submit"/></div>
- </td>
- </tr>
- <tr class="collpsd"><td colspan="3"></td></tr>
- </table>
- <input type="hidden" name="submit_is_edit" id="submit_is_edit" value="0"/>
- <input type="hidden" name="submit_is_view" id="submit_is_view" value="0"/>
- <input type="hidden" name="rs_all" value="0"/>
- <input type="hidden" name="rs_cur" value="0"/>
- <input type="hidden" name="rs_prev" value="$tbl_rc_prev"/>
- <input type="hidden" name="rs_page" value="$rs_page"/>
- <input type="hidden" name="CGISESSID" value="$sid"/>
- $tags</form>
- );
-
-my $srh = qq(
- <form id="frm_srch" action="main.cgi">
- <table class="tbl" border="0" width="$PRC_WIDTH%">
- <tr class="r0"><td colspan="4"><b>Search/View By</b>
- <a id="srch_close" href="#" onclick="return hideSrch();">$sp1</a>
- <a id="srch_close" href="#" onclick="return toggleSrch();">$sp2</a>
-
- </td></tr>
- );
-
-$srh .=
-qq(<tr class="collpsd"><td align="right"><b>View by Category:</b></td>
- <td align="left" colspan="2">$cats_v</td><td><button id="btn_cat" onclick="viewByCategory(this);" style="float:left">View</button>
- <input id="idx_cat" name="category" type="hidden" value="0"></td>
- </tr>
- <tr class="collpsd"><td align="right"><b>View by Date:</b></td>
- <td align="left">
- From: <input name="v_from" type="text" size="16"/></td><td align="left">
- To: <input name="v_to" type="text" size="16"/>
- <td align="left"><button id="btn_dat" onclick="viewByDate(this);">View</button></td>
- </tr>
- <tr class="collpsd"><td align="right"><b>Keywords:</b></td>
- <td colspan="2" align="left">
- <input id="rs_keys" name="keywords" type="text" size="60" value="$rs_keys"/></td>
- <td align="left"><input type="submit" value="Search" align="left"></td></tr>);
-
-if ( $rs_keys || $rs_cat_idx || $stmD ) {
- $srh .= '<tr class="collpsd"><td align="left" colspan="3"></td>
- <td><button onClick="resetView()" stule="align:left">Reset Whole View</button></td></tr>';
-}
-
-$srh .= '</table></form>';
-my $quill = &quill();
-#
-#Page printout from here!
-#
-print qq(<center>\n
-<div id="menu" title="To close this menu click on its heart, and wait.">
-<div class="hdr" style="marging=0;padding:0px;">
-<a id="to_top" href="#top" title="Go to top of page."><span class="ui-icon ui-icon-arrowthick-1-n"></span></a>
-<a id="to_bottom" href="#bottom" title="Go to bottom of page."><span class="ui-icon ui-icon-arrowthick-1-s"></span></a>
-<a id="menu_close" href="#" onclick="return hideLog();"><span class="ui-icon ui-icon-heart"></span></a>
-</div>
-<hr>
-<a class="a_" href="stats.cgi">Stats</a><hr>
-<a class="a_" href="config.cgi">Config</a><hr>
-<a class="a_" onclick="deleteSelected(); return false;">Delete</a><hr>
-<a class="a_" onclick="toggleSearch(this); return false;">Search</a><hr>
-<br>
-<a class="a_" href="login_ctr.cgi?logout=bye">LOGOUT</a>
-</div>
-
- <div id="div_log">\n$frm\n</div>\n
- <div id="div_srh">$srh</div>
- $quill
- <div>\n$tbl\n</div><br>
- <div><a class="a_" href="stats.cgi">View Statistics</a></div><br>
- <div><a class="a_" href="config.cgi">Configure Log</a></div><hr>
- <div><a class="a_" href="login_ctr.cgi?logout=bye">LOGOUT</a><hr><a name="bottom"/></div>
- );
-print qq(</center>
- <ul id="cat_lst">
- $cat_descriptions
- </ul>
- <script type="text/javascript">
- \$( function() {
- var tags = [$autowords];
- \$( "#rs_keys, #rs_keys2" ).autocomplete({
- source: tags
- });
- });
- </script>
-
- );
-
-print $cgi->end_html;
-$st->finish;
-$db->disconnect();
+#$db->disconnect();
undef($session);
exit;
-=comm
-sub parseDate{
- my $date = $_[0];
-try{
-return DateTime::Format::SQLite->parse_datetime( $date );
-}
-catch{
- print "<font color=red><b>SERVER ERROR</b></font>date:$date]->".$_;
-}
-return $today;
-}
-=cut
sub processSubmit {
- my $date = $cgi->param('date');
- my $log = $cgi->param('log');
- my $cat = $cgi->param('ec')
- ; #Used to be cat v.1.3, tag id and name should be kept same.
- my $amm = $cgi->param('am');
-
- my $edit_mode = $cgi->param('submit_is_edit');
- my $view_mode = $cgi->param('submit_is_view');
- my $view_all = $cgi->param('rs_all');
-
+ # my $date = $cgi->param('date');
+
try {
-#Apostroph's need to be replaced with doubles and white space fixed for the SQL.
- $log =~ s/'/''/g;
-
- if ( $edit_mode && $edit_mode != "0" ) {
-
- #Update
-
- my $stm =
- "UPDATE LOG SET ID_CAT='"
- . $cat
- . "', DATE='"
- . $date . "',
- LOG='"
- . $log
- . "', AMMOUNT='"
- . $amm
- . "' WHERE rowid="
- . $edit_mode . ";";
- my $st = $db->prepare($stm);
- $st->execute();
- return;
- }
-
- if ( $view_all && $view_all == "1" ) {
- $REC_LIMIT = 0;
- }
-
- if ( $view_mode == "1" ) {
-
- if ($rs_cur) {
-
- if ( $rs_cur == $rs_prev )
- { #Mid page back button if id ordinal.
- $rs_cur += $REC_LIMIT;
- $rs_prev = $rs_cur;
- $rs_page--;
- }
- else {
- $rs_page++;
- }
-
- $stmt =
-'SELECT rowid, ID_CAT, DATE, LOG, AMMOUNT from LOG where rowid <= "'
- . $rs_cur
- . '" ORDER BY DATE DESC;'
- . $rs_page;
- return;
- }
- }
-
- if ( $log && $date && $cat ) {
-
- #check for double entry
- #
- my $st = $db->prepare( qq(SELECT DATE,LOG FROM LOG where DATE='$date' AND LOG='$log';) );
-
- $st->execute();
- if ( my @row = $st->fetchrow_array() ) {
- return;
- }
-
- $st = $db->prepare('INSERT INTO LOG VALUES (?,?,?,?)');
- $st->execute( $cat, $date, $log, $amm );
- #
- # After Insert renumeration check
- #
- my $dt = DateTime::Format::SQLite->parse_datetime($date);
- my $dtCur = DateTime->now();
- $dtCur->set_time_zone($TIME_ZONE);
- $dtCur = $dtCur - DateTime::Duration->new( days => 1 );
-
- if ( $dtCur > $dt ) {
- print $cgi->p('<b>Insert is in the past!</b>');
-
- #Renumerate directly (not proper SQL but faster);
- $st = $db->prepare('select rowid from LOG ORDER BY DATE;');
- $st->execute();
- my $cnt = 1;
- while ( my @row = $st->fetchrow_array() ) {
- my $st_upd =
- $db->prepare( "UPDATE LOG SET rowid="
- . $cnt
- . " WHERE rowid='"
- . $row[0]
- . "';" );
- $st_upd->execute();
- $cnt = $cnt + 1;
- }
- }
- }
}
catch {
print "ERROR:" . $_;
}
}
-sub buildNavigationButtons {
-
- my $is_end_of_rs = shift;
-
- if ( !$tbl_cur_id ) {
-
- #Following is a quick hack as previous id as current minus one might not
- #coincide in the database table!
- $tbl_cur_id = $id - 1;
- }
- if ( $tfId == 1 ) {
- $tfId = 0;
- }
- else {
- $tfId = 1;
- }
-
- $tbl .= qq!<tr class="r$tfId"><td></td>!;
-
- if ( $rs_prev && $rs_prev > 0 && $tbl_start > 0 && $rs_page > 0 ) {
-
- $tbl = $tbl . qq!<td><input type="hidden" value="$rs_prev"/>
- <input type="button" onclick="submitPrev($rs_prev);return false;"
- value="‹‹– Previous"/></td>!;
-
- }
- else {
- $tbl .= '<td><i>Top</i></td>';
- }
-
- $tbl .=
-'<td colspan="1"><input type="button" onclick="viewAll();return false;" value="View All"/></td>';
-
- if ( $is_end_of_rs == 1 ) {
- $tbl = $tbl . '<td><i>End</i></td>';
- }
- else {
-
- $tbl .=
-qq!<td><input type="button" onclick="submitNext($tbl_cur_id);return false;"
- value="Next –››"/></td>!;
-
- }
-
- $tbl = $tbl . '<td colspan="2"></td></tr>';
-}
sub authenticate {
try {
return;
}
- print $cgi->header( -expires => "+0s", -charset => "UTF-8" );
- print $cgi->start_html(
- -title => "Personal Log Login",
- -script => { -type => 'text/javascript', -src => 'wsrc/main.js' },
- -style => { -type => 'text/css', -src => 'wsrc/main.css' },
- );
+
+
+ print $cgi->center( $cgi->div("<b>Access Denied!</b> alias:$userid pass:$password") );
- print $cgi->center(
- $cgi->div("<b>Access Denied!</b> alias:$userid pass:$password") );
- print $cgi->end_html;
$db->disconnect();
$session->flush();
}
}
-sub fetchAutocomplete {
- try {
-
- while ( my @row = $st->fetchrow_array() ) {
- my $log = $row[0];
-
- #Decode escaped \\n
- $log =~ s/\\n/\n/gs;
- $log =~ s/''/'/g;
- #Replace link to empty string
- my @words = split( /($re_a_tag)/si, $log );
- foreach my $ch_i (@words) {
- next if $ch_i =~ /$re_a_tag/;
- next if index( $ch_i, "<img" ) > -1;
- $ch_i =~ s/https//gsi;
- $ch_i =~ s/($RE{URI}{HTTP})//gsi;
- }
- $log = join( ' ', @words );
- @words = split( ' ', $log );
- foreach my $word (@words) {
- #remove all non alphanumerics
- $word =~ s/[^a-zA-Z]//gs;
- if ( length($word) > 2 ) {
- $word = lc $word;
- #parse for already placed words, instead of using an hash.
- my $idx = index( $autowords, $word, 0 );
- if ( $idx > 0 ) {
- my $end = index( $autowords, '"', $idx );
- my $existing = substr( $autowords, $idx, $end - $idx );
- next if $word eq $existing;
- }
-
- $autowords .= qq(,"$word");
- if ( $aw_cnt++ > $AUTO_WRD_LMT ) {
- last;
- }
- }
- }
-
- if ( $aw_cnt > $AUTO_WRD_LMT ) {
- last;
- }
- }
-
- }
- catch {
- print "<font color=red><b>SERVER ERROR</b></font>:" . $_;
- }
-}
-
-sub getConfiguration {
- my $db = shift;
- try {
- $st = $db->prepare("SELECT * FROM CONFIG;");
- $st->execute();
-
- while ( my @r = $st->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 "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];
- }
- }
-
- }
- }
- catch {
- print "<font color=red><b>SERVER ERROR</b></font>:" . $_;
- }
-}
-
-sub camm {
- my $amm = sprintf("%.2f", shift @_);
- # Add one comma each time through the do-nothing loop
- 1 while $amm =~ s/^(-?\d+)(\d\d\d)/$1,$2/;
-return $amm;
-}
-
-sub quill {
-return qq{
-
-
-<table id="tbl_doc" class="tbl" width="$PRC_WIDTH%" style="border:1; margin-top: 5px;"><tr><td>
- <div id="toolbar-container">
- <span class="ql-formats">
- <select class="ql-font"></select>
- <select class="ql-size"></select>
- </span>
- <span class="ql-formats">
- <button class="ql-bold"></button>
- <button class="ql-italic"></button>
- <button class="ql-underline"></button>
- <button class="ql-strike"></button>
- </span>
- <span class="ql-formats">
- <select class="ql-color"></select>
- <select class="ql-background"></select>
- </span>
- <span class="ql-formats">
- <button class="ql-script" value="sub"></button>
- <button class="ql-script" value="super"></button>
- </span>
- <span class="ql-formats">
- <button class="ql-header" value="1"></button>
- <button class="ql-header" value="2"></button>
- <button class="ql-blockquote"></button>
- <button class="ql-code-block"></button>
- </span>
- <span class="ql-formats">
- <button class="ql-list" value="ordered"></button>
- <button class="ql-list" value="bullet"></button>
- <button class="ql-indent" value="-1"></button>
- <button class="ql-indent" value="+1"></button>
- </span>
- <span class="ql-formats">
- <button class="ql-direction" value="rtl"></button>
- <select class="ql-align"></select>
- </span>
- <span class="ql-formats">
- <button class="ql-link"></button>
- <button class="ql-image"></button>
- <button class="ql-video"></button>
- <button class="ql-formula"></button>
- </span>
- <span class="ql-formats">
- <button class="ql-clean"></button>
- </span>
- </div>
- <div id="editor-container"></div>
- </td></tr></table>
-
-}
-}
\ No newline at end of file
lifelog.hopto.org / LifeLog.git / commitdiff