Package: aegis
Version: 4.24-3
Filename: pool/main/a/aegis/aegis_4.24-3_i386.deb


Found error in /usr/share/doc/aegis/examples/remind/bng_dvlpd.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/aegis/examples/remind/bng_dvlpd.sh
	esac
	
	aegis=aegis
	
	addr=${USER-${LOGIN-`whoami`}}
	$aegis -l uc -v  > /tmp/$$
	if cmp /dev/null /tmp/$$ > /dev/null 2>&1 ; then
		: do nothing
	else
		cat > /tmp/$$.intro << fubar
	To: $addr
	Subject: Outstanding Changes
	
	The following changes are assigned to you.  Please complete them at
	your earliest possible convenience, so that changes may pass through
	the system at the fastest possible rate.
	fubar
		cat /tmp/$$.intro /tmp/$$ | /usr/lib/sendmail -t
		rm /tmp/$$.intro
	fi
	rm /tmp/$$
	exit 0

Found error in /usr/share/doc/aegis/examples/remind/bng_rvwd.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/aegis/examples/remind/bng_rvwd.sh
	esac
	
	aegis=aegis
	addr=`$aegis -l reviewers -terse -p $project`
	addr=`echo $addr | sed 's/ /,/g'`
	$aegis -rpass -l -p $project > /tmp/$$
	if cmp /dev/null /tmp/$$ > /dev/null 2>&1 ; then
		: do nothing
	else
	    #
	    # Get any aliases for the project
	    #
	--
	    then
		# format as comma separated list in brackets
	       aliases=" ["`echo $aliases | tr ' ' ','`"]"
	    fi
	
	    cat > /tmp/$$.intro << fubar
	Subject: Outstanding "${project}$aliases" Reviews
	To: $addr
	
	The following changes are ready to be reviewed.  Please review
	them at your earliest possible convenience, so that changes may
	pass through the system at the fastest possible rate.  If you
	have received this email, you are authorised to review changes
	for the "$project" project.
	fubar
		cat /tmp/$$.intro /tmp/$$ | /usr/lib/sendmail -t
		rm /tmp/$$.intro
	fi
	rm /tmp/$$
	exit 0

Found error in /usr/share/doc/aegis/examples/remind/awt_dvlp.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/aegis/examples/remind/awt_dvlp.sh
	
	aegis=aegis
	addr=`$aegis -l developers -terse -p $project`
	addr=`echo $addr | sed 's/ /,/g'`
	
	$aegis -db -l -p $project > /tmp/$$
	if cmp /dev/null /tmp/$$ > /dev/null 2>&1 ; then
		: do nothing
	else
	    #
	    # Get any aliases for the project
	    #
	--
	    then
		# format as comma separated list in brackets
	       aliases=" ["`echo $aliases | tr ' ' ','`"]"
	    fi
	
	    cat > /tmp/$$.intro << fubar
	Subject: Outstanding "${project}$aliases" Changes
	To: $addr
	
	The following changes are ready to be developed.  Please
	develop them at your earliest possible convenience, so that
	changes may pass through the system at the fastest possible
	rate.  If you have received this email, you are authorised to
	develop changes for the "$project" project.
	fubar
		cat /tmp/$$.intro /tmp/$$ | /usr/lib/sendmail -t
		rm /tmp/$$.intro
	fi
	rm /tmp/$$
	exit 0

Found error in /usr/share/doc/aegis/examples/remind/awt_intgrtn.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/aegis/examples/remind/awt_intgrtn.sh
	esac
	
	aegis=aegis
	addr=`$aegis -l integrators -terse -p $project`
	addr=`echo $addr | sed 's/ /,/g'`
	$aegis -ib -l -p $project > /tmp/$$
	if cmp /dev/null /tmp/$$ > /dev/null 2>&1 ; then
		: do nothing
	else
	    #
	    # Get any aliases for the project
	    #
	--
	    then
		# format as comma separated list in brackets
	       aliases=" ["`echo $aliases | tr ' ' ','`"]"
	    fi
	
	    cat > /tmp/$$.intro << fubar
	Subject: Outstanding "${project}$aliases" Integrations
	To: $addr
	
	The following changes are ready to be integrated.  Please
	integrate them at your earliest possible convenience, so that
	changes may pass through the system at the fastest possible
	rate.  If you have received this email, you are authorised to
	integrate changes for the "$project" project.
	fubar
		cat /tmp/$$.intro /tmp/$$ | /usr/lib/sendmail -t
		rm /tmp/$$.intro
	fi
	rm /tmp/$$
	exit 0
Package: aegis-web
Version: 4.24-3
Filename: pool/main/a/aegis/aegis-web_4.24-3_i386.deb


Found error in /usr/lib/cgi-bin/aegis.cgi:
	$ grep -A5 -B5 /tmp/ /usr/lib/cgi-bin/aegis.cgi
	if test "$file" = "aedist"
	then
	    test -z "$project" && exit 1
	    test -z "$change" && change="--baseline"
	    $bindir/aedist --send $project $change -ndh -naa \
			-o /tmp/aegis.$$.ae > /tmp/aegis.$$ 2>&1
	    status=$?
	    if test $status -ne 0
	    then
		echo 'Content-Type: text/html'
		echo ''
	--
		echo '<blockquote><tt>'
		echo $bindir/aedist --send $project $change
		echo '</tt></blockquote>'
		echo "terminated with exit status $status."
		echo 'The following text was produced <blockquote><pre>'
		sed 's|<|\&lt;|g' < /tmp/aegis.$$
		echo '</pre></blockquote>'
		echo '<hr>'
		echo 'This page was generated'
		date
		echo '</body></html>'
		rm /tmp/aegis.$$*
		exit 1
	    fi
	
	    cat /tmp/aegis.$$.ae
	    rm /tmp/aegis.$$*
	    exit 0
	fi
	
	if test "$file" = "aepatch"
	then
	    test -z "$project" && exit 1
	    test -z "$change" && change="--baseline"
	    $bindir/aepatch --send $project $change -naa \
	       	-o /tmp/aegis.$$.ae > /tmp/aegis.$$ 2>&1
	    status=$?
	    if test $status -ne 0
	    then
	       	echo 'Content-Type: text/html'
	       	echo ''
	--
	       	echo '<blockquote><tt>'
	       	echo $bindir/aepatch --send $project $change
	       	echo '</tt></blockquote>'
	       	echo "terminated with exit status $status."
	       	echo 'The following text was produced <blockquote><pre>'
	       	sed 's|<|\&lt;|g' < /tmp/aegis.$$
	       	echo '</pre></blockquote>'
	       	echo '<hr>'
	       	echo 'This page was generated'
	       	date
	       	echo '</body></html>'
	       	rm /tmp/aegis.$$*
	       	exit 1
	    fi
	
	    cat /tmp/aegis.$$.ae
	    rm /tmp/aegis.$$*
	    exit 0
	fi
	
	if test "$file" = "aetar"
	then
	    test -z "$project" && exit 1
	    test -z "$change" && change="--baseline"
	    $bindir/aetar --send $project $change \
	       	-o /tmp/aegis.$$.ae > /tmp/aegis.$$ 2>&1
	    status=$?
	    if test $status -ne 0
	    then
	       	echo 'Content-Type: text/html'
	       	echo ''
	--
	       	echo '<blockquote><tt>'
	       	echo $bindir/aetar --send $project $change
	       	echo '</tt></blockquote>'
	       	echo "terminated with exit status $status."
	       	echo 'The following text was produced <blockquote><pre>'
	       	sed 's|<|\&lt;|g' < /tmp/aegis.$$
	       	echo '</pre></blockquote>'
	       	echo '<hr>'
	       	echo 'This page was generated'
	       	date
	       	echo '</body></html>'
	       	rm /tmp/aegis.$$*
	       	exit 1
	    fi
	
	    echo 'Content-Type: application/x-tar-gz'
	    echo 'Content-Transfer-Encoding: 8bit'
	    echo ''
	    cat /tmp/aegis.$$.ae
	    rm /tmp/aegis.$$*
	    exit 0
	fi
	
	
	if test "$file" = "diff"
	--
	    test -z "$extra" && exit 1
	
	    File=$extra;
	
	    cmdcmd="$bindir/aereport -f $datadir/en/html/file_diff.rpt $delta1 \
		$delta2 $File /tmp/aegis.$$.1 /tmp/aegis.$$.2 $project $change -unf"
	
	    # the script will work out where to get the file from
	    cmd="`$cmdcmd 2> /tmp/aegis.$$.log`";
	    status=$?
	
	    if test $status -ne 0
	    then
	       	echo 'Content-Type: text/html'
	--
	       	echo '<blockquote><tt>'
	       	echo $cmdcmd ;
	       	echo '</tt></blockquote>'
	       	echo "terminated with exit status $status."
	       	echo 'The following text was produced <blockquote><pre>'
	       	sed 's|<|\&lt;|g' < /tmp/aegis.$$.log
	       	echo '</pre></blockquote>'
	       	echo '<hr>'
	       	echo 'This page was generated'
	       	date
	       	echo '</body></html>'
	       	rm -f /tmp/aegis.$$.*
	       	exit 1
	    fi
	    rm -f /tmp/aegis.$$.*
	
	    eval "$cmd 2> /tmp/aegis.$$.log" > /tmp/aegis.$$.out
	    status=$?
	    if test $status -ne 0
	    then
	       	echo 'Content-Type: text/html'
	       	echo ''
	--
	       	echo '<blockquote><tt>'
		echo $cmd
	       	echo '</tt></blockquote>'
	       	echo "terminated with exit status $status."
	       	echo 'The following text was produced <blockquote><pre>'
	       	sed 's|<|\&lt;|g' < /tmp/aegis.$$.log
	       	echo '</pre></blockquote>'
	       	echo '<hr>'
	       	echo 'This page was generated'
	       	date
	       	echo '</body></html>'
	       	rm -f /tmp/aegis.$$.*
	       	exit 1
	    fi
	    rm /tmp/aegis.$$.log
	
	    echo 'Content-Type: text/html'
	    echo ''
	    echo '<html><head><title>'
	    echo "Project \"$Project\","
	--
	    echo '<br>'
	    echo "Differences in file $File" | sed 's/</&lt;/'
	    echo "<br>Delta $delta1, Delta $delta2"
	    echo '</h1>'
	    echo '<pre>'
	    sed 's|<|\&lt;|g' < /tmp/aegis.$$.out
	    echo '</pre>'
	    echo '<hr>'
	    echo 'This page was generated'
	    date
	    echo '</body></html>'
	    rm -f /tmp/aegis.$$.*
	    exit 0
	fi
	
	if test "$file" = "pre"
	then
	--
	
	    File="$extra"
	    if test -z "$change"
	    then
	       	$bindir/aegis -cp -ind $project -baserel $File $Delta \
		    -o /tmp/aegis.$$ 2> /tmp/aegis.$$.log
	       	status=$?
	       	if test $status -ne 0
	       	then
		    echo 'Content-Type: text/html'
		    echo ''
	--
		    echo '<blockquote><tt>'
		    echo $bindir/aegis -cp -ind -baserel "$Delta" $project $extra
		    echo '</tt></blockquote>'
		    echo "terminated with exit status $status."
		    echo 'The following text was produced <blockquote><pre>'
		    sed 's|<|\&lt;|g' < /tmp/aegis.$$.log
		    echo '</pre></blockquote>'
		    echo '<hr>'
		    echo 'This page was generated'
		    date
		    echo '</body></html>'
		    rm -f /tmp/aegis.$$ /tmp/aegis.$$.log
		    exit 1
	       	fi
	       	rm -f /tmp/aegis.$$.log
	    else
	       	# the script will work out where to get the file from
	       	cmd="`$bindir/aereport -f $datadir/en/html/cp_command.rpt $File \
		    /tmp/aegis.$$ -unf $project $change 2> /tmp/aegis.$$.log`"
	
	       	status=$?
	       	if test $status -ne 0
	       	then
		    echo 'Content-Type: text/html'
	--
		    echo '<html><head><title>Error</title></head><body><h1>'
		    echo 'Error</h1>The command'
		    echo '<blockquote><tt>'
		    echo $bindir/aereport -f \
		     	$datadir/en/html/cp_command.rpt $File \
		     	/tmp/aegis.$$ -unf $project $change
		    echo '</tt></blockquote>'
		    echo "terminated with exit status $status."
		    echo 'The following text was produced <blockquote><pre>'
		    sed 's|<|\&lt;|g' < /tmp/aegis.$$.log
		    echo '</pre></blockquote>'
		    echo '<hr>'
		    echo 'This page was generated'
		    date
		    echo '</body></html>'
		    rm /tmp/aegis.$$.log
		    exit 1
	       	fi
	       	rm /tmp/aegis.$$.log
	
	       	eval "$cmd 2> /tmp/aegis.$$.log"
	       	status=$?
	       	if test $status -ne 0
	       	then
		    echo 'Content-Type: text/html'
		    echo ''
	--
		    echo '<blockquote><tt>'
		    echo $cmd | sed 's|<|\&lt;|g'
		    echo '</tt></blockquote>'
		    echo "terminated with exit status $status."
		    echo 'The following text was produced <blockquote><pre>'
		    sed 's|<|\&lt;|g' < /tmp/aegis.$$.log
		    echo '</pre></blockquote>'
		    echo '<hr>'
		    echo 'This page was generated'
		    date
		    echo '</body></html>'
		    rm -f /tmp/aegis.$$.log /tmp/aegis.$$
		    exit 1
	       	fi
		rm /tmp/aegis.$$.log
	    fi
	
	    echo 'Content-Type: text/html'
	    echo ''
	    echo '<html><head><title>'
	--
	    echo "Project \"$Project\","
	    test ! -z "$Change" && echo "Change $Change,"
	    echo "<br>File <i>$x</i>"
	    echo '</h1>'
	    echo '<pre>'
	    sed 's|<|\&lt;|g' < /tmp/aegis.$$
	    echo '</pre>'
	    echo '<hr>'
	    echo 'This page was generated'
	    date
	    echo '</body></html>'
	    rm /tmp/aegis.$$
	    exit 0
	fi
	
	$bindir/aereport --file $datadir/$lang/html/$file.rpt \
	    $project $change $extra --page-width=1000 --unformatted \
	    > /tmp/aegis.$$ 2>&1
	
	status=$?
	if test $status -ne 0
	then
	    echo 'Content-Type: text/html'
	--
	    echo $bindir/aereport --file $datadir/$lang/html/$file.rpt \
	       	$project $change $extra --page-width=1000 --unformatted
	    echo '</tt></blockquote>'
	    echo "terminated with exit status $status."
	    echo 'The following text was produced <blockquote><pre>'
	    sed 's|<|\&lt;|g' < /tmp/aegis.$$
	    echo '</pre></blockquote>'
	    echo '<hr>'
	    echo 'This page was generated'
	    date
	    echo '</body></html>'
	else
	    cat /tmp/aegis.$$
	fi
	rm /tmp/aegis.$$
	exit 0
Package: ampache
Version: 3.4.1-1
Filename: pool/main/a/ampache/ampache_3.4.1-1_all.deb


Found error in /usr/share/ampache/www/locale/base/gather-messages.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/ampache/www/locale/base/gather-messages.sh
	# along with this program; if not, write to the Free Software
	# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
	#
	
	
	find ../../ -name *.php > /tmp/filelist
	find ../../ -name *.inc >> /tmp/filelist
	
	xgettext -f /tmp/filelist -L PHP -o ./messages.po
Package: apertium
Version: 3.0.7+1-1+b1
Filename: pool/main/a/apertium/apertium_3.0.7+1-1+b1_i386.deb


Found error in /usr/bin/apertium-gen-deformat:
	$ grep -A5 -B5 /tmp/ /usr/bin/apertium-gen-deformat
	
	     FILE1=$2;
	     FILE2=$3;
	fi
	/usr/bin/xmllint --dtdvalid /usr/share/apertium/format.dtd --noout $FILE1 && \
	/usr/bin/xsltproc --stringparam mode $MODE /usr/share/apertium/deformat.xsl $FILE1 >/tmp/$$.deformat.l && \
	/usr/bin/flex $FLEXOPTS -o/tmp/$$.lex.cc /tmp/$$.deformat.l && \
	i486-linux-gnu-g++ -Wall -g -O0 -Wall -ansi -march=i686 -O3               -fomit-frame-pointer -funroll-loops -w -I/usr/include/lttoolbox-3.0 -I/usr/lib/lttoolbox-3.0/include -I/usr/include/libxml2   -I /usr/include/apertium-3 -o $FILE2 /tmp/$$.lex.cc && \
	rm /tmp/$$.deformat.l /tmp/$$.lex.cc

Found error in /usr/bin/apertium-gen-reformat:
	$ grep -A5 -B5 /tmp/ /usr/bin/apertium-gen-reformat
	     FLEXOPTS="-Cfer";
	     FILE1=$2;
	     FILE2=$3;
	fi
	/usr/bin/xmllint --dtdvalid /usr/share/apertium/format.dtd --noout $FILE1 && \
	/usr/bin/xsltproc /usr/share/apertium/reformat.xsl $FILE1 >/tmp/$$.reformat.l && \
	/usr/bin/flex $FLEXOPTS -o/tmp/$$.lex.cc /tmp/$$.reformat.l && \
	i486-linux-gnu-g++ -Wall -g -O0 -Wall -ansi -march=i686 -O3               -fomit-frame-pointer -funroll-loops -w -I/usr/include/lttoolbox-3.0 -I/usr/lib/lttoolbox-3.0/include -I/usr/include/libxml2   -I /usr/include/apertium-3 -o $FILE2 /tmp/$$.lex.cc &&\
	rm /tmp/$$.reformat.l /tmp/$$.lex.cc

Found error in /usr/bin/apertium:
	$ grep -A5 -B5 /tmp/ /usr/bin/apertium
	  fi 
	}
	
	function translate_odt
	{
	  INPUT_TMPDIR=/tmp/$$odtdir
	
	  locale_utf8
	  test_zip
	
	  if [[ $FICHERO == "" ]]
	  then FICHERO=/tmp/$$odtorig
	       cat > $FICHERO
	       BORRAFICHERO="true"
	  fi
	  OTRASALIDA=/tmp/$$odtsalida.zip
	  
	  unzip -q -o -d $INPUT_TMPDIR $FICHERO
	  find $INPUT_TMPDIR | grep content\\\.xml |\
	  awk '{printf "<file name=\"" $0 "\"/>"; PART = $0; while(getline < PART) printf(" %s", $0); printf("\n");}' |\
	  $APERTIUM_PATH/apertium-desodt |\
	--
	  fi
	}
	
	function translate_docx
	{
	  INPUT_TMPDIR=/tmp/$$docxdir
	
	  locale_utf8
	  test_zip
	  
	  if [[ $FICHERO == "" ]]
	  then FICHERO=/tmp/$$docxorig
	       cat > $FICHERO
	       BORRAFICHERO="true"
	  fi
	  OTRASALIDA=/tmp/$$docxsalida.zip
	  
	  if [[ $UWORDS == "no" ]]
	  then OPCIONU="-u";
	  else OPCIONU="";
	  fi
	  
	  unzip -q -o -d $INPUT_TMPDIR $FICHERO
	  
	  for i in $(find $INPUT_TMPDIR|grep "xlsx$");
	  do $APERTIUM_PATH/apertium -f xlsx -d $DIRECTORY $OPCIONU $PREFIJO <$i >/tmp/$$xlsxembed;
	     mv /tmp/$$xlsxembed $i;
	  done;
	  
	  find $INPUT_TMPDIR | grep "xml" |\
	  grep -v -i \\\(settings\\\|theme\\\|styles\\\|font\\\|rels\\\) |\
	  awk '{printf "<file name=\"" $0 "\"/>"; PART = $0; while(getline < PART) printf(" %s", $0); printf("\n");}' |\
	--
	  fi
	}
	
	function translate_xlsx
	{
	  INPUT_TMPDIR=/tmp/$$xlsxdir
	
	  locale_utf8
	  test_zip
	  
	  if [[ $FICHERO == "" ]]
	  then FICHERO=/tmp/$$xlsxorig
	       cat > $FICHERO
	       BORRAFICHERO="true"
	  fi
	  OTRASALIDA=/tmp/$$xslxsalida.zip
	  
	  unzip -q -o -d $INPUT_TMPDIR $FICHERO
	  find $INPUT_TMPDIR | grep "sharedStrings.xml" |\
	  awk '{printf "<file name=\"" $0 "\"/>"; PART = $0; while(getline < PART) printf(" %s", $0); printf("\n");}' |\
	  $APERTIUM_PATH/apertium-desxlsx |\
Package: aptoncd
Version: 0.1-1.1
Filename: pool/main/a/aptoncd/aptoncd_0.1-1.1_all.deb


Found error in /usr/share/aptoncd/xmlfile.py:
	$ grep -A5 -B5 /tmp/ /usr/share/aptoncd/xmlfile.py
			aFile.write('        <dist>%s</dist>\n' % util.distro )
			aFile.write('        <method>http</method>\n')
			aFile.write('        <version>%s</version>\n' % util.codename)
			aFile.write('        <section>main</section>\n')
			aFile.write('        <arch>%s</arch>\n'  % util.architecture)
			aFile.write('        <path>/tmp/aptoncd</path>\n')
			aFile.write('        <media>CD</media>\n')
			aFile.write('    </settings>\n')
			aFile.write('</download>\n')
			aFile.close()
	
	--
			dist =  util.distro
			method = 'http'
			version = util.codename
			section = 'main'
			arch = util.architecture
			path = '/tmp/aptoncd'
			media = 'CD'
			try:
				node_text = self.parse(file)
				for child in node_text:
					if child.split(",")[0] == 'host':
Package: ara-byte
Version: 1.0.25
Filename: pool/main/a/ara/ara-byte_1.0.25_all.deb


Found error in /usr/bin/ara:
	$ grep -A5 -B5 /tmp/ /usr/bin/ara
	Бинарный файл ./usr/bin/ara совпадает
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";
Package: audiolink
Version: 0.05-1
Filename: pool/main/a/audiolink/audiolink_0.05-1_all.deb


Found error in /usr/bin/audiolink:
	$ grep -A5 -B5 /tmp/ /usr/bin/audiolink
	
	$db_name = "aldb";
	
	print "\nCreating the AudioLink database..." if $verbose;
	
	$ret = system("mysqladmin -u$user -p$password -h$host create  $db_name 2>/tmp/audiolink.db.tmp");
	
	#    or print "\nSome error occured.
	# If the error reported that the database already exists, it's okay. You already had the database created.
	# If it was some other error, consult the mysqladmin man page and/or notify the AudioLink developers.\n
	# Anyways, continuing to create AudioLink tables.\n";
	
	open (DBOP, "/tmp/audiolink.db.tmp");
	while (<DBOP>) {
	    if ( /database exists/i) {
		print "The database already exists.\n" if $verbose;
	    } else {
		die "\nSome error occured while creating the database:\n$_\n"
	--
	
	close DBOP;
	
	print "\nCreating the AudioLink tables..." if $verbose;
	
	$ret = system ("mysql -u$user -p$password -h$host $db_name < /usr/share/doc/audiolink/mysql.schema 2>/tmp/audiolink.tb.tmp");
	#    or print "\nSome error occured.
	# If the error reported that the table already exists, it's okay. You already had the table created.
	# If it was some other error, consult the mysql man page and/or notify the AudioLink developers.\n";
	
	open (DBOP, "/tmp/audiolink.tb.tmp");
	
	while (<DBOP>) {
	    if ( /already exists/i) {
		print "The table already exists.\n" if $verbose;
	    } else {
Package: aview
Version: 1.3.0rc1-8
Filename: pool/main/a/aview/aview_1.3.0rc1-8_i386.deb


Found error in /usr/bin/asciiview:
	$ grep -A5 -B5 /tmp/ /usr/bin/asciiview
	#!/bin/bash
	# asciiview - an ascii art image browser script. Front end for aview/aaflip
	clear()
	{
	  kill $! 2>/dev/null
	  rm -f /tmp/aview$$.pgm 2>/dev/null
	}
	myconvert()
	{
	   if anytopnm "$1" >/tmp/aview$$.pgm 2>/dev/null ; then
	     exit
	   elif convert -colorspace gray "$1" pgm:- 2>/dev/null ; then
	     exit
	   fi
	   echo "Failed to convert file format to PNM by both convert and anytopnm" >&2
	--
	      shift
	      ;;
	  esac
	done
	trap clear 0
	mkfifo /tmp/aview$$.pgm
	outfile=/tmp/aview$$.pgm
	while [ $counter -gt 0 ]; do
	counter=$(($counter-1))
	name=${filenames[$counter]}
	if test -r "$name" ; then
	case "$name" in
	*.fli | *.lfc | *.flic )
	  PATH="$PATH:."
	  aaflip $options "$name"
	  ;;
	*)
	  myconvert "$name" >/tmp/aview$$.pgm &
	  pid=$!
	  PATH="$PATH:."
	  aview  $options /tmp/aview$$.pgm
	  kill $pid 2>/dev/null
	esac
	else
	  echo "The file '$name' could not be opened."
	fi
Package: bacula-common
Version: 2.4.2-1
Filename: pool/main/b/bacula/bacula-common_2.4.2-1_i386.deb


Found error in /usr/share/doc/bacula-common/examples/autochangers/mtx-changer.Adic-Scalar-24:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/bacula-common/examples/autochangers/mtx-changer.Adic-Scalar-24
	#     echo "Requested list"
	      ${MTX} -f $ctl status | grep " *Storage Element [0-9]*:.*Full" | awk '{print $3 $4}' | sed "s/Full *\(:VolumeTag=\)*//"
	      ;;
	
	   loaded)
	      ${MTX} -f $ctl status >/tmp/mtx.$$
	      rtn=$?
	      cat /tmp/mtx.$$ | grep "^Data Transfer Element $drive:Full" | awk '{print $7}'
	      cat /tmp/mtx.$$ | grep "^Data Transfer Element $drive:Empty" | awk '{print 0}'
	      rm -f /tmp/mtx.$$
	      exit $rtn
	      ;;
	
	   slots)
	#     echo "Request slots"
Package: bash-doc
Version: 3.2-4
Filename: pool/main/b/bash/bash-doc_3.2-4_all.deb


Found error in /usr/share/doc/bash/examples/misc/aliasconv.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/bash/examples/misc/aliasconv.sh
	# usage: aliasconv.sh
	#
	# Chet Ramey
	# chet@po.cwru.edu
	#
	trap 'rm -f /tmp/cb$$.?' 0 1 2 3 6 15
	
	T='	'
	
	cat << \EOF >/tmp/cb$$.1
	mkalias ()
	{
		case $2 in
		'')	echo alias ${1}="''" ;;
		*[#\!]*)
	--
	
	# the first thing we want to do is to protect single quotes in the alias,
	# since they whole thing is going to be surrounded by single quotes when
	# passed to mkalias
	
	sed -e "s:':\\'\\\'\\':" -e "s/^\([a-zA-Z0-9_-]*\)$T\(.*\)$/mkalias \1 '\2'/" >>/tmp/cb$$.1
	
	sh /tmp/cb$$.1 | sed -e 's/\$cwd/\$PWD/g' \
			     -e 's/\$term/\$TERM/g' \
			     -e 's/\$home/\$HOME/g' \
			     -e 's/\$user/\$USER/g' \
			     -e 's/\$prompt/\$PS1/g'
	

Found error in /usr/share/doc/bash/examples/misc/aliasconv.bash:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/bash/examples/misc/aliasconv.bash
	# usage: aliasconv.bash
	#
	# Chet Ramey
	# chet@po.cwru.edu
	#
	trap 'rm -f /tmp/cb$$.?' 0 1 2 3 6 15
	
	T=$'\t'
	
	cat << \EOF >/tmp/cb$$.1
	mkalias ()
	{
		case $2 in
		'')	echo alias ${1}="''" ;;
		*[#\!]*)
	--
	
	# the first thing we want to do is to protect single quotes in the alias,
	# since they whole thing is going to be surrounded by single quotes when
	# passed to mkalias
	
	sed -e "s:':\\'\\\'\\':" -e "s/^\([a-zA-Z0-9_-]*\)$T\(.*\)$/mkalias \1 '\2'/" >>/tmp/cb$$.1
	
	$BASH /tmp/cb$$.1 | sed -e 's/\$cwd/\$PWD/g' \
			     -e 's/\$term/\$TERM/g' \
			     -e 's/\$home/\$HOME/g' \
			     -e 's/\$user/\$USER/g' \
			     -e 's/\$prompt/\$PS1/g'
	

Found error in /usr/share/doc/bash/examples/misc/cshtobash:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/bash/examples/misc/cshtobash
	# zsh-3.0.
	#
	# Chet Ramey
	# chet@po.cwru.edu
	#
	trap 'rm -f /tmp/cb$$.? cshout cshin' 0 1 2 3 6 15
	
	T=$'\t'
	
	SOURCE="${1:+source $1}"
	
	cat << EOF >cshin
	$SOURCE
	alias >! /tmp/cb$$.a
	setenv >! /tmp/cb$$.e
	set >! /tmp/cb$$.v
	EOF
	
	# give csh a minimal environment, similar to what login would provide
	/usr/bin/env - USER=$USER HOME=$HOME PATH=/usr/bin:/bin:/usr/ucb:. TERM=$TERM SHELL=$SHELL /bin/csh -i < ./cshin > cshout 2>&1
	
	# First convert aliases
	
	cat << \EOF >/tmp/cb$$.1
	mkalias ()
	{
		case $2 in
		'')	echo alias ${1}="''" ;;
		*[#\!]*)
	--
		*)	echo alias ${1}=\'$(echo "${2}" | sed "s:':'\\\\'':")\' ;;
		esac
	}
	EOF
	
	sed "s/^\([a-zA-Z0-9_]*\)$T\(.*\)$/mkalias \1 '\2'/" < /tmp/cb$$.a >>/tmp/cb$$.1
	
	echo '# csh aliases'
	echo
	
	$BASH /tmp/cb$$.1 | sed -e 's/\$cwd/\$PWD/g' \
			   -e 's/\$term/\$TERM/g' \
			   -e 's/\$home/\$HOME/g' \
			   -e 's/\$user/\$USER/g' \
			   -e 's/\$prompt/\$PS1/g'
	
	--
	# Would be nice to deal with embedded newlines, e.g. in TERMCAP, but ...
	sed -e '/^SHLVL/d' \
	    -e '/^PWD/d' \
	    -e "s/'/'"\\\\"''"/g \
	    -e "s/^\([A-Za-z0-9_]*=\)/export \1'/" \
	    -e "s/$/'/" < /tmp/cb$$.e
	
	# Finally, convert local variables
	echo
	echo '# csh variables'
	echo
	--
	sed -e 's/'"$T"'/=/' \
	    -e "s/'/'"\\\\"''"/g \
	    -e '/^[A-Za-z0-9_]*=[^(]/{
		s/=/='"'/"'
		s/$/'"'/"'
		}' < /tmp/cb$$.v |
	sed -e '/^argv=/d' -e '/^cwd=/d' -e '/^filec=/d' -e '/^status=/d' \
		 -e '/^verbose=/d' \
		 -e '/^term=/d' \
		 -e '/^home=/d' \
		 -e '/^path=/d' \
	--
	# now some special csh variables converted to bash equivalents
	echo
	echo '# special csh variables converted to bash equivalents'
	echo
	
	sed -e 's/'"$T"'/=/' < /tmp/cb$$.v |
	grep "^cdpath=" |
	sed 's/(//
	     s/ /:/g
	     s/)//
	     s/cdpath=/CDPATH=/'
	
	
	sed -e 's/'"$T"'/=/' < /tmp/cb$$.v |
	grep "^mail=" |
	sed 's/(//
	     s/ /:/g
	     s/)//
	     s/mail=/MAILPATH=/' |
