bagder: curl-www curl.pm,1.7,1.8
| Newsgroups | gmane.comp.web.curl.www.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/curl/curl-www
In directory labb.contactor.se:/var/tmp/cvs-serv16155
Modified Files:
curl.pm
Log Message:
added header()
Index: curl.pm
===================================================================
RCS file: /cvsroot/curl/curl-www/curl.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- curl.pm 12 Aug 2004 11:34:59 -0000 1.7
+++ curl.pm 4 Oct 2004 07:11:56 -0000 1.8
@@ -1,3 +1,6 @@
+
+our $root="/userdir/dast/curl_html";
+
sub stitle {
my ($title)=@_;
return "<h1 class=\"pagetitle\">$title</h1>";
@@ -18,7 +21,7 @@
my @args = @_;
my $name;
my $link;
- my $pic="<img src=\"/arrow.png\">";
+ my $pic="<img alt=\">\" src=\"/arrow.png\">";
print "<a href=\"/\">cURL</a> $pic";
while(1) {
@@ -37,7 +40,6 @@
last; # get out of loop
}
}
- print "</b>";
}
sub catfile {
@@ -61,5 +63,15 @@
print "</pre>\n";
}
+sub header {
+ my ($head)=@_;
+
+ open(HEAD, "<$root/head.html");
+ while(<HEAD>) {
+ $_ =~ s/\<title\>cURL\<\/title\>/<title>cURL: $head<\/title>/;
+ print $_;
+ }
+ close(HEAD);
+}
1;
_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits