1075 |
$testPath = $theme_dir . "/" . $ARGUMENTS{"theme"} . $uri; |
$testPath = $theme_dir . "/" . $ARGUMENTS{"theme"} . $uri; |
1076 |
if ( -e $testPath ) |
if ( -e $testPath ) |
1077 |
{ |
{ |
1078 |
&serveFile( $data, $testPath ); |
if ( $testPath =~ /\.html$/i ) |
1079 |
|
{ |
1080 |
|
my $mime = $mime_cache{ lc( &getSuffix( $testPath ) ) }; |
1081 |
|
my $header = &getHTTPHeader( 200, $mime ); |
1082 |
|
|
1083 |
|
my @lines = &readFileWithExpansion( $testPath ); |
1084 |
|
foreach my $line ( @lines ) |
1085 |
|
{ |
1086 |
|
$line =~ s/\$HOSTNAME/$host/g; |
1087 |
|
$line =~ s/\$VERSION/$VERSION/g; |
1088 |
|
$line =~ s/\$RELEASE/$RELEASE/g; |
1089 |
|
|
1090 |
|
&sendData( $data, $line ); |
1091 |
|
} |
1092 |
|
|
1093 |
|
} |
1094 |
|
else |
1095 |
|
{ |
1096 |
|
&serveFile( $data, $testPath ); |
1097 |
|
} |
1098 |
exit; |
exit; |
1099 |
} |
} |
1100 |
} |
} |