#!usr/bin/perl
################################################################################
=head
by Kris Kowal
2000-10-28-1144 PDT
=cut
################################################################################
sub html
{
my $Body = join '', @_;
###
my $Out = <<"(END)";
Content-type: text/html
Curie
$Body
(END)
###
return $Out;
}
################################################################################
sub p
{
my @texts = @_;
return '
' . join( "
" , @texts ) . "
";
}
################################################################################
sub pbr
{
my @texts = @_;
return '
' . join( " " , @texts ) . "
";
}
################################################################################
sub nbsp
{
$term = shift;
if ( $term ne '' ) { return $term; }
return ' ';
}
################################################################################
sub hr
{
return "";
}
################################################################################
sub h1
{
my $text = shift;
return "
$text
";
}
sub h2
{
my $text = shift;
return "
$text
";
}
sub h3
{
my $text = shift;
return "
$text
";
}
sub h4
{
my $text = shift;
return "
$text
";
}
################################################################################
sub table
{
my $content = shift;
my %props =
(
'cellpadding' => '2',
'cellspacing' => '0',
'border' => '1',
'class' => 'frame',
@_,
);
my $out;
$out .= "
$_
"; } @texts;
$out .= "
";
return $out;
}
################################################################################
sub row
{
my @texts = @_;
my $out;
$out .= "
";
foreach my $text ( @texts )
{
$out .= "
" . nbsp( $text ) . "
";
}
$out .= "
";
return $out;
}
################################################################################
sub row_spec
{
my %props = %{ shift( @_ ) };
my @texts = @_;
my $out;
$out .= '
";
}
$out .= "
";
return $out;
}
################################################################################
sub row_h
{
my @texts = @_;
my $out;
$out .= "
";
foreach my $text ( @texts )
{
$out .= "
" . nbsp( $text ) . "
";
}
$out .= "
";
return $out;
}
################################################################################
sub options
{
my $name = shift;
my %options = @_;
my $out;
$out .= "";
}
################################################################################
sub a
{
my $url = shift;
my $text = shift() or $url;
return "$text";
}
################################################################################
1;