dunno

[infobot.git] / src / Modules / DumpVars.pl

diff --git a/src/Modules/DumpVars.pl b/src/Modules/DumpVars.pl
index cbb3e3462208d727caa55a75a095bcde4b5fcc35..9b4ac4f4034f36f42416d4fa0c1f03bd31363fe7 100644 (file)
--- a/src/Modules/DumpVars.pl
+++ b/src/Modules/DumpVars.pl
@@ -6,7 +6,8 @@
 #         NOTE: Ripped from ActivePerl "asp sample" example.
 #
 
-use strict;
+# FIXME
+#use strict;
 
 #use vars qw();
 
@@ -14,121 +15,128 @@ my $countlines = 0;
 
 sub dumpvarslog {
     my ($line) = @_;
-    if (&IsParam("dumpvarsLogFile")) {
-       print DUMPVARS $line."\n";
-    } else {
-       &status("DV: ".$line);
+    if ( &IsParam('dumpvarsLogFile') ) {
+        print DUMPVARS $line . "\n";
+    }
+    else {
+        &status( "DV: " . $line );
     }
 }
 
 sub DumpNames(\%$) {
-    my ($package,$packname) =  @_;
+    my ( $package, $packname ) = @_;
     my $symname = 0;
     my $line;
 
-    if ($packname eq 'main::') {
-       &dumpvarslog("Packages");
+    if ( $packname eq 'main::' ) {
+        &dumpvarslog('Packages');
 
-       foreach $symname (sort keys %$package) {
-           local *sym = $$package{$symname};
-           next unless (defined %sym);
-           next unless ($symname =~/::/);
-           &dumpvarslog("   $symname");
-           $countlines++;
-       }
+        foreach $symname ( sort keys %$package ) {
+            local *sym = $$package{$symname};
+            next unless ( %sym );
+            next unless ( $symname =~ /::/ );
+            &dumpvarslog("   $symname");
+            $countlines++;
+        }
     }
 
     # Scalars.
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined $sym);
-
-       my $line;
-       if (length($sym) > 512) {
-           &dumpvarslog("Scalar '$packname' $symname too long.");
-       } else {
-           &dumpvarslog("Scalar '$packname' \$ $symname => '$sym'");
-       }
-       $countlines++;
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined $sym );
+
+        my $line;
+        if ( length($sym) > 512 ) {
+            &dumpvarslog("Scalar '$packname' $symname too long.");
+        }
+        else {
+            &dumpvarslog("Scalar '$packname' \$ $symname => '$sym'");
+        }
+        $countlines++;
     }
 
     # Functions.
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined &sym);
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( defined &sym );
 
-       &dumpvarslog("Function '$packname' $symname()");
-       $countlines++;
+        &dumpvarslog("Function '$packname' $symname()");
+        $countlines++;
     }
 
     # Lists.
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined @sym);
-
-       &dumpvarslog("List '$packname' \@$symname (". scalar(@{$symname}) .")");
-       $countlines++;
-
-       next unless ($packname eq 'main::');
-       foreach (@{$symname}) {
-           if (defined $_) {
-               &dumpvarslog("   => '$_'.");
-           } else {
-               &dumpvarslog("   => <NULL>.");
-           }
-       }
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( @sym );
+
+        &dumpvarslog(
+            "List '$packname' \@$symname (" . scalar( @{$symname} ) . ")" );
+        $countlines++;
+
+        next unless ( $packname eq 'main::' );
+        foreach ( @{$symname} ) {
+            if ( defined $_ ) {
+                &dumpvarslog("   => '$_'.");
+            }
+            else {
+                &dumpvarslog("   => <NULL>.");
+            }
+        }
     }
 
     # Hashes.
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined %sym);
-       next if ($symname =~/::/);
-
-       &dumpvarslog("Hash '$packname' \%$symname");
-       $countlines++;
-
-       next unless ($packname eq 'main::');
-       foreach (keys %{$symname}) {
-           my $val = ${$symname}{$_};
-           if (defined $val) {
-               &dumpvarslog("   $_ => '$val'.");
-           } else {
-               &dumpvarslog("   $_ => <NULL>.");
-           }
-       }
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( %sym );
+        next if ( $symname =~ /::/ );
+
+        &dumpvarslog("Hash '$packname' \%$symname");
+        $countlines++;
+
+        next unless ( $packname eq 'main::' );
+        foreach ( keys %{$symname} ) {
+            my $val = ${$symname}{$_};
+            if ( defined $val ) {
+                &dumpvarslog("   $_ => '$val'.");
+            }
+            else {
+                &dumpvarslog("   $_ => <NULL>.");
+            }
+        }
     }
 
-    return unless ($packname eq 'main::');
+    return unless ( $packname eq 'main::' );
 
-    foreach $symname (sort keys %$package) {
-       local *sym = $$package{$symname};
-       next unless (defined %sym);
-       next unless ($symname =~/::/);
-       next if ($symname eq 'main::');
+    foreach $symname ( sort keys %$package ) {
+        local *sym = $$package{$symname};
+        next unless ( %sym );
+        next unless ( $symname =~ /::/ );
+        next if ( $symname eq 'main::' );
 
-       DumpNames(\%sym,$symname)
+        DumpNames( \%sym, $symname );
     }
 }
 
 sub dumpallvars {
-    if (&IsParam("dumpvarsLogFile")) {
-       my $file = $param{'dumpvarsLogFile'};
-       &status("opening fh to dumpvars ($file)");
-       if (!open(DUMPVARS,">$file")) {
-           &ERROR("cannot open dumpvars.");
-           return;
-       }
+    if ( &IsParam('dumpvarsLogFile') ) {
+        my $file = $param{'dumpvarsLogFile'};
+        &status("opening fh to dumpvars ($file)");
+        if ( !open( DUMPVARS, ">$file" ) ) {
+            &ERROR("cannot open dumpvars.");
+            return;
+        }
     }
 
-    DumpNames(%main::,'main::');
+    DumpNames( %main::, 'main::' );
 
-    if (&IsParam("dumpvarsLogFile")) {
-       &status("closing fh to dumpvars");
-       close DUMPVARS;
+    if ( &IsParam('dumpvarsLogFile') ) {
+        &status("closing fh to dumpvars");
+        close DUMPVARS;
     }
 
     &status("DV: count == $countlines");
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80