Minor bugfixes, finished wrapper script
authorMaximilian Wilhelm <max@rfc2324.org>
Tue, 6 Sep 2005 23:22:09 +0000 (23:22 +0000)
committerMaximilian Wilhelm <max@rfc2324.org>
Tue, 6 Sep 2005 23:22:09 +0000 (23:22 +0000)
files/ssh-keysync-merge

index 67ebd97..c61e7cf 100755 (executable)
@@ -1,10 +1,26 @@
 #!/usr/bin/perl -w
 #
+# ssh-keysync-merge
+#
+# Wrapper script to call RBM::sshKeySync::Merge - a library from the
+# RBM perl library - for merging ssh public keys to a ssh_known_hosts
+# file.
+#
+# 
 
 use strict;
 use RBM::sshKeySync::Merge;
 
-my $merger = RBM::sshKeySync::Merge->new( debug => 0, quiet => 0 );
+##
+# Check for command line parameteres
+my $quiet = 0;
+my $debug = 0;
+foreach my $arg ( @ARGV ) {
+       $debug = 1 if ( $arg eq "-d" || $arg eq "-debug" );
+       $quiet = 1 if ( $arg eq "-q" || $arg eq "-quiet" );
+}
 
-#$merger->merge_all_domains();
-$merger->merge_domain("math.uni-paderborn.de");
+##
+# Run real ssh-keysync-merge
+my $merger = RBM::sshKeySync::Merge->new( quiet => $quiet, debug => $debug );
+$merger->merge_all_domains();