Notices

#!/usr/bin/perl

%known_optified = ();
%known_nonoptified = ();

sub is_secretly_optified($) {
  my ($file) = @_;

  # print "testing $file\n";

  if($known_optified{$file}) {
     # print "known optfified $file\n";
    return 1;
  }

  if($known_nonoptified{$file}) {
    # print "known nonoptfified $file\n";
    return 0;
  }

  unless($file) {
    return 0;
  }
  my $orig = $file;

  unless( -l $file) {
    $file =~ s/\/[^\/]*$//;
    if(is_secretly_optified($file)) {
      $known_optified{$orig} = 1;
      return 1;
    } else {
      $known_nonoptified{$orig} = 1;
      return 0;
    }
  }

  my $lsresult = `/bin/ls -l $file`;
  chomp($lsresult);

  if($lsresult =~ /->\s+(.*)/) {
    my $target = $1;
    # print "found symlink to $target\n";
    if($target =~ /^\/opt/ or $target =~ /^\/home/) {
      # print "remembering $target is optified?\n";
      # print "remembering $orig is optified?\n";
      $known_optified{$orig} = 1;
      return 1;
    } else {
      if(is_secretly_optified($target)) {
        $known_optified{$orig} = 1;
        return 1;
      } else {
        $known_nonoptified{$orig} = 1;
        return 0;
      }
    }
  }
}

while(<>) {
  unless($currentfile eq $ARGV) {
    $currentfile = $ARGV;
    if($out) {
      if($total >= 1024) {
        $total = sprintf("%0.2fM", $total / 1024);
      } else {
        $total = sprintf("%0.2fK", $total);
      }
      print "$out$currentpkg : total non-opt usage: "
            . "$total\n----------\n";
    }
    $out = undef;
    $total = undef;
    $currentfile = $ARGV;

    $currentpkg = $currentfile;
    $currentpkg =~ s/\.md5sums//;
    $currentpkg =~ s/.*\///;
  }

  s/^\S+\s+//;
  $suspect = "/$_";

  $du = undef;
  unless(/^opt/ or /^home/ or /^usr\/share\/(man|doc)\//) {
    next if(is_secretly_optified($suspect));
    $du = `du -s $suspect`;
    chomp $du;
    if($du =~ /^(\d+)/) {
      $total += $1;
      if($1 >= 1024) {
        $val  = sprintf("%0.2fM", $1 / 1024);
      } else {
        $val  = sprintf("%0.2fK", $1);
      }

      $du =~ s/^\d+/$val/;
    }
    $out .= "$currentpkg : $du\n";
  }
}


if($out) {
  if($total >= 1024) {
    $total = sprintf("%0.2fM", $total / 1024);
  } else {
    $total = sprintf("%0.2fK", $total);
  }
  print "$out$currentpkg : total non-opt usage: "
        . "$total\n---------\n";
}

 /usr/local/bin/find_non_opt_files.pl /var/lib/dpkg/info/*.md5sums