Changeset 4174 in genesis

Timestamp:

Mar 27, 2005, 2:11:21 PM (20 years ago)

Author:

rick

Message:

-Add support for ssh-keys
-Global config file

Files:

• nodes/global_keys (added)
• tools/g_list.pl (modified) (1 diff)
• tools/genesis.conf (added)
• tools/wleiden.pl (modified) (2 diffs)

tools/g_list.pl

@@ -1 +1 @@
 #!/usr/bin/perl -w
 #
+# Copyright 2005 Stichting Wireless Leiden
+# Rick van der Zwet
 #
-#
-
-
-#filelist
-my @filelist = ();
-$filelist[0]="dhcpd.conf";
-$filelist[1]="rc.local";
-$filelist[2]="rc.node.local";
-$filelist[3]="resolv.conf";
-$filelist[4]="named.conf";
-$filelist[5]="snmpd.local.conf";
-$filelist[6]="txtconfig";
-
-#(inter)net env
-my $hostname=`hostname`;
-chomp($hostname);
-my $cgi_dir="http://$hostname/cgi-bin";
-my $source="$cgi_dir/g_list.pl";
-
-#path variablen
-my $home="/home/genesis";
-my $ndir="$home/nodes";
-my $toolfile="$home/tools/wleiden.pl";
-
-#exec vars
-my $svn="/usr/local/bin/svn";
-
-#naming vars
-my $configfile="wleiden.conf";
-
-######################## END OF CONFIG ##########################
+
+# Config located at other file
+my $conf_file="/home/genesis/tools/genesis.conf";
+do($conf_file) || die("Cann't open $conf_file");
+
+
+
 my $HTML=1;
 

tools/wleiden.pl

@@ -1 +1 @@
 #!/usr/bin/perl -w
 #
+# Copyright 2005 Stichting Wireless Leiden
+# maart 2004 rick@wirelessleiden.nl
 #
-#  maart 2004 rick@wirelessleiden.nl
-#
-
-my $debug=0;
-my $author="feb 2003 jasper\@WirelessLeiden.NL \| maart 2005 rick\@WirelessLeiden.NL";
-my $wicontrol='/usr/sbin/wicontrol';
-my $IP_pmPath='/home/genesis/tools/IP.pm';
-my $dnsheader_confPath='/home/genesis/dns/dnsheader.conf';
-
+
+# Config located at other file
+my $conf_file="/home/genesis/tools/genesis.conf";
+do($conf_file) || die("Cann't open $conf_file");
+################ END OF CONFIG ##########################
 
 #variablen
@@ -316 +314 @@
 };
 
+sub authorized_keys {
+  my $output = genHeader("#");
+  if( -e "$global_keyPath" ) {
+    open( GLOBAL, "$global_keyPath" ) || die ("Cann't open $global_keyPath");
+      $output .= join("", <GLOBAL>);
+    close( GLOBAL );
+  }
+  else {
+    $output .= "# No $global_keyPath\n";
+  };
+ 
+  if( -e "$ndir/$nodetype$nodename/$ssh_file" ) {
+    open( NODE, "$ndir/$nodetype$nodename/$ssh_file" ) || die ("Cann't open $home/$nodename/$ssh_file");
+      $output .= join("", <NODE>);
+    close( NODE );
+  }
+  else {
+    $output .= "# No $ndir/$nodetype$nodename/$ssh_file\n";
+  };
+  
+  return($output);
+};
+
 sub do_it {
   my $file = $_[0];