index 14e755aea245aefbb33d4f8df7d8f3dd6ca2c6a2..651bd57d7a1d914fec06b226d69cbdfd08d60014 100644 (file)
-package GOSA::GosaSupportDaemon;
+package GOsaSI::GosaSupportDaemon;
use strict;
use warnings;
-use Exporter;
use IO::Socket::INET;
use Crypt::Rijndael;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use Data::Dumper;
use Net::DNS;
use Net::ARP;
+
use DateTime;
+use Exporter;
-@ISA = qw(Exporter);
+our @ISA = qw(Exporter);
my @functions = (
"create_passwd",
"check_opsi_res",
"calc_timestamp",
"opsi_callobj2string",
- );
-@EXPORT = @functions;
+ );
+
+our @EXPORT = @functions;
my $op_hash = {
'eq' => '=',
sub get_dns_domains() {
my $line;
my @searches;
- open($RESOLV, "<", "/etc/resolv.conf") or return @searches;
+ open(my $RESOLV, "<", "/etc/resolv.conf") or return @searches;
while(<$RESOLV>){
$line= $_;
chomp $line;
my @result;
my $PROC_NET_DEV= ('/proc/net/dev');
- open($FD_PROC_NET_DEV, "<", "$PROC_NET_DEV")
+ open(my $FD_PROC_NET_DEV, "<", "$PROC_NET_DEV")
or die "Could not open $PROC_NET_DEV";
my @ifs = <$FD_PROC_NET_DEV>;
if($remote_ip =~ /^(\d\d?\d?\.){3}\d\d?\d?$/) {
my $PROC_NET_ROUTE= ('/proc/net/route');
- open($FD_PROC_NET_ROUTE, "<", "$PROC_NET_ROUTE")
+ open(my $FD_PROC_NET_ROUTE, "<", "$PROC_NET_ROUTE")
or die "Could not open $PROC_NET_ROUTE";
my @ifs = <$FD_PROC_NET_ROUTE>;
&main::daemon_log("ERROR: The sudo utility is not available! Please fix this!");
}
my $cmd_line= "$sudo_cmd su - $uid -c '$command'";
- open($PIPE, "$cmd_line |");
+ open(my $PIPE, "$cmd_line |");
my $result = {'command' => $cmd_line};
push @{$result->{'output'}}, <$PIPE>;
close($PIPE);