I found this in the prog
my modifikation, a bit easyer as the original:
if($INTERPRETER{$inter})
{
$exec_file = "$INTERPRETER{$inter} $file";
local (*IN,*OUT,*ERR);
if (open3(\*OUT,\*IN,\*ERR,"$exec_file"))
{
my $params = '';
if (! defined $ENV{'CONTENT_TYPE'}) {
$params = $query_string;
} else {
$params = $r->content if (defined
$r->content);
}
print OUT "$params\n";
print OUT "\n";
$return = join('',<IN>);
if (my $err = join('', <ERR>))
{
$return = $err.$CRLF. ($return ||
'');
}
close(OUT) || die "can't close OUT
connection to PIPE $file $!";
close(IN) || die "can't close IN
connection to PIPE $file $!";
close(ERR) || die "Can't close ERR
connection to PIPE $file $!";
$c->send_response($return);
}
}
And it is fo F**** slow !!!! It works, but i went and make a coffee in this
time.
is there is a oppunity to speet this up ?
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]Im Auftrag von
Chuck Brewer
Gesendet: Dienstag, 4. Dezember 2001 17:48
An: Perl 32 Web (E-mail)
Betreff: RE: Offtopic // webserver perl
Found this on Sourceforge, doesn't look like its seen activity in a while
though it might be a good base:
http://sourceforge.net/projects/perlwebserver/ There were a couple other on
Sourceforge that may have been interesting. You can do a search through that
link for the rest. -----Original Message----- From: Kristofer Wolff
[mailto:[EMAIL PROTECTED]] Sent: Tuesday, December 04, 2001 3:34 AM To:
perllist Subject: Offtopic // webserver perl Hi folks, a bit off topic...
since a while i am using Xitami an my WIN localhost and Apache on a
Unix-server for my works, it runs fine . and by the way i like Xitami very
much. I build up a whole CMS and made a Admin Tool-Bundle set for Win32
Servers and Linux too. All is nerly done, but i havn't a Webserver. I would
like it in Perl, because i want add my own functions (logging
authentifikation AND of couse include it in my installation set). Does
anybody know a opensource webserver written in perl ? Thanx Kris
_______________________________________________ Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
