You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl@perl.apache.org by Konstantin Naumov <fr...@rambler.ru> on 2001/05/29 19:42:29 UTC

Apache problem

Dear all!

I have 2 servers:

1.       w2k server
2.       w2k professional

with _same_ hardware and same Apache httpd.conf files.

I use mod_perl.

When I use followed script on SERVER - it works with ANY files
When I use it on PROF - perl stops without any error when size of "17.shtml"
> 13Kb.

When I start code from command line it works perfectly on the both
computers.

Any ideas?

Frodo

----------------------------------------------------------------------------
---------------------------------------------------
sub template {

    my ($filename, $fillings) = @_;
    my $text;

    local $/;
    local *F;
    open(F, "< $filename") || return;
    $text = <F>;
    close(F);
    $text =~ s{ %%(.*?)%% } { exists( $fillings->{$1} ) ? $fillings->{$1} :
"" }gsex;

    return $text;
}
    open TEST, "c:/gateway/rus/17.shtml";
    while (<TEST>)
    {
        $html .= $_;
    }
    close TEST;

    $todo{'MAIN'}  = $html;
    print template("c:/gateway/us.shtml", \%todo );
----------------------------------------------------------------------------
---------------------------------------------------






Re: Apache problem

Posted by "Alexander Farber (EED)" <ee...@eed.ericsson.se>.
> When I start code from command line it works perfectly on the both computers.

> Any ideas?

>   open TEST, "c:/gateway/rus/17.shtml";

open TEST, "c:/gateway/rus/17.shtml" or 
   die "Can't read 17.shtml because of $!";