rectool/trunk/Makefile.PL

   1 #!/usr/bin/perl
   2
   3 print "UID:$<\n";
   4 if ( $< ) {
   5         print "Please run this script with root.\n";
   6         exit;
   7 }
   8
   9 $distribution = `ls /etc -F | grep \"release\$\\|version\$\"`;
  10
  11 if ( $distribution =~ /redhat|fedora/m ) {
  12         print "Your distribution seems to be RedHat/Fedora.\n";
  13         $redhat = 1;
  14 }
  15 elsif ( $distribution =~ /debian/m ) {
  16         print "Your distribution seems to be Debian.\n";
  17         $debian = 1;
  18 }
  19
  20 if ( $redhat ) {
  21         my $YUM  = 'perl-DBI perl-Date-Simple perl-DateTime perl-Config-Simple perl-Tie-IxHash perl-SVG perl-XML-Atom perl-List-Compare';
  22         my $CPAN = 'CGI::Carp CGI::Minimal MIME::Base64 Time::HiRes Data::Dumper Time::Simple Encode Text::Ngram File::Find Perl6::Slurp List::Util';
  23         print "Going to install ( yum )\n";
  24         print "$YUM\n";
  25         system( "yum install $YUM" );
  26         print "Going to install ( CPAN )\n";
  27         print "$CPAN\n";
  28         system( "cpan $CPAN" );
  29 }
  30
  31 if ( $debian ) {
  32         my $APT  = 'libdbi-perl libdate-simple-perl libdatetime-perl libmime-base64-perl libconfig-simple-perl libtime-hires-perl libtie-ixhash-perl libsvg-perl libxml-atom-perl liblist-compare-perl libperl6-slurp-perl';
  33         my $CPAN = 'CGI::Carp CGI::Minimal Data::Dumper Time::Simple Encode Text::Ngram File::Find List::Util';
  34         print "Going to install ( aptitude )\n";
  35         print "$APT\n";
  36         system( "aptitude install $APT" );
  37         print "Going to install ( CPAN )\n";
  38         print "$CPAN\n";
  39         system( "cpan $CPAN" );
  40 }
  41