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 d0edf21d8eceb27d97cbf8691d1f8dac4b8738b9..e722e6b6c103d929bcc8a65efc6401f9cb40d862 100644 (file)
--- 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 2b7c27d68e94fe0f4afbc79d3d0f673704b1c1db..c1566a8ee0d327dd1fce049da3f2a03636143f5a 100644 (file)
--- 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 dca6f63088b9a377e52069f3d6a7bfc076c4900a..bfe3a24ab60d3ac56d1aa026a4ffdc1af7637faf 100644 (file)
--- 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 03b9f1c53020f5fa9aee1eae107d85018fcafe9e..9a5fa786ad1f8f9620320b81521b94a21ea5a3a7 100644 (file)
--- 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 dd53ba064908c8ff93a4c08d7b933819d7c75338..efe993f3859e0c4dddd1eabc94a7d6afec1a745f 100644 (file)
--- 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 63b5e6194067f9d522518ae11588f3fd6d445d0a..d68f28107bdcd75003e963f8f0fc0f6ba6e4bc3f 100644 (file)
--- 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 866b5eae6792cda669a5d6d702b01cc31d79c362..7e3699cb83a746dbbac5a954daae3ac6a82d46c5 100644 (file)
--- 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 cfe60390cc535661552f6bb9a59e277af2ca00be..7babcca8cd1e0cfba22b73055d2e6c6d1fe30ea5 100755 (executable)
--- 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;