Package: bk2site
Version: 1:1.1.9-3.1
Filename: pool/main/b/bk2site/bk2site_1.1.9-3.1_i386.deb


Found error in /usr/lib/cgi-bin/bk2site/redirect.pl:
	$ grep -A5 -B5 /tmp/ /usr/lib/cgi-bin/bk2site/redirect.pl
	
	## Is this properly posted from a web page?
	$ENV{"REQUEST_METHOD"} || exit(1);
	
	$debug=0;
	open(DEBUG, ">>/tmp/redirect.log") if $debug;
	
	# should point to a directory where all hit logs go to
	#$basedir = "/var/log/bk2site";
	$basedir = ".";
	
Package: bulmages-servers
Version: 0.11.1-2
Filename: pool/main/b/bulmages/bulmages-servers_0.11.1-2_all.deb


Found error in /usr/share/bulmages/examples/scripts/actualizabulmacont:
	$ grep -A5 -B5 /tmp/ /usr/share/bulmages/examples/scripts/actualizabulmacont
	  texto="0"
	  ptexto="--dialog"
	fi
	
	#Borramos antiguos archivos que puedan dar problemas
	if [ -e /tmp/errores.txt ]; then
	   rm -f /tmp/errores.txt
	fi
	if [ -e /tmp/listdb.lst ]; then
	   rm -f /tmp/listdb.lst
	fi
	if [ -e /tmp/listuser.lst ]; then
	   rm -f /tmp/listuser.lst
	fi
	if [ -e /tmp/error.txt ]; then
	   rm -f /tmp/error.txt
	fi
	
	
	# Esta funcion presenta mensajes por pantalla
	function mensaje() {
	--
	
	
	
	
	linea
	info "Realizamos backup de $2 en /tmp/backup no olvide poner el backup a buen recaudo"
	if [ ! -e /tmp/backup ]; then
		mkdir /tmp/backup
	fi
	pg_dump $2 > /tmp/backup/$2.pgdump
	tiempo
	
	
	# info "Procesando base de datos $database"
	# Aplicando parches de BulmaCont

Found error in /usr/share/bulmages/examples/scripts/installbulmages-db:
	$ grep -A5 -B5 /tmp/ /usr/share/bulmages/examples/scripts/installbulmages-db
	  texto="0"
	  ptexto="--dialog"
	fi
	
	# Erasing old files that can make problems
	if [ -e /tmp/bulmages/errores.txt ]; then
	   rm -f /tmp/bulmages/errores.txt
	fi
	if [ -e /tmp/bulmages/listdb.lst ]; then
	   rm -f /tmp/bulmages/listdb.lst
	fi
	if [ -e /tmp/bulmages/listuser.lst ]; then
	   rm -f /tmp/bulmages/listuser.lst
	fi
	if [ -e /tmp/bulmages/error.txt ]; then
	   rm -f /tmp/bulmages/error.txt
	fi
	
	# Esta funcion presenta mensajes por pantalla.
	function mensaje() {
	   if [ ! -e /usr/bin/dialog -a ! -e /usr/bin/xdialog -o $texto = 1 ]; then
	--
	function lee() {
	   if [ ! -e /usr/bin/dialog -a ! -e /usr/bin/xdialog -o $texto = 1 ]; then
	      echo -e  "\033[33m""Indique el usuario que va a trabajar con BulmaGes. Pulse enter si no desea crear usuarios de PostgreSQL."  "\033[0m"
	      read user
	   elif [ -e /usr/bin/xdialog ]; then
	      xdialog --title "Instalacion de BulmaGes $version" --inputbox "Nombre del usuario que va a trabajar normalmente con BulmaGes. \n deje el campo en blanco para terminar." 10 60  2>/tmp/bulmages/dialog.ans
	      user=`cat /tmp/bulmages/dialog.ans`
	      rm -f /tmp/bulmages/dialog.ans # don't litter !
	   else
	      xdialog --title "Instalacion de BulmaGes $version" --inputbox "Nombre del usuario que va a trabajar normalmente con BulmaGes. \n deje el campo en blanco para terminar." 10 60  2>/tmp/bulmages/dialog.ans
	      user=`cat /tmp/bulmages/dialog.ans`
	      rm -f /tmp/bulmages/dialog.ans # don't litter !
	   fi
	   while [ "$user" != "" ]
	   do
	      su - postgres -c "$CREATEUSER --adduser --createdb $user"
	      if [ ! -e /usr/bin/dialog -a ! -e /usr/bin/xdialog -o $texto = 1 ]; then
	         echo -e  "\033[33m""Indique el usuario que va a trabajar con BulmaGes. Pulse enter si no desea crear usuarios de PostgreSQL."  "\033[0m"
	         read user
	      elif [ -e /usr/bin/xdialog ]; then
	         dialog --title "Instalacion de BulmaGes $version" --inputbox "Nombre del usuario que va a trabajar normalmente con BulmaGes. \n deje el campo en blanco para terminar." 10 60  2>/tmp/bulmages/dialog.ans
	         user=`cat /tmp/bulmages/dialog.ans`
	         rm -f /tmp/bulmages/dialog.ans # don't litter !
	      else
	         dialog --title "Instalacion de BulmaGes $version" --inputbox "Nombre del usuario que va a trabajar normalmente con BulmaGes. \n deje el campo en blanco para terminar." 10 60  2>/tmp/bulmages/dialog.ans
	         user=`cat /tmp/bulmages/dialog.ans`
	         rm -f /tmp/bulmages/dialog.ans # don't litter !
	      fi
	   done
	}
	
	function tiempo {
	--
	   exit 1
	fi
	
	
	# Iniciamos el tema de los errores.
	if [ -e /tmp/bulmages/errores.txt ]; then
	    rm -f /tmp/bulmages/errores.txt
	fi
	
	#Comprobamos que estamos en el directorio adecuado
	if [ ! -e ./installbulmages-db ]; then
	 mensaje "Directorio incorrecto. La instalacion debe ejecutarse desde el directorio donde se encuentra el script. \n"
	--
	      # Dejamos que la insercionœ del usuario la haga una funcionœ y asi encapsulamos un poco.
	      lee
	fi
	
	# Presentamos los errores acaecidos.
	if [ -e /tmp/bulmages/errores.txt ]; then
	   cat /tmp/bulmages/errores.txt | grep ERROR
	fi
	      
	mensaje "INSTALACION FINALIZADA CON EXITO" "\033[32m" "\033[0m"
	mensaje "Puede que el programa arranque pero no le deje acceder a la informacion.\n"
	mensaje "En ese caso debe revisar la configuracion de postgres o crear un usuario para el acceso a las bases de datos.\n"

Found error in /usr/share/bulmages/examples/scripts/creabulmafact:
	$ grep -A5 -B5 /tmp/ /usr/share/bulmages/examples/scripts/creabulmafact
	   if [ ! -e /usr/bin/dialog ]; then
	     echo -e "\033[32m----------------------------------------------\033[0m\n"
	   fi
	}
	
	if [ -e /tmp/errores.txt ]; then
	  rm -f /tmp/errores.txt
	fi
	
	
	#Nos situamos en el directorio correcto.
	cd /usr/share/bulmages/dbmodels
	
	
	info "Creamos la base de datos:$2 $3"
	tiempo
	
	#dropdb  $2 2>> /tmp/error.txt > /dev/null
	# Comprobamos que la base de datos no exista ya en el sistema.
	LANG_PSQL=`$PSQL -l | grep $2`
	if [ "$LANG_PSQL" != "" ]; then
		mensaje "No se puede crear la base de datos $2 porque ya existe en el sistema"
		exit 1
	fi;
	
	
	# La creacion de las bases de datos como UNICODE da muchos problemas con los caracteres especiales
	# Por ese motivo de momento crearemos las bases de datos como SQL_ASCII
	#createdb -E UNICODE $2 2>> /tmp/errores.txt > /dev/null
	$CREATEDB  -E UNICODE $2 2>> /tmp/errores.txt > /dev/null
	
	# Creamos la base
	info "Importamos el esquema de base de datos de una empresa. \n"
	tiempo
	$PSQL $2 < crear/bulmafact/bulmafact_schema.sql 2>> /tmp/errores.txt > /dev/null
	tiempo
	
	$PSQL $2 < crear/bulmafact/bulmafact_data.sql 2>> /tmp/errores.txt > /dev/null
	tiempo
	
	#Ponemos el nombre que corresponde
	info "Realizando configuraciones adicionales. \n"
	echo "UPDATE configuracion SET valor='$4' WHERE nombre='NombreEmpresa';" | $PSQL $2 >/dev/null
	--
	
	
	if [ "$3" = "2" ]; then
	   # Cargamos todas las tablas que son de ejemplo.
	   info "Cargamos datos adicionales. \n"
	   $PSQL $2 < crear/bulmafact/bulmafact_data2.sql 2>> /tmp/errores.txt > /dev/null
	   tiempo
	fi
	
	
	
	
	if [ -e /tmp/errores.txt ]; then
	   DBS=`cat /tmp/errores.txt | grep ERROR`
	fi
	if [ "$DBS" ]; then
	   mensaje "Se han producido errores al instalar la base de datos $2 \n Se abortara instalacion. Para mas informacion consulte http://www.iglues.org . \n$DBS"
	   /usr/lib/postgresql/8.3/bin/dropdb $2
	   exit 1
	else
	   info "La instalacion de la base de datos $2 ha sido un exito. \n"
	   if [ -e /tmp/errores.txt ]; then
	      rm -f /tmp/errores.txt
	   fi
	   if [ -e /tmp/error.txt ]; then
	      rm -f /tmp/error.txt
	   fi
	fi

Found error in /usr/share/bulmages/examples/scripts/creabulmacont:
	$ grep -A5 -B5 /tmp/ /usr/share/bulmages/examples/scripts/creabulmacont
	     echo -e "\033[32m----------------------------------------------\033[0m\n"
	   fi
	}
	
	# Para que no se mezclen multiples ejecuciones borramos el sistema de errores.
	if [ -e /tmp/errores.txt ]; then
	    rm -f /tmp/errores.txt
	fi
	
	
	#Nos situamos en el directorio correcto. Este script no funciona si no estamos en dbmodels.
	cd /usr/share/bulmages/dbmodels
	--
	
	
	
	# La creacion de las bases de datos como UNICODE da muchos problemas con los caracteres especiales
	# Por ese motivo de momento crearemos las bases de datos como SQL_ASCII
	#createdb -E UNICODE $2 2>> /tmp/errores.txt > /dev/null
	$CREATEDB  -E UNICODE  $2 2>> /tmp/errores.txt > /dev/null
	
	
	# Creamos la empresa y  metemos los datos de esquema que deben hacerse en cualquier caso.
	if [ "$3" = "1" -o "$3" = "2" -o "$3" = "0" ]; then
		info "Importamos el esquema de base de datos de una empresa. \n"
		tiempo
		$PSQL $2 < crear/bulmacont/bulmacont_schema.sql 2>> /tmp/errores.txt > /dev/null
	        $PSQL $2 < crear/bulmacont/t_configuracion_data.sql 2>> /tmp/errores.txt > /dev/null
	
		# Creamos el ejercicio
		echo "INSERT into ejercicios (ejercicio, periodo, bloqueado) VALUES ($5, 0, FALSE);"  | $PSQL $2 > /dev/null
		echo "INSERT into ejercicios (ejercicio, periodo, bloqueado) VALUES ($5, 1, FALSE);" | $PSQL $2 > /dev/null
		echo "INSERT into ejercicios (ejercicio, periodo, bloqueado) VALUES ($5, 2, FALSE);" | $PSQL $2 > /dev/null
	--
	
	# En caso de querer un conjunto minimo de datos se meten los datos minimos.
	if [ "$3" = "1" -o "$3" = "2" ]; then
	   # Cargamos lo minimo, para dejar la empresa con un plan contable vacio.
	   info "Cargamos el conjunto minimo de datos. \n Plan contable simple. \n"
	   $PSQL $2 < crear/bulmacont/t_cuenta_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_fpago_data.sql 2>> /tmp/errores.txt > /dev/null
	
	   tiempo
	fi
	
	# Si se esta pidiendo un ejemplo entonces se carga el resto de datos.
	if [ "$3" = "2" ]; then
	   # Cargamos todas las tablas que son de ejemplo.
	   info "Cargamos datos adicionales. \n Ejemplo. \n"
	   $PSQL $2 < crear/bulmacont/t_ejercicios_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_cuenta_data1.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_tipoiva_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_canal_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_c_coste_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_diario_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_asiento_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_apunte_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_borrador_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_registroiva_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_ainteligente_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_binteligente_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_compmasap_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_compbalance_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_balance_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_amortizacion_data.sql 2>> /tmp/errores.txt > /dev/null
	   $PSQL $2 < crear/bulmacont/t_linamortizacion_data.sql 2>> /tmp/errores.txt > /dev/null
	   tiempo
	fi
	
	#Ponemos el nombre que corresponde
	info "Realizando configuraciones adicionales. \n"
	echo "UPDATE configuracion SET valor='$4' WHERE nombre='NombreEmpresa';" | $PSQL $2 > /dev/null
	tiempo
	
	# Si hay errores se borra la base de datos y se sale.
	DBS=`cat /tmp/errores.txt | grep ERROR`
	if [ "$DBS" ]; then
	   mensaje "Se han producido errores al instalar la base de datos $2 \n Se abortara la instalacion. Para mas informacion consulte en http://www.iglues.org \n"
	   /usr/lib/postgresql/8.3/bin/dropdb $2
	   exit 1
	else
	   info "La instalacion de la base de datos $2 $4 ha sido un exito. \n"
	  if [ -e /tmp/errores.txt ]; then
	    rm -f /tmp/errores.txt
	  fi
	  if [ -e /tmp/bulmacont_generica.sql ]; then
	    rm -f /tmp/bulmacont_generica.sql
	  fi
	fi
	

Found error in /usr/share/bulmages/examples/scripts/actualizabulmafact:
	$ grep -A5 -B5 /tmp/ /usr/share/bulmages/examples/scripts/actualizabulmafact
	  texto="0"
	  ptexto="--dialog"
	fi
	
	#Borramos antiguos archivos que puedan dar problemas
	if [ -e /tmp/errores.txt ]; then
	   rm -f /tmp/errores.txt
	fi
	if [ -e /tmp/listdb.lst ]; then
	   rm -f /tmp/listdb.lst
	fi
	if [ -e /tmp/listuser.lst ]; then
	   rm -f /tmp/listuser.lst
	fi
	if [ -e /tmp/error.txt ]; then
	   rm -f /tmp/error.txt
	fi
	
	
	# Esta funcion presenta mensajes por pantalla
	function mensaje() {
	--
		exit
	fi
	tiempo
	
	linea
	info "Realizamos backup de $2 en /tmp/backup no olvide poner el backup a buen recaudo"
	if [ ! -e /tmp/backup ]; then
		mkdir /tmp/backup
	fi
	
	/usr/lib/postgresql/8.3/bin/pg_dump $2 > /tmp/backup/$2.pgdump
	tiempo
	
	
	# info "Procesando base de datos $database"
	# Aplicando parches de BulmaCont
Package: caudium
Version: 3:1.4.12-11
Filename: pool/main/c/caudium/caudium_1.4.12-11_all.deb


Found error in /usr/share/caudium/configvar:
	$ grep -A5 -B5 /tmp/ /usr/share/caudium/configvar
	fi
	
	pike=pike
	if [ -x bin/pike ] ; then pike=bin/pike; fi
	
	cat > /tmp/roxen$$.pike  << "____________________"
	#42 "configvar"
	import Stdio;
	
	void report_error(string s) 
	{
	--
	
	
	// The line below _must_ be there.. 
	____________________
	
	echo Starting $pike $DEFINES /tmp/roxen$$.pike "$@"...
	$pike $DEFINES /tmp/roxen$$.pike "$@"
	/bin/rm /tmp/roxen$$.pike
Package: cdcontrol
Version: 1.90-1.1
Filename: pool/main/c/cdcontrol/cdcontrol_1.90-1.1_all.deb


Found error in /usr/lib/cdcontrol/writtercontrol:
	$ grep -A5 -B5 /tmp/ /usr/lib/cdcontrol/writtercontrol
	  cdrecord -dev=`eval echo ${3}` -speed=${W_SPEED} -fs=${CACHE}m \
	       ${EXTRA_AREC_OPT} ${1} &>${TMP_DIR}/recorder${2}-out
	 else
	  if uname -s|grep -i 'Linux';then
	   cdrecord -dev=`eval echo ${3}` -speed=${W_SPEED} -fs=${CACHE}m \
	        ${EXTRA_AREC_OPT} ${1} |tee /tmp/v-recorder${2}-out &>/dev/tty$[${2}+1]
	  elif uname -s|grep -i 'bsd';then
	    cdrecord -dev=`eval echo ${3}` -speed=${W_SPEED} -fs=${CACHE}m \
	        ${EXTRA_AREC_OPT} ${1} |tee /tmp/v-recorder${2}-out &>/dev/ttyv$[${2}+1]
	  else
	    ${DIALOG} --backtitle $"CDcontrol v${CDC_VERSION}" \
	         --msgbox $"Operating system yet not supported by CDControl, aborting." 7 60
	  fi
	 fi
	--
	  cdrecord -dev=`eval echo ${3}` -speed=${W_SPEED} -fs=${CACHE}m \
	       ${EXTRA_DREC_OPT} ${1} &>${TMP_DIR}/recorder${2}-out
	 else
	  if uname -s|grep -i 'Linux';then
	   cdrecord -dev=`eval echo ${3}` -speed=${W_SPEED} -fs=${CACHE}m \
	        ${EXTRA_DREC_OPT} ${1} |tee /tmp/v-recorder${2}-out &>/dev/tty$[${2}+1]
	  elif uname -s|grep -i 'bsd';then
	    cdrecord -dev=`eval echo ${3}` -speed=${W_SPEED} -fs=${CACHE}m \
	        ${EXTRA_DREC_OPT} ${1} |tee /tmp/v-recorder${2}-out &>/dev/ttyv$[${2}+1]
	  else
	    ${DIALOG} --backtitle $"CDcontrol v${CDC_VERSION}" \
	         --msgbox $"Operating system yet not supported by CDControl." 7 60
	  fi
	 fi
Package: cdrw-taper
Version: 0.4-2
Filename: pool/main/c/cdrw-taper/cdrw-taper_0.4-2_all.deb


Found error in /usr/sbin/amlabel-cdrw:
	$ grep -A5 -B5 /tmp/ /usr/sbin/amlabel-cdrw
	if (! $mediaInfo->isErasable()) {
	    error("Won't label non-erasable media!");
	}
	
	# Write the label file to a temporary directory
	mkdir("/tmp/amlabel-cdrw.$$", 0755) || error("Cannot make directory /tmp/amlabelcd.$$: $!");
	open LABEL, ">/tmp/amlabel-cdrw.$$/AMANDA_LABEL" or error("Cannot create label: $!");
	print LABEL "$NEW_LABEL\n";
	close LABEL;
	
	if ($mediaInfo->getType() eq "CDRW") {
	    # Exit silently on errors. mkisofs/cdrecord already generate
	    # appropriate messages
	    my $result = system("$taper->{MKISOFS} -J -R -pad -quiet /tmp/amlabel-cdrw.$$ | $taper->{CDRECORD} dev=$writeDev -data blank=fast -");
	    error("Error writing CD-RW") if ($result / 256 != 0);
	} else { # DVD
	    my $result;
	    if ($mediaInfo->needFormat()) {
	        $result = system("$taper->{DVDRWFORMAT} $mountDev");
	        if ($result / 256 != 0) {
		    error("Error formatting ".$mediaInfo->getType());
	        }
	    }
	    $result = system("$taper->{GROWISOFS} -Z $mountDev -J -R -pad -quiet /tmp/amlabel-cdrw.$$");
	    if ($result / 256 != 0) {
		error("Error writing ".$mediaInfo->getType());
	    }
	}
	
	# Clean up temporary files
	if (-e "/tmp/amlabel-cdrw.$$/AMANDA_LABEL") {
	    unlink "/tmp/amlabel-cdrw.$$/AMANDA_LABEL";
	}
	if (-d "/tmp/amlabel-cdrw.$$") {
	    rmdir "/tmp/amlabel-cdrw.$$";
	}
	
	if ($WRITE_TAPELIST) {
	    # Finally, append the new entry to the media list
	    open(ML, ">>$taper->{AMANDA_CONF}->{tapelist}")
	--
	exit 0;
	
	# print an error message and exit
	sub error {
	  # Clean up temporary files
	  unlink "/tmp/amlabel-cdrw.$$/AMANDA_LABEL" if -e "/tmp/amlabel-cdrw.$$/AMANDA_LABEL";
	  rmdir "/tmp/amlabel-cdrw.$$" if -d "/tmp/amlabel-cdrw.$$";
	  print STDERR "amlabel-cdrw: $_[0]\n" if $_[0];
	  exit 1;
	}
	
	sub usage {
Package: citadel-server
Version: 7.37-1
Filename: pool/main/c/citadel/citadel-server_7.37-1_i386.deb


Found error in /usr/lib/citadel-server/migrate_aliases.sh:
	$ grep -A5 -B5 /tmp/ /usr/lib/citadel-server/migrate_aliases.sh
		sed -e "s; *;;g" \
	            -e "s;\t*;;g" | \
		grep -v ^root: | \
		grep -v ^# | \
		sed -e "s;:root;,room_aide;" \
	            -e "s;:;,;" >/tmp/aliases
	
	    NLINES=`cat /tmp/aliases|wc -l`
	    
	    for ((i=1; i <= $NLINES; i++)); do 
		ALIAS=`head -n $i /tmp/aliases |tail -n 1`
		ORG=`echo $ALIAS|sed "s;,.*;;"`
		if grep "$ORG" "$CITALIAS"; then
		    echo "Ignoring Alias $ORG as its alreday there"
		else
		    echo "$ALIAS" >>$CITALIAS
Package: cman
Version: 2.20080629-1
Filename: pool/main/r/redhat-cluster/cman_2.20080629-1_i386.deb


Found error in /usr/sbin/fence_egenera:
	$ grep -A5 -B5 /tmp/ /usr/sbin/fence_egenera
	# until a timeout of 20 seconds has been reached.
	sub pserver_shutdown
	{
		my $rtrn=1;
	        local *egen_log;
	        open(egen_log,">/tmp/eglog");
		for (my $trys=0; $trys<20; $trys++)
		{
			last if (pserver_status != 0);
	
	
Package: cmus
Version: 2.2.0-1+b1
Filename: pool/main/c/cmus/cmus_2.2.0-1+b1_i386.deb


Found error in /usr/share/doc/cmus/examples/cmus-status-display:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/cmus/examples/cmus-status-display
	#   - other keys/values are given only if they are available
	#  
	
	output()
	{
		# write status to /tmp/cmus-status (not very useful though)
		echo "$*" >> /tmp/cmus-status 2>&1
	
		# WMI (http://wmi.modprobe.de/)
		#wmiremote -t "$*" &> /dev/null
	}
	
Package: convirt
Version: 0.8.2-3
Filename: pool/main/c/convirt/convirt_0.8.2-3_all.deb


Found error in /usr/share/convirt/image_store/_template_/provision.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/convirt/image_store/_template_/provision.sh
	
	# source additional params passed by UI
	source "$param_file"
	
	# check that we got all the params
	set > /tmp/set_output
	
	# create a list from the disk directive
	disk_list=`python <<EOF
	exec "disk=$disk"
	disks = ""

Found error in /usr/share/convirt/image_store/Linux_CD_Install/provision.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/convirt/image_store/Linux_CD_Install/provision.sh
	
	# source additional params passed by UI
	source "$param_file"
	
	# check that we got all the params
	set > /tmp/set_output
	
	# create a list from the disk directive
	disk_list=`python <<EOF
	exec "disk=$disk"
	disks = ""

Found error in /usr/share/convirt/image_store/Fedora_PV_Install/provision.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/convirt/image_store/Fedora_PV_Install/provision.sh
	
	# source additional params passed by UI
	source "$param_file"
	
	# check that we got all the params
	set > /tmp/set_output
	
	# create a list from the disk directive
	disk_list=`python <<EOF
	exec "disk=$disk"
	disks = ""

Found error in /usr/share/convirt/image_store/CentOS_PV_Install/provision.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/convirt/image_store/CentOS_PV_Install/provision.sh
	
	# source additional params passed by UI
	source "$param_file"
	
	# check that we got all the params
	set > /tmp/set_output
	
	# create a list from the disk directive
	disk_list=`python <<EOF
	exec "disk=$disk"
	disks = ""

Found error in /usr/share/convirt/image_store/common/provision.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/convirt/image_store/common/provision.sh
	
	# source additional params passed by UI
	source "$param_file"
	
	# check that we got all the params
	set > /tmp/set_output
	
	# create a list from the disk directive
	disk_list=`python <<EOF
	exec "disk=$disk"
	disks = ""

Found error in /usr/share/convirt/image_store/example/provision.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/convirt/image_store/example/provision.sh
	
	# source additional params passed by UI
	source "$param_file"
	
	# check that we got all the params
	set > /tmp/set_output
	
	# create a list from the disk directive
	disk_list=`python <<EOF
	exec "disk=$disk"
	disks = ""

Found error in /usr/share/convirt/image_store/Windows_CD_Install/provision.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/convirt/image_store/Windows_CD_Install/provision.sh
	
	# source additional params passed by UI
	source "$param_file"
	
	# check that we got all the params
	set > /tmp/set_output
	
	# create a list from the disk directive
	disk_list=`python <<EOF
	exec "disk=$disk"
	disks = ""
Package: crossfire-maps
Version: 1.11.0-1
Filename: pool/main/c/crossfire-maps/crossfire-maps_1.11.0-1_all.deb


Found error in /usr/share/games/crossfire/maps/Info/combine.pl:
	$ grep -A5 -B5 /tmp/ /usr/share/games/crossfire/maps/Info/combine.pl
	
	
	# If we already have a combined image, then we only need to paste
	# the new bits onto it, saving a bunch of time
	if (! -f "images/combine.ppm") {
	    system("ppmmake \\#000 $DEST_WIDTH $DEST_HEIGHT > /tmp/tmp.ppm");
	    $first_run=1;
	    print "Creating images for the first time.\n";
	} else {
	    system("cp images/combine.ppm /tmp/tmp.ppm");
	    $first_run=0;
	}
	
	print "Processing.";
	for ($x=0; $x<$NUM_X; $x++) {
	--
		if ($time1 > $time2) {
		    $cmd = $CFEDITOR;
		    $cmd =~ s#%I#$cwd/world/world_$dx\_$dy#;
		    $cmd =~ s#%O#$cwd/images/world_$dx\_$dy.png#;
		    system($cmd);
		    system("pngtopnm images/world_$dx\_$dy.png | pnmscale -xysize $TILE_WIDTH $TILE_HEIGHT > /tmp/ppm.tmp");
		    $sx = $x * $TILE_WIDTH;
		    $sy = $y * $TILE_HEIGHT;
		    system("pnmpaste /tmp/ppm.tmp $sx $sy /tmp/tmp.ppm > /tmp/tmp.ppm1");
		    unlink("/tmp/tmp.ppm");
		    rename("/tmp/tmp.ppm1", "/tmp/tmp.ppm");
		}
	    }
	}
	system("mv /tmp/tmp.ppm images/combine.ppm");
	print "\n";
Package: ctn
Version: 3.0.6-12
Filename: pool/main/c/ctn/ctn_3.0.6-12_i386.deb


Found error in /usr/share/doc/ctn/examples/add-accession-numbers:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/ctn/examples/add-accession-numbers
	mkdir ../rsna-cases-acc
	@ a = 1000
	@ b = 1
	foreach i (*)
	echo $i $a
	rm -f /tmp/accession
	echo 0008 0050 $a > /tmp/accession
	@ a += 1
	
	mkdir ../rsna-cases-acc/$i
	
	foreach j ($i/*)
	echo $b $j
	dcm_modify_elements $j ../rsna-cases-acc/$j < /tmp/accession > /dev/null
	@ b += 1
	end
	
	end
Package: cups
Version: 1.3.7-9
Filename: pool/main/c/cups/cups_1.3.7-9_i386.deb


Found error in /usr/share/doc/cups/examples/pstopdf:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/cups/examples/pstopdf
	
	fi
	
	jobid=$1
	
	#infile=`mktemp /tmp/$jobid.pstopdf.in.XXXXXX`
	#if [ $? -ne 0 ]; then
	#  echo "ERROR: Error creating tmpfile $infile" >&2
	#  exit 1
	#fi
	#outfile=`mktemp /tmp/$jobid.pstopdf.out.XXXXXX`
	#if [ $? -ne 0 ]; then
	#  echo "ERROR: Error creating tmpfile $outfile" >&2
	#  exit 1
	#fi
	
	--
	  #rm -f $6
	
	  infile="$6"
	  outfile="$infile".pdf
	
	  $PSTOPDF $OPTIONS "$infile" "$outfile" 2>&1 >> /tmp/pstopdf.log
	
	else
	
	  outfile=`mktemp /tmp/$jobid.pstopdf.out.XXXXXX`
	  if [ $? -ne 0 ]; then
	    echo "ERROR: Error creating tmpfile $outfile" >&2
	    exit 1
	  fi
	
	  $PSTOPDF $OPTIONS - "$outfile" 2>&1 >> /tmp/pstopdf.log
	
	fi
	
	cat $outfile
	
	# cp "$infile" "$outfile" /tmp/cups/
	
	rm -f "$outfile"
	
	exit 0
Package: datafreedom-perl
Version: 0.1.7-1
Filename: pool/main/p/pilot-qof/datafreedom-perl_0.1.7-1_all.deb


Found error in /usr/bin/dfxml-invoice:
	$ grep -A5 -B5 /tmp/ /usr/bin/dfxml-invoice
	e.g.
	 pilot-qof -x data.xml --invoice-city -t 2006-11-09 | dfxml-invoice -
	
	A more complex example using 'zenity' - a Gnome dialog generator.
	
	 $ pilot-qof -x data.xml --invoice-city -t 2006-11-08 | dfxml-invoice - > /tmp/zenity
	  zenity --text-info --title="2006-11-08" --filename=/tmp/zenity --width=500 --height=300
	
	dfxml-invoice, like pilot-qof, is designed to be used in pipes like this. It is
	intended to provide support for your own scripts where details like the date 
	can be set as an option:
	
Package: decompyle
Version: 2.3.2-4+b1
Filename: pool/main/d/decompyle/decompyle_2.3.2-4+b1_i386.deb


Found error in /usr/bin/decompyle:
	$ grep -A5 -B5 /tmp/ /usr/bin/decompyle
	  -o <path>     output decompyled files to this path:
	                if multiple input files are decompyled, the common prefix
	                is stripped from these names and the remainder appended to
	                <path>
	                  decompyle -o /tmp bla/fasel.pyc bla/foo.pyc
	                    -> /tmp/fasel.dis, /tmp/foo.dis
	                  decompyle -o /tmp bla/fasel.pyc bar/foo.pyc
	                    -> /tmp/bla/fasel.dis, /tmp/bar/foo.dis
	                  decompyle -o /tmp /usr/lib/python1.5
	                    -> /tmp/smtplib.dis ... /tmp/lib-tk/FixTk.dis
	  --verify      compare generated source with input byte-code
	                (requires -o)
	  --help        show this message
	
	Debugging Options:
Package: dhis-server
Version: 5.3-1
Filename: pool/main/d/dhis-server/dhis-server_5.3-1_i386.deb


Found error in /usr/lib/dhis-server/dhis-dummy-log-engine:
	$ grep -A5 -B5 /tmp/ /usr/lib/dhis-server/dhis-dummy-log-engine
	#!/bin/sh
	echo [$$] [`date`] Starting >> /tmp/dhis-dummy-log-engine.log
	while true
	do
		read line
		echo [$$] `date` Received: $line >> /tmp/dhis-dummy-log-engine.log
		case $line in
		'exit')
			exit 0
			;;
		'reload')
			echo [$$] `date` RELOAD issued >> /tmp/dhis-dummy-log-engine.log
			;;
		esac
	
		cmd=`echo $line | awk '{ print $1 }'`
	
		case $cmd in 
	
		'add')
			echo [$$] `date` $line >> /tmp/dhis-dummy-log-engine.log
			;; 
		'update')
			echo [$$] `date` $line >> /tmp/dhis-dummy-log-engine.log
			;; 
		'delete')
			echo [$$] `date` $line >> /tmp/dhis-dummy-log-engine.log
			;; 
		esac
	done
Package: digitaldj
Version: 0.7.5-6+b1
Filename: pool/main/d/digitaldj/digitaldj_0.7.5-6+b1_i386.deb


Found error in /usr/share/digitaldj/fest.pl:
	$ grep -A5 -B5 /tmp/ /usr/share/digitaldj/fest.pl
	
	#my $esdinfo=`esdctl allinfo | grep mpg123`;
	
	my ($blah,$chan,$blah)=split ' ',$esdinfo,3;
	
	open FILE,">/tmp/ddj_fest.tmp";
	
	print FILE "(SayText \"$string\")";
	
	close FILE;
	
	#`esdctl panstream $chan 70 70`;
	#`esddsp festival --batch /tmp/ddj_fest.tmp`;
	`festival --batch /tmp/ddj_fest.tmp`;
	
	#while(1) {
	#  my $esdinfo=`esdctl allinfo | grep festival`;
	
	#  last if($esdinfo eq '');
Package: dist
Version: 1:3.5-17-1
Filename: pool/main/d/dist/dist_3.5-17-1_all.deb


Found error in /usr/bin/patcil:
	$ grep -A5 -B5 /tmp/ /usr/bin/patcil
		$mess;			# Returned value
	}
	
	sub edit {
		local($text) = join("\n", @_);
		open(TMP,">/tmp/cil$$") || die "Can't create /tmp/cil$$";
		print TMP $text;
		close TMP;
		system $EDITOR, "/tmp/cil$$";
		$text = `cat /tmp/cil$$`;
		unlink "/tmp/cil$$";
		$text;
	}
	
	sub usage {
		print STDERR <<EOM;

Found error in /usr/bin/patdiff:
	$ grep -A5 -B5 /tmp/ /usr/bin/patdiff
						print PATCH;
					}
					close DIFF;
					system 'rcs', "-Nlastpat:$new", @files;
				} else {
					&copyright'expand("co -p -rlastpat $file", "/tmp/pdo$$");
					&copyright'expand("co -p -r$new $file", "/tmp/pdn$$");
					open(DIFF, "$mydiff /tmp/pdo$$ /tmp/pdn$$ |") ||
					die "Can't run $mydiff";
					while (<DIFF>) {			# Contextual or unified diff
						if ($. == 1) {
							s|\*\*\* \S+	|*** $file.old	| ||
							s|--- \S+	|--- $file.old	|;
	--
						s|Lock[e]r:.*\$|\$|;	# Remove locker mark
						print PATCH;
					}
					close DIFF;
					system 'rcs', "-Nlastpat:$new", @files;
					unlink "/tmp/pdn$$", "/tmp/pdo$$";
				}
			} else {
				if ($mydiff eq '') {
					open(DIFF,"rcsdiff -c -rlastpat $files |") ||
					die "Can't run rcsdiff";
	--
						s|Lock[e]r:.*\$|\$|;	# Remove locker mark
						print PATCH;
					}
					close DIFF;
				} else {
					system "co -p -rlastpat $files >/tmp/pdo$$";
					system "cp $file /tmp/pdn$$";
					open(DIFF, "$mydiff /tmp/pdo$$ /tmp/pdn$$ |") ||
					die "$progname: can't fork $mydiff: $!\n";
					while (<DIFF>) {
						# Contextual or unified diff
						if ($. == 1) {
							s|\*\*\* \S+	|*** $file.old	|;
	--
						}
						s|Lock[e]r:.*\$|\$|;	# Remove locker mark
						print PATCH;
					}
					close DIFF;
					unlink "/tmp/pdn$$", "/tmp/pdo$$";
				}
			}
		}
	}
	
Package: docvert
Version: 3.4-4
Filename: pool/main/d/docvert/docvert_3.4-4_all.deb


Found error in /usr/share/docvert/core/lib/pyodconverter/test-pipe-to-pyodconverter.org.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/docvert/core/lib/pyodconverter/test-pipe-to-pyodconverter.org.sh
	#!/bin/bash
	cat /var/www/docvert/doc/sample/sample-document.doc | /var/www/docvert/core/lib/pyodconverter/pyodconverter2.py --stream > /tmp/outer.odt
	
Package: dpkg-cross
Version: 2.3.0
Filename: pool/main/d/dpkg-cross/dpkg-cross_2.3.0_all.deb


Found error in /usr/share/dpkg-cross/bin/gccross:
	$ grep -A5 -B5 /tmp/ /usr/share/dpkg-cross/bin/gccross
	$crossdir = $$config{'crossdir'};
	$crosslib = $$config{'crosslib'};
	$crosslib64 = $$config{'crosslib64'};
	
	# only the most recent failed call to gccross is retained.
	open (DEBUG, ">/tmp/gccross2.log");
	use Data::Dumper;
	print DEBUG Dumper($config);
	
	# Check for recursive call. Convert ARGV only if call is not recursive
	@skip_ = split(":", $ENV{'GCCROSS_SKIP_PATH'});
Package: dtc-common
Version: 0.29.6-1
Filename: pool/main/d/dtc/dtc-common_0.29.6-1_all.deb


Found error in /usr/share/dtc/admin/accesslog.php:
	$ grep -A5 -B5 /tmp/ /usr/share/dtc/admin/accesslog.php
		if [ ! -e $fullpath/awstats ]; then
			mkdir -p $fullpath/awstats
		fi
	        AWSTATS_DIR_DATA=$fullpath/awstats
	        export AWSTATS_LOG_FILE AWSTATS_FULL_DOMAIN AWSTATS_DIR_DATA
		echo \"\$AWSTATS_LOG_FILE \$AWSTATS_FULL_DOMAIN \$AWSTATS_DIR_DATA\" >> /tmp/awstats.log
	        if [ -f /usr/share/doc/awstats/examples/awstats_buildstaticpages.pl ]; then
	                nice -n+20 /usr/share/doc/awstats/examples/awstats_buildstaticpages.pl -config=dtc -update -awstatsprog=/usr/lib/cgi-bin/awstats.pl -dir=$fullpath/awstats
			nobodygroup=`cat /etc/group | cut -f 1 -d: | grep ^nobody`
			# if we can't find the nobody group, try nogroup
			if [ -z \"\"\$nobodygroup ]; then

Found error in /usr/share/dtc/admin/sa-wrapper:
	$ grep -A5 -B5 /tmp/ /usr/share/dtc/admin/sa-wrapper
	{
		my $ent = shift;
	
		if ($ent->head->mime_type eq 'message/rfc822') {
			if ($DEBUG) {
				unlink "/tmp/spam.log.$$" if -e "/tmp/spam.log.$$";
				open(OUT, "|$SA_LEARN -D --$spamham --single >>/tmp/spam.log.$$ 2>&1") or die "Cannot pipe $SA_LEARN: $!";
			} else {
				open(OUT, "|$SA_LEARN --$spamham --single") or die "Cannot pipe $SA_LEARN: $!";
			}
	
			$ent->bodyhandle->print(\*OUT);
	--
		die "$sender, I don't recognize your domain ($domain)!";
	}
	
	if ($DEBUG) {
		MIME::Tools->debugging(1);
		open(STDERR, ">/tmp/spam_err.log");
	}
	my $parser = new MIME::Parser;
	$parser->extract_nested_messages(0);
	$parser->output_under($UNPACK_DIR);
	
Package: emacs-jabber
Version: 0.7.91-1
Filename: pool/main/e/emacs-jabber/emacs-jabber_0.7.91-1_all.deb


Found error in /usr/lib/emacsen-common/packages/install/emacs-jabber:
	$ grep -A5 -B5 /tmp/ /usr/lib/emacsen-common/packages/install/emacs-jabber
	  fi
	  cp ${EL_DIR}/*.el ${ELC_DIR}/
	
	  # Byte compile them
	  cd ${ELC_DIR}
	  ${FLAVOR} -q --no-site-file --batch --eval "(setq load-path (cons \"${ELC_DIR}\" load-path))" -f batch-byte-compile *.el >>/tmp/${PACKAGE}.log 2>&1 || true
	  # remove the redundant .el files
	  # presumes that any .el files in the <flavor> dir are trash.
	  rm ${ELC_DIR}/*.el
	fi
	
Package: emacspeak
Version: 26.0-3
Filename: pool/main/e/emacspeak/emacspeak_26.0-3_all.deb


Found error in /usr/share/emacs/site-lisp/emacspeak/etc/extract-table.pl:
	$ grep -A5 -B5 /tmp/ /usr/share/emacs/site-lisp/emacspeak/etc/extract-table.pl
	$task ||= "extract-table";
	my $input;
	if (defined ($file)) {
	  $input = $file;
	} else {
	  $input="/tmp/$options{task}.html";
	  RetrieveURLToFile($url, $input);
	}
	
	my $te;
	if ( defined ($cols)) {
	--
	  $te = new HTML::TableExtract(headers=>\@headers);
	} else {
	 $te = new HTML::TableExtract( depth => $depth, count=>$count); 
	}
	$te->parse_file($input);
	my $output = new FileHandle (">  /tmp/$task.csv");
	my ($ts,$row);
	foreach $ts ($te->table_states) {
	          foreach $row ($ts->rows) {
	             $output->print ( join(',', @$row), "\n");
	          }
Package: feta
Version: 1.4.16
Filename: pool/main/f/feta/feta_1.4.16_all.deb


Found error in /usr/share/feta/plugins/to-upgrade:
	$ grep -A5 -B5 /tmp/ /usr/share/feta/plugins/to-upgrade
	apt-cache dumpavail |
	egrep '^(Package|Version):' |
	awk '
	   /^Package: / {pkg=$2}
	   /^Version: / {print pkg,$2}
	' | sort > /tmp/feta.avail.$USER
	
	cat /var/lib/dpkg/status |
	egrep '^(Package|Status|Version):' |
	awk '
	   /^Package: / {pkg=$2}
	   /^Status: / {s1=$2;s2=$3;s3=$4}
	   /^Version: / {print pkg,$2,s1,s2,s3}
	' | grep " install ok installed" |
	    awk '{print $1,$2}' | sort > /tmp/feta.install.$USER
	
	
	if [ $QUIET -eq 0 ]; then
	 echo "Package                 Available               Installed"
	 echo "================================================================================"
	fi
	
	join -a 1 -a 2 /tmp/feta.avail.$USER /tmp/feta.install.$USER |
	awk 'NF==3 && $2 != $3 \
	{ if (system("dpkg --compare-versions "$2" gt "$3)==0)
	   printf("%-20s\t%-20s\t%-20s\n", $1, $2, $3)
	}'
	
	rm -f /tmp/feta.install.$USER /tmp/feta.avail.$USER
Package: firehol
Version: 1.256-4
Filename: pool/main/f/firehol/firehol_1.256-4_all.deb


Found error in /sbin/firehol:
	$ grep -A5 -B5 /tmp/ /sbin/firehol
	
	# ----------------------------------------------------------------------
	# Directories and files
	
	# These files will be created and deleted during our run.
	FIREHOL_DIR="/tmp/.firehol-tmp-$$-${RANDOM}-${RANDOM}"
	FIREHOL_CHAINS_DIR="${FIREHOL_DIR}/chains"
	FIREHOL_OUTPUT="${FIREHOL_DIR}/firehol-out.sh"
	FIREHOL_SAVED="${FIREHOL_DIR}/firehol-save.sh"
	FIREHOL_TMP="${FIREHOL_DIR}/firehol-tmp.sh"
	
	--
	YOU DO NOT KNOW WHAT TO DO? FireHOL can help you! Just run it with the
	argument 'helpme' and it will generate its configuration file for this
	machine. Your running firewall will not be altered or stopped, and no
	systems settings will be modified. Just run:
	
	${FIREHOL_FILE} helpme >/tmp/firehol.conf
	
	and you will get the configuration written to /tmp/firehol.conf
	
	EOF
			exit 1
			
			fi
	--
	
	You can re-run the same command with output redirection to get the config
	to a file. Example:
	
	EOF
		echo >&2 "${FIREHOL_FILE} helpme >/tmp/firehol.conf"
		echo >&2 
		echo >&2 
			
		echo >&2 
		echo >&2 "Building list of known services."
Package: fml
Version: 4.0.3.dfsg-2
Filename: pool/main/f/fml/fml_4.0.3.dfsg-2_all.deb


Found error in /usr/share/fml/libexec/mead.pl:
	$ grep -A5 -B5 /tmp/ /usr/share/fml/libexec/mead.pl
	{
	    my ($s) = @_;
	
	    return if $debug < 100;
	
	    open(DEBUG, ">> /tmp/debugbuf");
	    print DEBUG $s, "\n";
	    close(DEBUG);
	    return unless $debug;
	    print STDERR @_, "\n";
	}
Package: freeradius-dialupadmin
Version: 2.0.4+dfsg-4
Filename: pool/main/f/freeradius/freeradius-dialupadmin_2.0.4+dfsg-4_all.deb


Found error in /usr/share/freeradius-dialupadmin/bin/backup_radacct:
	$ grep -A5 -B5 /tmp/ /usr/share/freeradius-dialupadmin/bin/backup_radacct
		die "Could not set correct back date.\n";
	}
	
	$query = "SELECT * FROM $sql_accounting_table WHERE AcctStopTime < '$date' AND AcctStopTime > '$date2';";
	print "$query\n";
	open TMP, ">/tmp/backup_radacct.query"
		or die "Could not open tmp file\n";
	print TMP "ALTER SESSION SET NLS_TIMESTAMP_TZ_FORMAT='YYYY-MM-DD HH24:MI:SS.FF TZH:TZM';\n" if ($sql_type eq 'oracle');
	print TMP $query;
	close TMP;
	$comm = "$sqlcmd -B -h $sql_server -u $sql_username $sql_password $sql_database </tmp/backup_radacct.query >$backup_directory/$date3" if ($sql_type eq 'mysql');
	$comm = "$sqlcmd  -U $sql_username -f /tmp/backup_radacct.query $sql_database >$backup_directory/$date3" if ($sql_type eq 'pg');
	$command = "$sqlcmd  $sql_username/$pass" . "@" . "$sql_database <$tmpfile.$server" if ($sql_type eq 'oracle');
	$command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' </tmp/backup_radacct.query >$backup_directory/$date3" if ($sql_type eq 'sqlrelay');
	`$comm`;
	`/usr/bingzip -9 $backup_directory/$date3`;

Found error in /usr/share/freeradius-dialupadmin/bin/clean_radacct:
	$ grep -A5 -B5 /tmp/ /usr/share/freeradius-dialupadmin/bin/clean_radacct
		die "Could not set correct back date.\n";
	}
	
	$query = "DELETE FROM $sql_accounting_table WHERE AcctStopTime IS NULL AND AcctStartTime < '$date';";
	print "$query\n";
	open TMP, ">/tmp/clean_radacct.query"
	        or die "Could not open tmp file\n";
	print TMP $query;
	close TMP;
	$command = "$sqlcmd -h$sql_server -u$sql_username $sql_password $sql_database </tmp/clean_radacct.query" if ($sql_type eq 'mysql');
	$command = "$sqlcmd  -U $sql_username -f /tmp/clean_radacct.query $sql_database" if ($sql_type eq 'pg');
	$command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' </tmp/clean_radacct.query" if ($sql_type eq 'sqlrelay');
	`$command`;

Found error in /usr/share/freeradius-dialupadmin/bin/monthly_tot_stats:
	$ grep -A5 -B5 /tmp/ /usr/share/freeradius-dialupadmin/bin/monthly_tot_stats
		SUM(OutputOctets),NASIPAddress FROM totacct
		WHERE AcctDate >= '$date_start' AND
		AcctDate <= '$date_end' GROUP BY UserName,NASIPAddress;";
	print "$query1\n";
	print "$query2\n";
	open TMP, ">/tmp/tot_stats.query"
		or die "Could not open tmp file\n";
	print TMP "ALTER SESSION SET NLS_TIMESTAMP_TZ_FORMAT='YYYY-MM-DD HH24:MI:SS.FF TZH:TZM';\n" if ($sql_type eq 'oracle');
	print TMP $query1;
	print TMP $query2;
	close TMP;
	$command = "$sqlcmd -h $sql_server -u $sql_username $sql_password $sql_database </tmp/tot_stats.query" if ($sql_type eq 'mysql');
	$command = "$sqlcmd  -U $sql_username -f /tmp/tot_stats.query $sql_database" if ($sql_type eq 'pg');
	$command = "$sqlcmd  $sql_username/$pass" . "@" . "$sql_database <$tmpfile.$server" if ($sql_type eq 'oracle');
	$command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' </tmp/tot_stats.query" if ($sql_type eq 'sqlrelay');
	`$command`;

Found error in /usr/share/freeradius-dialupadmin/bin/tot_stats:
	$ grep -A5 -B5 /tmp/ /usr/share/freeradius-dialupadmin/bin/tot_stats
		SUM(AcctOutputOctets),NASIPAddress FROM radacct
		WHERE AcctStopTime >= '$date_start' AND
		AcctStopTime < '$date_end' GROUP BY UserName,NASIPAddress;";
	print "$query1\n";
	print "$query2\n";
	open TMP, ">/tmp/tot_stats.query"
		or die "Could not open tmp file\n";
	print TMP "ALTER SESSION SET NLS_TIMESTAMP_TZ_FORMAT='YYYY-MM-DD HH24:MI:SS.FF TZH:TZM';\n" if ($sql_type eq 'oracle');
	print TMP $query1;
	print TMP $query2;
	close TMP;
	$command = "$sqlcmd -h $sql_server -u $sql_username $sql_password $sql_database </tmp/tot_stats.query" if ($sql_type eq 'mysql');
	$command = "$sqlcmd  -U $sql_username -f /tmp/tot_stats.query $sql_database" if ($sql_type eq 'pg');
	$command = "$sqlcmd  $sql_username/$pass" . "@" . "$sql_database <$tmpfile.$server" if ($sql_type eq 'oracle');
	$command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' </tmp/tot_stats.query" if ($sql_type eq 'sqlrelay');
	`$command`;

Found error in /usr/share/freeradius-dialupadmin/bin/truncate_radacct:
	$ grep -A5 -B5 /tmp/ /usr/share/freeradius-dialupadmin/bin/truncate_radacct
	$query = "";
	$query = "LOCK TABLES $sql_accounting_table WRITE;" if ($sql_type eq 'mysql');
	$query .= "DELETE FROM $sql_accounting_table WHERE AcctStopTime < '$date' AND AcctStopTime IS NOT NULL ;";
	$query .= "UNLOCK TABLES;" if ($sql_type eq 'mysql');
	print "$query\n";
	open TMP, ">/tmp/truncate_radacct.query"
	        or die "Could not open tmp file\n";
	print TMP "ALTER SESSION SET NLS_TIMESTAMP_TZ_FORMAT='YYYY-MM-DD HH24:MI:SS.FF TZH:TZM';\n" if ($sql_type eq 'oracle');
	print TMP $query;
	close TMP;
	$command = "$sqlcmd -h$sql_server -u$sql_username $sql_password $sql_database </tmp/truncate_radacct.query" if ($sql_type eq 'mysql');
	$command = "$sqlcmd  -U $sql_username -f /tmp/truncate_radacct.query $sql_database" if ($sql_type eq 'pg');
	$command = "$sqlcmd  $sql_username/$pass" . "@" . "$sql_database <$tmpfile.$server" if ($sql_type eq 'oracle');
	$command = "$sqlcmd '$sql_server' '$sql_port' '' '$sql_username' '$sql_password' </tmp/truncate_radacct.query" if ($sql_type eq 'sqlrelay');
	`$command`;
Package: freevo
Version: 1.8.1-0
Filename: pool/main/f/freevo/freevo_1.8.1-0_all.deb


Found error in /usr/bin/freevo.real:
	$ grep -A5 -B5 /tmp/ /usr/bin/freevo.real
	    """
	    get pid of running 'name'
	    """
	    _debug_('getpid(name=%r, arg=%r)' % (name, arg))
	    for fname in ('/var/run/' + name  + '-%s.pid' % os.getuid(),
	                  '/tmp/' + name + '-%s.pid' % os.getuid()):
	        if os.path.isfile(fname):
	            f = open(fname)
	            try:
	                pid = int(f.readline()[:-1])
	            except ValueError:
	--
	    """
	    start a process
	    """
	    global cmdfile
	    _debug_('start(name=%r, arg=%r, bg=%r, store=%r)' % (name, arg, bg, store))
	    _gdb_script_('cat > /tmp/freevo-gdb << _END_')
	    _gdb_script_('b main')
	    _gdb_script_('r %s' % ' '.join(arg[1:]))
	    _gdb_script_('_END_')
	    _gdb_script_('gdb -x /tmp/freevo-gdb %s' % (arg[0]))
	    if cmdfile: cmdfile.close()
	
	    pid = os.fork()
	    if pid:
	        if store:
	            try:
	                f = open('/var/run/' + name + '-%s.pid' % os.getuid(), 'w')
	            except (OSError, IOError):
	                f = open('/tmp/' + name + '-%s.pid' % os.getuid(), 'w')
	
	            f.write(str(pid)+'\n')
	            f.close()
	
	        if not bg:
	--
	    if '--debug' in sys.argv:
	        sys.argv.remove('--debug')
	    else:
	        sys.argv.remove('-d')
	if debug >= 2:
	    cmdfile = open('/tmp/freevo-gdb.sh', 'w')
	    print >>cmdfile,'#!/bin/bash'
	
	freevo_script = os.path.abspath(sys.argv[0])
	if os.path.islink(freevo_script):
	    freevo_script = os.readlink(freevo_script)
	--
	
	elif arg == '-fs':
	    # start X server and run freevo, ignore everything else for now
	    server_num = 0
	    while 1:
	        if not os.path.exists('/tmp/.X11-unix/X' + str(server_num)):
	            break
	        server_num += 1
	    sys.stdin.close()
	    os.execvp('xinit', [ 'xinit', freevo_script, '--force-fs',  '--', ':'+str(server_num) ] + sys.argv[2:])
	
	--
	        print 'freevo still running, run \'freevo stop\' to stop'
	    sys.exit(0)
	
	if profile:
	    if sys.hexversion > 0x02050000:
	        python += ['-m', 'cProfile', '-o', '/tmp/%s.stats' % name]
	    else:
	        python += ['-m', 'profile', '-o', '/tmp/%s.stats' % name]
	    
	start(name, python+proc, bg, check)
Package: fwbuilder
Version: 2.1.19-3
Filename: pool/main/f/fwbuilder/fwbuilder_2.1.19-3_i386.deb


Found error in /usr/bin/fwb_install:
	$ grep -A5 -B5 /tmp/ /usr/bin/fwb_install
	#
	#########################################################
	
	start_agent() {
	    test -z "$SSH_AUTH_SOCK" && {
	        ssh-agent -s > /tmp/ssh-agent.$$
	        . /tmp/ssh-agent.$$
	        rm -f /tmp/ssh-agent.$$
		echo "SSH Agent started: $SSH_AGENT_PID"
		echo
		SSH_AGENT_PID_VAR_NAME="SSH_AGENT_PID_"$$
		eval "$SSH_AGENT_PID_VAR_NAME=$SSH_AGENT_PID"
	    }
Package: gccxml
Version: 0.9.0+cvs20080525-1
Filename: pool/main/g/gccxml/gccxml_0.9.0+cvs20080525-1_i386.deb


Found error in /usr/share/gccxml-0.9/MIPSpro/find_flags:
	$ grep -A5 -B5 /tmp/ /usr/share/gccxml-0.9/MIPSpro/find_flags
	D__RTTI __RTTI
	#endif
	#ifdef __STDC__
	D__STDC__ __STDC__
	#endif
	" > /tmp/$TESTFILE.cxx
	
	# Find the macro definition options.
	MACROS=`
	${CXX} ${CXXFLAGS} -E -v /tmp/$TESTFILE.cxx 2>&1 |
	sed -n '/_COMPILER_VERSION/{s/ \/tmp\/'$TESTFILE'.cxx.*$//
	s/ -/\\
	-/g;p;}' |
	sed -n '/^-D.*$/{s/-D\([^=]*\)=\([^ ]\{1,\} .*\)/-D\1='\''\2'\''/;p;}' |
	sed -n 'H;${g;s/\n/ /g;p;}'`
	
	# Find the internally defined macros.
	LANGSTD=`
	${CXX} ${CXXFLAGS} -E -v /tmp/$TESTFILE.cxx 2>&1 |
	sed -n '/^D/ {s/^D/-D/;s/ /=/;p;}' |
	sed -n 'H;${g;s/\n/ /g;p;}'`
	
	# Find the include path options.
	INCLUDES=`
	${CXX} ${CXXFLAGS} -E -v /tmp/$TESTFILE.cxx 2>&1 |
	sed -n '/_COMPILER_VERSION/{s/ \/tmp\/'$TESTFILE'.cxx.*$//
	s/ -/\\
	-/g;p;}' |
	sed -n '/^-I.*$/{p;}' |
	sed -n 'H;${g;s/\n/ /g;p;}'`
	--
	SELFPATH=`echo $0 | sed -n '/\//{s/\/find_flags//;p;}'`
	if test "x$SELFPATH" = "x" ; then SELFPATH="." ; fi
	SELFPATH=`cd "$SELFPATH" ; pwd`
	INCLUDES="-iwrapper\"$SELFPATH/7.3\" $INCLUDES"
	
	rm -f /tmp/$TESTFILE.cxx
	
	# Format and print out the options.
	OPTIONS="$MACROS $LANGSTD $INCLUDES"
	echo $OPTIONS
Package: gdrae
Version: 0.1-1
Filename: pool/main/g/gdrae/gdrae_0.1-1_all.deb


Found error in /usr/bin/gdrae:
	$ grep -A5 -B5 /tmp/ /usr/bin/gdrae
	sub on_ventana_principal_delete_event {Gtk2->main_quit;}
	sub on_guardar2_activate {$guardar->show_all;}
	sub buscar {
		my (@texto, $palabra);
		$palabra = $etiqueta_a_buscar->get_text();
		unless(-e '/tmp/gdrae'){
			mkdir('/tmp/gdrae', 0777) or die;
		}
		system("lynx -dump --nolist \"http://buscon.rae.es/draeI/SrvltGUIBusUsual?LEMA=$palabra\" > /tmp/gdrae/palabra");
		open(RESULTADO, '/tmp/gdrae/palabra') or die("No pude crear/abrir el archivo, el terminal devolvi� $!");
		while(<RESULTADO>){
			push(@texto, $_);
		}
		close(RESULTADO);
		chmod(0777, '/tmp/gdrae/palabra');
		$resultado->set_markup("@texto");
	}
Package: geda-gnetlist
Version: 1:1.4.0-2
Filename: pool/main/g/geda-gnetlist/geda-gnetlist_1.4.0-2_i386.deb


Found error in /usr/share/doc/geda-gnetlist/examples/scripts/sch2eaglepos.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/geda-gnetlist/examples/scripts/sch2eaglepos.sh
	#XSCALE=10000
	#YSCALE=10000
	XSCALE=9000
	YSCALE=9000
	
	TMP=/tmp/$$
	grep -B1 refdes= "$FNAME" |sed 's/=/ /' | cut -d" " -f2,3 |grep -v '^--' >/tmp/$$
	
	3<$TMP
	while read -u 3; do
	    # the directory on the client to backup
	    X=`echo $REPLY | cut -d' ' -f1`
Package: gpsdrive-scripts
Version: 2.10~pre4-3
Filename: pool/main/g/gpsdrive/gpsdrive-scripts_2.10~pre4-3_all.deb


Found error in /usr/bin/geo-code:
	$ grep -A5 -B5 /tmp/ /usr/bin/geo-code
	}
	
	#
	#	Main Program
	#
	TMP=/tmp/geo$$
	STYLE=${TMP}.style
	COORDS=${TMP}.coords
	OUTWAY=${TMP}.way
	MAP=${TMP}.gif
	UA="Mozilla/5.0"
	--
			| tee $COORDS \
			| sed -n 's#.*href=http://maps.yahoo.com/\([^>]*\)>.*#\1#p' \
			| head -n1 \
			`
		if [ "$URL" = "" ]; then
			cp $COORDS /tmp/geo.google
			error "Unable to lookup telephone number or name with Google"
		else
			URL="http://maps.yahoo.com/$URL"
		fi
	else
	--
	if [ $DEBUG -gt 0 ]; then
		echo "curl $URL"
	fi
	
	if [ $DEBUG -gt 0 ]; then
	    filter="tee /tmp/geo.yahoo"
	else
	    filter=cat
	fi
	curl -L -s -A "$UA" "$URL" \
	| $filter \
	--
		-e 's/<title>Yahoo! Maps - \([^<]*\)<.*/\1/p' \
		-e 's/.*slt=\([^%]*\).*sln=\([^%]*\).*Create.*/\1 \2/p' \
	> $COORDS
	
	if [ $DEBUG -gt 0 ]; then
		cp $COORDS /tmp/geo.coords
	fi
	
	#
	#	Convert the coords, address, and type to the desired
	#	output format.
Package: honeyd-common
Version: 1.5c-3
Filename: pool/main/h/honeyd/honeyd-common_1.5c-3_all.deb


Found error in /usr/share/honeyd/scripts/test.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/honeyd/scripts/test.sh
	#!/bin/sh
	DATE=`date`
	echo "$DATE: Started From $1 Port $2" >> /tmp/log
	echo SSH-1.5-2.40
	while read name
	do
		echo "$name" >> /tmp/log
	        echo "$name"
	done
Package: ibackup
Version: 2.27-4.1
Filename: pool/main/i/ibackup/ibackup_2.27-4.1_all.deb


Found error in /usr/bin/ibackup:
	$ grep -A5 -B5 /tmp/ /usr/bin/ibackup
	
	#all umask are belong to me
	umask 077
	
	#clear excludes file
	rm -rf /tmp/excludes
	touch /tmp/excludes
	
	case $@ in *-e*|*--encrypt*)
	    encrypt=1;;
	esac
	
	--
	case $@ in *--dont-upload*)
	    upload=0;;
	esac
	
	case $@ in *linux*)
	    rm -rf /tmp/sysinfo
	    mkdir -p /tmp/sysinfo
	    which rpm >/dev/null && rpm -qa >/tmp/sysinfo/rpm_installed
	    which dpkg >/dev/null && dpkg -l >/tmp/sysinfo/deb_installed
	    which dpkg >/dev/null && dpkg --get-selections >/tmp/sysinfo/deb_installed_gs
	    which pkgtool >/dev/null && ls -la /var/log/packages >/tmp/sysinfo/tgz_installed
	    dmesg >/tmp/sysinfo/dmesg
	    fdisk -l >/tmp/sysinfo/fdisk-l
	    ifconfig >/tmp/sysinfo/ifconfig
	    netstat -nr >/tmp/sysinfo/netstat-nr
	    netstat -plunt >/tmp/sysinfo/netstat-plunt
	    netstat -s >/tmp/sysinfo/netstat-s
	    dir="$dir var/spool/cron etc tmp/sysinfo/* usr/src/linux/.config boot/grub/menu.lst boot/grub/grub.conf boot/config*"
	    ;;
	esac
	
	case $@ in *solaris*)
	    cd /tmp
	    rm -rf /tmp/sysinfo
	    mkdir -p /tmp/sysinfo
	    dmesg >sysinfo/dmesg
	    hostid >sysinfo/hostid
	    modinfo >sysinfo/modinfo
	    ifconfig -a >sysinfo/ifconfig-a
	    netstat -nr >sysinfo/netstat-nr
	--
	    ;;
	esac
	
	case $@ in *freebsd*|*netbsd*|*openbsd*|*bsd*)
	    cd /tmp
	    rm -rf /tmp/sysinfo
	    mkdir -p /tmp/sysinfo
	    dmesg >sysinfo/dmesg
	    ifconfig -a >sysinfo/ifconfig-a
	    netstat -nr >sysinfo/netstat-nr
	    netstat -na >sysinfo/netstat-na
	    netstat -s >sysinfo/netstat-s
	--
	case $@ in *rainfinity*)
	    dir="$dir /opt/rainfinity/rain/conf/*"
	esac
	
	case $@ in *sysconf*)
	    mkdir -p /tmp/sysconf
	    sysconf > /tmp/sysconf/sysconf.html
	
	    dir="$dir tmp/sysconf"
	esac
	
	case $@ in *squid*)
	--
	case $@ in *citrix*)
	    dir="$dir usr/lib/ICAClient/config"
	esac
	
	#case $@ in *proc*)
	#    rm -rf /tmp/proc
	#    mkdir -p /tmp/proc
	#    #grep -vE "^/proc/[0-9]+/"
	#    find /proc -name "*" -type f |grep -v "[0-9]" |grep -v "kmsg" |grep -v "kcore" |grep -v "self" |tail +2 |while read a; do cat $a >/tmp/proc/`echo ${a:1}|sed "s,/,_,g"`; done
	#    dir="$dir tmp/proc"
	#    ;;
	#esac
	
	case $@ in *userconf*)
	--
	    post="/etc/init.d/mysql start"
	    dir="$dir var/lib/mysql etc/mysql";;
	esac
	
	case $@ in *mysql-dump*)
	    mysqldump --set-variable=max_allowed_packet=32M --all-databases > /tmp/db.mysql
	    dir="$dir etc/mysql tmp/db.mysql";;
	esac
	
	case $@ in *postgresql-fs*)
	    pre="/etc/init.d/postgresql stop"
	    post="/etc/init.d/postgresql start"
	    dir="$dir var/lib/postgres etc/postgresql";;
	esac
	
	case $@ in *postgresql-dump*)
	    su - postgres -c "psql -l" >/tmp/db.tables
	    su - postgres -c "/usr/lib/postgresql/bin/pg_dumpall >/tmp/db.pg"
	    #|gzip >/tmp/db.pg.gz"
	    dir="$dir tmp/db.pg tmp/db.tables etc/postgresql"
	    post='echo Removing temporary database dumps... && rm /tmp/db.pg* /tmp/db.tables';;
	esac
	
	case $@ in *self*)
	    dir="$dir usr/bin/ibackup etc/ibackup.conf";;
	esac
	--
	case $@ in *checkpoint*)
	    dir="$dir `echo $FWDIR |sed "s,/,var/,"`";;
	esac
	
	case $@ in *viruswall*)
	    find /etc/iscan/ -type f -name "lpt*" -print |sed "s,/,," >>/tmp/excludes
	    find /etc/iscan/ -type f -name "log*" -print |sed "s,/,," >>/tmp/excludes
	    dir="$dir etc/iscan opt/trend/ISADMIN/IScan.adm/conf opt/trend/ISBASE/IScan.BASE/intscan.ini*";;
	esac
	
	case $@ in *raptor*)
	    /usr/raptor/bin/changelog
	    #do NOT go subdirs for raptor!
	    ifconfig -a >/usr/adm/sg/ifconfig-a.txt
	    netstat -nr >/usr/adm/sg/netstat-nr.txt
	    dir="$dir `for a in usr/adm/sg/*; do if [ ! -d $a ]; then echo $a; fi; done`"
	    find /usr/adm/sg/ -type d |sed "s,/,," |tail +2 >>/tmp/excludes
	    echo "usr/adm/sg/logfile" >>/tmp/excludes
	    ;;
	esac
	
	case $@ in *example*)
	    #do NOT go into subdirs for example!
	    dir="$dir `for a in some/dir/*; do if [ ! -d $a ]; then echo $a; fi; done`"
	    #exclude subdirectories
	    find /some/dir/ -type d |sed "s,/,," |tail +2 >>/tmp/excludes
	    ;;
	esac
	
	case $@ in *macosx*)
	    dir="$dir etc Library/Preferences"
	--
	cd /
	echo "Please wait while archiving $@ (${dest})..."
	#execute pre backup commands if any
	if [ ! "x${pre}" = "x" ]; then $pre; fi
	#create file one-file-system same-permissions
	tar cflpX $backupdir /tmp/excludes $dir
	#execute post backup commands if any
	if [ ! "x${post}" = "x" ]; then $post; fi
	#restore with cd / && tar xfp backup.tar
	chmod 600 $backupdir
	
	#clean up
	rm -rf /tmp/sysinfo /tmp/excludes /tmp/proc /tmp/sysconf
	
	if [ -f "${backupdir}" ]; then
	    file=${backupdir}
	else
	    echo "tar failed..."
