Removed RBM part from all files as this software was developed privately.
authorMaximilian Wilhelm <max@rfc2324.org>
Tue, 13 May 2008 22:38:52 +0000 (00:38 +0200)
committerMaximilian Wilhelm <max@rfc2324.org>
Tue, 13 May 2008 22:38:52 +0000 (00:38 +0200)
Signed-off-by: Maximilian Wilhelm <max@rfc2324.org>

files/server/SshKeySync/Merge.pm [moved from files/server/RBM/sshKeySync/Merge.pm with 90% similarity]
files/server/SshKeySync/Merge/Domain.pm [moved from files/server/RBM/sshKeySync/Merge/Domain.pm with 75% similarity]

similarity index 90%
rename from files/server/RBM/sshKeySync/Merge.pm
rename to files/server/SshKeySync/Merge.pm
index 0efad06..6967f7a 100644 (file)
@@ -1,20 +1,16 @@
 #!/usr/bin/perl -w
 #
-# RBM::sshKeySync::Merge
+# SshKeySync::Merge
 #
-# The programm is part of the RBM library, the officiall programms
-# of the 'Rechnerbetrieb Mathematik' (Computersupportcenter at the
-# institute of mathematics) at the Univiersity of Paderborn.
 #
 #   Exit status:
 #    1 => Configuration related problems
 #    2 => Runtime problems
 #    3 => Filesystemstructure related problems
-#    
 #
-#   Copyright (C) 2005, Maximilian Wilhelm <max@rfc2324.org>
+#   Copyright (C) 2005-2008, Maximilian Wilhelm <max@rfc2324.org>
 # 
-#   RBM::sshKeySync::Merge is free software; you can redistribute it and/or
+#   SshKeySync::Merge is free software; you can redistribute it and/or
 #   modify it under the terms of the GNU General Public License as published
 #   by the Free Software Foundation; either version 2, or (at your option) 
 #   any later version.
@@ -23,7 +19,7 @@
 #   /usr/share/common-licenses/GPL
 #
 
-package RBM::sshKeySync::Merge;
+package SshKeySync::Merge;
 
 use strict;
 use Config::IniFiles;
@@ -31,7 +27,7 @@ use File::Basename;
 use File::Copy;
 use File::Path;
 use Net::DNS;
-use RBM::sshKeySync::Merge::Domain;
+use SshKeySync::Merge::Domain;
 
 # Net::DNS::Resolver
 my $resolver = Net::DNS::Resolver->new;
@@ -39,13 +35,12 @@ my $resolver = Net::DNS::Resolver->new;
 
 ##
 # _options( @args ): Little big of magic #{{{
-sub _options
-{
+sub _options (@) {
        my %args = @_;
        
-       if ( $args{debug} ) {
-               foreach my $arg ( keys %args ) {
-                       print STDERR ("RBM::sshKeySync::Merge->_options: $arg => $args{$arg}\n");
+       if ($args{debug}) {
+               foreach my $arg (keys %args) {
+                       print STDERR __PACKAGE__ . "->_options: $arg => $args{$arg}\n");
                }
        }
        
@@ -61,7 +56,7 @@ sub new {
        my $args = &_options;
 
        # Default configfile if unset.
-       $args->{configfile} = "/etc/rbm/ssh-keysync-server.conf" unless ( $args->{configfile} );
+       $args->{configfile} = "/etc/ssh-keysync/ssh-keysync-server.conf" unless ( $args->{configfile} );
 
        if ( $args->{debug} && $args->{quiet} ) {
                $args->{quiet} = 0;
@@ -188,7 +183,7 @@ sub loadConfig {
                        }
 
                        # Save domain data
-                       $domains{$domain} = RBM::sshKeySync::Merge::Domain->new( $domain, \@alt_domains, $domain_opt{separate_outfile}, $domain_opt{common_outfile} );
+                       $domains{$domain} = SshKeySync::Merge::Domain->new( $domain, \@alt_domains, $domain_opt{separate_outfile}, $domain_opt{common_outfile} );
                        print "Domain information for $domain successfully loaded...\n" unless ( $args->{quiet} );
                } 
 
@@ -291,7 +286,7 @@ sub merge_domain {
        # Ok, let's go
        my $date=`date +"%d.%m.%Y at %H:%M"`;
        if ( $domains->{$domain}->get_separate_outfile() ) {
-               print SEPARATE_OF "# ssh_known_hosts generated by RBM::sshKeySync::Merge on " . $date . "#\n";
+               print SEPARATE_OF "# ssh_known_hosts generated by " . __PACKAGE__ . " on " . $date . "#\n";
        }
 
        ##
@@ -378,7 +373,7 @@ sub merge_all_domains() {
        my $date=`date +"%d.%m.%Y at %H:%M"`;
 
        my $fh_c_of = $self->{fh_common_of};
-       print $fh_c_of "# ssh_known_hosts generated by RBM::sshKeySync::Merge on " . $date . "#\n";
+       print $fh_c_of "# ssh_known_hosts generated by " . __PACKAGE__ . " on " . $date . "#\n";
 
        foreach my $domain (keys %$domains) {
                $self->merge_domain( $domain );
@@ -446,19 +441,19 @@ sub move_key_to_ATTIC {
        
        # Check if $domain exists
        unless ( $self->{domains}->{$domain} ) {
-               print STDERR "Error: BM::sshKeySync::Merge::move_key_to_ATTIC called with invalid domain $domain\n";
+               print STDERR "Error: " . __PACKAGE__ . "::move_key_to_ATTIC called with invalid domain $domain\n";
                return 1;
        }
 
        # Check $keyfile
        unless ( $keyfile ) {
-               print STDERR "Error: RBM::sshKeySync::Merge::move_key_to_ATTIC called without a key to move...\n";
+               print STDERR "Error: " . __PACKAGE__ . "::move_key_to_ATTIC called without a key to move...\n";
                return 1;
        }
 
        # Check if $keyfile exists
        unless( -f $keyfile ) {
-               print STDERR "Error: RBM::sshKeySync::Merge::move_key_to_ATTIC: Given keyfile does not exist...\n";
+               print STDERR "Error: " . __PACKAGE__ . "::move_key_to_ATTIC: Given keyfile does not exist...\n";
                return 1;
        }
        
similarity index 75%
rename from files/server/RBM/sshKeySync/Merge/Domain.pm
rename to files/server/SshKeySync/Merge/Domain.pm
index 3f4d03f..06a0882 100644 (file)
@@ -1,14 +1,10 @@
 #!/usr/bin/perl -w
 #
-# RBM::sshKeySync::Merge::Domain
+# SshKeySync::Merge::Domain
 #
-# The programm is part of the RBM library, the officiall programms
-# of the 'Rechnerbetrieb Mathematik' (Computersupportcenter at the
-# institute of mathematics) at the Univiersity of Paderborn.
-#
-#   Copyright (C) 2005, Maximilian Wilhelm <max@rfc2324.org>
+#   Copyright (C) 2005-2008, Maximilian Wilhelm <max@rfc2324.org>
 # 
-#   RBM::sshKeySync::Merge::Domain is free software; you can redistribute it
+#   SshKeySync::Merge::Domain is free software; you can redistribute it
 #   and/or modify it under the terms of the GNU General Public License as 
 #   published by the Free Software Foundation; either version 2, or (at your
 #   option) any later version.
@@ -17,7 +13,7 @@
 #   /usr/share/common-licenses/GPL
 #
 
-package RBM::sshKeySync::Merge::Domain;
+package SshKeySync::Merge::Domain;
 
 use strict;