Changeset 4174 in genesis for tools/wleiden.pl

Timestamp:

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

Author:

rick

Message:

-Add support for ssh-keys
-Global config file

File:

• tools/wleiden.pl (modified) (2 diffs)

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];