Leser: 1
|< 1 2 3 4 >| | 34 Einträge, 4 Seiten |
1
2
3
4
5
print cgi->header(-type => 'text/html',
-expires => '+5s',
-charset => 'ISO-8859-1',
%hash
);
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub tmpl {
my $usrid = get_my_userid();
my $text;
local $/;
local *D;
my ($dat, $hashref) = @_;
open(D, $_[0]) || die $!;
$text = <D>;
close(D);
$hashref->{sid} = $sessionid unless $hashref->{sid};
$hashref->{username} = $usrid;
chop($text);
$text =~ s{ %% ( .*? ) %% }
{ exists( $hashref->{$1} )
? $hashref->{$1}
: ""
}gsex;
return "Content-Type: text/html\n\n$text" if $hashref->{header} == 1;
return $text;
}
print tmpl('/usr/local.../index.html', {header => 1});
1
2
3
4
5
6
7
get http://try2flirt.gotdns.com -Sse
GET http://try2flirt.gotdns.com --> 200 Assumed OK
Client-Date: Tue, 16 Mar 2004 01:32:20 GMT
Client-Peer: 82.82.126.178:80
Client-Response-Num: 1
Content-Type: text/html
|< 1 2 3 4 >| | 34 Einträge, 4 Seiten |