From bd840a2e65a979aaa4877998c37aef2b2c713340 Mon Sep 17 00:00:00 2001 From: Metabox Date: Fri, 17 May 2019 16:42:55 +1000 Subject: [PATCH] fix, insert pre-checks from config file. --- htdocs/cgi-bin/login_ctr.cgi | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi index b0c6d60..78e1fac 100755 --- a/htdocs/cgi-bin/login_ctr.cgi +++ b/htdocs/cgi-bin/login_ctr.cgi @@ -231,6 +231,9 @@ try{ $st = $db->prepare(selSQLTbl('CONFIG')); $st->execute(); if(!$st->fetchrow_array()) { + #v.1.3 -> v.1.4 + #alter table CONFIG add DESCRIPTION VCHAR(128); + my $stmt = qq( CREATE TABLE CONFIG( ID TINY PRIMARY KEY NOT NULL, @@ -312,7 +315,9 @@ $err .= "UID{$id} taken by $vars{$id}-> $line\n"; my $st = $db->prepare("SELECT rowid FROM CONFIG WHERE NAME LIKE '$name';"); $st->execute(); $inData = 1; - $insConfig->execute($id,$name,$value,$tick[1]) if(!$st->fetchrow_array()); + if(!$st->fetchrow_array()) { + $insConfig->execute($id,$name,$value,$tick[1]) if(!$st->fetchrow_array()); + } } } }else{ @@ -328,8 +333,10 @@ $err .= "Invalid, spec'ed {uid}|{variable}`{description}-> $line\n"; if ( scalar(@pair)==2 ) { my $st = $db->prepare("SELECT rowid FROM CONFIG WHERE NAME LIKE '$pair[1]';"); $st->execute(); - $inData = 1; - $insCat->execute($pair[0],$pair[1],$tick[1]) if(!$st->fetchrow_array()); + $inData = 1; + if(!$st->fetchrow_array()) { + $insCat->execute($pair[0],$pair[1],$tick[1]) if(!$st->fetchrow_array()); + } } else { $err .= "Invalid, spec'ed {uid}|{category}`{description}-> $line\n"; -- 2.34.1