From d0273fccc915cbe0e218c2d5cb2ce61a1ab51025 Mon Sep 17 00:00:00 2001
From: mh <mh>
Date: Sat, 2 Feb 2002 13:09:01 +0000
Subject: [PATCH] .de conversion scripts

---
 dbscripts/conversion/mir_oid.pl | 67 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100755 dbscripts/conversion/mir_oid.pl

diff --git a/dbscripts/conversion/mir_oid.pl b/dbscripts/conversion/mir_oid.pl
new file mode 100755
index 00000000..6fa27a3e
--- /dev/null
+++ b/dbscripts/conversion/mir_oid.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -w
+use Pg;
+
+#if (!defined($ARGV[0])) {
+#        print "Usage: $0 name_of_filelist_file\n";
+#        exit 1;
+#}
+
+#$dump="$ARGV[0]";
+
+my $conn = Pg::connectdb("dbname=indy3 user=postgres 
+host=localhost");
+( PGRES_CONNECTION_OK eq $conn->status )
+    and print "Pg::connectdb ........... ok\n"
+    or  die   "Pg::connectdb ........... not ok: ", $conn->errorMessage;
+
+
+    #open(DUMP,"$dump") || die "can't open dump file $dump";
+
+    #$basedir="/cdrom";
+
+Pg::doQuery($conn, "select content_data from content", \@ary);
+
+for $i ( 0 .. $#ary ) {
+    for $j ( 0 .. $#{$ary[$i]} ) {
+        print "$ary[$i][$j]\t";
+    }
+    print "\n";
+}
+
+#while(<DUMP>) {
+#        chomp;
+#        next if (/^$/ || /^\s*$/);
+#
+#		# exception liste einlesen...
+#
+#
+#				# hier insert:
+#
+#				$conn->exec("BEGIN");
+#				$oid= $conn->lo_import("$filename");
+#				print $conn->errorMessage."\n";
+#				print "trying to insert icon\n";
+#				$ioid= $conn->lo_import("/tmp/iconblob.jpg");
+#				print $conn->errorMessage."\n";
+#				$sql="INSERT INTO images 
+#(title,date,place,author,to_img_layout,to_img_type,is_classified,to_media_f
+#older,to_img_color,comment,webdb_create,img_width,img_height,image_data,ico
+#n_data) ".
+#					 "VALUES ('".$titel."','20010108','".$ort.
+#					 "','Hoch die Kampf 
+#dem','".$layout."','1','0','2','2','".$comment."',now(),'".$img_width."','"
+#.$img_height.
+#					 "','".$oid."','".$ioid."')";
+#				print $sql."\n";
+#				$conn->exec( $sql );
+#				print $conn->errorMessage."\n";
+#				$conn->exec("END");
+#
+#
+#
+#}
+## end of while
+#
+
+
+
-- 
2.11.0