From a5817d6ad75ead63a982dc4f6ec19f0a3fd5e066 Mon Sep 17 00:00:00 2001
From: wbudic <vilijanac@gmail.com>
Date: Wed, 22 Aug 2018 16:00:03 +1000
Subject: [PATCH] added remove.cgi

---
 htdocs/cgi-bin/main.cgi   |   9 +--
 htdocs/cgi-bin/remove.cgi | 117 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 122 insertions(+), 4 deletions(-)
 create mode 100755 htdocs/cgi-bin/remove.cgi

diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi
index 365faa8..202138a 100755
--- a/htdocs/cgi-bin/main.cgi
+++ b/htdocs/cgi-bin/main.cgi
@@ -101,11 +101,12 @@ my %hshCats;
 $cats = $cats.'</select>';
 
 
-my $tbl = '<form name="frm_log_del" action="remove.cgi" onSubmit="return formDelValidation();"><table border="1px" width="580px"><tr><th>Date</th><th>Time</th><th>Log</th><th>Category</th><th>Del</th></tr>';
+my $tbl = '<form name="frm_log_del" action="remove.cgi" onSubmit="return formDelValidation();">
+<table border="1px"><tr><th>Date</th><th>Time</th><th>Log</th><th>Category</th><th>Del</th></tr>';
 my $tbl_rc = 0;
 
 ##################################
-&processSubmit($q, %hshCats);
+&processSubmit;
 ##################################
 
 #Fetch entries!
@@ -126,7 +127,7 @@ if($rv < 0) {
 	         $tbl = $tbl . "<tr><td>". $dt->ymd . "</td>" . 
 		          "<td>" . $dt->hms . "</td>" . "<td>" . $row[3] . "</td>".
 			  "<td>" . $ct .
-			  "</td><td><input type=\"radio\" value=\"".$row[0]."\"/> </td></tr>\n";
+			  "</td><td><input type=\"checkbox\" value=\"".$row[0]."\"/> </td></tr>\n";
 	$tbl_rc +=1;	
  }
 
@@ -139,7 +140,7 @@ if($rv < 0) {
 my  $frm = qq(
  <form name="frm_log" action="main.cgi" onSubmit="return formValidation();">
 	 <table><tr>
-		 <td>Date</td><td><input type="text" name="date" value=") .$today->ymd ." ". $today->hms . qq("></td>
+		 <td>Date:</td><td><input type="text" name="date" value=") .$today->ymd ." ". $today->hms . qq("></td><td>Category:</td>
 		 </tr>
 		 <tr><td>Log:</td> <td><textarea name="log" rows="2" cols="40"></textarea></td>
  		 <td>).$cats.qq(</td></tr>
diff --git a/htdocs/cgi-bin/remove.cgi b/htdocs/cgi-bin/remove.cgi
new file mode 100755
index 0000000..2ac56f0
--- /dev/null
+++ b/htdocs/cgi-bin/remove.cgi
@@ -0,0 +1,117 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+ 
+use CGI;
+use DBI;
+
+use DateTime;
+use DateTime::Format::SQLite;
+
+my $q = CGI->new;
+
+my $driver   = "SQLite"; 
+my $database = "../../dbLifeLog/data_log.db";
+my $dsn = "DBI:$driver:dbname=$database";
+my $userid = "";
+my $password = "";
+my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) 
+   or die "<p>Error->"& $DBI::errstri &"</p>";
+
+
+
+print $q->header(-expires=>"+6os");    
+
+print $q->start_html(-title => "Personal Log Record Removal", 
+       		     -script=>{-type => 'text/javascript', -src => 'wsrc/main.js'},
+		     -style =>{-type => 'text/css', -src => 'wsrc/main.css'}
+
+		        );	  
+
+
+my $today = DateTime->now;
+$today->set_time_zone( 'Australia/Sydney' );
+
+my $stmtCat = "SELECT * FROM CAT;";
+
+
+$sth = $dbh->prepare( $stmtCat );
+my $rv = $sth->execute() or die or die "<p>Error->"& $DBI::errstri &"</p>";
+
+my %hshCats;
+
+ while(my @row = $sth->fetchrow_array()) {
+	$hshCats{$row[0]} = $row[1];
+ }
+
+
+my $stmS = "SELECT rowid, ID_CAT, DATE, LOG from LOG WHERE";
+my $stmE = " ORDER BY rowid DESC, DATE DESC;";
+my $tbl = '<form name="frm_log_del" action="remove.cgi" onSubmit="return formDelValidation();"><table border="1px" width="580px"><tr><th>Date</th><th>Time</th><th>Log</th><th>Category</th><th>Del</th></tr>';
+my $confirmed = $q->param('confirmed');
+if (!$confirmed){
+	&NotConfirmed;
+}
+else{
+	&ConfirmedDelition;
+}
+
+print $q->end_html;
+$dbh->disconnect();
+
+sub NotConfirmed{
+#Get prms and build confirm table and check
+
+### TODO	
+
+#Fetch entries!
+#
+$sth = $dbh->prepare( $stmt );
+$rv = $sth->execute() or die or die "<p>Error->"& $DBI::errstri &"</p>";
+if($rv < 0) {
+	     print "<p>Error->"& $DBI::errstri &"</p>";
+}
+
+
+
+ while(my @row = $sth->fetchrow_array()) {
+
+	 my $ct = $hshCats{@row[1]};
+	 my $dt = DateTime::Format::SQLite->parse_datetime( $row[2] );
+
+	         $tbl = $tbl . "<tr><td>". $dt->ymd . "</td>" . 
+		          "<td>" . $dt->hms . "</td>" . "<td>" . $row[3] . "</td>".
+			  "<td>" . $ct .
+			  "</td><td><input type=\"checkbox\" value=\"".$row[0]."\"/> </td></tr>\n";
+	$tbl_rc +=1;	
+ }
+
+ if($tbl_rc==1){
+	 $tbl = $tbl . "<tr><td colspan=\"5\"><b>Table is Empty!</b></td></tr>\n";
+ }
+ $tbl = $tbl . "<tr><td colspan=\"4\"></td><td><input type=\"submit\" value=\"Del\"/></td></tr>";
+ $tbl = $tbl . "</table></form>";
+
+my  $frm = qq(
+ <form name="frm_log" action="main.cgi" onSubmit="return formValidation();">
+	 <table><tr>
+		 <td>Date</td><td><input type="text" name="date" value=") .$today->ymd ." ". $today->hms . qq("></td>
+		 </tr>
+		 <tr><td>Log:</td> <td><textarea name="log" rows="2" cols="40"></textarea></td>
+ 		 <td>).$cats.qq(</td></tr>
+		 <tr><td></td><td></td><td><input type="submit" value="Submit"></td>
+	</tr></table>
+</form>
+ );
+
+
+
+print "<div id=\"frm\">\n" . $frm ."</div>";
+print "<div id=\"tbl\">\n" . $tbl ."</div>";
+}
+
+sub ConfirmedDelition{
+#### TODO
+}
+
-- 
2.34.1