archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(PingTracker): Added forking on each request.

Browse Source
This commit is contained in:
Alex Schroeder
2004-01-23 11:23:17 +00:00
parent d8a9d3026b
commit 2d6e38824a
1 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
weblog-tracking.pl
View File

@@ -1,3 +1,7 @@
# Weblog Tracker Notification Extension
# Put this file in your modules directory.
%NotifyJournalPage = ();
@NotifyUrlPatterns = ();
@@ -51,12 +55,16 @@ sub PingTracker {
my $rss = UrlEncode($q->url . '?action=rss');
require LWP::UserAgent;
foreach $uri (@NotifyUrlPatterns) {
$uri =~ s/\$name/$name/g;
$uri =~ s/\$url/$url/g;
$uri =~ s/\$rss/$rss/g;
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new('GET', $uri);
$ua->request($request);
my $fork = fork();
if (not ($fork > 0)) { # either we're the child or forking failed
$uri =~ s/\$name/$name/g;
$uri =~ s/\$url/$url/g;
$uri =~ s/\$rss/$rss/g;
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new('GET', $uri);
$ua->request($request);
exit if ($fork == 0); # exit when we're the child
}
}
}
}