Package: impose+
Version: 0.2-11
Filename: pool/main/i/impose+/impose+_0.2-11_all.deb


Found error in /usr/bin/impose:
	$ grep -A5 -B5 /tmp/ /usr/bin/impose
	$ybot=30 unless $ybot;
	$pages=6 unless defined $pages;
	$rotdir="L" unless $rotdir;
	
	$filename = shift or do {
	    $filename = "/tmp/$ENV{USER}-tmp.ps";
	    open(TMP, ">$filename");
	    while(<>) { print TMP; }
	    close(TMP);
	    $do_stdout++;
	    $do_erase_tmp++;
	--
	    $_=<BB>; @oddbbox=split;
	    $_=<BB>; @evenbbox=split;
	    @oddbbox = @evenbbox unless @evenbbox;
	    close(BB);
	}
	elsif ($lastbbox && -e "/tmp/bboxx-$ENV{USER}") {
	    open(BB,"/tmp/bboxx-$ENV{USER}");
	    $_=<BB>; @oddbbox=split;
	    $_=<BB>; @evenbbox=split;
	    close(BB);
	    # print "oddbbox = @oddbbox\n";
	    # print "evenbbox = @evenbbox\n";
	--
	}
	
	@evenbbox = @oddbbox if $noevenodd;
	
	# record the bboxx information
	open(BB, ">/tmp/bboxx-$ENV{USER}");
	print BB "@oddbbox\n@evenbbox\n";
	close(BB);
	
	# Do page calculations
	$oddwidth = $oddbbox[2]-$oddbbox[0];
