Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: CGI real time update on Window/Apache problem

by tcf22 (Priest)
on Oct 09, 2003 at 19:48 UTC ( [id://298083]=note: print w/replies, xml ) Need Help??


in reply to CGI real time update on Window/Apache problem

On Win32 fork() doesn't do a true fork. Check the PID it returns, its negative. It creates a pseudo-process in the same address space as the original process. The process can't be detached from the original process. This may be causing your problem, if the same script works on Unix.

Try using Win32::Process instead of fork to create a new process.
Win32::Process::Create($ProcessObj, "D:\\winnt35\\system32\\notepad.exe", "notepad temp.txt", 0, DETACHED_PROCESS, ".")|| die Win32::GetLastError();

- Tom

Replies are listed 'Best First'.
Re: Re: CGI real time update on Window/Apache problem
by Anonymous Monk on Oct 10, 2003 at 13:51 UTC

    hm... I don't think its a fork problem, since window really create a child for the writing thread to the file, its just that the parent thread cannot read it until its child is finish. I think its more or less a flushing problem? Do you agree?

    Anyways, I now have the following code, and IE give me a page not found error, do you know why?

    #!D:/Perl/bin/Perl.exe -w use strict; use CGI ":standard"; use IO::Handle; use Win32::Process; use Win32; $| = 1; my $MYFILE = "D:\\tmp"; my $share = "begin"; if (param("monitor")) { &monitor(); } else { Win32::Process::Create($Process, "D:\\ping.exe yahoo.com > + ${MYFILE}", "ping",0,DETACHED_PROCESS, ".") || +die "Create: $!"; } # print redirect(-uri => url() . "?monitor=yes", -nph=>1); } sub monitor { my $html = &draw_page(); if (defined $html) { print header(-refresh=>1, -nph=>1), $html; } else { print header(-nph=>1), &goodbye(); } } sub goodbye { return start_html(-title=>"Goodbye!") . h1("Goodbye!") . end_h +tml(); } sub get_number { open NUMBER, "<$MYFILE" or return undef; NUMBER->autoflush(1); my $number = <NUMBER>; close NUMBER; return $number; } sub draw_page { my $number = &get_number(); return (defined $number) ? start_html(-title=>"Your Lucky Numb +er") . p("Your lucky number is $number.") . end_html() : undef; } sub do_stuff { for my $i (1 .. 10) { open NUMBER, ">$MYFILE"; NUMBER->autoflush(1); print NUMBER "$i\n"; close NUMBER; sleep 1; } unlink $MYFILE; }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://298083]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2024-03-19 08:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found