#!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;