log-utils.lib

Perl写的CA认证程序

## Log Utilities.
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
## Open Source Released Software

sub startLogPage {
	my $title = shift;
	my $ret;

	$title = "Proceeding" if ( not $title );

	$ret = $query->start_html(-title=>"Requests Exporting Page",
					-BGCOLOR=>"#FFFFFF",
					-TEXT=>"#445599" );

        $ret .=  "<CENTER>";
        $ret .=  "<FONT SIZE=\"+3\">";
        $ret .=  "<B>$title</B></FONT><BR>\n";
        $ret .=  "<FONT SIZE=\"+1\">";
        $ret .=  "(Please wait until operation completes)</FONT><BR>\n";
        $ret .=  "<HR WIDTH=80%>";
	$ret .=  "</CENTER>\n";

	return $ret;
}


sub closeLogPage {

	my $ret;

	$ret = "<CENTER><HR WIDTH=\"80%\"></CENTER>";
	$ret .= getCopyRight();

	$ret .= $query->end_html();

	return $ret;
}

sub addLogSection {
	my $line = shift;
	my $ret;

	$ret = "<FONT SIZE=+1><UL><OL><FONT FACE=\"Arial, Helvetica\">\n";
	$ret .= $line;

	return $ret;
}

sub closeLogSection {
	my $line = shift;
	my $ret;

	$ret = "</FONT></OL></UL></FONT>\n";

	return $ret;
}

sub addErrorLog {
	my $line = shift;
	my $code  = ( shift or $? );

	my $ret;

	$ret  = "<BR><BR>$line<BR><BR>\n";
	$ret .= "<UL><TT><FONT SIZE=-1 COLOR=red>";
	$ret .= "<PRE>$code</PRE></FONT></TT></UL>\n";
	$ret .= "</OL></UL>\n";

	return $ret;
}

sub addLogLine {
	my $line = shift;
	my $ret;

	$ret  = "$line<BR>\n";

	return $ret;
}

sub addPreLogLine {
	my $line = shift;
	my $ret;

	$ret  = "<UL><TT><FONT SIZE=-1 COLOR=#445567>";
        $ret .= "<PRE>$line</PRE></FONT></TT></UL>\n";

	return $ret;
}


1;