From: zapata <zapata>
Date: Sat, 7 Feb 2004 11:50:30 +0000 (+0000)
Subject: cleanup
X-Git-Tag: LATEST_MERGED_1_1~177
X-Git-Url: http://erislabs.net/gitweb/?p=mir.git;a=commitdiff_plain;h=3b85dc32efdc6d26c30890e32c198c564832d023

cleanup
---

diff --git a/dbscripts/pg_imageimport.pl b/dbscripts/pg_imageimport.pl
deleted file mode 100755
index d87e15af..00000000
--- a/dbscripts/pg_imageimport.pl
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/usr/local/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=indy user=indy host=192.168.4.8");
-( 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="";
-
-while(<DUMP>) {
-        chomp;
-        next if (/^$/ || /^\s*$/);
-
-		# exception liste einlesen...
-				$filename=$basedir.$_;
-				$comment=$filename;
-				$titel="unklassifiziert";
-				$ort="unklassifiziert"; 
-			
-				$_ = `/usr/X11R6/bin/identify $filename`;
-				/(\d+)x(\d+)/;
-				$img_width=$1;
-				$img_height=$2;
-				
-				$layout=0; 						# undefined
-				if ( $img_width>$img_height ) {$layout=1;}		# querformat
-				if ( $img_width<$img_height ) {$layout=2;}		# hochformat
-				if ( $img_width==$img_height) {$layout=3;}    # quadratisch
-
-				# hier insert:
-				print "making icon: $filename \n";
-				`cp $filename /tmp/iconblob.jpg`;
-				`/usr/X11R6/bin/mogrify -geometry 120x120 /tmp/iconblob.jpg`;
-				
-				print "trying to insert: $filename \n";
-				
-				$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_folder,to_img_color,comment,webdb_create,img_width,img_height,image_data,icon_data) ".
-					 "VALUES ('".$titel."','20010109','".$ort.
-					 "','huh','".$layout."','1','0','3','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