Changeset 5157 in genesis for tools

Timestamp:

Feb 12, 2006, 7:49:25 PM (19 years ago)

Author:

rick

Message:

Security: Renamed $home -> $ndir, only update node dir, not actual script

Location:

tools

Files:

• FreeBSD5_x/g_list.pl (modified) (3 diffs)
• FreeBSD6_x/g_list.pl (modified) (3 diffs)

tools/FreeBSD5_x/g_list.pl

@@ -6 +6 @@
 
 # Config located at other file
-my $conf_file="/home/genesis/tools/FreeBSD5_x/genesis.conf";
+my $conf_file="./genesis.conf";
 do($conf_file) || die("Cann't open $conf_file");
 
@@ -56 +56 @@
     select(STDERR); $| = 1;     # make unbuffered
     select(STDOUT); $| = 1;     # make unbuffered
-    system("$svn update $home");
+    system("$svn update $ndir");
     printline("</PRE>");
     printline("<H2>Done.<H2><P>");
@@ -115 +115 @@
   };
 
-  opendir(DIR, $ndir) || die "can't opendir $home: $!";
+  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
   @dirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
   closedir DIR;

tools/FreeBSD6_x/g_list.pl

@@ -6 +6 @@
 
 # Config located at other file
-my $conf_file="/home/genesis/tools/FreeBSD6_x/genesis.conf";
+my $conf_file="./genesis.conf";
 do($conf_file) || die("Cann't open $conf_file");
 
@@ -56 +56 @@
     select(STDERR); $| = 1;     # make unbuffered
     select(STDOUT); $| = 1;     # make unbuffered
-    system("$svn update $home");
+    system("$svn update $ndir");
     printline("</PRE>");
     printline("<H2>Done.<H2><P>");
@@ -115 +115 @@
   };
 
-  opendir(DIR, $ndir) || die "can't opendir $home: $!";
+  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
   @dirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
   closedir DIR;