Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv30514/engine/UI
Modified Files:
HTML.pm
Log Message:
Add favicon
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.188
retrieving revision 1.189
diff -C2 -d -r1.188 -r1.189
*** HTML.pm 31 Jul 2003 16:32:22 -0000 1.188
--- HTML.pm 20 Aug 2003 01:40:12 -0000 1.189
***************
*** 349,352 ****
--- 349,354 ----
my ( $self, $client, $url, $command, $content ) = @_;
+ $self->log_( $url );
+
# See if there are any form parameters and if there are parse them into the %form hash
***************
*** 387,390 ****
--- 389,397 ----
}
+ if ( $url =~ /\/(.+\.ico)/ ) {
+ $self->http_file_( $client, $1, 'image/x-icon' );
+ return 1;
+ }
+
if ( $url =~ /(skins\/.+\.css)/ ) {
$self->http_file_( $client, $1, 'text/css' );
***************
*** 627,630 ****
--- 634,639 ----
$result .= "<link rel=\"stylesheet\" type=\"text/css\" ";
$result .= "href=\"skins/" . $self->config_( 'skin' ) . ".css\" title=\"" . $self->config_( 'skin' ) . "\">\n";
+ $result .= "<link rel=\"shortcut icon\" type=\"image/x-icon\" ";
+ $result .= "href=\"favicon.ico\"" . "\">\n";
}
|
