1 files changed, 0 insertions, 174 deletions
diff --git a/userdb/html2man.pl.in b/userdb/html2man.pl.in
deleted file mode 100644
index 0a8ca70..0000000
--- a/userdb/html2man.pl.in
+++ /dev/null
@@ -1,174 +0,0 @@
-#! @PERL@
-#
-# Copyright 1998 - 1999 Double Precision, Inc.  See COPYING for
-# distribution information.
-
-############################################################################
-#
-# Preprocess HTML file: put all directives on a separate line.  Remove
-# blank lines.
-#
-#
-############################################################################
-
-$pid=open(FD, "-|");
-
-die "Can't fork.\n" unless defined $pid;
-
-if ($pid == 0)
-{
-	while (<>)
-	{
-		if ( $_ =~ s/^ *<[lL][iI]>// )
-		{
-			$line=$_;
-			$line=<> if $line eq "\n";
-			chop $line;
-			$line =~ s/ - /\n/;
-			($line0,$line1)=split(/\n/,$line);
-			$line0 =~ s/"/\\"/g;
-			$line0 =~ s/\\/\\\\/g;
-			print ".TP\n.B \"$line0\n$line1\n";
-			next;
-		}
-		while ( /<[^>]*\n$/ )
-		{
-			chop;
-			$foo=$_;
-			last unless defined ($_=<>);
-			$_="$foo$_";
-		}
-		print;
-	}
-	exit 0;
-}
-
-$pid2=open(FD2, "-|");
-die "Can't fork.\n" unless defined $pid2;
-
-sub dosubst {
-	s/<[^>]*>//g;
-	s/&nbsp;/ /g;
-	s/&lt;/</g;
-	s/&gt;/>/g;
-	s/&amp;/\&/g;
-}
-
-$INH1=0;
-$INBODY=0;
-
-$inpre=0;
-
-if ($pid2 == 0)
-{
-	while (<FD>)
-	{
-		s/\\/\\\\/g;
-		s/<[iI]>/\\fI/g;
-		s/<\/[iI]>/\\fP/g;
-		s/<BR>/\n.br/g;
-		s/<br>/\n.br/g;
-		s/<[pP]>/\n.PP\n/g;
-		s/^\n\././;
-
-		s/^ *// unless $inpre;
-		if (s/^<[hH]1>/.SH NAME\n/)
-		{
-			$INH1=1;
-		}
-		s/-/\\-/ if $INH1;
-		$INH1=0 if ( /<\/[hH]1>/ );
-
-		if (s/^<[hH]2>//)
-		{
-			$_=<FD> if $_ eq "\n";
-			&dosubst;
-			$_ =~ s/^/.SH "/;
-			print $_;
-			next;
-		}
-
-		if (s/^<[hH][3456789]>//)
-		{
-			$_=<FD> if $_ eq "\n";
-			&dosubst;
-			$_ =~ s/^/.SS "/;
-			print $_;
-			next;
-		}
-		if (/^ *<(TITLE|title)>/)
-		{
-			while ( ! /<\/(title|TITLE)>/)
-			{
-				chop;
-				$_ = $_ . <FD>;
-			}
-		}
-
-
-		if (/^ *<(TITLE|title)>(.*)<\/(title|TITLE)>/)
-		{
-			($cmd, $desc)=split(/ - /,$2);
-			$cmd =~ s/ *$//;
-			$desc =~ s/^ *//;
-
-			open (DATE, 'date "+%B %e, %Y" | ')
-				|| die "Can't run date.\n";
-			$date=<DATE>;
-			close(DATE);
-			chomp $date;
-			$TITLE=".TH \"$cmd\" [SECTION] \"$date\" \"Double Precision, Inc.\" \"\"\n";
-			next;
-		}
-
-		if (/^<!-- *SECTION/)
-		{
-			chop;
-			s/.*SECTION *//;
-			s/ .*//;
-			$SECTION=$_;
-			next;
-		}
-		if (/^<!-- \$Id/)
-		{
-			s/.*\$Id/\$Id/;
-			s/ *-->.*//;
-			$RCS=".\\\" $_";
-			print $RCS if $INBODY;
-			next;
-		}
-		if (/<\/(HEAD|head)>/)
-		{
-			$TITLE =~ s/\[SECTION\]/$SECTION/;
-			print $TITLE;
-			print $RCS;
-			print ".\\\" Copyright 1998-1999 Double Precision, Inc.  See COPYING for\n";
-			print ".\\\" distribution information.\n";
-			$INBODY=1;
-		}
-
-		s/^\./\\\&./ unless /^\.(SH|PP|br|TP|B|I) / || /^\.(SH|PP|br|TP|B|I|)\n/;
-
-		$inpre=1 if s/^<(PRE|pre)>/.nf\n\n/;
-		$inpre=0 if s/<\/(PRE|pre)>/\n.fi\n.PP/;
-
-		&dosubst;
-		print "$_";
-	}
-	exit 0;
-}
-
-$first=1;
-$innf=0;
-while (<FD2>)
-{
-	$first=0 if /^.TH/;
-	next if $first;
-	next if (! $innf) && /^\n$/;
-	$innf=1 if /^\.nf/;
-	$innf=0 if /^\.fi/;
-
-	s/^ ? ? ?// if $innf;
-	print;
-}
-exit 0;