[patch] webplan

plan-1.10-webplan.patch (text/plain), 4.02 KB, created by Thomas Groman on 2021-03-19 07:41:52 UTC

diff -Naur plan-1.9.orig/web/admin.cgi plan-1.9/web/admin.cgi
--- plan-1.9.orig/web/admin.cgi	2004-06-18 15:13:25.000000000 +0200
+++ plan-1.9/web/admin.cgi	2004-06-18 15:14:03.000000000 +0200
@@ -88,8 +88,8 @@
 				$err="User $in{user} already exist \!\!\n";
 			}
 			else {
-				system("touch /usr/local/lib/netplan.dir/$in{user}");
-				system("echo  $in{server} > /usr/local/lib/netplan.dir/.$in{user}");
+				system("touch /usr/share/plan/netplan.dir/$in{user}");
+				system("echo  $in{server} > /usr/share/plan/netplan.dir/.$in{user}");
 			}
 		}
 	}
@@ -103,8 +103,8 @@
 			}
 		}
 		if ( $found == 1 ) {
-			unlink "/usr/local/lib/netplan.dir/.$in{user}";
-			unlink "/usr/local/lib/netplan.dir/$in{user}";
+			unlink "/usr/share/plan/netplan.dir/.$in{user}";
+			unlink "/usr/share/plan/netplan.dir/$in{user}";
 		} else {
 			$err="User $in{user} does not exist \!\n";
 		}
diff -Naur plan-1.9.orig/web/common.pl plan-1.9/web/common.pl
--- plan-1.9.orig/web/common.pl	2004-06-18 15:13:25.000000000 +0200
+++ plan-1.9/web/common.pl	2004-06-18 15:14:03.000000000 +0200
@@ -304,7 +304,7 @@
 # Get the list of user on netplan server
 #--------------------------------------------------------------------------
 sub get_group {
-	open(IN,"/usr/local/bin/plan -W localhost -F | sort |");
+	open(IN,"/usr/bin/plan -W localhost -F | sort |");
 	@PlanUsers=<IN>;
 	close(IN);
 
@@ -327,9 +327,9 @@
 	$da=&firstdom($mo,$yr);
 
         if ( $jj eq 0 ) {
-		open ( IN , "/usr/local/bin/plan -W $Who -i -t 1\.$mo\.$yr $days[$mo] |" );
+		open ( IN , "/usr/bin/plan -W $Who -i -t 1\.$mo\.$yr $days[$mo] |" );
 	} else {
-		open ( IN , "/usr/local/bin/plan -W $Who -i -t $jj\.$mo\.$yr 1 |" );
+		open ( IN , "/usr/bin/plan -W $Who -i -t $jj\.$mo\.$yr 1 |" );
 	}
 	@PlanData=<IN>;
 	close(IN);
@@ -341,7 +341,7 @@
 #--------------------------------------------------------------------------
 sub obtain_user {
    local(@PlanData);
-   open ( IN , "/usr/local/bin/plan -W -F | sort | " );
+   open ( IN , "/usr/bin/plan -W -F | sort | " );
    @PlanData=<IN>;
    close(IN);
 
@@ -369,7 +369,7 @@
 sub get_holiday {
 	local ($yr) = @_;
 
-	open ( IN , "/usr/local/bin/plan -W -H $yr |" );
+	open ( IN , "/usr/bin/plan -W -H $yr |" );
 	@PlanHoliday=<IN>;
 	close(IN);
 
diff -Naur plan-1.9.orig/web/help.html plan-1.9/web/help.html
--- plan-1.9.orig/web/help.html	2004-06-18 15:13:25.000000000 +0200
+++ plan-1.9/web/help.html	2004-06-18 15:14:03.000000000 +0200
@@ -25,11 +25,11 @@
   <LI>	You need a <I>netplan</I> server version 1.8 or later running on
 	the same host that the web server running the WebPlan CGI scripts
 	runs on. Its data directory must be named
-	<I>/usr/local/lib/netplan.dir</I>, which must be writable for the
+	<I>/usr/share/plan/netplan.dir</I>, which must be writable for the
 	CGI scripts.<p>
 
   <LI>	There must be a <I>plan</I> executable version 1.8 or later in the
-	directory <I>/usr/local/bin</I> on the host that the web server is
+	directory <I>/usr/bin</I> on the host that the web server is
 	running on.
 </UL>
 <p>There is no way to run the web interface without the help of an HTTP
diff -Naur plan-1.9.orig/web/webAdd.cgi plan-1.9/web/webAdd.cgi
--- plan-1.9.orig/web/webAdd.cgi	2004-06-18 15:13:25.000000000 +0200
+++ plan-1.9/web/webAdd.cgi	2004-06-18 15:14:03.000000000 +0200
@@ -129,7 +129,7 @@
 #  user add a \0 appended to it ... that's why data was not passed
 #  to the dam script with system or open() statement
 
-   $cmd="/usr/local/bin/plan $start -W $long $rep -u $user \"$data\"";
+   $cmd="/usr/bin/plan $start -W $long $rep -u $user \"$data\"";
 #  system("$cmd");
         open ( IN , "$cmd |");
         @error=<IN>;
diff -Naur plan-1.9.orig/web/webmodDel.cgi plan-1.9/web/webmodDel.cgi
--- plan-1.9.orig/web/webmodDel.cgi	2004-06-18 15:13:25.000000000 +0200
+++ plan-1.9/web/webmodDel.cgi	2004-06-18 15:14:03.000000000 +0200
@@ -33,7 +33,7 @@
         return;
    }
    else {
-   	open ( IN , "/usr/local/bin/plan -W -X $Row $Qui |" );
+   	open ( IN , "/usr/bin/plan -W -X $Row $Qui |" );
    	@error=<IN>;
    	close(IN);
 	foreach $line ( @error ) {