Package: initramfs-tools
Version: 0.92e
Filename: pool/main/i/initramfs-tools/initramfs-tools_0.92e_all.deb


Found error in /usr/share/initramfs-tools/init:
	$ grep -A5 -B5 /tmp/ /usr/share/initramfs-tools/init
			readonly=n
			;;
		debug)
			debug=y
			quiet=n
			exec >/tmp/initramfs.debug 2>&1
			set -x
			;;
		debug=*)
			debug=y
			quiet=n
Package: konwert-filters
Version: 1.8-11.1
Filename: pool/main/k/konwert/konwert-filters_1.8-11.1_all.deb


Found error in /usr/share/konwert/filters/any-UTF8:
	$ grep -A5 -B5 /tmp/ /usr/share/konwert/filters/any-UTF8
	unless ($test)
	{
		# Musimy przelecie� tekst dwa razy - raz, �eby zliczy� znaki, i drugi
		# raz, �eby go skonwertowa�. Podczas pierwszego przebiegu zapami�tujemy
		# wi�c test w tymczasowym pliku:
		open TEMP, "+>/tmp/any-$$";
		unlink "/tmp/any-$$";
	}
	# Zliczamy wyst�pienia poszczeg�lnych bajt�w (w @ile) i znak�w d�u�szych ni�
	# jeden bajt (w %ile):
	while (<>)
	{
Package: lazarus-src
Version: 0.9.24-0-9
Filename: pool/main/l/lazarus/lazarus-src_0.9.24-0-9_all.deb


Found error in /usr/lib/lazarus/tools/install/create_lazarus_export_tgz.sh:
	$ grep -A5 -B5 /tmp/ /usr/lib/lazarus/tools/install/create_lazarus_export_tgz.sh
	fi
	
	if [ "x$Download" = "xyes" ]; then
	  echo "downloading lazarus svn ..."
	  cd /tmp
	  rm -rf /tmp/lazarus
	  svn export http://svn.freepascal.org/svn/lazarus/trunk lazarus
	  cd -
	else
	  echo "extracting lazarus from local svn ..."
	  SourceDir=$(pwd | sed -e 's#lazarus[_0-9]*/tools.*$#lazarus#')
	  rm -rf /tmp/lazarus
	  svn export $SourceDir /tmp/lazarus
	fi
	
	# add ide/revision.inc
	Revision=$(svnversion /tmp/lazarus)
	echo "const RevisionStr = '$Revision';" > /tmp/lazarus/ide/revision.inc
	
	cd /tmp
	echo "packing ..."
	tar cvzf lazarus.tgz lazarus
	cd -
	mv /tmp/lazarus.tgz $OutputFile
	rm -rf /tmp/lazarus
	
	# end.
	
Package: libncbi6
Version: 6.1.20080302-3
Filename: pool/main/n/ncbi-tools6/libncbi6_6.1.20080302-3_i386.deb


Found error in /usr/share/doc/libncbi6/examples/fwd_check.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/libncbi6/examples/fwd_check.sh
	         "$x_status" = "RESERVED" ]; then
	        echo "${x_host}:${x_port}	$x_status"
	        continue
	    fi
	    test "$x_status" = "READYING"  &&  unset x_status
	    ( echo ; sleep $delay_sec ) | telnet $x_host $x_port >/tmp/$$ 2>&1 &
	    pid=$!
	    trap 'rm -f /tmp/$$; kill $pid >/dev/null 2>&1' 1 2 15
	    ( sleep `expr $delay_sec + 2`  &&  kill $pid ) >/dev/null 2>&1 &
	    guard=$!
	    wait $pid >/dev/null 2>&1
	    kill $guard >/dev/null 2>&1
	    test -n "$HTTP_CAF_EXTERNAL"  || \
	        cp="`tail +4 /tmp/$$ 2>/dev/null | grep -s '^[0-9]\{1,3\}[.][0-9]\{1,3\}[.][0-9]\{1,3\}[.][0-9]\{1,3\}:[0-9]\{1,5\}'`"
	    grep -qs 'NCBI Firewall Daemon:  Invalid ticket\.  *Connection closed\.' /tmp/$$ >/dev/null 2>&1
	    if   [ $? -eq 0 ]; then
	        echo "${x_host}:${x_port}	${x_status:-OKAY}${cp:+	}${cp}"
	    elif [ -z "$x_status" ]; then
	        echo "${x_host}:${x_port}	READYING"
	    else
	        echo "${x_host}:${x_port}	FAILED	( telnet $x_host $x_port )"
	    fi
	    rm -f /tmp/$$
	done 2>&1 | grep -v 'Terminated'
Package: liguidsoap
Version: 0.3.6-4
Filename: pool/main/l/liquidsoap/liguidsoap_0.3.6-4_all.deb


Found error in /var/lib/liguidsoap/liguidsoap.py:
	$ grep -A5 -B5 /tmp/ /var/lib/liguidsoap/liguidsoap.py
	  if backup=='':
	    addbackup=""
	  else:
	    addbackup=';"backup"'
	
	  os.system("""cat > /tmp/liguidsoap.liq <<__EOL__
	set("log.file.path","/tmp/lig.<pid>.log")
	set("log.stdout",true)
	set("server.telnet",true)
	
	bg = request.equeue (id="bed")
	music = request.equeue (id="music")
	--
	  host="%s",port=%d,mount="%s",start=false,mixer)
	output.file.vorbis(id="backup",start=false,"%s",mixer)
	""" % (host, port, mount, backup))
	  pid = os.fork()
	  if pid==0:
	    os.execlp("liquidsoap","liquidsoap","/tmp/liguidsoap.liq")
	  else:
	    print "Running liquidsoap..."
	    return pid
	
	# liguidsoap is the toplevel call, starts everything
	--
	    lbl.show() ; icemount.show()
	
	    lbl = gtk.Label("Local backup OGG file")
	    erunconf.attach(lbl,0,2,4,5)
	    backup = gtk.Entry()
	    backup.set_text('/tmp/emission.ogg')
	    erunconf.attach(backup,0,2,5,6)
	    backup.show() ; lbl.show()
	
	    erun = gtk.CheckButton("Run liquidsoap automatically.")
	    erun.show()
