Changeset 5230 in genesis for tools/FreeBSD5_x

Timestamp:

May 21, 2006, 7:37:43 PM (19 years ago)

Author:

rick

Message:

Made more generic
/filelist will be filelist
/nodelist will return nodelist

added option to remove certain dirs at the nodedir

Location:

tools/FreeBSD5_x

Files:

• g_list.pl (modified) (3 diffs)
• genesis.conf (modified) (1 diff)

tools/FreeBSD5_x/g_list.pl

@@ -22 +22 @@
 };
 
+sub filelist {
+  foreach $file ( sort @filelist) {
+    if( $HTML) {
+      print "$file<BR>\n";
+    }
+    else {
+      print "$file\n";
+    };
+  };
+}
+
+sub listnodes {
+  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
+  @tmpdirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
+  closedir DIR;
+  foreach $dir (sort @tmpdirs) {
+    if( not exists($removefromnodelist{$dir}) )
+    {
+      push(@nodelist, $dir);
+    }
+    else
+    {
+    if ( $debug ) { print "'$dir' removed from list\n"; }
+    }
+  };
+  return @nodelist;
+}
+
+sub nodelist {
+  foreach $node (listnodes( )) {
+    if( $HTML) {
+      print "$node<BR>\n";
+    }
+    else {
+      print "$node\n";
+    };
+  };
+}
 
 #REQUEST parsen
 $request=$ENV{'REQUEST_URI'};
-if( $request=~/cgi-bin\/g_list.pl\/(.*)$/) {
+if( $request=~/.*g_list.pl\/(.*)$/) {
   ($node,$file)=split(/\//,$1);
   $title="$node $file";
+  if ( $debug ) { print "Node: $node\n"; }
+  if ( $debug ) { print "File: $file\n"; }
 }
 else {
@@ -64 +104 @@
   }
   else {
-    g_list( );
-  };
+   g_list( );
+  }
+}
+elsif( $node eq 'filelist' ) {
+  filelist( );
+}
+elsif( $node eq 'nodelist' ) {
+  nodelist( );
 }
 else {
   if( $file eq '') {
-    foreach $file ( sort @filelist) {
-      if( $HTML) {
-        print "$file<BR>\n";
-      }
-      else {
-        print "$file\n";
-      };
-    };
+      filelist( );
   }
   elsif( $file eq 'config') {
@@ -115 +154 @@
   };
 
-  opendir(DIR, $ndir) || die "can't opendir $ndir: $!";
-  @dirs = grep { /^[^\.]/ && -d "$ndir/$_" } readdir(DIR);
-  closedir DIR;
+  @dirs = listnodes( );
   foreach $dir (sort @dirs) {
     if( $dir=~/attic/ ) {

tools/FreeBSD5_x/genesis.conf

@@ -21 +21 @@
 $filelist[6]="txtconfig";
 $filelist[7]="authorized_keys";
+
+#Ignore this node diretories
+%removefromnodelist = (
+                      'retired' => 'YES',
+                      'obsolete' => 'YES',
+                       );
+
 
 #(inter)net env