diff options
46 files changed, 46 insertions, 2 deletions
diff --git a/lib/network/adsl.pm b/lib/network/adsl.pm index e2ac90d..88f0571 100644 --- a/lib/network/adsl.pm +++ b/lib/network/adsl.pm @@ -1,5 +1,6 @@ package network::adsl; # $Id: adsl.pm 219797 2007-05-25 15:39:46Z blino $ +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use run_program; use network::tools; diff --git a/lib/network/connection.pm b/lib/network/connection.pm index 7f6c79f..5cab3ac 100644 --- a/lib/network/connection.pm +++ b/lib/network/connection.pm @@ -1,5 +1,6 @@ package network::connection; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use network::vpn; diff --git a/lib/network/connection/cable.pm b/lib/network/connection/cable.pm index a81ae06..acc01f0 100644 --- a/lib/network/connection/cable.pm +++ b/lib/network/connection/cable.pm @@ -3,6 +3,7 @@ package network::connection::cable; use base qw(network::connection::ethernet); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use modules; use detect_devices; diff --git a/lib/network/connection/cellular.pm b/lib/network/connection/cellular.pm index 3084480..13b96c9 100644 --- a/lib/network/connection/cellular.pm +++ b/lib/network/connection/cellular.pm @@ -3,6 +3,7 @@ package network::connection::cellular; use base qw(network::connection::ppp); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; my $cellular_d = "/etc/sysconfig/network-scripts/cellular.d"; diff --git a/lib/network/connection/cellular_bluetooth.pm b/lib/network/connection/cellular_bluetooth.pm index 5c99b63..0048ac7 100644 --- a/lib/network/connection/cellular_bluetooth.pm +++ b/lib/network/connection/cellular_bluetooth.pm @@ -3,6 +3,7 @@ package network::connection::cellular_bluetooth; use base qw(network::connection::cellular); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; my $rfcomm_dev_prefix = "/dev/rfcomm"; diff --git a/lib/network/connection/cellular_card.pm b/lib/network/connection/cellular_card.pm index d879b19..a273dfd 100644 --- a/lib/network/connection/cellular_card.pm +++ b/lib/network/connection/cellular_card.pm @@ -3,6 +3,7 @@ package network::connection::cellular_card; use base qw(network::connection::cellular); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; my $wrong_pin_error = N_("Wrong PIN number format: it should be 4 digits."); diff --git a/lib/network/connection/dvb.pm b/lib/network/connection/dvb.pm index c5f8ff6..2882bae 100644 --- a/lib/network/connection/dvb.pm +++ b/lib/network/connection/dvb.pm @@ -3,6 +3,7 @@ package network::connection::dvb; use base qw(network::connection::ethernet); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use modules; diff --git a/lib/network/connection/ethernet.pm b/lib/network/connection/ethernet.pm index f33f7f1..a4023a1 100644 --- a/lib/network/connection/ethernet.pm +++ b/lib/network/connection/ethernet.pm @@ -3,6 +3,7 @@ package network::connection::ethernet; # $Id: ethernet.pm 147431 2007-03-21 17:0 use base qw(network::connection); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use network::tools; diff --git a/lib/network/connection/isdn.pm b/lib/network/connection/isdn.pm index 7187aed..b4bb7b1 100644 --- a/lib/network/connection/isdn.pm +++ b/lib/network/connection/isdn.pm @@ -3,6 +3,7 @@ package network::connection::isdn; use base qw(network::connection); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; sub get_type_name { N("ISDN") } diff --git a/lib/network/connection/pots.pm b/lib/network/connection/pots.pm index 22299f6..507b0bc 100644 --- a/lib/network/connection/pots.pm +++ b/lib/network/connection/pots.pm @@ -3,6 +3,7 @@ package network::connection::pots; use base qw(network::connection::ppp); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; sub get_type_name { diff --git a/lib/network/connection/ppp.pm b/lib/network/connection/ppp.pm index 277971f..9df0654 100644 --- a/lib/network/connection/ppp.pm +++ b/lib/network/connection/ppp.pm @@ -1,6 +1,7 @@ package network::connection::ppp; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use base qw(network::connection); diff --git a/lib/network/connection/providers/cellular.pm b/lib/network/connection/providers/cellular.pm index 79f757c..13854d9 100644 --- a/lib/network/connection/providers/cellular.pm +++ b/lib/network/connection/providers/cellular.pm @@ -1,5 +1,6 @@ package network::connection::providers::cellular; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use utf8; diff --git a/lib/network/connection/providers/cellular_extra.pm b/lib/network/connection/providers/cellular_extra.pm index 4039afa..7be8e7c 100644 --- a/lib/network/connection/providers/cellular_extra.pm +++ b/lib/network/connection/providers/cellular_extra.pm @@ -1,5 +1,6 @@ package network::connection::providers::cellular_extra; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use utf8; diff --git a/lib/network/connection/providers/xdsl.pm b/lib/network/connection/providers/xdsl.pm index 52b1b58..5d9d5ea 100644 --- a/lib/network/connection/providers/xdsl.pm +++ b/lib/network/connection/providers/xdsl.pm @@ -3,6 +3,7 @@ package network::connection::providers::xdsl; # $Id: xdsl.pm 59309 2006-09-01 12 # This should probably be splitted out into ldetect-lst as some provider db +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use utf8; diff --git a/lib/network/connection/wireless.pm b/lib/network/connection/wireless.pm index fad011c..6267398 100644 --- a/lib/network/connection/wireless.pm +++ b/lib/network/connection/wireless.pm @@ -3,6 +3,7 @@ package network::connection::wireless; use base qw(network::connection::ethernet); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use log; use network::network; diff --git a/lib/network/connection/xdsl.pm b/lib/network/connection/xdsl.pm index e55dd24..e87e29b 100644 --- a/lib/network/connection/xdsl.pm +++ b/lib/network/connection/xdsl.pm @@ -3,6 +3,7 @@ package network::connection::xdsl; use base qw(network::connection::ppp); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; sub get_type_name() { N("DSL") } diff --git a/lib/network/connection_manager.pm b/lib/network/connection_manager.pm index e3f91bd..5cbe07e 100644 --- a/lib/network/connection_manager.pm +++ b/lib/network/connection_manager.pm @@ -2,6 +2,7 @@ package network::connection_manager; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use run_program; use detect_devices; diff --git a/lib/network/dhcpd.pm b/lib/network/dhcpd.pm index 8cf30d5..569e207 100644 --- a/lib/network/dhcpd.pm +++ b/lib/network/dhcpd.pm @@ -1,6 +1,7 @@ package network::dhcpd; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; my $sysconf_dhcpd = "$::prefix/etc/sysconfig/dhcpd"; diff --git a/lib/network/drakconnect.pm b/lib/network/drakconnect.pm index 4f68ff0..88b7848 100644 --- a/lib/network/drakconnect.pm +++ b/lib/network/drakconnect.pm @@ -1,5 +1,6 @@ package network::drakconnect; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use network::network; diff --git a/lib/network/drakconnect/delete.pm b/lib/network/drakconnect/delete.pm index b8d0689..f4321a4 100644 --- a/lib/network/drakconnect/delete.pm +++ b/lib/network/drakconnect/delete.pm @@ -1,5 +1,6 @@ package network::drakconnect::delete; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use wizards; use interactive; diff --git a/lib/network/drakconnect/edit.pm b/lib/network/drakconnect/edit.pm index 4e1983b..8132368 100644 --- a/lib/network/drakconnect/edit.pm +++ b/lib/network/drakconnect/edit.pm @@ -1,5 +1,6 @@ package network::drakconnect::edit; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use ugtk2 qw(:create :dialogs :helpers :wrappers); use mygtk2 qw(gtknew); use common; diff --git a/lib/network/drakconnect/global.pm b/lib/network/drakconnect/global.pm index 59da73c..f7e1eff 100644 --- a/lib/network/drakconnect/global.pm +++ b/lib/network/drakconnect/global.pm @@ -1,5 +1,6 @@ package network::drakconnect::global; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use ugtk2 qw(:create :dialogs :helpers :wrappers); use mygtk2 qw(gtknew); use common; diff --git a/lib/network/drakfirewall.pm b/lib/network/drakfirewall.pm index e679415..a5596f5 100644 --- a/lib/network/drakfirewall.pm +++ b/lib/network/drakfirewall.pm @@ -2,7 +2,7 @@ package network::drakfirewall; # $Id: drakfirewall.pm 268043 2010-04-30 13:29:37 use strict; use diagnostics; - +use lib qw(/usr/lib/libDrakX); # helps perl_checker use network::shorewall; use common; use network::nfs; diff --git a/lib/network/drakroam.pm b/lib/network/drakroam.pm index f6c28d0..8befff6 100755 --- a/lib/network/drakroam.pm +++ b/lib/network/drakroam.pm @@ -7,6 +7,7 @@ package network::drakroam; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use interactive; use mygtk2; diff --git a/lib/network/drakvpn.pm b/lib/network/drakvpn.pm index c68127d..1ffafda 100644 --- a/lib/network/drakvpn.pm +++ b/lib/network/drakvpn.pm @@ -15,6 +15,7 @@ network::drakvpn - Interactive VPN configuration =cut use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use network::vpn; diff --git a/lib/network/ifw.pm b/lib/network/ifw.pm index 94ea851..4447808 100644 --- a/lib/network/ifw.pm +++ b/lib/network/ifw.pm @@ -1,6 +1,7 @@ package network::ifw; use Socket; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; our @ISA = qw(dbus_object); diff --git a/lib/network/ipsec.pm b/lib/network/ipsec.pm index bf30b3d..cbc7d8c 100644 --- a/lib/network/ipsec.pm +++ b/lib/network/ipsec.pm @@ -1,7 +1,7 @@ package network::ipsec; - +use lib qw(/usr/lib/libDrakX); # helps perl_checker use detect_devices; use run_program; use common; diff --git a/lib/network/modem.pm b/lib/network/modem.pm index b7fbc85..0aa4b6a 100644 --- a/lib/network/modem.pm +++ b/lib/network/modem.pm @@ -1,6 +1,7 @@ package network::modem; # $Id: modem.pm 243081 2008-06-25 15:44:25Z blino $ use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use any; use modules; diff --git a/lib/network/monitor.pm b/lib/network/monitor.pm index c6b60d8..b06bbe3 100644 --- a/lib/network/monitor.pm +++ b/lib/network/monitor.pm @@ -1,5 +1,6 @@ package network::monitor; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use dbus_object; diff --git a/lib/network/ndiswrapper.pm b/lib/network/ndiswrapper.pm index 136f206..efcc62f 100644 --- a/lib/network/ndiswrapper.pm +++ b/lib/network/ndiswrapper.pm @@ -1,6 +1,7 @@ package network::ndiswrapper; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use modules; use detect_devices; diff --git a/lib/network/net_applet/ifw.pm b/lib/network/net_applet/ifw.pm index 22fc432..217ca2a 100644 --- a/lib/network/net_applet/ifw.pm +++ b/lib/network/net_applet/ifw.pm @@ -1,5 +1,6 @@ package network::net_applet::ifw; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use network::ifw; use ugtk2 qw(:create :helpers :wrappers :dialogs); diff --git a/lib/network/netcenter.pm b/lib/network/netcenter.pm index fa65a33..cb6d1bf 100755 --- a/lib/network/netcenter.pm +++ b/lib/network/netcenter.pm @@ -5,6 +5,7 @@ package network::netcenter; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use mygtk2; use ugtk2 qw(:create :helpers :wrappers); diff --git a/lib/network/netconnect.pm b/lib/network/netconnect.pm index 8f50630..dc36fcd 100644 --- a/lib/network/netconnect.pm +++ b/lib/network/netconnect.pm @@ -1,6 +1,7 @@ package network::netconnect; # $Id: netconnect.pm 259351 2009-08-17 15:15:51Z tv $ use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use log; use detect_devices; diff --git a/lib/network/network.pm b/lib/network/network.pm index 0b3439e..e62ea5e 100644 --- a/lib/network/network.pm +++ b/lib/network/network.pm @@ -6,6 +6,7 @@ package network::network; # $Id: network.pm 268044 2010-04-30 13:31:34Z blino $w use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use c; use lang; use Socket; diff --git a/lib/network/nfs.pm b/lib/network/nfs.pm index 177c70f..32ee90c 100644 --- a/lib/network/nfs.pm +++ b/lib/network/nfs.pm @@ -1,6 +1,7 @@ package network::nfs; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; sub read_nfs_ports() { diff --git a/lib/network/pxe.pm b/lib/network/pxe.pm index 2fecb8f..6b65351 100644 --- a/lib/network/pxe.pm +++ b/lib/network/pxe.pm @@ -1,5 +1,6 @@ package network::pxe; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use network::tools; use Xconfig::resolution_and_depth; diff --git a/lib/network/rfswitch.pm b/lib/network/rfswitch.pm index 4617990..f73f718 100644 --- a/lib/network/rfswitch.pm +++ b/lib/network/rfswitch.pm @@ -2,6 +2,7 @@ package network::rfswitch; use strict; use MDK::Common; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use detect_devices; my $conf_file = "/etc/modprobe.d/rfswitch.conf"; diff --git a/lib/network/shorewall.pm b/lib/network/shorewall.pm index 5ee8d38..0ae7b9e 100644 --- a/lib/network/shorewall.pm +++ b/lib/network/shorewall.pm @@ -1,5 +1,6 @@ package network::shorewall; # $Id: shorewall.pm 254244 2009-03-18 22:54:32Z eugeni $ +use lib qw(/usr/lib/libDrakX); # helps perl_checker use detect_devices; use network::network; use run_program; diff --git a/lib/network/signal_strength.pm b/lib/network/signal_strength.pm index 19e119c..0e69108 100644 --- a/lib/network/signal_strength.pm +++ b/lib/network/signal_strength.pm @@ -1,5 +1,6 @@ package network::signal_strength; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use ugtk2; diff --git a/lib/network/squid.pm b/lib/network/squid.pm index 4f99a8d..f79f555 100644 --- a/lib/network/squid.pm +++ b/lib/network/squid.pm @@ -1,6 +1,7 @@ package network::squid; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; our $squid_conf_file = "$::prefix/etc/squid/squid.conf"; diff --git a/lib/network/test.pm b/lib/network/test.pm index 0bd1231..94d8ed4 100644 --- a/lib/network/test.pm +++ b/lib/network/test.pm @@ -1,6 +1,7 @@ package network::test; # $Id: test.pm 219797 2007-05-25 15:39:46Z blino $ use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use run_program; use Socket; diff --git a/lib/network/thirdparty.pm b/lib/network/thirdparty.pm index 7688fdd..5e461bd 100644 --- a/lib/network/thirdparty.pm +++ b/lib/network/thirdparty.pm @@ -1,6 +1,7 @@ package network::thirdparty; use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use detect_devices; use run_program; diff --git a/lib/network/tools.pm b/lib/network/tools.pm index cdb556c..cd7b69d 100644 --- a/lib/network/tools.pm +++ b/lib/network/tools.pm @@ -1,6 +1,7 @@ package network::tools; # $Id: tools.pm 253976 2009-03-13 10:57:55Z eugeni $ use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; use run_program; use c; diff --git a/lib/network/vpn.pm b/lib/network/vpn.pm index 4a5afbc..21142c8 100644 --- a/lib/network/vpn.pm +++ b/lib/network/vpn.pm @@ -7,6 +7,7 @@ network::vpn - VPN connection abstract class =cut use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; my $vpn_d = "/etc/sysconfig/network-scripts/vpn.d"; diff --git a/lib/network/vpn/openvpn.pm b/lib/network/vpn/openvpn.pm index 05f68f3..d295fce 100644 --- a/lib/network/vpn/openvpn.pm +++ b/lib/network/vpn/openvpn.pm @@ -3,6 +3,7 @@ package network::vpn::openvpn; use base qw(network::vpn); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; sub get_type { 'openvpn' } diff --git a/lib/network/vpn/vpnc.pm b/lib/network/vpn/vpnc.pm index c7a87c7..3dcb45e 100644 --- a/lib/network/vpn/vpnc.pm +++ b/lib/network/vpn/vpnc.pm @@ -3,6 +3,7 @@ package network::vpn::vpnc; use base qw(network::vpn); use strict; +use lib qw(/usr/lib/libDrakX); # helps perl_checker use common; sub get_type { 'vpnc' } |