CVS: blootbot/src core.pl,1.68,1.69

[David <dm...@us...>]

Update of /cvsroot/blootbot/blootbot/src
In directory sc8-pr-cvs1:/tmp/cvs-serv30639

Modified Files:
	core.pl 
Log Message:

- use new sql functions
  although at the same time, news support has been removed
  (trying to move over to sql backend... difficult!)



Index: core.pl
===================================================================
RCS file: /cvsroot/blootbot/blootbot/src/core.pl,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -r1.68 -r1.69
--- core.pl	22 Nov 2002 06:57:39 -0000	1.68
+++ core.pl	24 Nov 2002 12:57:32 -0000	1.69
@@ -113,8 +113,7 @@
 	&writeUserFile();
 	&writeChanFile();
 	&uptimeWriteFile()	if (&IsChanConf("uptime"));
-	&News::writeNews()	if (&ChanConfList("news"));
-	&closeDB();
+	&sqlCloseDB();
 	&closeSHM($shm);
 	&dumpallvars()		if (&IsParam("dumpvarsAtExit"));
 	&symdumpAll()		if (&IsParam("symdumpAtExit"));
@@ -427,12 +426,11 @@
 
     $shm = &openSHM();
     &openSQLDebug()	if (&IsParam("SQLDebug"));
-    &openDB($param{'DBName'}, $param{'DBType'}, $param{'SQLUser'},
+    &sqlOpenDB($param{'DBName'}, $param{'DBType'}, $param{'SQLUser'},
 	$param{'SQLPass'});
     &checkTables();
 
     &status("Setup: ". &countKeys("factoids") ." factoids.");
-    &News::readNews() if (&ChanConfList("news"));
     &getChanConfDefault("sendPrivateLimitLines", 3);
     &getChanConfDefault("sendPrivateLimitBytes", 1000);
     &getChanConfDefault("sendPublicLimitLines", 3);
@@ -498,9 +496,8 @@
     # unless they're write-only, like uptime.
     &writeUserFile();
     &writeChanFile();
-    &News::writeNews()	if (&ChanConfList("news"));
 
-    &closeDB();
+    &sqlCloseDB();
     &closeSHM($shm);	# aswell. TODO: use this in &doExit?
     &closeLog();
 }