Package: linux-patch-openswan
Version: 1:2.4.12+dfsg-1.1
Filename: pool/main/o/openswan/linux-patch-openswan_2.4.12+dfsg-1.1_all.deb


Found error in /usr/src/kernel-patches/all/openswan/packaging/utils/maysnap:
	$ grep -A5 -B5 /tmp/ /usr/src/kernel-patches/all/openswan/packaging/utils/maysnap
		echo "snapshot already in progress" | mail -s "snapshot averted" $who
		exit 0
	fi
	
	echo $$ >doingsnap
	sort -u dosnap >/tmp/snap$$
	echo === >>/tmp/snap$$
	if ~build/bin/mksnap -S >>/tmp/snap$$ 2>&1
	then
	  #if ~build/bin/mksnap -r 1.97 -p pre1.98 >>/tmp/snap$$ 2>&1
	  #then
		rm -f dosnap
	  #fi
	fi
	
	mail -s "snapshot report $reqd" $who </tmp/snap$$
	rm -f /tmp/snap$$ doingsnap
	
	find /btmp/build/snapshots -type f -ctime +5 -print | xargs -r rm
	

Found error in /usr/src/kernel-patches/all/openswan/packaging/utils/maytest:
	$ grep -A5 -B5 /tmp/ /usr/src/kernel-patches/all/openswan/packaging/utils/maytest
	trap "rm -f ~build/WANTSNAP/doingtest ~build/WANTSNAP/dotest; exit 0" 0 1 2 15 
	
	set -x
	
	echo $$ >doingtest
	sort -u doingtest >/tmp/nightly$$
	echo === >>/tmp/test$$
	if ~build/bin/nightly.sh >>/tmp/snap$$ 2>&1
	then
	   rm -f doingtest
	   rm -f dotest
	fi
	
	mail -s "nightly test report $reqd" $who </tmp/nightly$$
	rm -f /tmp/nightly$$ dotest
	
	# kill any wayward linux processes
	killuml linux
	
	
Package: linuxtrade
Version: 3.65-8+b4
Filename: pool/main/l/linuxtrade/linuxtrade_3.65-8+b4_i386.deb


Found error in /usr/share/linuxtrade/bin/linuxtrade.bwkvol:
	$ grep -A5 -B5 /tmp/ /usr/share/linuxtrade/bin/linuxtrade.bwkvol
	URL="$URL&L198=0"
	URL="$URL&L262=0"
	URL="$URL&Number=25"    # Number of stocks to return
	URL="$URL&mode=advanced"
	
	curl -s "$URL" | tee /tmp/bwk |
	sed -n '/style"><td class="srchtdt"/s/.*Symbol=\([^&]*\)&.*/\1/p'
	
	echo "label=BWK Unusual Vol."

Found error in /usr/share/linuxtrade/bin/linuxtrade.wn:
	$ grep -A5 -B5 /tmp/ /usr/share/linuxtrade/bin/linuxtrade.wn
	URL="http://www.getwhispers.com/gw/template.cgi?file=whispers&ticker=$SYM"
	
	# lynx -width=9999999 -dump $URL
	
	getdata() {
		curl -s "$URL" | tee /tmp/zzz | sed \
			-e '1,/BIG.*template/d' \
			-e '/TABLE/,/^$/d' \
			-e 's/<[^>]*>//g' \
			-e 's/&nbsp;//g'
	}

Found error in /usr/share/linuxtrade/bin/moneyam.helper:
	$ grep -A5 -B5 /tmp/ /usr/share/linuxtrade/bin/moneyam.helper
	#!/bin/sh
	#
	#	Authenticate and grab quotes, read new symbols from stdin.
	#
	echo "$*" > /tmp/ggg
	
	# If mode is "L2", then get L2 quotes for a single symbol, else
	# get real time quotes for a bunch of symbols.
	MODE="$1"
	jsessionid=
Package: lire
Version: 2:2.0.3-1
Filename: pool/main/l/lire/lire_2.0.3-1_all.deb


Found error in /usr/share/lire/lib/lire/convertors/postfix2dlf_pre:
	$ grep -A5 -B5 /tmp/ /usr/share/lire/lib/lire/convertors/postfix2dlf_pre
	=head1 DESCRIPTION
	
	B<postfix2dlf_pre> expect a postfix logfile on STDIN.  It prints preprocessed
	logfile lines to STDOUT and creates a Berkeley DB holding a mapping from
	hostname-queueid to number-of-lines-with-this-id.  I<dumpfile> can be e.g.
	/tmp/dump, ../../var/dump or dump.
	
	=head1 DEVELOPERS
	
	One can use the lr_anondump tool to view the contents of the dumpfile.
	
	E.g. run
	
	 $ zcat postfix.log.gz | ./postfix2dlf_pre /tmp/stem > /tmp/pre
	 $ lr_anondump /tmp/stem
	 $ ./postfix2dlf_main /tmp/stem < /tmp/pre > /tmp/post
	
	.
	
	=head1 EXAMPLE
	

Found error in /usr/share/lire/lib/lire/convertors/ms_isa2dlf:
	$ grep -A5 -B5 /tmp/ /usr/share/lire/lib/lire/convertors/ms_isa2dlf
	As any Lire 2dlf program, this program needs adjusted LR_DBDIR, LR_DBFILE,
	LR_ID and PATH variables.  These are set in .../etc/lire/defaults and
	.../etc/lire/profile_lean.  After manually source-ing these files, one can run
	this program as a standalone application, by invoking it as e.g.
	
	 zcat ms_isa.log.gz | LR_ID=`date +%Y%m%d.%H%M%S` ./ms_isa2dlf > /tmp/dlf
	
	.
	
	=head1 EXAMPLES
	
Package: lmbench
Version: 3.0-a7-1
Filename: pool/non-free/l/lmbench/lmbench_3.0-a7-1_i386.deb


Found error in /usr/lib/lmbench/scripts/rccs:
	$ grep -A5 -B5 /tmp/ /usr/lib/lmbench/scripts/rccs
			select(STDOUT); $| = 1;
			print "\n------ $working[$i]$rev ------\n";
			$| = 0;
			# XXX - flush stdout.
			if ($diff =~ /^sdiff/) {
				system "co -q -p -kkvl $rev $_[$i] > /tmp/sdiff.$$" .
				    "&& $diff /tmp/sdiff.$$ $working[$i]";
				# XXX - interrupts?
				unlink("/tmp/sdiff.$$");
			} else {
				system "co -q -p -kkvl $rev $_[$i] |" .
				    " $diff - $working[$i]";
			}
		}

Found error in /usr/lib/lmbench/scripts/STUFF:
	$ grep -A5 -B5 /tmp/ /usr/lib/lmbench/scripts/STUFF
			# Show the changes
			print "\n------ $working[$i]$rev ------\n";
			fflush(stdout);
			# XXX - flush stdout.
			if ($diff =~ /^sdiff/) {
				system "co -q -p -kkvl $rev $_[$i] > /tmp/sdiff.$$" .
				    "&& $diff /tmp/sdiff.$$ $working[$i]";
				# XXX - interrupts?
				unlink("/tmp/sdiff.$$");
			} else {
				system "co -q -p -kkvl $rev $_[$i] |" .
				    " $diff - $working[$i]";
			}
		}
Package: lustre-tests
Version: 1.6.5-1
Filename: pool/main/l/lustre/lustre-tests_1.6.5-1_i386.deb


Found error in /usr/lib/lustre/tests/runiozone:
	$ grep -A5 -B5 /tmp/ /usr/lib/lustre/tests/runiozone
	while date; do
		LOOP=`expr $LOOP + 1`
		echo "Test #$LOOP"
		iozone $VERIFY $ODIR -r $REC -i 0 -i 1 -f $FILE -s $SIZE 2>&1 || exit $?
		[ -f endiozone -o $LOOP -ge $COUNT ] && rm -f endiozone && exit 0
	done | tee /tmp/iozone.log
Package: mafft
Version: 6.240-1
Filename: pool/main/m/mafft/mafft_6.240-1_i386.deb


Found error in /usr/bin/mafft-homologs:
	$ grep -A5 -B5 /tmp/ /usr/bin/mafft-homologs
	#             (default: well-aligned region only)
	
	
	require 'getopts'
	
	system( mafftpath + " --help > /tmp/_vf#{$$} 2>&1" )
	pfp = File.open( "/tmp/_vf#{$$}", 'r' )
	while pfp.gets
		break if $_ =~ /MAFFT v/
	end
	pfp.close
	if( $_ ) then
	--
	end
	if $OPT_o then
		mafftopt += " " + $OPT_o + " "
	end
	
	system "cat " + ARGV.to_s + " > /tmp/_if#{$$}"
	ar = mafftopt.split(" ")
	nar = ar.length
	for i in 0..(nar-1)
		if ar[i] == "--seed" then
			system "cat #{ar[i+1]} >> /tmp/_if#{$$}"
		end
	end
	
	nseq = 0
	ifp = File.open( "/tmp/_if#{$$}", 'r' )
		while ifp.gets
			nseq += 1 if $_ =~ /^>/
		end
	ifp.close
	
	STDERR.puts "Performing preliminary alignment .. "
	if nseq == 1 then
		system( "cp /tmp/_if#{$$}"  + " /tmp/_pf#{$$}" )
	else
		if entiresearch == 1 then
	#		system( mafftpath + " --maxiterate 1000 --localpair /tmp/_if#{$$} > /tmp/_pf#{$$}" )
			system( mafftpath + " --maxiterate 0 --retree 2 /tmp/_if#{$$} > /tmp/_pf#{$$}" )
		else
			system( mafftpath + " --maxiterate 1000 --localpair --core --coreext --corethr #{corethr.to_s} --corewin #{corewin.to_s} /tmp/_if#{$$} > /tmp/_pf#{$$}" )
		end
	end
	
	pfp = File.open( "/tmp/_pf#{$$}", 'r' )
	inname = []
	inseq = []
	slen = []
	act = []
	nin = 0
	--
		slen.push( inseq[i].gsub(/-/,"").length )
		act.push( 1 )
	end
	pfp.close
	
	pfp = File.open( "/tmp/_if#{$$}", 'r' )
	orname = []
	orseq = []
	nin = 0
	nin = readfasta( pfp, orname, orseq )
	pfp.close
	--
		end
	end
	#p act
	
	
	afp = File.open( "/tmp/_af#{$$}", 'w' )
	
	STDERR.puts "Searching .. \n"
	ids = []
	add = []
	sco = []
	--
			STDERR.puts "Skip.\n\n"
			next 
		end
	
		if local == 0 then
			command = "lynx -source 'http://www.ncbi.nlm.nih.gov/blast/Blast.cgi?QUERY=" + inseq[i] + "&DATABASE=swissprot&HITLIST_SIZE=" + nadd.to_s + "&FILTER=L&EXPECT='" + eval.to_s + "'&FORMAT_TYPE=TEXT&PROGRAM=blastp&SERVICE=plain&NCBI_GI=on&PAGE=Proteins&CMD=Put' > /tmp/_rid#{$$}"
			system command
		
			ridp = File.open( "/tmp/_rid#{$$}", 'r' )
			while ridp.gets
				break if $_ =~ / RID = (.*)/
			end
			ridp.close
			rid = $1.strip
	--
		
			STDERR.printf "Waiting "
			while 1 
				STDERR.printf "."
				sleep 10
				command = "lynx -source 'http://www.ncbi.nlm.nih.gov/blast/Blast.cgi?RID=" + rid + "&DESCRIPTIONS=500&ALIGNMENTS=" + nadd.to_s + "&ALIGNMENT_TYPE=Pairwise&OVERVIEW=no&CMD=Get&FORMAT_TYPE=XML' > /tmp/_res#{$$}"
				system command
				resp = File.open( "/tmp/_res#{$$}", 'r' )
	#			resp.gets
	#			if $_ =~ /WAITING/ then
	#				resp.close
	#				next
	#			end
	--
				end
			end
		else
	#		puts "Not supported"
	#		exit
			qfp = File.open( "/tmp/_q#{$$}", 'w' )
				qfp.puts "> "
				qfp.puts inseq[i]
			qfp.close
			command = blastpath + "  -p blastp  -e #{eval} -b 1000 -m 7 -i /tmp/_q#{$$} -d #{localdb} > /tmp/_res#{$$}"
			system command
			resp = File.open( "/tmp/_res#{$$}", 'r' )
		end
		STDERR.puts " Done.\n\n"
	
		resp = File.open( "/tmp/_res#{$$}", 'r' )
		while 1
			while resp.gets
				break if $_ =~ /<Hit_id>(.*)<\/Hit_id>/ || $_ =~ /(<Iteration_stat>)/
			end
			id = $1
	--
		outnum += 1
	end
	afp.close
	
	STDERR.puts "Performing alignment .. "
	system( mafftpath + mafftopt + " /tmp/_af#{$$} > /tmp/_bf#{$$}" )
	STDERR.puts "done."
	
	bfp = File.open( "/tmp/_bf#{$$}", 'r' )
	outseq = []
	outnam = []
	readfasta( bfp, outnam, outseq )
	bfp.close
	
	--
	for i in 0..(nout-1)
		puts ">" + outnam2[i]
		puts outseq2[i].gsub( /.{1,60}/, "\\0\n" )
	end
	
	system( "rm -rf /tmp/_if#{$$} /tmp/_vf#{$$} /tmp/_af#{$$} /tmp/_bf#{$$} /tmp/_pf#{$$} /tmp/_q#{$$} /tmp/_res#{$$} /tmp/_rid#{$$}" )
Package: maildirsync
Version: 1.1-2
Filename: pool/main/m/maildirsync/maildirsync_1.1-2_all.deb


Found error in /usr/share/doc/maildirsync/examples/sample.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/maildirsync/examples/sample.sh
	#!/bin/sh
	cd
	MAILDIRSYNC_OPTS="-rvv -a md5 --backup=/tmp/emails_deleted --rsh-sep=, --rsh=ssh,-C"
	SLEEP_FOR=300
	# MAILDIRSYNC_OPTS="-rvv"
	while true
	do
	    # calculating the MD5 sum of the old status file
	--
		echo "`date`: sleeping for $SLEEP_FOR seconds and restart"
		sleep $SLEEP_FOR
	    else
		echo "`date`: Data changed, resyncing..."
	    fi
	done 2>&1 | tee -a /tmp/maildirsync-`date +%Y%m%d`.$$.log
	
Package: mayavi
Version: 1.5-5
Filename: pool/main/m/mayavi/mayavi_1.5-5_all.deb


