Package: arb-common
Version: 0.0.20071207.1-4
Filename: pool/non-free/a/arb/arb-common_0.0.20071207.1-4_all.deb


Found error in /usr/lib/arb/SH/arb_fastdnaml:
	$ grep -A5 -B5 /tmp/ /usr/lib/arb/SH/arb_fastdnaml
	#!/bin/sh
	tmp=/tmp/arb_fdnaml_${USER}_$$
	mv infile $tmp
	nice -19 $1 < $tmp &
	sig=$!
	/bin/echo "$sig $$ \c" >>/tmp/arb_pids_${USER}_${ARB_PID}
	wait
	# echo $tmp not deleted for debugging purposes
	rm -f $tmp
	rm -f checkpoint.$sig
	mv treefile.$sig treefile

Found error in /usr/lib/arb/SH/dszmconnect.pl:
	$ grep -A5 -B5 /tmp/ /usr/lib/arb/SH/dszmconnect.pl
	  </body>
	</html>";
	
	
	
	open (OUTPUT , "> /tmp/arbdsmz.html") or die "cannot open input file /tmp/arbdsmz.html";
	
	if (scalar(@ARGV) == 0)
	  {print OUTPUT $errordocument;
	   die("no search items given ! Give at least one item!");}
	##print length(@ARGV)."\n";
	--
	 my $selection_content = 'VAR_DATABASE=bact&VAR_HITS=25&VAR_DSMZITEM='."$item1".'&VAR_DSMZITEM2='."$item2".'&B1=Search';
	
	 $req_selection->content($selection_content);
	
	 # Pass request to the user agent and get a response back
	 my $res_selection = $ua_selection -> request($req_selection, '/tmp/arbdsmz.htm');
	
	
	
	 # Check the outcome of the response
	 if ($res_selection->is_success) {print $res_selection->content;} 
	 else  {die "Bad luck this time, request failed\n";};
	
	
	open (INPUT , "< /tmp/arbdsmz.htm") or die "cannot open input file /tmp/arbdsmz.htm";
	
	
	 my $htmlcontent;
	{
	local $/;
	--
	$htmlcontent =~ s{HREF="}{HREF="http://www.dsmz.de}igm;
	$htmlcontent =~ s{HREF=[^"]}{HREF=http://www.dsmz.de/}igm; ##"
	
	print OUTPUT $htmlcontent ;
	
	#exec ('netscape', '/tmp/arbdsmz.html');
	print "file:///tmp/arbdsmz.html";
	
	##print "$htmlcontent\n";