From b6709975a57aa2803c79bfcaf7b43239413a2286 Mon Sep 17 00:00:00 2001
From: George Clark <geonwiki@fenachrone.com>
Date: Tue, 26 Jan 2016 15:33:23 -0500
Subject: [PATCH] Item13935: Fix paths in genwebnotify.pl

---
 core/tools/develop/genwebnotify.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/core/tools/develop/genwebnotify.pl b/core/tools/develop/genwebnotify.pl
index b7d9578e02..0db4071ddd 100755
--- a/core/tools/develop/genwebnotify.pl
+++ b/core/tools/develop/genwebnotify.pl
@@ -5,9 +5,12 @@
 #
 use strict;
 
-my $where = '/home/foswiki.org/public_html/data/Tasks';
+my $ROOT = '/var/www/trunk.foswiki.org';
+my $PROD = '/var/www/foswiki.org';
+
+my $where = "$PROD/data/Tasks";
 my $text =
-`cd /home/trunk.foswiki.org/core/bin && perl -T ./view topic="Tasks.GenerateWebNotify" -skin text -contenttype text/plain`;
+`cd $ROOT/core/bin && perl ./view topic="Tasks.GenerateWebNotify" -skin text -contenttype text/plain`;
 my %topics;
 foreach my $line ( split( /\r?\n/, $text ) ) {
     $line =~ s#(TWiki:)?Main[./]##g;