view release on metacpan or  search on metacpan

cgi/showEnv.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;

=head1 COPYRIGHT

Copyright (C) 2004-2005  Geneva Bioinformatics www.genebio.com

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

=head1 AUTHORS

Alexandre Masselot, www.genebio.com

=cut

$|=1;		        #  flush immediately;

BEGIN{
  use File::Basename;
  push @INC, basename($0);
}
BEGIN {
  use CGIUtils;
}
BEGIN{
  eval{
   require DefEnv;
   DefEnv::read();
  };
}

END{
}

use English;
use InSilicoSpectro;

my $text;
foreach (@ARGV){
  $text=1 if /\btext/i;
}

printHeader();

printSectionTitle("User");
printTableOpen();
my $login=(getlogin()||(getpwuid($<))[0]);
printTableLine('login', $login);
printTableClose();

printSectionTitle("Misc");
printTableOpen();
printTableLine('Perl version', sprintf("%vd", $PERL_VERSION));
printTableLine('osname', $^O);
printTableLine('@INC', join ' ', @INC);
printTableLine('', $1);
printTableLine('', $1);
printTableClose();

printSectionTitle("InSilicoSpectro module default environment");
my @tmp=InSilicoSpectro::getInSilicoDefFiles();
if($text){
  print "\$$InSilicoSpectro::DEF_FILENAME_ENV = $ENV{$InSilicoSpectro::DEF_FILENAME_ENV}\n";
  foreach (@tmp){
    print "\t$_\n";
  }
}else{
  
}

printSectionTitle("Environment variables");
printTableOpen();
foreach (sort keys %ENV){
  printTableLine($_, $ENV{$_});
}
printTableClose();

use ExtUtils::Installed;
my $instmod = ExtUtils::Installed->new();


#my @incssort=sort {length $b <=> length $a} @INC;
#my @tmp=$instmod->files("Perl", "prog");
#foreach my $f (@tmp){
#  next unless $f =~ s/\.pm$//;
#  foreach my $dirinc (@incssort){
#    if ($f =~ s/^$dirinc//){
#      $f=~s/^[\/\\]//;
#      $f=~s/[\/\\]/::/g;
#      my $v;
#      my $cmd="use $f;\$v=$f->VERSION();";
#      eval $cmd;
#      unless ($@){
#	print "$f\t$v\n";
#      }
#      last;
#    }
#  }
#}

printSectionTitle("Perl Modules");
printTableOpen();
foreach my $module ($instmod->modules()) {
  my $version = $instmod->version($module) || "???";
  printTableLine($module, $version);
}
printTableClose();