#!/usr/bin/perl -- use CGI qw(:standard); $| = 1; if (my $pid = fork) { #parent does print header(), q~ <HTML> <HEAD> <META HTTP-EQUIV="Refresh" CONTENT="3; URL=/cgi_data/page1.html"> <TITLE>New Site notification</TITLE> </HEAD> <BODY>My homepage has moved to a new location. I am here</BODY></HTML> ~; } elsif (defined $pid) { #child does close STDOUT; #tell apache no more output sleep 30; } else { die "Cannot fork: $!"; } exit 0;
In reply to Re: Client Pull Not Working correctly
by Anonymous Monk
in thread Client Pull Not Working correctly
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |