From: rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Wed, 27 May 2009 11:40:05 +0000 (+0000)
Subject: delete unused but imported perl modules
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=cbbcc613e7229de7745950858eaa4e74b4adf258;p=gosa.git

delete unused but imported perl modules


git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@13673 594d385d-05f5-0310-b6e9-bd551577e9d8
---

diff --git a/gosa-si/client/events/corefunctions.pm b/gosa-si/client/events/corefunctions.pm
index d0edf21d8..e722e6b6c 100644
--- a/gosa-si/client/events/corefunctions.pm
+++ b/gosa-si/client/events/corefunctions.pm
@@ -18,7 +18,6 @@
 
 		use strict;
 		use warnings;
-		use Data::Dumper;
 		use Fcntl;
 		use GOSA::GosaSupportDaemon;
 		use File::Basename;
diff --git a/gosa-si/client/events/dak.pm b/gosa-si/client/events/dak.pm
index 2b7c27d68..c1566a8ee 100644
--- a/gosa-si/client/events/dak.pm
+++ b/gosa-si/client/events/dak.pm
@@ -17,7 +17,6 @@ my @events = (
 use strict;
 use warnings;
 use GOSA::GosaSupportDaemon;
-use Data::Dumper;
 use MIME::Base64;
 
 BEGIN {}
@@ -94,7 +93,6 @@ sub get_dak_keyring {
 
     my $i=0;
     foreach my $key (@keys) {
-        #    &main::daemon_log(Dumper($key));
         &add_content2xml_hash($out_hash, "answer".$i++, $key);
     }
     my $forward_to_gosa = @{$msg_hash->{'forward_to_gosa'}}[0];
diff --git a/gosa-si/client/events/gosaTriggered.pm b/gosa-si/client/events/gosaTriggered.pm
index dca6f6308..bfe3a24ab 100644
--- a/gosa-si/client/events/gosaTriggered.pm
+++ b/gosa-si/client/events/gosaTriggered.pm
@@ -7,8 +7,6 @@ gosaTriggered.pm
 
 use GOSA::GosaSupportDaemon;
 
-use Data::Dumper;
-
 use MIME::Base64
 
 =head1 DESCRIPTION
@@ -48,7 +46,6 @@ my @events = (
 use strict;
 use warnings;
 use GOSA::GosaSupportDaemon;
-use Data::Dumper;
 use MIME::Base64;
 use File::Temp qw/ tempfile/;
 
diff --git a/gosa-si/client/events/installation.pm b/gosa-si/client/events/installation.pm
index 03b9f1c53..9a5fa786a 100644
--- a/gosa-si/client/events/installation.pm
+++ b/gosa-si/client/events/installation.pm
@@ -6,7 +6,6 @@ my @events = qw(get_events set_activated_for_installation);
 
 use strict;
 use warnings;
-use Data::Dumper;
 use Fcntl;
 
 BEGIN {}
diff --git a/gosa-si/client/events/krb5.pm b/gosa-si/client/events/krb5.pm
index dd53ba064..efe993f38 100644
--- a/gosa-si/client/events/krb5.pm
+++ b/gosa-si/client/events/krb5.pm
@@ -19,7 +19,6 @@ my @events = (
 
 use strict;
 use warnings;
-use Data::Dumper;
 use GOSA::GosaSupportDaemon;
 use Authen::Krb5;
 use Authen::Krb5::Admin qw(:constants);
diff --git a/gosa-si/client/events/load_reporter.pm b/gosa-si/client/events/load_reporter.pm
index 63b5e6194..d68f28107 100644
--- a/gosa-si/client/events/load_reporter.pm
+++ b/gosa-si/client/events/load_reporter.pm
@@ -13,7 +13,6 @@ my @events = (
 use strict;
 use warnings;
 use GOSA::GosaSupportDaemon;
-use Data::Dumper;
 
 BEGIN {}
 END {}
diff --git a/gosa-si/client/events/mailqueue.pm b/gosa-si/client/events/mailqueue.pm
index 866b5eae6..7e3699cb8 100644
--- a/gosa-si/client/events/mailqueue.pm
+++ b/gosa-si/client/events/mailqueue.pm
@@ -41,7 +41,6 @@ my @events = (
 use strict;
 use warnings;
 use GOSA::GosaSupportDaemon;
-use Data::Dumper;
 use MIME::Base64;
 
 BEGIN {}
diff --git a/gosa-si/gosa-si-client b/gosa-si/gosa-si-client
index cfe60390c..7babcca8c 100755
--- a/gosa-si/gosa-si-client
+++ b/gosa-si/gosa-si-client
@@ -30,7 +30,6 @@ use Time::HiRes qw( gettimeofday );
 use POE qw(Component::Server::TCP Wheel::FollowTail Wheel::Run);
 use IO::Socket::INET;
 use NetAddr::IP;
-use Data::Dumper;
 use Crypt::Rijndael;
 use GOSA::GosaSupportDaemon;
 use Digest::MD5  qw(md5_hex md5 md5_base64);
@@ -1259,7 +1258,6 @@ if (defined $server_ip && defined $server_port) {
 $xml = new XML::Simple();
 $default_server_key = $server_key;
 
-
 # add gosa-si-server address from config file at first position of server list
 my $server_check_cfg = Config::IniFiles->new( -file => $cfg_file );
 my $server_check = (defined($server_check_cfg))?$server_check_cfg->val( "server", "ip"):undef;