From a6e933bcaae2b89f0f8342512a9e332115629ea3 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 21 Nov 2002 19:49:09 +0000
Subject: [PATCH] remove dbSetRow

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@663 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/dbm.pl | 50 ++++++++++++---------------------------------
 1 file changed, 13 insertions(+), 37 deletions(-)

diff --git a/blootbot/src/dbm.pl b/blootbot/src/dbm.pl
index b5067b6..63e6c81 100644
--- a/blootbot/src/dbm.pl
+++ b/blootbot/src/dbm.pl
@@ -7,6 +7,7 @@
 #
 
 use strict;
+no strict 'refs';
 
 package main;
 
@@ -61,15 +62,15 @@ use vars qw(%factoids %param);
 
     sub openDB {
 	use DB_File;
-	foreach (keys %formats) {
-	    next unless (&IsParam($_));
+	foreach my $table (keys %formats) {
+	    next unless (&IsParam($table));
 
-	    my $file = "$param{'DBName'}-$_";
+	    my $file = "$param{'DBName'}-$table";
 
-	    if (dbmopen(%{ $_ }, $file, 0666)) {
-		&status("Opened DBM $_ ($file).");
+	    if (dbmopen(%{"$table"}, $file, 0666)) {
+		&status("Opened DBM $table ($file).");
 	    } else {
-		&ERROR("Failed open to DBM $_ ($file).");
+		&ERROR("Failed open to DBM $table ($file).");
 		&shutdown();
 		exit 1;
 	    }
@@ -77,14 +78,14 @@ use vars qw(%factoids %param);
     }
 
     sub closeDB {
-	foreach (keys %formats) {
-	    next unless (&IsParam($_));
+	foreach my $table (keys %formats) {
+	    next unless (&IsParam($table));
 
-	    if (dbmclose(%{ $_ })) {
-		&status("Closed DBM $_ successfully.");
+	    if (dbmclose(%{ $table })) {
+		&status("Closed DBM $table successfully.");
 		next;
 	    }
-	    &ERROR("Failed closing DBM $_.");
+	    &ERROR("Failed closing DBM $table.");
 	}
     }
 
@@ -225,32 +226,7 @@ sub dbUpdate {
 #####
 # Usage: &dbSetRow($table, @values);
 sub dbSetRow {
-    my ($table, @values) = @_;
-    &DEBUG("dbSetRow(@_);");
-    my $key = lc $values[0];
-
-    my @format = &dbGetColInfo($table);
-    if (!scalar @format) {
-	return 0;
-    }
-
-    if (defined ${$table}{$key}) {
-	&WARN("dbSetRow: $table {$key} already exists?");
-    }
-
-    if (scalar @values != scalar @format) {
-	&WARN("dbSetRow: scalar values != scalar ${table} format.");
-    }
-
-    for (0 .. $#format) {
-	# @array? this is not defined anywhere. please fix, timriker!!!
-	if (defined $array[$_] and $array[$_] ne "") {
-	    &DEBUG("dbSetRow: array[$_] != NULL($array[$_]).");
-	}
-	$array[$_] = $values[$_];
-    }
-
-    ${$table}{$key}	= join $;, @array;
+    &FIXME("STUB: &dbSetRow(@_)");
 }
 
 #####
-- 
2.39.5