pf-tools commit: r445 [ccaillet-guest] - in /trunk/sbin: mk_dhcp mk_interfaces mk_packages mk_privatezone mk_pxelinuxcfg mk_resolvconf update-config

[parmelan-guest at users.alioth.debian.org]

Author: ccaillet-guest
Date: Mon Mar  5 14:56:52 2007
New Revision: 445

URL: http://svn.debian.org/wsvn/pf-tools/?sc=1&rev=445
Log:
CLEAN: adding use strict on tools

Modified:
    trunk/sbin/mk_dhcp
    trunk/sbin/mk_interfaces
    trunk/sbin/mk_packages
    trunk/sbin/mk_privatezone
    trunk/sbin/mk_pxelinuxcfg
    trunk/sbin/mk_resolvconf
    trunk/sbin/update-config

Modified: trunk/sbin/mk_dhcp
URL: http://svn.debian.org/wsvn/pf-tools/trunk/sbin/mk_dhcp?rev=445&op=diff
==============================================================================
--- trunk/sbin/mk_dhcp (original)
+++ trunk/sbin/mk_dhcp Mon Mar  5 14:56:52 2007
@@ -19,7 +19,7 @@
 ##  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
 ##
 
-#use strict;
+use strict;
 use warnings;
 
 # Librairies

Modified: trunk/sbin/mk_interfaces
URL: http://svn.debian.org/wsvn/pf-tools/trunk/sbin/mk_interfaces?rev=445&op=diff
==============================================================================
--- trunk/sbin/mk_interfaces (original)
+++ trunk/sbin/mk_interfaces Mon Mar  5 14:56:52 2007
@@ -19,7 +19,7 @@
 ##  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
 ##
 
-#use strict;
+use strict;
 use warnings;
 
 use PFTools::Net ;

Modified: trunk/sbin/mk_packages
URL: http://svn.debian.org/wsvn/pf-tools/trunk/sbin/mk_packages?rev=445&op=diff
==============================================================================
--- trunk/sbin/mk_packages (original)
+++ trunk/sbin/mk_packages Mon Mar  5 14:56:52 2007
@@ -19,23 +19,28 @@
 ##  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
 ##
 
+use strict ;
+use warnings ;
+
 if ( system("gzip -dc $ARGV[0] >/dev/null 2>&1") ) {
     print "Usage: $0 <Path/packages.gz>\n";
     exit 1;
 }
 
-$Packages = shift (@ARGV);
+my $Packages = shift (@ARGV);
 system("mv $Packages $Packages.old");
 open( PACKAGES, "| gzip -c > $Packages" );
 $Packages =~ s:/[^/]+$::;
 
+my ( $count, $bad ) ;
+
 foreach (`find $Packages -name '*.deb' -type f 2>/dev/null`) {
-    chomp( $pkg = $_ );
-    @PKG_INFOS = `dpkg -f $pkg 2>/dev/null`;
+    chomp( my $pkg = $_ );
+    my @PKG_INFOS = `dpkg -f $pkg 2>/dev/null`;
     if ( !$? ) {
 
         #print "Traitement de $pkg ...\n" ;
-        $sz = -s $pkg;
+        my $sz = -s $pkg;
         $pkg =~ s:^.*debian/::;
 
         foreach (@PKG_INFOS) {

Modified: trunk/sbin/mk_privatezone
URL: http://svn.debian.org/wsvn/pf-tools/trunk/sbin/mk_privatezone?rev=445&op=diff
==============================================================================
--- trunk/sbin/mk_privatezone (original)
+++ trunk/sbin/mk_privatezone Mon Mar  5 14:56:52 2007
@@ -19,7 +19,7 @@
 ##  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
 ##
 
-#use strict;
+use strict;
 use warnings;
 
 # Librairies
@@ -52,7 +52,7 @@
 # Generation de la zone
 #-------------------------
 
-$Z = Init_lib_net( Get_source($SRC) );
+my $Z = Init_lib_net( Get_source($SRC) );
 Mk_zone( Get_source($FORWARD), $Z );
 
 #foreach $reverse (@ARGV) {

Modified: trunk/sbin/mk_pxelinuxcfg
URL: http://svn.debian.org/wsvn/pf-tools/trunk/sbin/mk_pxelinuxcfg?rev=445&op=diff
==============================================================================
--- trunk/sbin/mk_pxelinuxcfg (original)
+++ trunk/sbin/mk_pxelinuxcfg Mon Mar  5 14:56:52 2007
@@ -19,7 +19,7 @@
 ##  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
 ##
 
-#use strict;
+use strict;
 use warnings;
 
 # Librairies

Modified: trunk/sbin/mk_resolvconf
URL: http://svn.debian.org/wsvn/pf-tools/trunk/sbin/mk_resolvconf?rev=445&op=diff
==============================================================================
--- trunk/sbin/mk_resolvconf (original)
+++ trunk/sbin/mk_resolvconf Mon Mar  5 14:56:52 2007
@@ -19,7 +19,7 @@
 ##  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
 ##
 
-#use strict;
+use strict;
 use warnings;
 
 use PFTools::Net ;

Modified: trunk/sbin/update-config
URL: http://svn.debian.org/wsvn/pf-tools/trunk/sbin/update-config?rev=445&op=diff
==============================================================================
--- trunk/sbin/update-config (original)
+++ trunk/sbin/update-config Mon Mar  5 14:56:52 2007
@@ -19,7 +19,7 @@
 ##  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
 ##
 
-#use strict;
+use strict;
 use warnings;
 
 # Librairies