Found error in /usr/share/python-support/mayavi/vtkPipeline/test_parser.py:
	$ grep -A5 -B5 /tmp/ /usr/share/python-support/mayavi/vtkPipeline/test_parser.py
	**************************************************
	...
	
	I usually prefer redirecting the messages to a file like so:
	
	$ python test_parser.py &> /tmp/err.log
	
	"""
	
	import vtkMethodParser
	import vtk
Package: mgetty-fax
Version: 1.1.36-1.2
Filename: pool/main/m/mgetty/mgetty-fax_1.1.36-1.2_i386.deb


Found error in /usr/bin/faxspool:
	$ grep -A5 -B5 /tmp/ /usr/bin/faxspool
	# if filename is "-", use stdin
	#
	    if [ x$file = x- ]
	    then
		$echo "spooling $file (stdin)..."
		trap "rm /tmp/faxsp.$$" 0
	        cat - >/tmp/faxsp.$$
		file=/tmp/faxsp.$$
	    else
		$echo "spooling $file..."
	    fi
	
	    format=""
Package: mgt
Version: 2.31-5
Filename: pool/main/m/mgt/mgt_2.31-5_i386.deb


Found error in /usr/games/mailgo:
	$ grep -A5 -B5 /tmp/ /usr/games/mailgo
	  echo Wrong number of parameters
	  exit
	fi
	if [ $1 = -- ]
	then
	  cat >/tmp/mailgo$$
	  set /tmp/mailgo$$
	  exec </dev/tty
	elif [ ! -s $1 ]
	then
	  echo File $1 not found
	  exit
Package: mh-book
Version: 200605-1
Filename: pool/main/m/mh-book/mh-book_200605-1_all.deb


Found error in /usr/share/doc/mh-book/examples/mh/bin/inmail-show:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/mh-book/examples/mh/bin/inmail-show
	# TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
	# YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
	# PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
	# POSSIBILITY OF SUCH DAMAGES.
	
	exec > /tmp/inmail$$.log 2>&1    # Send all output to log file
	set -xv     # Make shell show debugging output
	/bin/id     # On BSD systems, use "whoami" and "groups" instead
	/bin/env    # On BSD systems, use "printenv" instead
	/bin/cat > /tmp/inmail$$.stdin   # Grab incoming message
	exit 0      # Important to set a zero status if handler succeeds
Package: mon
Version: 0.99.2-12
Filename: pool/main/m/mon/mon_0.99.2-12_i386.deb


Found error in /usr/lib/mon/alert.d/test.alert:
	$ grep -A5 -B5 /tmp/ /usr/lib/mon/alert.d/test.alert
	#!/bin/sh
	#
	echo "`date` $*" >> /tmp/test.alert.log
Package: myspell-tools
Version: 1:3.1-20
Filename: pool/main/m/myspell/myspell-tools_3.1-20_i386.deb


Found error in /usr/bin/i2myspell:
	$ grep -A5 -B5 /tmp/ /usr/bin/i2myspell
		p=$1 } 
	    else { 
		if ($2!="") printf "/%s", $2; 
	    }
	}' | sed 's#/##g
	s# #/#' >/tmp/i2my$$.1
	cat /tmp/i2my$$.1 | wc -l | tr -cd '0-9\n'
	tail -n +2 /tmp/i2my$$.1
	echo
	rm -f /tmp/i2my$$.1
	
	exit;;
	esac
	
	ispell -d $1 -D | # dump affix table from the ispell hash
	--
	/prefixes/,/suffixes/s/flag\(.\):/PFX \1 N /
	/suffixes/,//s/flag[*]\(.\):/SFX \1 Y /
	/suffixes/,//s/flag\(.\):/SFX \1 N /
	s/\([^ ]*\).>.\([^,]*\)$/0 \2 \1/
	s/\([^ ]*\).>.-\([^,]*\),\(.*\)$/\2 \3 \1/' |
	tee /tmp/i2my$$.1 | cut -c -7 > /tmp/i2my$$.2
	
	# myspell affix table header
	echo "SET $2"
	if [ -n "$5" ]; then echo "TRY $5"; fi;
	if [ -n "$7" ]; then echo "COMPOUNDMIN $7"; fi;
	if [ -n "$6" ]; then echo "COMPOUNDFLAG $6"; fi;
	
	cut -c 8- /tmp/i2my$$.1 | 
	tr $3 $4 |
	paste -d "" /tmp/i2my$$.2 - | 
	egrep -v '^(suffixes|prefixes|flagmarker)' |
	sort -k 2 | awk '
	    NR==1 { o1=$1; o2=$2; o3=$3; n[o2]=-1; }
	    { 
	    printf "%s %s   %-4s %-12s %-25s %s\n", $1, $2, $4, $5, $6, $7;
	--
		o1=$1; o2=$2; o3=$3;
	    }
	} END { printf "%s %s %s %s\n", o1, o2, o3, n[o2]+1; } ' | tee x |
	sed 's/  *$//' | sort -r | sed 's/\(^.*[0-9]\)$/\
	\1/'
	rm /tmp/i2my$$.*
Package: netmrg
Version: 0.20-1
Filename: pool/main/n/netmrg/netmrg_0.20-1_i386.deb


Found error in /usr/bin/rrdedit:
	$ grep -A5 -B5 /tmp/ /usr/bin/rrdedit
	  echo "Cannot locate file: '$RRD_DIR/$1'!"
	  exit
	fi
	
	# dump it to temp
	$rrdtool dump $RRD_DIR/$1 > /tmp/$1.xml
	
	# make a backup
	cp $RRD_DIR/$1 /tmp/$1.backup
	
	# edit the xml
	$editor /tmp/$1.xml
	
	rm -f $RRD_DIR/$1
	
	# restore the rrd
	$rrdtool restore /tmp/$1.xml $RRD_DIR/$1
	
Package: newsgate
Version: 1.6-23
Filename: pool/non-free/n/newsgate/newsgate_1.6-23_i386.deb


Found error in /usr/bin/mkmailpost:
	$ grep -A5 -B5 /tmp/ /usr/bin/mkmailpost
	echo "*/"
	if [ "$2" != "" ] ; then
	    echo 'default mail2news "'$2'";'
	fi
	
	trap "rm -f /tmp/mmp$$ ; exit 1" 1 2 3 15
	
	##  Create the sed temporary file and run it
	cat >/tmp/mmp$$ <<\EOF
	/# Delete moderated groups/d
	/m$/d
	/# Trim anything after the first field/d
	s/ .*$//
	/# Delete control, junk, site-specific/d
	--
	/# Turn the line "foo" into "mailpost foo;"/d
	s/^.*$/mailpost &;/
	EOF
	
	##  Run sed, clean up.
	sed -f /tmp/mmp$$ <${ACTIVE} | sort
	
	rm -f /tmp/mmp$$
Package: ocsinventory-agent
Version: 1:0.0.9.2repack1-2
Filename: pool/main/o/ocsinventory-agent/ocsinventory-agent_0.0.9.2repack1-2_all.deb


Found error in /usr/bin/ocsinventory-agent:
	$ grep -A5 -B5 /tmp/ /usr/bin/ocsinventory-agent
	
	=item B<--stdout>
	
	Print the inventory on stdout.
	
	    % ocsinventory-agent --stdout > /tmp/report.xml
	    # prepare an inventory and write it in the /tmp/report.xml file.
	    # A file will be created.
	
	=item B<--tag>=I<TAG>
	
	Mark the machin with the I<TAG> tag. Once the initial inventory is accepted by the server this value is ignored and you've to change the information directly on the server. The server do so in order to centralize the administration of the machine.
Package: ogle
Version: 0.9.2-5.1
Filename: pool/main/o/ogle/ogle_0.9.2-5.1_i386.deb


Found error in /usr/lib/ogle/ogle_gui_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_gui_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_gui.$$
	
	xterm -e gdb -x /tmp/ogle_gui.$$ $DVDP_ROOT/ogle_gui
	rm /tmp/ogle_gui.$$

Found error in /usr/lib/ogle/ogle_mpeg_ps_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_mpeg_ps_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_mpeg_ps.$$
	
	xterm -e gdb -x /tmp/ogle_mpeg_ps.$$ $DVDP_ROOT/ogle_mpeg_ps
	rm /tmp/ogle_mpeg_ps.$$

Found error in /usr/lib/ogle/ogle_ctrl_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_ctrl_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_ctrl.$$
	
	xterm -e gdb -x /tmp/ogle_ctrl.$$ $DVDP_ROOT/ogle_ctrl
	rm /tmp/ogle_ctrl.$$

Found error in /usr/lib/ogle/ogle_vout_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_vout_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_vout.$$
	
	xterm -e gdb -x /tmp/ogle_vout.$$ $DVDP_ROOT/ogle_vout
	rm /tmp/ogle_vout.$$

Found error in /usr/lib/ogle/ogle_cli_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_cli_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_cli.$$
	
	xterm -e gdb -x /tmp/ogle_cli.$$ $DVDP_ROOT/ogle_cli
	rm /tmp/ogle_cli.$$

Found error in /usr/lib/ogle/ogle_audio_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_audio_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_audio.$$
	
	xterm -e gdb -x /tmp/ogle_audio.$$ $DVDP_ROOT/ogle_audio
	rm /tmp/ogle_audio.$$

Found error in /usr/lib/ogle/ogle_mpeg_vs_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_mpeg_vs_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_mpeg_vs.$$
	
	xterm -e gdb -x /tmp/ogle_mpeg_vs.$$ $DVDP_ROOT/ogle_mpeg_vs
	rm /tmp/ogle_mpeg_vs.$$

Found error in /usr/lib/ogle/ogle_nav_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_nav_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_nav.$$
	
	xterm -e gdb -x /tmp/ogle_nav.$$ $DVDP_ROOT/ogle_nav
	rm /tmp/ogle_nav.$$
Package: ogle-mmx
Version: 0.9.2-5.1
Filename: pool/main/o/ogle/ogle-mmx_0.9.2-5.1_i386.deb


Found error in /usr/lib/ogle/ogle_gui_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_gui_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_gui.$$
	
	xterm -e gdb -x /tmp/ogle_gui.$$ $DVDP_ROOT/ogle_gui
	rm /tmp/ogle_gui.$$

Found error in /usr/lib/ogle/ogle_mpeg_ps_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_mpeg_ps_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_mpeg_ps.$$
	
	xterm -e gdb -x /tmp/ogle_mpeg_ps.$$ $DVDP_ROOT/ogle_mpeg_ps
	rm /tmp/ogle_mpeg_ps.$$

Found error in /usr/lib/ogle/ogle_ctrl_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_ctrl_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_ctrl.$$
	
	xterm -e gdb -x /tmp/ogle_ctrl.$$ $DVDP_ROOT/ogle_ctrl
	rm /tmp/ogle_ctrl.$$

Found error in /usr/lib/ogle/ogle_vout_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_vout_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_vout.$$
	
	xterm -e gdb -x /tmp/ogle_vout.$$ $DVDP_ROOT/ogle_vout
	rm /tmp/ogle_vout.$$

Found error in /usr/lib/ogle/ogle_cli_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_cli_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_cli.$$
	
	xterm -e gdb -x /tmp/ogle_cli.$$ $DVDP_ROOT/ogle_cli
	rm /tmp/ogle_cli.$$

Found error in /usr/lib/ogle/ogle_audio_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_audio_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_audio.$$
	
	xterm -e gdb -x /tmp/ogle_audio.$$ $DVDP_ROOT/ogle_audio
	rm /tmp/ogle_audio.$$

Found error in /usr/lib/ogle/ogle_mpeg_vs_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_mpeg_vs_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_mpeg_vs.$$
	
	xterm -e gdb -x /tmp/ogle_mpeg_vs.$$ $DVDP_ROOT/ogle_mpeg_vs
	rm /tmp/ogle_mpeg_vs.$$

Found error in /usr/lib/ogle/ogle_nav_debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/ogle/ogle_nav_debug
	#!/bin/sh
	
	echo run $* > /tmp/ogle_nav.$$
	
	xterm -e gdb -x /tmp/ogle_nav.$$ $DVDP_ROOT/ogle_nav
	rm /tmp/ogle_nav.$$
Package: openoffice.org-common
Version: 1:2.4.1-6
Filename: pool/main/o/openoffice.org/openoffice.org-common_2.4.1-6_all.deb


Found error in /usr/lib/openoffice/program/senddoc:
	$ grep -A5 -B5 /tmp/ /usr/lib/openoffice/program/senddoc
	#!/bin/sh
	URI_ENCODE="`dirname $0`/uri-encode"
	
	echo "$@" > /tmp/log.obr.$$
	echo "$#" >> /tmp/log.obr.$$
	
	# tries to locate the executable specified 
	# as first parameter in the user's path.
	which() {
		if [ ! -z "$1" ]; then
Package: openswan
Version: 1:2.4.12+dfsg-1.1
Filename: pool/main/o/openswan/openswan_2.4.12+dfsg-1.1_i386.deb


Found error in /usr/lib/ipsec/livetest:
	$ grep -A5 -B5 /tmp/ /usr/lib/ipsec/livetest
	leftid='@paul'
	leftrsasigkey=`ipsec showhostkey --left | tail -1 | sed "s/^.*left/left/"`
	
	#echo wget  http://192.168.0.1/olts/?leftid=$leftid\&$leftrsasigkey&$version
	
	wget -o /dev/null  -O /tmp/ipseclive.conn "http://192.168.0.1/olts/?leftid=$leftid&$leftrsasigkey&version=$version"
	
	sh < /tmp/ipseclive.conn
	ipsec eroute.pl
	leftid=`echo $leftid | sed "s/@//"`
	ipsec whack --delete --name olts-$leftid >> /tmp/ipsec.olts.local.log
	wget -o /dev/null -O /tmp/ipsec.olts.remote.log "http://192.168.0.1/olts/log.php?leftid=$leftid"
	
	#
	# $Log: livetest.in,v $
	# Revision 1.2  2005-07-15 16:39:25  paul
	# changed 'head -x' to 'head -n x' since this is apparently functionality
Package: p3nfs
Version: 5.19-1.1
Filename: pool/main/p/p3nfs/p3nfs_5.19-1.1_i386.deb


Found error in /usr/share/doc/p3nfs/examples/bluetooth.rc:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/p3nfs/examples/bluetooth.rc
	# Source Bluetooth configuration.
	#. /etc/sysconfig/bluetooth
	
	prog="bluetooth"
	ROOT=/local/bluez-2.0
	exec >> /tmp/blue.log 2>&1
	
	echo "--------------------"
	echo "$*"
	UART_CONF="/etc/bluetooth/uart"
	
Package: plait
Version: 1.5.2-1
Filename: pool/main/p/plait/plait_1.5.2-1_all.deb


Found error in /usr/bin/plaiter:
	$ grep -A5 -B5 /tmp/ /usr/bin/plaiter
	  if test $paused = 0 && ! test $playerpid = 0 
	  then
	    tries=0
	    while true
	    do
	      ps -p $playerpid > /tmp/ps.$$
	      foo=`grep "$HELPERNAME" /tmp/ps.$$`
	      if test "-$foo-" = "--"
	      then
	        if test $VERBOSE -gt 0
	        then
	          echo Did not find $HELPERNAME
	--
	
	  # possibly shuffle the playlist
	  if test $ORDER = "random"
	  then
	    cat "$HOME/.plait/plaiter0.m3u" | awk 'BEGIN{srand()} {print rand() "\t" $0}' | \
	      sort -n | cut -f "2-" > /tmp/cut.$$
	    mv /tmp/cut.$$ "$HOME/.plait/plaiter0.m3u"
	  fi
	
	  cat "$HOME/.plait/plaiter0.m3u" >> "$HOME/.plait/plaiter.m3u"
	
	  # before sending a command, make sure daemon is active

Found error in /usr/bin/plait:
	$ grep -A5 -B5 /tmp/ /usr/bin/plait
	  fi
	
	  if test $ORDER = "random"
	  then
	    cat "$HOME/.plait/playlist.m3u" | awk 'BEGIN{srand()} {print rand() "\t" $0}' | \
	      sort -n | cut -f "2-" > /tmp/cut.$$
	    mv /tmp/cut.$$ "$HOME/.plait/playlist.m3u"
	  fi
	
	  # trim the playlist if it has not been edited interactively
	  if test $INTERACTIVE = 0
	  then
	    head -n $TRACKS > /tmp/head.$$ "$HOME/.plait/playlist.m3u"
	    mv /tmp/head.$$ "$HOME/.plait/playlist.m3u"
	  fi
	}
	
	
	listmixfiles ()
	--
	  # each file path
	
	  root="`head -n 1 \"$HOME/.plait/playlist.m3u\" | awk \
	    '{match($0, "/*[^/]*/[^/]*/"); print substr($0, RSTART, RLENGTH)}'`"
	  root="`cygpath -am $root`"
	  cat "$HOME/.plait/playlist.m3u" | awk > /tmp/awk.$$ -v r="$root" \
	    'BEGIN { if (r !~ /\/$/) r = r "/"; gsub (/\//, "\\", r) } \
	     { s = $0; sub ("^/*[^/]*/[^/]*/", "", s); gsub (/\//, "\\", s); print r s}'
	  mv /tmp/awk.$$ "$HOME/.plait/playlist2.m3u"
	}
	
	
	translate_to_windows_file_paths ()
	{
	  if test $SLOW_PATH_TRANSLATION = 1
	  then 
	    cat "$HOME/.plait/playlist.m3u" | xargs > "$HOME/.plait/playlist2.m3u" -i cygpath -am "{}"
	  else
	    root="`cygpath -am \"$MUSICDIR\"`"
	    cat "$HOME/.plait/playlist.m3u" | awk > /tmp/awk.$$ -v r="$root" -v d="$MUSICDIR" \
	      'BEGIN {if (r !~ /\/$/) r = r "/"; gsub (/\//, "\\", r)} \
	       {s = $0; sub (d "/", "", s); gsub (/\//, "\\", s); print r s}'
	    mv /tmp/awk.$$ "$HOME/.plait/playlist2.m3u"
	  fi
	}
	
	
	prefetch_or_copy ()
Package: postfix
Version: 2.5.2-2
Filename: pool/main/p/postfix/postfix_2.5.2-2_i386.deb


Found error in /usr/lib/postfix_groups.pl:
	$ grep -A5 -B5 /tmp/ /usr/lib/postfix_groups.pl
	my $map = shift(@ARGV); 		# ${nexthop} == map name
	my $recipient = shift(@ARGV);	# ${recipient}
	my $debug = 0;
	
	if ($debug && ! -t STDIN) { 
		open(STDOUT, "> /tmp/postfix_groups.stdout"); 
		open(STDERR, "> /tmp/postfix_groups.stderr");
	}
	
	setlogsock('unix');
	openlog(basename($0), 'pid', 'mail');
	
	--
	# Adjust message headers as appropriate
	foreach my $addh (@addheaders) { $header->add(undef, $addh) }
	foreach my $remh (@removeheaders) { $header->delete($remh) }
	
	if ($debug) {
		open(DEBUGMESSAGE, "> /tmp/postfix_groups.message");
		$message->print(\*DEBUGMESSAGE);
		close DEBUGMESSAGE;
	}
	
	# Get target addresses
Package: printfilters-ppd
Version: 2.13-9
Filename: pool/main/p/printfilters-ppd/printfilters-ppd_2.13-9_i386.deb


Found error in /usr/lib/printfilters/master-filter:
	$ grep -A5 -B5 /tmp/ /usr/lib/printfilters/master-filter
	    set -v
	    exec 2>log.filter
	    thetempfile=''
	else
	    #added by A Mennucc: get errors
	    # and avoid using /tmp/evillog , which has /tmp security problem
	    # other scripts use 'mktemp', so I use it
	    thetempfile=`mktemp  /tmp/master-filter.XXXXXX`
	    exec 2>$thetempfile
	fi
	
	function onexit () {
	#added by A Mennucc1: more nicely treat unprintable files or any other error
	--
	#
	    if [ $depth -ge $MAX_DEPTH ]; then
	        return 1
	    fi
	    if [ $DEBUG_TREE ]; then
	       echo "Starting point = $start" >> /tmp/filter.debug
	    fi
	
	    if [ $(filtto $start) = "$DESIRED_TO" ]; then
		echo " DONE"
	        return 0
	--
	
	    while [ $1 ]; do
		try=$1
		shift
	        if [ $DEBUG_TREE ]; then
	  	  echo "for $start trying $try" >> /tmp/filter.debug
		fi
		if [ $(filtfrom $try) = $(filtto $start) ]; then
		    echo -n "$start.fpi:$depth:CONT "
	
	#A Mennucc: quotes!
	--
		    else
	#		echo -n $try
			nextlvl $try $((depth+1)) $all
	#		echo "|G is $G| "
	                if [ $DEBUG_TREE ]; then
			   echo "|rt is $?|" >> /tmp/filter.debug
			fi
			if [ "$?" = "0" ]
	                then
	                   if [ $DEBUG_TREE ]; then
		  	      echo "for $start we are done"  >> /tmp/filter.debug
	                   fi
	#		   return 0
			else
	                   if [ $DEBUG_TREE ]; then
			      echo "for $start we have failed" >> /tmp/filter.debug
	                   fi
	                   return 1
	                fi
		    fi
		fi
	--
	#
	    MAX_DEPTH=6
	
	#
	#   define these to gets lots of feedback
	#   output is appended on /tmp/filter.debug
	#
	    DEBUG_TREE=""
	    DEBUG_FILTER=""
	
	#
	--
		eval `pcap -P$queue:PRINTER_TYPE` >> /dev/null
		eval `pcap -P$queue:ASCII_TO_PS` >> /dev/null
	    fi
	    
	    if [ "$DEBUG_FILTER" != "" ]; then
	      echo "Desired print format is $DESIRED_TO" >> /tmp/filter.debug
	      echo "Paper size is $PAPERSIZE" >> /tmp/filter.debug
	      echo -n "A form feed will " >> /tmp/filter.debug
	      if [ "$SEND_EOF" = "" ]; then
	        echo "not be sent." >> /tmp/filter.debug
	      else
	        echo "be sent." >> /tmp/filter.debug
	      fi
	    fi
	
	    cd $FPIDIR
	    fpis=$(ls *.fpi 2> /dev/null | tr '\n' ' ' | sed 's/\.fpi//g')
	--
	
	    ${prefix}/lib/printfilters/rewindstdin # RH70 removed
	
	    magic=${magic#*: }
	    if [ "$DEBUG_FILTER" != "" ]; then
	      echo "Magic is |$magic|" >> /tmp/filter.debug
	    fi
	    
	    case `echo $magic | tr 'A-Z' 'a-z'` in
	        *empty* )
		                                      exit;;
	--
	# handle extra magics they've defined filters for
	#
	#  call_user_magic_hook()
	#
	    if [ "$DEBUG_FILTER" != "" ]; then    
	       echo "Type of file is $startpnt" >> /tmp/filter.debug
	    fi
	
	    if [ "$startpnt" = "Dont know" ]; then
	       echo "Error - input file type is unknown - cannot print" 1>&2
	       exit 1
	--
	#            source ${SPOOLDIR}/postscript.cfg
	#       else
	#            eval `pcap -P$queue:GSDEVICE` >> /dev/null
	#       fi
	#       #gs  needs a file to treat pdf
	#       t=`mktemp /tmp/master-filter-pdf.XXXXXX`
	#       if [ "$GSDEVICE" != "POSTSCRIPT" ]; then
	#          bestpath="$startpnt | { cat > $t ; ps-to-printer.fpi --inputfile $t ; rm $t ; }"
	#          foundbest="YES"
	#       fi
	    fi
	--
	#   we go through and find best path
	#
	    G=`nextlvl "$startpnt" "0" $fpis`
	
	    if [ "$DEBUG_FILTER" != "" ]; then   
	      echo "$G" >> /tmp/filter.debug
	    fi
	
	#
	# now sort out the best path of all available
	#
	--
		  else
	           root="$root | $entry"
	          fi
		  if [ ${i##*:} = "DONE" ]; then
	             if [ "$DEBUG_FILTER" != "" ]; then
	               echo "$root -> depth = $depth" >> /tmp/filter.debug
	             fi
	             if [ $depth -lt $bestdepth ]; then
	                foundbest="YES"
	                bestdepth=$depth
	                bestpath=$root
	--
	       PNAME="`cat ${SPOOLDIR}/.paprc`"
	       bestpath="$bestpath | /usr/bin/pap -p $PNAME"
	    fi
	
	    if [ "$DEBUG_FILTER" != "" ]; then
	      echo "Best path of depth $bestdepth is $bestpath" >> /tmp/filter.debug
	    fi
	
	#
	# run the command!
	#
	#  A Mennucc: THIS IS VERY BAD FOR SECURITY!!!!!!
	#    eval $bestpath 2> /tmp/evillog
	#    instead stderr have already been redirected to $thetempfile
	
	    eval $bestpath
	
	#
Package: qemu
Version: 0.9.1-5
Filename: pool/main/q/qemu/qemu_0.9.1-5_i386.deb


Found error in /usr/sbin/qemu-make-debian-root:
	$ grep -A5 -B5 /tmp/ /usr/sbin/qemu-make-debian-root
	fi
	
	cleanup()
	{
	    echo Cleaning up... >&2
	    umount -d /tmp/mount.$$ || true
	    rm -f $IMAGE.ext2 $IMAGE
	}
	
	trap cleanup EXIT
	
	--
	fi
	
	mke2fs -q -m1 -F $IMAGE.ext2
	
	# Mount it.
	mkdir /tmp/mount.$$
	mount -o loop $IMAGE.ext2 /tmp/mount.$$
	
	# Do debian install on it.
	#debootstrap --exclude=syslinux,at,exim,mailx,libstdc++2.10-glibc2.2,mbr,setserial,fdutils,info,ipchains,lilo,pcmcia-cs,ppp,pppoe,pppoeconf,pppconfig $DISTRO /tmp/mount.$$ $URL
	debootstrap --exclude=syslinux,at,exim,mailx,libstdc++2.10-glibc2.2,mbr,setserial,fdutils,info,ipchains,iptables,lilo,pcmcia-cs,ppp,pppoe,pppoeconf,pppconfig,wget,telnet,cron,logrotate,exim4,exim4-base,exim4-config,exim4-daemon-light,pciutils,modconf,tasksel $DISTRO /tmp/mount.$$ $URL
	
	# Final configuration.
	cat > /tmp/mount.$$/etc/fstab <<EOF
	/dev/hda1 / ext2 errors=remount-ro 0 1
	proc /proc proc defaults 0 0
	EOF
	
	# Console on ttyS0, not tty1, and no other gettys.
	sed 's,1:2345:respawn:/sbin/getty 38400 tty1,1:2345:respawn:/sbin/getty 38400 ttyS0,' < /tmp/mount.$$/etc/inittab | sed 's,^.:23:respawn.*,,' > /tmp/mount.$$/etc/inittab.new
	mv /tmp/mount.$$/etc/inittab.new /tmp/mount.$$/etc/inittab
	
	# Set hostname to base of image name.
	basename $IMAGE > /tmp/mount.$$/etc/hostname
	
	# Create /etc/shadow
	chroot /tmp/mount.$$ pwconv
	
	# Set root password to "root"
	sed 's/^root:[^:]*/root:$1$aybpiIGf$cB7iFDNZvViQtQjEZ5HFQ0/' < /tmp/mount.$$/etc/shadow > /tmp/mount.$$/etc/shadow.new
	mv /tmp/mount.$$/etc/shadow.new /tmp/mount.$$/etc/shadow
	
	# Remove packages we don't need
	chroot /tmp/mount.$$ /usr/bin/dpkg --remove console-common console-tools console-data base-config man-db manpages
	# Try to remove all libraries: some won't be removable.
	chroot /tmp/mount.$$ dpkg --remove `chroot /tmp/mount.$$ dpkg --get-selections | sed -n 's/^\(lib[^ \t]*\)[\t ]*install/\1/p'` 2>/dev/null || true
	
	
	# Copy wanted files to /root if asked to
	if [ $# -gt 0 ]; then
	    cp -a "$@" /tmp/mount.$$/root/
	fi
	umount -d /tmp/mount.$$
	
	# Create file with partition table.
	uudecode -o- << "EOF" | gunzip > $IMAGE
	begin 664 partition-table.gz
	M'XL("*_<##\"`W!A<G1I=&EO;BUT86)L90#LT#$-`"`0!,&']D6A`D6XP1T&
Package: radiance
Version: 3R9+20080530-3
Filename: pool/main/r/radiance/radiance_3R9+20080530-3_i386.deb


Found error in /usr/bin/optics2rad:
	$ grep -A5 -B5 /tmp/ /usr/bin/optics2rad
	#
	if ($#argv < 1) then
		echo "Usage: $0 optics.mat .."
		exit 1
	endif
	cat > /tmp/opt.fmt << '_EOF_'
	void glass $(name)_glass
	0
	0
	3 ${Rtn} ${Gtn} ${Btn}
	
	--
	'_EOF_'
	
	echo "# Output generated by $0 from $*"
	sed -e '/^[^#]/d' -e '/^$/d' $*
	
	cat > /tmp/out$$.fmt << '_EOF_'
	
	void glass $(name)
	0
	0
	3 ${Rtn} ${Gtn} ${Btn}
	--
	rcalc -l -e 'abs(x):if(x,x,-x);and(a,b):if(a,b,a);not(x):if(x,-1,1)' \
		-e 'lum(r,g,b):.265*r+.670*g+.065*b' \
		-e 'trans=lum(Rtau,Gtau,Btau)' \
		-e 'rfront=lum(fRrho,fGrho,fBrho);rback=lum(bRrho,bGrho,bBrho)' \
		-e 'cond=0.005-abs(rfront-rback)' \
		-i /tmp/opt.fmt -o /tmp/out$$.fmt $*
	
	cat > /tmp/out$$.fmt << '_EOF_'
	
	void BRTDfunc $(name)
	10
		rR_clear rG_clear rB_clear
		${Rtau}*tR_clear ${Gtau}*tG_clear ${Btau}*tB_clear
	--
	rcalc -l -e 'abs(x):if(x,x,-x);and(a,b):if(a,b,a);not(x):if(x,-1,1)' \
		-e 'lum(r,g,b):.265*r+.670*g+.065*b' \
		-e 'trans=lum(Rtau,Gtau,Btau)' \
		-e 'rfront=lum(fRrho,fGrho,fBrho);rback=lum(bRrho,bGrho,bBrho)' \
		-e 'cond=and(trans-.645, not(0.005-abs(rfront-rback)))' \
		-i /tmp/opt.fmt -o /tmp/out$$.fmt $*
	
	cat > /tmp/out$$.fmt << '_EOF_'
	
	void BRTDfunc $(name)
	10
		rR_bronze rG_bronze rB_bronze
		${Rtau}*tR_bronze ${Gtau}*tG_bronze ${Btau}*tB_bronze
	--
	rcalc -l -e 'abs(x):if(x,x,-x);and(a,b):if(a,b,a);not(x):if(x,-1,1)' \
		-e 'lum(r,g,b):.265*r+.670*g+.065*b' \
		-e 'trans=lum(Rtau,Gtau,Btau)' \
		-e 'rfront=lum(fRrho,fGrho,fBrho);rback=lum(bRrho,bGrho,bBrho)' \
		-e 'cond=and(not(trans-.645), not(0.005-abs(rfront-rback)))' \
		-i /tmp/opt.fmt -o /tmp/out$$.fmt $*
	
	rm -f /tmp/opt.fmt /tmp/out$$.fmt

Found error in /usr/bin/pdelta:
	$ grep -A5 -B5 /tmp/ /usr/bin/pdelta
		set inp1='x1=X(ri(1),gi(1),bi(1));y1=Y(ri(1),gi(1),bi(1));z1=Z(ri(1),gi(1),bi(1))'
	endif
	if ( "`getinfo < $f2:q | grep '^FORMAT=32-bit_rle_xyze'`" == "" ) then
		set inp2='x2=X(ri(2),gi(2),bi(2));y2=Y(ri(2),gi(2),bi(2));z2=Z(ri(2),gi(2),bi(2))'
	endif
	pfilt -1 -x 128 -y 128 -p 1 $f1:q | pvalue -o -h -H -d > /tmp/tf$$.dat
	set wht=(`total -u /tmp/tf$$.dat`)
	set avg=`rcalc -e '$1=$2' /tmp/tf$$.dat | total -m`
	rm /tmp/tf$$.dat
	pcomb -e $cielab:q -e $rgb2xyz:q \
		-e "Yw:179*3*$avg; Xw:$wht[1]*Yw/$wht[2]; Zw:$wht[3]*Yw/$wht[2]" \
		-e $inp1:q -e $inp2:q -e 'lo=dE(x1,y1,z1,x2,y2,z2)' \
		-o $f1:q -o $f2:q

Found error in /usr/bin/dayfact:
	$ grep -A5 -B5 /tmp/ /usr/bin/dayfact
	readvar genskyf
	if ( $genskyf == $nofile ) then
		echo "You will not be able to compute daylight factors"
		echo "or energy savings since there is no gensky file."
	else
		xform -e $genskyf > /tmp/gsf$$
		grep '^# gensky ' /tmp/gsf$$
		if ( $status ) then
			echo "The file $genskyf does not contain a gensky command\!"
			rm -f /tmp/gsf$$
			goto getgenskyf
		endif
		set title=$title\ `sed -n 's/^# gensky  *\([0-9][0-9]*  *[0-9][0-9]*  *[0-9][0-9.]*\).*$/\1/p' /tmp/gsf$$`
		set extamb=`sed -n 's/^# Ground ambient level: //p' /tmp/gsf$$`
		grep -s '^# gensky .* -c' /tmp/gsf$$
		set nodaysav=$status
		rm -f /tmp/gsf$$
		if ( $nodaysav ) then
			echo "The gensky command was not done for an overcast sky"
			echo "(-c option), so energy savings cannot be calculated."
			echo -n "Continue anyway? "
			if ( "$<" =~ [nN]* ) then
	--
		echo "Since you don't want any output, I guess we're done."
		exit 0
	endif
	echo "Title for output picture"
	readvar title
	set sctemp=/tmp/sc$$.csh
	cat <<'_EOF_' > $sctemp
	if ( $illumpic != $nofile ) then
		set iltemp=""
	else
		set iltemp=/tmp/il$$.pic
		set illumpic=$iltemp
	endif
	set tltemp=/tmp/tl$$.pic
	set dstemp=/tmp/ds$$.pic
	set temp1=/tmp/tfa$$
	set tempfiles=($iltemp $sctemp $tltemp $dstemp $temp1)
	echo "Your dayfact job is finished."
	echo "Please check for error messages below."
	echo ""
	set echo

Found error in /usr/bin/raddepend:
	$ grep -A5 -B5 /tmp/ /usr/bin/raddepend
	set es=1
	onintr quit
	rm -f EMPTY
	echo -n > EMPTY
	sleep 2
	( ls $* | sed -e 's~/~\\/~g' -e 's@^@/^@' -e 's@$@$/d@' ; echo '/^EMPTY$/,$d' ) > /tmp/sed$$
	getbbox -w $* >/dev/null
	set es=$status
	if ( $es == 0 ) then
		sync
		sleep 2
		ls -tuL | sed -f /tmp/sed$$ | sort
	endif
	quit:
	rm -f /tmp/sed$$ EMPTY
	exit $es
Package: rancid-util
Version: 2.3.2~a8-1
Filename: pool/main/r/rancid/rancid-util_2.3.2~a8-1_all.deb


Found error in /var/lib/rancid/getipacctg:
	$ grep -A5 -B5 /tmp/ /var/lib/rancid/getipacctg
	#	will display the top 25 for src or dst ip's within prefix
	#	192.168.0.0/24
	#
	# Contributed to rancid by Steve Neighorn of SCN Reasearch.
	
	TMP="/tmp/ipacct.$$.prefixes"
	TMP2="/tmp/ipacct.$$.sorted"
	TMP3="/tmp/ipacct.$$.pl"
	
	if [ $# -eq 0 ] ; then
	    echo "usage: getipacctg router_name [<number of lines off the top>] [<src/dest prefix filter> [...]]" >&2
	    exit 1;
	fi
	
	trap 'rm -fr /tmp/ipacct.$$ $TMP $TMP2 $TMP3;' 1 2 15
	clogin -c 'show ip accounting' $1 > /tmp/ipacct.$$
	
	if [ $? -ne 0 ] ; then
	    echo "clogin failed." >&2
	    exit 1
	fi
	--
	    fi
	    shift
	done
	6>&-
	
	egrep '[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+ +[0-9]+\.[0-9]+\.' /tmp/ipacct.$$ | \
		sed -e 's/^ *//' -e 's/  */ /g' -e 's/.$//' | \
		awk '{print $4":"$0;}' | sort -nr | \
		sed -e 's/^[^:]*://' > $TMP2
	
	if [ -s $TMP ] ; then
	--
	    perl $TMP3 $TMP $TMP2 | $HEAD
	else
	    $HEAD $TMP2
	fi
	
	rm -fr /tmp/ipacct.$$ $TMP $TMP2 $TMP3
	trap ';' 1 2 15
	exit 0
Package: r-base-core
Version: 2.7.1-1
Filename: pool/main/r/r-base/r-base-core_2.7.1-1_i386.deb


Found error in /usr/lib/R/bin/javareconf:
	$ grep -A5 -B5 /tmp/ /usr/lib/R/bin/javareconf
	
	# test functionality of the compiler
	javac_works='not present'
	if test -n "$JAVAC"; then
	    javac_works='not functional'
	    rm -rf /tmp/A.java /tmp/A.class
	    echo "public class A { }" > /tmp/A.java
	    if test -e /tmp/A.java; then
		if "${JAVAC}" /tmp/A.java >/dev/null; then
		    if test -e /tmp/A.class; then
			javac_works=yes
		    fi
		fi
	    fi
	    rm -rf /tmp/A.java /tmp/A.class
	fi
	if test "${javac_works}" = yes; then
	    echo "Java compiler    : ${JAVAC}"
	else
	    echo "Java compiler    : ${javac_works}"

Found error in /usr/lib/R/bin/javareconf.orig:
	$ grep -A5 -B5 /tmp/ /usr/lib/R/bin/javareconf.orig
	
	# test functionality of the compiler
	javac_works='not present'
	if test -n "$JAVAC"; then
	    javac_works='not functional'
	    rm -rf /tmp/A.java /tmp/A.class
	    echo "public class A { }" > /tmp/A.java
	    if test -e /tmp/A.java; then
		if "${JAVAC}" /tmp/A.java >/dev/null; then
		    if test -e /tmp/A.class; then
			javac_works=yes
		    fi
		fi
	    fi
	    rm -rf /tmp/A.java /tmp/A.class
	fi
	if test "${javac_works}" = yes; then
	    echo "Java compiler    : ${JAVAC}"
	else
	    echo "Java compiler    : ${javac_works}"
Package: r-base-core-ra
Version: 1.1.1-1
Filename: pool/main/r/r-base-core-ra/r-base-core-ra_1.1.1-1_i386.deb


Found error in /usr/lib/Ra/lib/R/bin/javareconf:
	$ grep -A5 -B5 /tmp/ /usr/lib/Ra/lib/R/bin/javareconf
	
	# test functionality of the compiler
	javac_works='not present'
	if test -n "$JAVAC"; then
	    javac_works='not functional'
	    rm -rf /tmp/A.java /tmp/A.class
	    echo "public class A { }" > /tmp/A.java
	    if test -e /tmp/A.java; then
		if "${JAVAC}" /tmp/A.java >/dev/null; then
		    if test -e /tmp/A.class; then
			javac_works=yes
		    fi
		fi
	    fi
	    rm -rf /tmp/A.java /tmp/A.class
	fi
	if test "${javac_works}" = yes; then
	    echo "Java compiler    : ${JAVAC}"
	else
	    echo "Java compiler    : ${javac_works}"
Package: rccp
Version: 0.9-2
Filename: pool/main/r/rccp/rccp_0.9-2_i386.deb


Found error in /usr/lib/rccp/delqueueask:
	$ grep -A5 -B5 /tmp/ /usr/lib/rccp/delqueueask
	#delete dctc queue scripte
	#shows the queye list and let you choose what to delete
	exec 6<&0
	count=0
	
	rccp -q > /tmp/cccp_tmp.txt 2>/dev/null
	exec < /tmp/rccp_tmp.txt
	while read line
	do
		let "count += 1"
		#echo $count $line
		#echo $line 
Package: realtimebattle-common
Version: 1.0.8-7
Filename: pool/main/r/realtimebattle/realtimebattle-common_1.0.8-7_all.deb


Found error in /usr/lib/realtimebattle/Robots/perl.robot:
	$ grep -A5 -B5 /tmp/ /usr/lib/realtimebattle/Robots/perl.robot
	my $COLOR= "00ff00 ff0000";
	my $QUIT = 0;
	my %OPTION;
	my %RDATA = (Energy => 100, RobotsLeft => 0);
	
	open(LOG,">>/tmp/perl.robot.log") || die "Kann Logfile nicht �ffnen: $!";
	LOG->autoflush(1);
	STDOUT->autoflush(1);
	STDERR->autoflush(1);
	
	RobotOption(SIGNAL,10); # Get Signals
Package: rkhunter
Version: 1.3.2-3
Filename: pool/main/r/rkhunter/rkhunter_1.3.2-3_all.deb


Found error in /usr/bin/rkhunter:
	$ grep -A5 -B5 /tmp/ /usr/bin/rkhunter
			exit 0
		fi
	fi
	
	if [ "$1" = "--debug" ]; then
		if [ -e "/tmp/rkhunter-debug" ]; then
			if [ -f "/tmp/rkhunter-debug" -a ! -h "/tmp/rkhunter-debug" ]; then
				rm -f /tmp/rkhunter-debug >/dev/null 2>&1
			else
				echo "Cannot use '--debug' option. /tmp/rkhunter-debug already exists, but it is not a file."
				exit 1
			fi
		fi
	
		DEBUG_OPT=1
	
		exec 1>/tmp/rkhunter-debug 2>&1
		set -x
	else
		DEBUG_OPT=0
	fi
	
	--
		# files and directories.
		#
	
	
		# 55808 Variant A
		W55808A_FILES="${RKHROOTDIR}/tmp/.../r
			       ${RKHROOTDIR}/tmp/.../a"
	
	
		# AjaKit Rootkit
		AJAKIT_FILES="${RKHROOTDIR}/dev/tux/.addr
			      ${RKHROOTDIR}/dev/tux/.proc
	--
			      ${RKHROOTDIR}/usr/lib/.../du
			      ${RKHROOTDIR}/usr/lib/.../top"
		BOBKIT_DIRS="${RKHROOTDIR}/usr/lib/...
			     ${RKHROOTDIR}/usr/lib/.../bkit-ssh
			     ${RKHROOTDIR}/usr/lib/.bkit-
			     ${RKHROOTDIR}/tmp/.bkp"
	
	
		# CiNIK Worm (Slapper.B variant)
		CINIK_FILES="${RKHROOTDIR}/tmp/.cinik"
		CINIK_DIRS="${RKHROOTDIR}/tmp/.font-unix/.cinik"
	
	
		# Danny-Boy's Abuse Kit
		DANNYBOYS_FILES="${RKHROOTDIR}/dev/mdev
				 ${RKHROOTDIR}/usr/lib/libX.a"
	--
		# Ni0 Rootkit
		NIO_FILES="${RKHROOTDIR}/var/lock/subsys/...datafile.../...net...
			   ${RKHROOTDIR}/var/lock/subsys/...datafile.../...port...
			   ${RKHROOTDIR}/var/lock/subsys/...datafile.../...ps...
			   ${RKHROOTDIR}/var/lock/subsys/...datafile.../...file..."
		NIO_DIRS="${RKHROOTDIR}/tmp/waza
			  ${RKHROOTDIR}/var/lock/subsys/...datafile...
			  ${RKHROOTDIR}/usr/sbin/es"
	
	
		# Ohhara Rootkit
	--
			       ${RKHROOTDIR}/usr/man/man5/..%/.dir/scannah
			       ${RKHROOTDIR}/etc/rc.d/rc0.d/..%/.dir"
	
	
		# Scalper (FreeBSD.Scalper.Worm) Worm
		SCALPER_FILES="${RKHROOTDIR}/tmp/.a
			       ${RKHROOTDIR}/tmp/.uua"
	
	
		# SHV4 Rootkit
		SHV4_FILES="${RKHROOTDIR}/etc/ld.so.hash
			    ${RKHROOTDIR}/lib/libext-2.so.7
	--
				 ${RKHROOTDIR}/usr/lib/man1/...
				 ${RKHROOTDIR}/dev/.haos"
	
	
		# Slapper Worm
		SLAPPER_FILES="${RKHROOTDIR}/tmp/.bugtraq
			       ${RKHROOTDIR}/tmp/.uubugtraq
			       ${RKHROOTDIR}/tmp/.bugtraq.c
			       ${RKHROOTDIR}/tmp/httpd
			       ${RKHROOTDIR}/tmp/.unlock
			       ${RKHROOTDIR}/tmp/update
			       ${RKHROOTDIR}/tmp/.cinik
			       ${RKHROOTDIR}/tmp/.b"
	
	
		# Sneakin Rootkit
		SNEAKIN_DIRS="${RKHROOTDIR}/tmp/.X11-unix/.../rk"
	
	
		# Suckit Rootkit
		SUCKIT_FILES="${RKHROOTDIR}/sbin/initsk12
			      ${RKHROOTDIR}/sbin/initxrk
	--
	
		# URK - Universal Rootkit
		URK_FILES="${RKHROOTDIR}/usr/man/man1/xxxxxxbin/find
			   ${RKHROOTDIR}/usr/man/man1/xxxxxxbin/du
			   ${RKHROOTDIR}/usr/man/man1/xxxxxxbin/ps
			   ${RKHROOTDIR}/tmp/conf.inf"
		URK_DIRS="${RKHROOTDIR}/usr/man/man1/xxxxxxbin"
	
	
		# VcKit Rootkit
		VCKIT_DIRS="${RKHROOTDIR}/usr/include/linux/modules/lib.so
	--
			    rcfile:bin/xsf:Optic Kit (Tux) Worm"
	
	
		# Possible rootkit files and directories
		FILESCAN="file:${RKHROOTDIR}/dev/sdr0:Possible T0rn Rootkit MD5 hash database
			  file:${RKHROOTDIR}/tmp/.syshackfile:Trojaned syslog daemon
			  file:${RKHROOTDIR}/tmp/.bash_history:Possible Lite5-r Rootkit
			  file:${RKHROOTDIR}/usr/info/.clib:Possible backdoor
			  file:${RKHROOTDIR}/usr/sbin/tcp.log:Possible sniffer
			  file:${RKHROOTDIR}/usr/bin/take/pid:Trojaned SSH daemon
			  file:${RKHROOTDIR}/sbin/create:MzOzD Local backdoor
			  file:${RKHROOTDIR}/dev/ttypz:spwn login backdoor
Package: scilab-bin
Version: 4.1.2-5
Filename: pool/non-free/s/scilab/scilab-bin_4.1.2-5_i386.deb


Found error in /usr/lib/scilab-4.1.2/bin/scilink:
	$ grep -A5 -B5 /tmp/ /usr/lib/scilab-4.1.2/bin/scilink
	SCI=$1
	export SCI
	shift
	LOCALPOS=`pwd`
	cd $SCI
	make show | grep -v make > /tmp/SciLink$$1
	sed -e "s+routines/default+\$SD+g"  -e "s+libs+\$SL+g" -e "s+./pvm3+\$SPVM+g" /tmp/SciLink$$1 > /tmp/SciLink$$2
	for i in $*
	do
	  x=`basename $i`
	  sed "s+\$SD/$x++g" /tmp/SciLink$$2 > /tmp/SciLink$$3
	  rm -f /tmp/SciLink$$2
	  mv /tmp/SciLink$$3 /tmp/SciLink$$2
	done
	echo "#!/bin/sh" > /tmp/SciLink$$3
	echo  SCI=$SCI >>  /tmp/SciLink$$3
	echo "SD=\$SCI/routines/default" >>  /tmp/SciLink$$3
	echo "SPVM=\$SCI/pvm3" >>  /tmp/SciLink$$3
	echo "SL=\$SCI/libs" >>  /tmp/SciLink$$3
	echo "LOCAL=\"$*\"" >>  /tmp/SciLink$$3
	sed -e "s+\$SL+ \$LOCAL \$SL+" -e "s+show+scilex+g" /tmp/SciLink$$2 >> /tmp/SciLink$$3
	cd $LOCALPOS
	mv /tmp/SciLink$$3 Script
	chmod +x Script 
	echo "Linking a new Scilab with " $*
	./Script 
	echo "I've created : scilex and scilab which uses that scilex"
	sed -e "s+\$SCI/bin/scilex+`pwd`/scilex+g" $SCI/bin/scilab > scilab 
	chmod +x scilab 
	#rm -f /tmp/SciLink*
	
	

Found error in /usr/lib/scilab-4.1.2/util/scidoc:
	$ grep -A5 -B5 /tmp/ /usr/lib/scilab-4.1.2/util/scidoc
	# Copyright INRIA
	echo ------------------- File $2--------------------
	SCI=$1
	export SCI
	if [ -f $3  ]; then rm $3;fi;
	trap "rm -f /tmp/$2.$$ /tmp/$2.$$.res /tmp/$2.$$.err /tmp/$2.$$.diff\
		;exit 1"  1 2 13 15
	echo "clear;lines(0);deff('[]=bugmes()','write(%io(2),''error on test'')');\
		diary('$3');driver('Pos');" >> /tmp/$2.$$ ;
	sed     -e "s/pause,end/bugmes();quit;end/" \
		-e "s/halt()//" \
	        $2 >> /tmp/$2.$$ ;
	echo "diary(0);xend();quit;quit;quit;quit;quit;quit;" >> /tmp/$2.$$ ;
	($SCI/bin/scilex -nw < /tmp/$2.$$ > /tmp/$2.$$.res ) 2> /tmp/$2.$$.err ;
	sed -e "s/ \.[0-9]/0&/g" -e "s/0 \./0./g" -e "s/E+/D+/g" -e "s/E-/D-/g" -e "s/-\./-0\./g" $3 > $3.n
	grep -v "xinit(" $3.n | grep -v "diary(" | grep -v "exec("  > $3
	rm -f $3.n
	if ( grep error /tmp/$2.$$.res >  /dev/null ) ; then 
		if [ $# != 4 ]; then 
			echo "ERROR DETECTED  while executing $2" ;
		fi;
	fi;
	echo ---------------------------------------------------------- 
	rm -f /tmp/$2.$$ /tmp/$2.$$.res /tmp/$2.$$.err /tmp/$2.$$.diff
	exit 0
	

Found error in /usr/lib/scilab-4.1.2/util/scidem:
	$ grep -A5 -B5 /tmp/ /usr/lib/scilab-4.1.2/util/scidem
	
	# Copyright INRIA
	echo ------------------- File $2--------------------
	SCI1=$1
	if [ -f $3  ]; then rm $3;fi;
	trap "rm -f /tmp/$2.$$ /tmp/$2.$$.res /tmp/$2.$$.err /tmp/$2.$$.diff\
	        ;exit 1"  1 2 13 15
	echo "clear;lines(0);deff('[]=bugmes()','write(%io(2),''error on test'')');\
	        diary('$3');driver('Pos');" >> /tmp/$2.$$ ;
	sed     -e "s/pause,end/bugmes();quit;end/" \
	        -e "s/halt()//" \
	        $2 >> /tmp/$2.$$ ;
	echo "diary(0);xend();exit;" >> /tmp/$2.$$ ;
	($SCI1/bin/scilab -nwni < /tmp/$2.$$ > /tmp/$2.$$.res ) 2> /tmp/$2.$$.err ;
	sed -e "s/ \./0\./g" -e "s/E+/D+/g" -e "s/E-/D-/g" -e "s/-\./-0\./g" -e "s/^-->//g" -e "s/^-1->//g" $3 > $3.n
	grep -v "xinit(" $3.n | grep -v "diary(" | grep -v "exec("  > $3
	rm -f $3.n
	if ( grep " error" /tmp/$2.$$.res >  /dev/null ) ; then 
	        if [ $# != 4 ]; then 
	                echo "Test failed ERROR DETECTED  while executing $2" ;
	        else if (grep "$4" /tmp/$2.$$.res >  /dev/null ) ; 
	             then  echo Test skipped ;
	             else echo "Test failed ERROR DETECTED  while executing $2" ;
	             fi;
	        fi;
	else if [ -f $3.ref ];then 
	        if ( diff -w $3 $3.ref > /tmp/$2.$$.diff ) ;
	        then  echo Test passed ;
	        else  echo Test Failed SEE : diff -w  $3 $3.ref ;
	        fi;
	      fi;
	fi;
	echo ---------------------------------------------------------- 
	#rm -f /tmp/$2.$$ /tmp/$2.$$.res /tmp/$2.$$.err /tmp/$2.$$.diff
	exit 0
Package: scratchbox2
Version: 1.99.0.24-1
Filename: pool/main/s/scratchbox2/scratchbox2_1.99.0.24-1_i386.deb


Found error in /usr/share/scratchbox2/scripts/dpkg-checkbuilddeps:
	$ grep -A5 -B5 /tmp/ /usr/share/scratchbox2/scripts/dpkg-checkbuilddeps
					installed_to_host="yes"
					return
				fi
			fi
	
			pkg_stat_tmp=/tmp/dpkg.$$.tmp
			# next check again if the package exists on the target,
			# just to be able to give a better error message.
			if dpkg-query -s --admindir=$TARGET_DPKG_ADMINDIR_ALL_PKGS \
				"$pkgname" >$pkg_stat_tmp 2>&1
			then
	--
		# version which is available in /usr/bin may not know about the
		# --admindir option. Can't use a pipeline here, we want to the
		# dpkg-checkbuilddeps' return status.
		SBOX_DISABLE_MAPPING=1 /usr/bin/dpkg-checkbuilddeps \
			--admindir=$TARGET_DPKG_ADMINDIR_USABLE_PKGS $args \
			> /tmp/missing_deps.$$ 2>&1
		if [ $? == 0 ]
		then
			# real dpkg-checkbuilddeps says "all ok"
			rm /tmp/missing_deps.$$
			return 0
		fi
	
		# else real dpkg-checkbuilddeps failed.
		sed -e 's/^/     /' < /tmp/missing_deps.$$
		missing_deps=$(egrep \
			"^dpkg-checkbuilddeps: Unmet build dependencies:" \
				/tmp/missing_deps.$$ | \
			sed 's/dpkg-checkbuilddeps: Unmet build dependencies: //')
		rm /tmp/missing_deps.$$
	
		if [ -n "$missing_deps" ]; then
			# failing target deps, and missing packages are listed
			# in $missing_deps = continue by checking if those are
			# available on the host environment

Found error in /usr/share/scratchbox2/scripts/sb2-check-pkg-mappings:
	$ grep -A5 -B5 /tmp/ /usr/share/scratchbox2/scripts/sb2-check-pkg-mappings
	
		# get list of files intalled by this package (dpkg -L),
		# and feed it to sb2-show to be verified (-D causes directories
		# to be ignored). Also ignore all files which are installed
		# to these diretories listed in $SB2_CHECK_PKG_MAPPINGS_IGNORE_LIST.
		dpkg -L $pkg >/tmp/sb2-pkg-chk.$tstamp.$$
		if [ $? != 0 ]
		then
			num_failed=`expr $num_failed + 1`
			echo "	$pkg is not available"
		else
			sed < /tmp/sb2-pkg-chk.$tstamp.$$ \
			    -e 's/diverted by .* to: //' \
			    -e 's/package diverts others to: //' |
			sb2-show -D verify-pathlist-mappings \
				$SBOX_TARGET_ROOT $SB2_CHECK_PKG_MAPPINGS_IGNORE_LIST
			if [ $? == 0 ]
	--
			else
				num_failed=`expr $num_failed + 1`
				echo "	$pkg can not be used in this mode ($SBOX_MAPMODE)"
			fi
		fi
		rm /tmp/sb2-pkg-chk.$tstamp.$$
	done
	
	echo "Checked $pkgnum packages: Ok=$num_ok, unusable=$num_failed"
	
	if [ $check_all_pkgs = "yes" ]
Package: sendmail-base
Version: 8.14.3-5
Filename: pool/main/s/sendmail/sendmail-base_8.14.3-5_all.deb


Found error in /usr/sbin/checksendmail:
	$ grep -A5 -B5 /tmp/ /usr/sbin/checksendmail
		$resolve  = "/etc/mail/address.resolve";
		$cffile   = "/etc/mail/sendmail.cf";
	
	# Pre-create tmp files (so can use safely)
		use Fcntl;
		foreach ("/tmp/csm$$", "/tmp/csm.in$$") {
			die "Can't pre-create $_" 
				unless sysopen(T,$_,O_RDWR|O_CREAT|O_EXCL,0600)
				and close(T);
		};
	
	--
			shift @ARGV;
			if ($#ARGV < 1) {
				$errormsg = "No one\@test.addr given for -T flag\n";
				&usage();
			}
			open (OUT, ">/tmp/csm.in$$") ||
						die "Can't open >/tmp/csm.in$$";
			$resolve = "/tmp/csm.in$$";
			print OUT "$ARGV[1]\n";
			close (OUT);
			$setfile = 7;
		}
		elsif ($ARGV[1] eq "-b")
	--
	}
	
	sub handler {  # 1st argument is signal name
	     local($sig) = @_;
	     print STDERR "Caught a SIG$sig--shutting down\n";
	     unlink("/tmp/csm$$") || die "Can't unlink /tmp/csm$$";
	     unlink("/tmp/csm.in$$");
	     if ($setlog & 1) {
	       close(LOG);
	     }
	     exit(0);
	}
	--
	  }
	}
	# pass names from resolve files to sendmail
	
	open(IN, $resolve) || die "can't open $resolve\n";
	open(OUT, ">/tmp/csm$$") || die "can't open >/tmp/csm$$\n";
	while (<IN>) 
	{
	    /^$/ && next;
	    /^#/ && next;
	    # if the binary is less than 8.7 then use result of ruleset 0
	--
	    $allinput .= " $_";
	}
	    $allinput =~ s/^ //;
	close(OUT);
	close(IN);
	$sendmailprog = "$sendmail -bt -C$cffile < /tmp/csm$$|";
	open(MAIL, $sendmailprog) || die "can't exec $sendmailprog...\n";
	&parseresolve();
	
	# calculate $f
	    $sendmailprog = "|$sendmail -bt -C$cffile > /tmp/csm$$";
	    open (OUT, $sendmailprog);
	    open (IN, $resolve);
	    # sendmail 5 automatically runs ruleset 3
	    if ( $binver == 5 ) {
		$rules = "1,4";
	--
	    if ($setlog & 1) {
		print LOG "\n";			# stuff last line into sendmail
	    }
	    close(IN);
	    close(OUT);
	    &parseaddress ("/tmp/csm$$", "\n\$f address header transformations\n");
	
	# Get the R= and S= special rulesets from the configuration
	# now print to the log file
	if ($setlog & 1) {
	  print LOG "\nGet the R= and S= mailer specific rulesets\n";
	--
	close(FID);
	
	# pass envelope recipient names from various mailers through sendmail
	foreach $i (keys %themailers)
	{
	    $sendmailprog = "|$sendmail -bt -C$cffile > /tmp/csm$$";
	    open (OUT, $sendmailprog);
	    if ($dorspath & 1) { $rspath = "$i ER: "; }
	
	    # if the binary is less than 8.7 then use result of ruleset 0
	    if ( $binver <= 6 ) {
	--
	      	print LOG "\n";			# stuff last line into the log
	    }
	    close(OUT);
	    $note = "";
	    if ($erecvrules{$i} eq $hrecvrules{$i}) { $note = "and header "; }
	    &parseaddress ("/tmp/csm$$", "\n`To' envelope ${note}address transformations for mailer $i [$rules]:\n");
	}
	
	# pass header recipient names from various mailers through sendmail
	foreach $i (keys %themailers)
	{
	    $sendmailprog = "|$sendmail -bt -C$cffile > /tmp/csm$$";
	    open (OUT, $sendmailprog);
	    if ($dorspath & 1) { $rspath = "$i HR: "; }
	
	    # only run the header ruleset if the mailer uses split env/hdr rulesets
	    if ($hrecvrules{$i} ne $erecvrules{$i}) {
	--
	      # now print to the log file
	      if ($setlog & 1) {
	      	  print LOG "\n";			# stuff last line into the log
	      }
	      close(OUT);
	      &parseaddress ("/tmp/csm$$", "\n`To' header address transformations for mailer $i [$rules]:\n");
	    }
	}
	
	# pass envelope sender names from various mailers through sendmail
	foreach $i (keys %themailers)
	{
	    $sendmailprog = "|$sendmail -bt -C$cffile > /tmp/csm$$";
	    open (OUT, $sendmailprog);
	    if ($dorspath & 1) { $rspath = "$i ES: "; }
	
	    # if the binary is less than 8.7 then use result of ruleset 0
	    if ( $binver <= 6 ) {
	--
	    print OUT "\n";			# stuff last line into sendmail
	    close(IN);
	    close(OUT);
	    $note = "";
	    if ($esendrules{$i} eq $hsendrles{$i}) {$note = "and header ";}
	    &parseaddress ("/tmp/csm$$", "\n`From' envelope ${note}address transformations for mailer $i [$rules]:\n");
	}
	
	# pass header sender names from various mailers through sendmail
	foreach $i (keys %themailers)
	{
	    $sendmailprog = "|$sendmail -bt -C$cffile > /tmp/csm$$";
	    open (OUT, $sendmailprog);
	    if ($dorspath & 1) { $rspath = "$i HS: "; }
	
	    # only run the header ruleset if the mailer uses split env/hdr rulesets
	    if ($hsendrules{$i} ne $esendrules{$i}) {
	--
	      }
	    }
	      print OUT "\n";			# stuff last line into sendmail
	      close(IN);
	      close(OUT);
	      &parseaddress ("/tmp/csm$$", "\n`From' address header transformations for mailer $i [$rules]:\n");
	    }
	}
	
	foreach $i (keys %themailers)
	{
	    $sendmailprog = "|$sendmail -bt -C$cffile > /tmp/csm$$";
	    open (OUT, $sendmailprog);
	    if ($dorspath & 1) { $rspath = "\$g: "; }
	
	    # if the binary is 8.9 or below then check if the mailer
	    #	specific ruleset exists
	--
	    print OUT "\n";			# stuff last line into sendmail
	    close(IN);
	    close(OUT);
	    $note = "";
	    if ($esendrules{$i} eq $hsendrles{$i}) {$note = "and header ";}
	    &parseaddress ("/tmp/csm$$", "\n\$g address transformations for mailer $i [$rules]:\n");
	}
	
	unlink("/tmp/csm$$") || die "Can't unlink /tmp/csm$$";
	unlink("/tmp/csm.in$$");
	
	exit;

Found error in /usr/bin/expn:
	$ grep -A5 -B5 /tmp/ /usr/bin/expn
	print "----------\n" if $vw;
	select(STDOUT);
	for $f (sort @final) {
		print "$f\n";
	}
	unlink("/tmp/expn$$");
	exit(0);
	
	
	# abandon all attempts deliver to $server
	# register the current addresses as the final ones
	--
			&giveup('mx domainify',$giveup);
			return 0;
		}
	
		$0 = "$av0 - nslookup of $server";
		sysopen(T,"/tmp/expn$$",O_RDWR|O_CREAT|O_EXCL,0600) || die "open > /tmp/expn$$: $!\n";
		print T "set querytype=MX\n";
		print T "$server\n";
		close(T);
		$cpref = 1.0E12;
		undef $nserver;
		open(NSLOOKUP,"nslookup < /tmp/expn$$ 2>&1 |") || die "open nslookup: $!";
		while(<NSLOOKUP>) {
			print if ($debug > 2);
			if (/mail exchanger = ([-A-Za-z_.0-9+]+)/) {
				$nh = $1;
				if (/preference = (\d+)/) {
	--
				return 0;	
			}
					
		}
		close(NSLOOKUP);
		unlink("/tmp/expn$$");
		unless ($nserver) {
			$0 = "$o0 - finished mxlookup";
			return 0 unless $lastchance;
			&giveup('mx domainify',"$server: Could not resolve address");
			return 0;
	--
	it is possible to eliminate bugs.
	.SH ENVIRONMENT
	No environment variables are used.
	.SH FILES
	.PD 0
	.B /tmp/expn$$
	.B temporary file used as input to 
	.BR nslookup .
	.SH SEE ALSO
	.BR aliases (5), 
	.BR sendmail (8),
Package: sgml2x
Version: 1.0.0-11.1
Filename: pool/main/s/sgml2x/sgml2x_1.0.0-11.1_all.deb


Found error in /usr/bin/rlatex:
	$ grep -A5 -B5 /tmp/ /usr/bin/rlatex
	LATEXPRG=${LATEXPRG:-latex}
	
	while true; do
	    pid=$$
	    export pid
	    rm -f /tmp/rlok$pid
	    (
		if ${LATEXPRG} $*
		then
		    touch /tmp/rlok$pid
		fi
	    ) | tee /tmp/rlso$pid
	
	    if [ ! -f /tmp/rlok$pid ]
	    then
		rm -f /tmp/rlso$pid
		echo >&2 "$(basename $0): Exiting in error"
		exit 1
	    fi
	
	    if ! grep -E '^(LaTeX Warning: (Label\(s\) may|There were undefined references)|Package longtable Warning: Table widths have changed)' /tmp/rlso$pid >/dev/null
	    then
		rm -f /tmp/rlso$pid
		exit 0
	    fi
	    echo "Re-running LaTeX"
	done
Package: smsclient
Version: 2.0.8z-10
Filename: pool/main/s/smsclient/smsclient_2.0.8z-10_i386.deb


Found error in /usr/share/doc/smsclient/examples/contrib/mail2sms-shell/mail2sms.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/smsclient/examples/contrib/mail2sms-shell/mail2sms.sh
	#
	# Mail to SMS gateway script, version 1.0
	# By Andy Hawkins (andy@gently.demon.co.uk)
	
	
	/usr/bin/cp /dev/null /tmp/header.$$
	ELINE=0
	while [ $ELINE -lt 3 ]
	do
	  read LINE
	  echo "$LINE" >> /tmp/header.$$
	  if [ "$LINE" = "" ]
	  then
	    ELINE=3
	  else
	    ELINE=0
	  fi
	done
	
	SENDER=`head -n 1 /tmp/header.$$ | awk '{print $2}'`
	TARGET=`grep ^Subject: /tmp/header.$$ | awk '{print $2}'`
	
	
	ELINE=0
	while [ $ELINE -lt 2 ]
	do
	  read LINE
	  echo "$LINE" >> /tmp/body.$$
	  if [ "$LINE" = "" ]
	  then
	    let ELINE=ELINE+1
	  else
	    ELINE=0
	--
	
	RETRY=5
	SENT=0
	while [ $RETRY -gt 1 ] && [ $SENT -eq 0 ]
	do
	  MSG=`cat /tmp/body.$$`
	  /usr/bin/sms_client $TARGET "$MSG" >> /tmp/sms.log
	  case $? in
	   0) /bin/mailx -s "SMS success to $TARGET" $SENDER < /dev/null 
	      SENT=1;;
	   1) echo "Message too long" | \
	           /bin/mailx -s "SMS failure to $TARGET" $SENDER
	--
	    echo "Unable to send message after 5 attemps, please try later" | \
	        /bin/mailx -s "SMS failure to $TARGET" $SENDER
	exit
	fi
	
	rm /tmp/header.$$
	rm /tmp/body.$$
Package: sng
Version: 1.0.2-5
Filename: pool/main/s/sng/sng_1.0.2-5_i386.deb


Found error in /usr/bin/sng_regress:
	$ grep -A5 -B5 /tmp/ /usr/bin/sng_regress
		eyeball_test=1
	    ;;
	    *.png)
	        if [ "$stop_on_error" = "0" ]
		then
			trap "rm -f /tmp/*$$.[ps]ng" 0 1 2 15 
		else
			trap "ls /tmp/*$$.[ps]ng" 0 1 2 15 
		fi
	
		if [ "$eyeball_test" = "1" ]
		then
		    echo $file.
		    sng <$file | sng >/tmp/recompiled$$.png && $viewer $file /tmp/recompiled$$.png
		fi
	
	        # echo "Regression-testing against PNG file \`$file'"
	        if sng <${file} >/tmp/decompiled$$.sng
	        then
		    :
		else
	            echo "$file: decompilation of the test PNG failed.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	        fi
	        if sng </tmp/decompiled$$.sng >/tmp/decompiled$$.png
	        then
		    :
		else
	            echo "$file: recompilation of the decompiled form failed.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	        fi
	        if sng </tmp/decompiled$$.png >/tmp/canonicalized$$.sng
	        then
		    :
		else
	            echo "$file: generation of the canonicalized form failed.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	        fi
	        if sng </tmp/canonicalized$$.sng >/tmp/canonicalized$$.png
	        then
		    :
		else
	            echo "$file: recompilation of the canonicalized form failed.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	        fi
	        if cmp -s /tmp/decompiled$$.png /tmp/canonicalized$$.png
	        then
		    echo "$file: regression test passed."
		else
	            echo "$file: decompiled and canonicalized versions differ.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	--
	    *.sng)
	        # echo "Regression-testing against SNG file \`$file'"
	        # Make a canonicalized version of the test file
	        # Regenerate canonicalized version from its PNG
	        # Diff the two
	        if sng <${file} >/tmp/test$$.png
	        then
		    :
		else
	            echo "$file: compilation of the test SNG failed.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	        fi
	        if sng </tmp/test$$.png >/tmp/canonicalized$$.sng
	        then
		    :
		else
	            echo "$file: generation of the canonicalized form failed.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	        fi
	        if sng </tmp/canonicalized$$.sng >/tmp/canonicalized$$.png
	        then
		    :
		else
	            echo "$file: recompilation of the canonicalized form failed.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	        fi
	        if sng </tmp/canonicalized$$.png >/tmp/decompiled$$.sng
	        then
		    :
		else
	            echo "$file: decompilation of the canonicalized form failed.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	        fi
	        if diff -c /tmp/canonicalized$$.sng /tmp/decompiled$$.sng
	        then
		    echo "$file: regression test passed."
		else
	            echo "$file: decompiled and canonicalized versions differ.";
	            case $stop_on_error in 1) exit 1;; 0) continue;; esac
	--
	    ;;
	    esac
	done
	
	trap '' 0 12 2 15
	rm -f /tmp/*$$.[ps]ng
	
	# sng_regress ends here
Package: socat
Version: 1.6.0.1-1
Filename: pool/main/s/socat/socat_1.6.0.1-1_i386.deb


Found error in /usr/share/doc/socat/examples/readline.sh:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/socat/examples/readline.sh
	    HISTFILE="$HOME/.$1_history"
	    HISTOPT=",history=$HISTFILE"
	else
	    HISTOPT=
	fi
	mkdir -p /tmp/$USER || exit 1
	#
	#
	
	exec socat -d readline"$HISTOPT",noecho='[Pp]assword:' exec:"$PROGRAM",sigint,pty,setsid,ctty,raw,echo=0,stderr 2>/tmp/$USER/stderr2
	
Package: sympa
Version: 5.3.4-5
Filename: pool/main/s/sympa/sympa_5.3.4-5_i386.deb


Found error in /usr/lib/cgi-bin/sympa/wwsympa.fcgi:
	$ grep -A5 -B5 /tmp/ /usr/lib/cgi-bin/sympa/wwsympa.fcgi
		 return undef ;
	     }    
	
	     $list->{'admin'}{'status'} = $in{'status'};
	
	 #    open TMP, ">/tmp/dump1";
	 #    &tools::dump_var ($list->{'admin'}, 0, \*TMP);
	 #    close TMP;
	
	     unless ($list->save_config($param->{'user'}{'email'})) {
		 &report::reject_report_web('intern','cannot_save_config',{'listname'=> $list->{'name'}},$param->{'action'},$list,$param->{'user'}{'email'},$robot);
	--
			      'status' => 'error',
			      'error_type' => 'internal'});
		 return undef;
	     }
	
	 #    open TMP, ">/tmp/dump2";
	 #    &tools::dump_var ($list->{'admin'}, 0, \*TMP);
	 #    close TMP;
	
	     ## create the aliases
	     if ($in{'status'} eq 'open') {
	--
		} else {
		    $param->{'expert_page'} = 0;
		}
	    }
	    
	     #open TMP, ">/tmp/dump1";
	     #&tools::dump_var($param, 0,\*TMP);
	     #close TMP;
	
	     &web_db_log({'parameters' => $in{'path'},
			  'status' => 'success'});
	--
		} else {
		    $param->{'expert_page'} = 0;
		}
	    }
	    
	     open TMP, ">/tmp/dump";
	     $document->dump(\*TMP);
	     close TMP;
	
	     open TMP, ">/tmp/dump2";
	     &tools::dump_var ($param, 0, \*TMP);
	     close TMP;
	     &web_db_log({'robot' => $robot,'list' => $list->{'name'},'action' => $param->{'action'},'parameters' => "$in{'path'}",'target_email' => "",'msg_id' => '','status' => 'success','error_type' => '','user_email' => $param->{'user'}{'email'},'client' => $ip,'daemon' => $daemon_name});
	     return 1;
	}

Found error in /usr/lib/sympa/bin/sympa.pl:
	$ grep -A5 -B5 /tmp/ /usr/lib/sympa/bin/sympa.pl
	}elsif ($main::options{'help'}) {
	    print $usage_string;
	    exit 0;
	}elsif ($main::options{'make_alias_file'}) {
	    my $all_lists = &List::get_lists('*');
	    unless (open TMP, ">/tmp/sympa_aliases.$$") {
		printf STDERR "Unable to create tmp/sympa_aliases.$$, exiting\n";
		exit;
	    }
	    printf TMP "#\n#\tAliases for all Sympa lists open (but not for robots)\n#\n";
	    close TMP;
	    foreach my $list (@$all_lists) {
		system ("/usr/lib/sympa/bin/alias_manager.pl add $list->{'name'} $list->{'domain'} /tmp/sympa_aliases.$$") if ($list->{'admin'}{'status'} eq 'open');
	    }
	    printf ("Sympa aliases file is /tmp/sympa_aliases.$$ file made, you probably need to installed it in your SMTP engine\n");
	    
	    exit 0;
	}elsif ($main::options{'version'}) {
	    print $version_string;
	    
Package: tiger
Version: 1:3.2.2-3.1
Filename: pool/main/t/tiger/tiger_3.2.2-3.1_i386.deb


Found error in /usr/lib/tiger/util/genmsgidx:
	$ grep -A5 -B5 /tmp/ /usr/lib/tiger/util/genmsgidx
	  done
	  return $retval
	}
	
	TESTEXEC=-x
	( [ $TESTEXEC /bin/sh ] ) 2> /tmp/te.$$
	[ -s /tmp/te.$$ ] && TESTEXEC=-f
	export TESTEXEC
	
	RM=`findcmd rm`
	[ -n "$RM" ] && $RM /tmp/te.$$
	AWK=`findcmd awk`
	BASENAME=`findcmd basename`
	CHMOD=`findcmd chmod`
	LS=`findcmd ls`
	
Package: vdr-dbg
Version: 1.6.0-5
Filename: pool/main/v/vdr/vdr-dbg_1.6.0-5_i386.deb


Found error in /usr/bin/vdrleaktest:
	$ grep -A5 -B5 /tmp/ /usr/bin/vdrleaktest
	LANG=C LD_LIBRARY_PATH="/usr/lib/debug;$LD_LIBRARY_PATH" \
	   valgrind --tool=memcheck --leak-check=yes --num-callers=20 \
	   --suppressions=/usr/share/vdr/valgrind.supp \
	   /usr/bin/vdr-dbg -v $VIDEO_DIR -c $CFG_DIR -L $PLUGIN_DIR  -r $REC_CMD \
	   -E $EPG_FILE -g /tmp $OPTIONS --port $SVDRP_PORT --lirc \
	   "$@" 2>/tmp/memleaktest.log
	
	/etc/init.d/vdr restart
Package: wims
Version: 3.62-13
Filename: pool/main/w/wims/wims_3.62-13_i386.deb


Found error in /var/lib/wims/public_html/bin/coqweb:
	$ grep -A5 -B5 /tmp/ /var/lib/wims/public_html/bin/coqweb
	# If debug on
	#
	if [ "$w_croq6_dbg_level" == "1" ];then
	 echo "[coqweb] called with $* ;;<br/>"
	 echo "<br/>env start <br/>"
	 env >/tmp/env$$
	 sed "s/$/<br\/>/" </tmp/env$$ >/tmp/sed$$
	 cat /tmp/sed$$
	 rm /tmp/env$$ /tmp/sed$$
	 echo "<br/>env end"
	 echo "<br/>coqweb start <br/>"
	fi
	#
	# The tuning

Found error in /var/lib/wims/bin/account.sh:
	$ grep -A5 -B5 /tmp/ /var/lib/wims/bin/account.sh
	if [ "$site_accounting" != "yes" ]; then exit; fi
	
	# working directory. Changeable.
	cd `dirname $0`/..
	wims_home=`pwd`
	tmpdir=$wims_home/tmp/log
	cd log
	
	if [ -z "$1" ]; then workday=`date -d "22 hours ago" '+%Y%m%d'`; else workday=$1;fi
	
	test=`grep $workday account/00access.act | awk '{print $1}'`
	--
	
	exit
	
	# Now referer logs.
	
	cat /tmp/referer-home.log | sort | uniq | grep 'http://' | grep -v 'wims\.unice\.fr' | sed 's!http://!!g' | awk -F '#' '{print $1}' >>referer.log
	echo >/tmp/referer-home.log
	
	cat referer.log* | grep $workday | awk '{print $3"      	"$4}' \
		| sort | uniq | sort -k 1 >$tmpdir/acctmp.log
	
	grep -v '??' $tmpdir/acctmp.log >referer/refuniq.log
Package: xara-gtk-byte
Version: 1.0.25
Filename: pool/main/a/ara/xara-gtk-byte_1.0.25_all.deb


Found error in /usr/bin/xara:
	$ grep -A5 -B5 /tmp/ /usr/bin/xara
	Бинарный файл ./usr/bin/xara совпадает
Package: xastir
Version: 1.9.2-1
Filename: pool/main/x/xastir/xastir_1.9.2-1_i386.deb


Found error in /usr/lib/xastir/get-maptools.sh:
	$ grep -A5 -B5 /tmp/ /usr/lib/xastir/get-maptools.sh
	    if (! grep /usr/local/lib $LDCONF_FILE 2>&1 > /dev/null) 
	    then
	        printf "Warning: /usr/local/lib not in %s - adding it\n" $LDCONF_FILE
		if [ -f $LDCONF_FILE ]
		then
		        cp $LDCONF_FILE /tmp/ldconfig.tmp
		        $SUDO cp $LDCONF_FILE $LDCONF_FILE.orig.$$
		fi
	        printf "/usr/local/lib\n" >> /tmp/ldconf.tmp
	        $SUDO cp /tmp/ldconf.tmp $LDCONF_FILE
	
	    fi
	
	    if (! grep /usr/local/lib $LDCONF_FILE 2>&1 > /dev/null) 
	    then

Found error in /usr/lib/xastir/get_shapelib.sh:
	$ grep -A5 -B5 /tmp/ /usr/lib/xastir/get_shapelib.sh
	
	    if (! grep /usr/local/lib /etc/ld.so.conf 2>&1 > /dev/null) 
	    then
	        printf "Warning: /usr/local/lib not in /etc/ld.so.conf - adding it\n"
	        cp /etc/ld.so.conf /tmp
	        printf "/usr/local/lib\n" >> /tmp/ld.so.conf
	        $SUDO cp /etc/ld.so.conf /etc/ld.so.conf.save 
	        $SUDO cp /tmp/ld.so.conf /etc/ld.so.conf
	    fi
	
	    if ( grep /usr/local/lib /etc/ld.so.conf ) 
	    then
	        printf "Running ldconfig\n" 
Package: xcal
Version: 4.1-18.3
Filename: pool/main/x/xcal/xcal_4.1-18.3_i386.deb


Found error in /usr/bin/pscal:
	$ grep -A5 -B5 /tmp/ /usr/bin/pscal
						 sed -n "7q
						s/^\.//
						s/^/$day ( /
						s/\$/ )/
						p"
			done > /tmp/pscal$$
			holidays=`cat /tmp/pscal$$`
			rm -f /tmp/pscal$$	
		esac
	fi
	
	case "$monthday" in
	yes)
Package: xdialog
Version: 2.3.1-2
Filename: pool/main/x/xdialog/xdialog_2.3.1-2_i386.deb


Found error in /usr/share/doc/xdialog/examples/checklist:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/checklist
	        "Apple"  "It's an apple." off \
	        "Dog"    "No, that's not my dog." ON \
	        "Orange" "Yeah, that's juicy." off \
	        "Cat"    "No, never put a dog and a cat together!" oN \
	        "Fish"   "Cats like fish." On \
	        "Lemon"  "You know how it tastes." on 2> /tmp/checklist.tmp.$$
	
	retval=$?
	
	choice=`cat /tmp/checklist.tmp.$$`
	rm -f /tmp/checklist.tmp.$$
	case $retval in
	  0)
	    echo "'$choice' chosen.";;
	  1)
	    echo "Cancel pressed.";;

Found error in /usr/share/doc/xdialog/examples/editbox:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/editbox
	#!/bin/sh
	
	cat << EOF > /tmp/editbox.tmp.$$
	Hi, this is an edit box. It can be used to edit text from a file.
	
	It's like a simple text editor, with these keys implemented:
	
	PGDN	- Move down one page
	--
	Try to input some text below:
	
	EOF
	
	Xdialog --title "EDIT BOX" --fixed-font -print "" \
		--editbox /tmp/editbox.tmp.$$ 0 0 2>/tmp/editbox.txt.$$
	
	case $? in
	  0)
	    cat /tmp/editbox.txt.$$
	    echo "OK"
	    ;;
	  1)
	    echo "Cancel pressed."
	    ;;
	  255)
	    echo "Box closed."
	    ;;
	esac
	
	rm -f /tmp/editbox.tmp.$$
	rm -f /tmp/editbox.txt.$$

Found error in /usr/share/doc/xdialog/examples/inputbox:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/inputbox
	to input a string as the answer. You can
	input strings of length longer than the
	width of the input box, in that case, the
	input field will be automatically scrolled.
	You can use BACKSPACE to correct errors.\n
	Try inputing your name below:" 20 45 2> /tmp/inputbox.tmp.$$
	
	retval=$?
	
	input=`cat /tmp/inputbox.tmp.$$`
	rm -f /tmp/inputbox.tmp.$$
	
	case $retval in
	  0)
	    echo "Input string is '$input'";;
	  1)

Found error in /usr/share/doc/xdialog/examples/install-wrapper:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/install-wrapper
			Xdialog --title "$BOX_TITLE" --backtitle "$BACKTITLE" --no-close \
				--icon ./warning.xpm \
				--yesno "An error occured, do you want\nto see details about it ?" 0 0
			if (( $? == 0 )) ; then
				Xdialog --title "$BOX_TITLE" --backtitle "Error message:" --no-cancel \
					--textbox /tmp/wrapper.$$ 20 64
			fi
			rm -f /tmp/wrapper.$$
			exit 1
		fi
	}
	
	if [ -x /usr/bin/Xdialog.wrapper ] ; then
	--
	
	if ! [ -x Xdialog.wrapper ] ; then
		if ! [ -f Xdialog.wrapper.c ] ; then
			Xdialog --title "$BOX_TITLE" --backtitle "$BACKTITLE" --left \
				--msgbox "Error:\nCan't find \"Xdialog.wrapper.c\"" 0 0
			rm -f /tmp/wrapper.$$
			exit 1
		fi
		echo "" >/tmp/wrapper.$$
		( echo "Compiling the wrapper..." ; $CC $CCOPT 2>&1 ; echo "Done." ) | \
		Xdialog --title "$BOX_TITLE" --backtitle "Compiling Xdialog.wrapper..." \
			--no-close --no-cancel --tailbox "-" 20 64
	fi
	
	if ! [ -x Xdialog.wrapper ] ; then
		Xdialog --title "$BOX_TITLE" --backtitle "$BACKTITLE" --left \
			--msgbox "Error:\nCan't find \"Xdialog.wrapper\"" 0 0
		rm -f /tmp/wrapper.$$
		exit 1
	fi
	
	mv Xdialog.wrapper /usr/bin/ 2>/tmp/wrapper.$$
	errors
	chmod 755 /usr/bin/Xdialog.wrapper 2>/tmp/wrapper.$$
	errors
	
	if [ "$DIALOG" != "" ] && [ -f $DIALOG ] ; then
		mv $DIALOG $DIALOG.wrapped 2>/tmp/wrapper.$$
		errors
		ln -s /usr/bin/Xdialog.wrapper /usr/bin/dialog 2>/tmp/wrapper.$$
		errors
	fi
	
	if [ "$CDIALOG" != "" ] && [ -f $CDIALOG ] ; then
		mv $CDIALOG $CDIALOG.wrapped 2>/tmp/wrapper.$$
		errors
		ln -s /usr/bin/Xdialog.wrapper /usr/bin/cdialog 2>/tmp/wrapper.$$
		errors
	fi
	
	Xdialog --title "$BOX_TITLE" --backtitle "$BACKTITLE" \
		--msgbox "Wrapper installed succesfully." 0 0
	--
	
	if [ "$XDIALOG" != "" ]  &&  [ "$GDIALOG" != "" ]  &&  ! [ -x $GDIALOG.orig ] ; then
		Xdialog --title "$BOX_TITLE" --backtitle "$BACKTITLE" \
			--yesno "I also found \"gdialog\" on your system...\nDo you want \"Xdialog\" to replace it ?" 0 0
		if (( $? == 0 )) ; then
			mv $GDIALOG $GDIALOG.orig 2>/tmp/wrapper.$$
			errors
			ln -s $XDIALOG $GDIALOG 2>/tmp/wrapper.$$
			errors
			Xdialog --title "$BOX_TITLE" --backtitle "$BACKTITLE" \
			--msgbox "\"gdialog\" replaced succesfully." 0 0
		fi
	fi
	
	rm -f /tmp/wrapper.$$

Found error in /usr/share/doc/xdialog/examples/kernel:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/kernel
			exit $ret
		fi
	}
	
	TITLE="Linux kernel compilation"
	MAKE="/tmp/make.$$"
	TEMP="/tmp/kernel-compilation.log"
	
	echo >$TEMP
	/bin/ln -s /usr/bin/make $MAKE
	check_error
	
	--
	echo "--------------------------------------------------------------------------"
	$MAKE modules_install 2>&1
	check_error
	
	VERSION=`/bin/grep UTS_RELEASE /usr/src/linux/include/linux/version.h | /bin/awk --source '{ print $3 }'`
	echo -n "VERSION=" >/tmp/version.$$
	echo $VERSION >>/tmp/version.$$
	. /tmp/version.$$
	/bin/rm -f /tmp/version.$$
	echo "--------------------------------------------------------------------------"
	echo "Installing kernel v$VERSION... "
	echo "--------------------------------------------------------------------------"
	/bin/cp -f /usr/src/linux/.config /boot/config-$VERSION 2>&1
	/bin/cp -f /usr/src/linux/System.map /boot/System.map-$VERSION 2>&1

Found error in /usr/share/doc/xdialog/examples/menubox:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/menubox
	        "Linux"  "The Great Unix Clone for 386/486" \
	        "NetBSD" "Another free Unix Clone for 386/486" \
	        "OS/2" "IBM OS/2" \
	        "WIN NT" "Microsoft Windows NT" \
	        "PCDOS"  "IBM PC DOS" \
	        "MSDOS"  "Microsoft DOS" 2> /tmp/menu.tmp.$$
	
	retval=$?
	
	choice=`cat /tmp/menu.tmp.$$`
	rm -f /tmp/menu.tmp.$$
	
	case $retval in
	  0)
	    echo "'$choice' chosen.";;
	  1)

Found error in /usr/share/doc/xdialog/examples/radiolist:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/radiolist
	Which of the following is a fruit ?" 0 0 0 \
	        "Tiger"  "A dangerous animal." off \
	        "Dog"    "No, that's not my dog." ON \
	        "Orange" "Yeah, that's juicy." off \
	        "Cat"    "No, never put a dog and a cat together!" off \
	        "Fish"   "Cats like fish." off 2>/tmp/checklist.tmp.$$
	
	retval=$?
	choice=`cat /tmp/checklist.tmp.$$`
	rm -f /tmp/checklist.tmp.$$
	
	case $retval in
	  0)
	    echo "'$choice' chosen.";;
	  1)

Found error in /usr/share/doc/xdialog/examples/set-time:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/set-time
	if (( $? != 0 )) ; then
		abort
	fi
	
	# Prepare the error log file.
	echo "Error while trying to set the system clock !" >/tmp/set-time.err.$$
	echo "Reason:" >>/tmp/set-time.err.$$
	echo "" >>/tmp/set-time.err.$$
	
	# Set the hardware clock (RTC) and then the system clock, appending any error
	# message to the error log...
	/sbin/hwclock --set $UTC --date "$NEWDATE $NEWTIME" 2>>/tmp/set-time.err.$$
	if (( $? == 0 )) ; then
		/sbin/hwclock --hctosys $UTC 2>>/tmp/set-time.err.$$
	fi
	
	# Give the result (success or failure+reason)...
	if (( $? == 0 )) ; then
		Xdialog --title "$TITLE" --msgbox "The system clock has been set." 0 0
	else
		Xdialog --title "$TITLE" --textbox /tmp/set-time.err.$$ 60 30
	fi
	
	rm -f /tmp/set-time.err.$$

Found error in /usr/share/doc/xdialog/examples/textbox:
	$ grep -A5 -B5 /tmp/ /usr/share/doc/xdialog/examples/textbox
	#!/bin/sh
	DIALOG=Xdialog
	
	cat << EOF > /tmp/textbox.tmp.$$
	Hi, this is a text dialog box. It can be used to display text from a file.
	
	It's like a simple text file viewer, with these keys implemented:
	
	PGDN	- Move down one page
	--
	The following is a sample text file:
	
	
	EOF
	
	cat /etc/services | expand >> /tmp/textbox.tmp.$$
	
	$DIALOG --title "TEXT BOX" --textbox "/tmp/textbox.tmp.$$" 0 0
	
	case $? in
	  0)
	    echo "OK";;
	  1)
	    echo "Cancel pressed.";;
	  255)
	    echo "Box closed.";;
	esac
	
	rm -f /tmp/textbox.tmp.$$
Package: xen-utils-3.2-1
Version: 3.2.1-2
Filename: pool/main/x/xen-3/xen-utils-3.2-1_3.2.1-2_i386.deb


Found error in /usr/lib/xen-3.2-1/bin/qemu-dm.debug:
	$ grep -A5 -B5 /tmp/ /usr/lib/xen-3.2-1/bin/qemu-dm.debug
	if [ "`arch`" = "x86_64" ]; then
	    LIBDIR="lib64"
	else
	    LIBDIR="lib"
	fi
	echo $* > /tmp/args
	echo $DISPLAY >> /tmp/args
	exec /usr/$LIBDIR/xen/bin/qemu-dm $*
Package: xmcd
Version: 2.6-19.3
Filename: pool/main/x/xmcd/xmcd_2.6-19.3_i386.deb


Found error in /usr/share/xmcd/scripts/ncsarmt:
	$ grep -A5 -B5 /tmp/ /usr/share/xmcd/scripts/ncsarmt
	then
		# Not found
		exit 1
	fi
	
	rm -f /tmp/Mosaic.$mpid
	$ECHO "goto\n$1" >/tmp/Mosaic.$mpid 2>/dev/null
	if [ $? -ne 0 ]
	then
		# Cannot write remote control file
		exit 3
	fi
	--
	# Remote control Mosaic
	kill -USR1 $mpid 2>/dev/null
	if [ $? -ne 0 ]
	then
		# Cannot signal Mosaic
		rm -f /tmp/Mosaic.$mpid
		exit 4
	fi
	
	sleep 5
	rm -f /tmp/Mosaic.$mpid
	exit 0
	

Found error in /usr/share/xmcd/scripts/ncsawrap:
	$ grep -A5 -B5 /tmp/ /usr/share/xmcd/scripts/ncsawrap
			# Not found
			exit 1
		fi
	
		# Remote control Mosaic
		$RSH $clienthost /bin/rm -f /tmp/Mosaic.$mpid
		$RSH $clienthost "(echo goto; echo $xcmdargs) >/tmp/Mosaic.$mpid" \
			2>/dev/null
		$RSH $clienthost "kill -USR1 $mpid" 2>/dev/null
		sleep 5
		$RSH $clienthost /bin/rm -f /tmp/Mosaic.$mpid
		exit 0
	fi
	
	echo "DISPLAY=$DISPLAY; export DISPLAY; $authenv $xhostvar $command" ' >/dev/null 2>&1 </dev/null &' | $RSH $clienthost /bin/sh &