lib/Odin.pm: New function for inserting records into databases.

[odin-cgi] / lib / Odin.pm

diff --git a/lib/Odin.pm b/lib/Odin.pm
index e373dcc8d4c3a631db60ff8ef64e67f89dd80e22..27b2e8b0925ee1a12ebc2d785f014d7a5c2c71c0 100644 (file)
--- a/lib/Odin.pm
+++ b/lib/Odin.pm
@@ -152,6 +152,18 @@ sub xact (&$) {
   die $exc;
 }
 
   die $exc;
 }
 

+sub insert_record ($$%) {
+  my ($db, $table, %fields) = @_;
+  my @var = ();
+  my @val = ();
+
+  for my $v (keys %fields) {
+    push @var, $v;
+    push @val, $fields{$v};
+  }
+  $db->do("INSERT INTO $table (" . join(", ", @var) . ")
+          VALUES (" . join(", ", map { "?" } @var) . ")", undef, @val);
+}

 
 ###--------------------------------------------------------------------------
 ### Sequence numbers and tagging.
 
 ###--------------------------------------------------------------------------
 ### Sequence numbers and tagging.


@@ -284,9 +296,8 @@ sub new_shorturl ($) {
        undef, $WHOCMP, $url);
     unless (defined $tag) {
       $tag = encode_tag(next_seq($db, "odin_shorturl_seq"));
        undef, $WHOCMP, $url);
     unless (defined $tag) {
       $tag = encode_tag(next_seq($db, "odin_shorturl_seq"));

-      $db->do("INSERT INTO odin_shorturl (tag, stamp, owner, url)
-              VALUES (?, ?, ?, ?)", undef,
-             $tag, $NOW, $WHO, $url);
+      insert_record $db, "odin_shorturl",
+       tag => $tag, stamp => $NOW, owner => $WHO, url => $url;

     }
   } $db;
   return $tag;
     }
   } $db;
   return $tag;


@@ -348,10 +359,9 @@ sub new_pastebin (\%) {
   merge_hash %$new, %PASTEBIN_DEFAULTS;
   xact {
     $tag = encode_tag next_seq $db, "odin_pastebin_seq";
   merge_hash %$new, %PASTEBIN_DEFAULTS;
   xact {
     $tag = encode_tag next_seq $db, "odin_pastebin_seq";

-    $db->do("INSERT INTO odin_pastebin
-              (tag, stamp, edithash, owner, $PASTEBIN_PROPCOLS)
-            VALUES (?, ?, ?, ?, $PASTEBIN_PROPPLACES)", undef,
-           $tag, $NOW, $hash, $WHO, @{$new}{@PASTEBIN_PROPS});
+    insert_record $db, "odin_pastebin",
+      tag => $tag, stamp => $NOW, edithash => $hash, owner => $WHO,
+      %$new;

   } $db;
   return $tag, $editkey;
 }
   } $db;
   return $tag, $editkey;
 }