X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=dbscripts%2Flib%2Fconvert.pl;fp=dbscripts%2Flib%2Fconvert.pl;h=0000000000000000000000000000000000000000;hb=3a1b5c807cd4b49f7bb22a1b755be42220a4ae8f;hp=5da5c63a15b90ef6f2515184a85fe6d64c0d1866;hpb=60f1f87da66b4af8691510a0cb1006161cfd4d9f;p=mir.git

diff --git a/dbscripts/lib/convert.pl b/dbscripts/lib/convert.pl
deleted file mode 100755
index 5da5c63a..00000000
--- a/dbscripts/lib/convert.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-#
-# convert.pl
-#
-
-sub mk_workfile {
-	my($props)=shift;
-	local(*HANLDE);
-	my($now,$count,$dir,$prefix);
-
-	$dir=$$props{'convert'}{'work_dir'};
-	$prefix=$$props{'convert'}{'work_prefix'};
-	$now=time;
-	$count=0;
-	
-	while (-f $dir.$prefix.$now.".".$count) { $count++; }
-
-	## fast touch
-	if (sysopen(HANDLE,$dir.$prefix.$now.".".$count,O_CREATE|O_RDWR)) { close(HANDLE); }
-
-	return $dir.$prefix.$now.".".$count;
-	}
-
-sub html_to_text {
-	my($props,$text)=@_;
-	local(*HANDLE);
-	my($file,$result);
-
-	$file=&mk_workfile($props);
-	if (open(HANDLE,">".$file)) {
-		print HANDLE $text;
-		close(HANDLE);
-		}
-	else {
-		## error - do not convert
-		return $text;
-		}
-	if (open(HANDLE,$$props{'bin'}{'html_to_text'}.$file."|")) {
-		while (<HANDLE>) {
-			$result.=$_;	
-			}
-	 	close(HANDLE);	
-		unlink($file);
-		return $result;
-		}	
-	else {
-		unlink($file);
-		return $text;
-		}
-	}
-
-1;