traxlog has asked for the wisdom of the Perl Monks concerning the following question:
# OPEN THE LOCK FILE my $LCK = "$lock_path/dblock.lockfile"; sysopen(DBLOCK, $LCK, O_RDONLY | O_CREAT) or die divert("Couldn't +open $LCK (lock_database_for_writing): $!"); # ATTEMPT TO LOCK THE LOCK FILE eval { local $SIG{ALRM} = sub { die "TIMEDOUT" }; alarm(30); flock(DBLOCK, LOCK_EX) or die divert("Couldn't LOCK_EX $LC +K (lock_database_for_writing): $!"); alarm(0); }; if ($@) { if( $@ =~ /TIMEDOUT/ ) { divert("Connection too busy. Error: $!"); } }
24-05-2005 10:33:05 -> xxx.xxx.xxx.xxx Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; FunWebProducts; SV +1; .NET CLR 1.1.4322) p=&bandID=&search_phrase= (26197) exec 16.3432 WARNING 24-05-2005 10:33:56 -> xxx.xxx.xxx.xxx, p=artist_list (26299) exec 7.8 +034 WARNING 24-05-2005 10:34:42 -> xxx.xxx.xxx.xxx, p=artist_list&style=7 (26384) +exec 8.0844 WARNING 24-05-2005 10:35:30 -> xxx.xxx.xxx.xxx, p=artist&bandID=109&style=7&l= + (26460) exec 8.2451 WARNING 24-05-2005 10:36:17 -> xxx.xxx.xxx.xxx, p=artist&bandID=109&imageID=1& +searchID=&content= (26524) exec 5.0702 WARNING 24-05-2005 10:36:36 -> xxx.xxx.xxx.xxx, p=artist&bandID=109&style=7&l= +&content=repertoire&searchID= (26547) exec 4.4575 WARNING 24-05-2005 10:37:18 -> xxx.xxx.xxx.xxx, p=artist&bandID=109&style=7&l= +&content=lineup&searchID= (26612) exec 3.4035 WARNING 24-05-2005 10:37:40 -> xxx.xxx.xxx.xxx, p=artist&bandID=109&imageID=1& +searchID=&content=lineup (26640) exec 3.3868 WARNING 24-05-2005 10:37:54 -> xxx.xxx.xxx.xxx, p=book&bandID=109&searchID= (2 +6657) exec 0.0929
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: what can delay the execution of a cgi script?
by LanceDeeply (Chaplain) on May 24, 2005 at 12:49 UTC | |
|
Re: what can delay the execution of a cgi script?
by PodMaster (Abbot) on May 24, 2005 at 12:49 UTC | |
by traxlog (Scribe) on May 24, 2005 at 13:44 UTC | |
|
Re: what can delay the execution of a cgi script?
by traxlog (Scribe) on Jun 06, 2005 at 15:06 UTC |