package http;
require Exporter;
use CGI;
use vars qw($VERSION @ISA @EXPORT);
$VERSION = 1.00;
@ISA = qw(Exporter);
###############################################################################
@EXPORT = qw/
cgi_header
html_refresh
html_title
html_header
html_body
html
/;
######## HTML Funktionen und Beispielnutzung
# my @header=(html_refresh(5, "URL"), html_title("titel"));
# my @body=("inhalt 1
", "inhalt 2
");
# my @html=html(\@header, \@body);
# foreach (@html) {
# print "$_\n";
# }
sub cgi_header {
my @a = ("Content-type: text/html","");
return @a;
}
sub html_refresh {
my $s=shift;
my $u=shift;
my @ret = ("");
return @ret;
}
sub html_title {
my $a=shift;
my @ret = ("$a");
return @ret;
}
sub html_header {
my $a=shift;
my @a=@{$a};
my @ret;
push @ret, "";
foreach (@a) {
push @ret, "$_";
}
push @ret, "";
return @ret;
}
sub html {
my $h=shift;
my $b=shift;
my @h=@{$h};
my @b=@{$b};
my @ret;
push @ret, cgi_header();
push @ret, "";
push @ret, html_header(\@h);
push @ret, html_body(\@b);
push @ret, "";
return @ret;
}
sub html_body {
my $a=shift;
my @a=@{$a};
my @ret;
push @ret, "";
foreach (@a) {
push @ret, "$_";
}
push @ret, "";
return @ret
}
1;