Changeset 68 for trunk/dns.cgi

Timestamp:

02/16/11 11:29:12 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Minor rearrangements of session handling, page-picking handling

File:

• trunk/dns.cgi (modified) (5 diffs)

trunk/dns.cgi

@@ -41 +41 @@
 # persistent stuff needed on most/all pages
 my $sid = ($webvar{sid} ? $webvar{sid} : undef);
-my $session = new CGI::Session("driver:File", $sid, {Directory => $sessiondir});
+my $session = new CGI::Session("driver:File", $sid, {Directory => $sessiondir})
+        or die CGI::Session->errstr();
 #$sid = $session->id() if !$sid;
 if (!$sid) {
@@ -73 +74 @@
 $session->param($webvar{page}.'searchsubs', $webvar{searchsubs}) if defined($webvar{searchsubs});
 
+# decide which page to spit out...
+# also set $webvar{page} before we try to use it.
+$webvar{page} = 'login' if !$webvar{page};
+
 my $startwith = $session->param($webvar{page}.'startwith');
 my $filter = $session->param($webvar{page}.'filter');
@@ -91 +96 @@
 my $sortorder = "ASC";
 
-my ($dbh,$msg) = connectDB("dnsdb","dnsdb","secret","dbhost");
+my ($dbh,$msg) = connectDB("dnsdb","dnsdb","secret","newdbhost");
 #my $dbh = DBI->connect("DBI:mysql:database=vegadns","vegadns","secret",
 #       { AutoCommit => 0 }) or die $DBI::errstr;
@@ -147 +152 @@
 
 
-# decide which page to spit out...
-$webvar{page} = 'login' if !$webvar{page};
 #if (!$webvar{page}) {
 #  $page = HTML::Template->new(filename => "$templatedir/login.tmpl");
@@ -649 +652 @@
         changepage(page => "useradmin");
       }
-id => $webvar{id}, defrec => $webvar{defrec}
     } else {
 # oddity - apparently, xhtml 1.0 strict swallows username as an HTML::Template var.  O_o