MoDetails v0.2

[hacker]

After reading a question on this node about querying installed module versions without having an interactive shell account on the box, I decided to hack up a quick CGI that does what the monk asked, and also adds a bit of additional functionality that could be helpful to others as well.

This module will query your locally installed modules using ExtUtils::Installed, present them in a standard dropdown form using CGI, and when you select a module by name from the list and click "Module Details", it will display the module name, version number, and the files associated with that module, including the full path to them on the system. Additionally, it will link the module name to a CPAN search for that module, so you can read up on the docs for it. Originally, I was going to use File::Basename and run pod2html against $base, and display that, but I figured CPAN's module documentation would be more current, and probably more useful.

It was a quick hack, let me know what you think!

ChangeLog

v0.2
A few small updates, as requested by some monks.

• Added ability to link to both local and CPAN documentation for the module. This will require pod2html to be installed, and the .html files it creates will be stored in $ENV{'PWD'}, so make sure you put this script where it can write those files.
• Added the ability to query the local environment (@INC, $^X and $^O for starters)
• Ripped out the fonts for now, I'll add them and validate the HTML in a later version.

v0.1
Initial release

   #!/usr/bin/perl
   use strict;
   use CGI qw(:standard);
   use File::Basename;
   use ExtUtils::Installed;

   my $script       = $ENV{'SCRIPT_NAME'};
   my $cpan         = "http://search.cpan.org/search";
   my $inst         = ExtUtils::Installed->new();
   my $cgi          = CGI->new();

   print header(),

   start_html({-style =>'font-family: courier;',
               -title =>'MoDetails v0.2'});

   print_form();
   print_results($cgi) if $cgi->param('mod');

   sub print_form {
      push my @modules, $inst->modules();
      my $modname      = $cgi->param('mod');

      print start_form(-name   =>"modules",
                       -action =>"$script?mod=$modname"),

      popup_menu(-name   =>'mod',
                 -value  =>\@modules),

      submit(-label      =>'Module Details'),
      end_form;
   }

   sub print_results {
      my $module = $cgi->param('mod');

      print p({-class=>'c'}, b("Module Name"), 
            ":", $module);

      print p(b("Version currently installed"), ":",
            $inst->version($module));

      push my @filelist, $inst->files($module);

      print p(b("Files Installed by $module"), br(),
            join br(), $inst->files($module));

      push my @podpm, $inst->files($module);

      foreach my $file (@podpm) {
            my $base        = basename($file);
            my $dir         = dirname($file);
            my $nmod        = $module;
            $nmod           =~ s,::,/,;

            if ($file =~ /$nmod.pm/i) {
                  system('/usr/bin/pod2html',
                         "$file",
                         '--outfile',
                         "$base.html");

                  print b("Documentation for"), ":",
                          br(), a({-href=>"$base.html"},
                          "$module.pm"),
                          " (local version)", br();
            }
      }
      print a({-href=>"${cpan}?query=$module&mode=module"},
            "$module"), " (CPAN latest version)", br();

      my @newinc = (split " ", "@INC");

      print br(), b("Environment available to this user"),  
            br(), "\@INC", 
            div({-style=>'padding-left: 20px;'},
            join br(), sort @newinc);

      print br(), b("Host operating system"), br(),
            div({-style=>'padding-left: 20px;'}, "$^O");

      print br(), b("Path to perl binary"), br(),
            div({-style=>'padding-left: 20px;'}, "$^X");
}