WEB邮件程序

开发平台：

C/C++

html2man.pl.in：源码内容

							#! @PERL@
# $Id: html2man.pl.in,v 1.6 2000/06/22 17:40:21 mrsam Exp $
#
# 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 14n.B "$line0n$line1n";
			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.PPn/g;
		s/^n././;
		s/^ *// unless $inpre;
		if (s/^<[hH]1>/.SH NAMEn/)
		{
			$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 forn";
			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)>/.nfnn/;
		$inpre=0 if s/</(PRE|pre)>/n.fin.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;

						