5 print "Please run this script with root.\n";
9 $distribution = `ls /etc -F | grep \"release\$\\|version\$\"`;
11 if ( $distribution =~ /redhat|fedora/m ) {
12 print "Your distribution seems to be RedHat/Fedora.\n";
15 elsif ( $distribution =~ /debian/m ) {
16 print "Your distribution seems to be Debian.\n";
21 my $YUM = 'perl-DBI perl-Date-Simple perl-DateTime perl-Config-Simple perl-Tie-IxHash perl-SVG perl-XML-Atom perl-List-Compare perl-Time-Piece perl-Sort-Naturally';
22 my $CPAN = 'CGI::Carp CGI::Minimal MIME::Base64 Time::HiRes Data::Dumper Time::Simple Encode Text::Ngram Perl6::Slurp List::Util Time::Seconds';
23 print "Going to install ( YUM )\n";
25 system( "yum install $YUM" );
26 print "Going to install ( CPAN )\n";
28 system( "cpan $CPAN" );
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 libtime-piece-perl libsort-naturally-perl';
33 my $CPAN = 'CGI::Carp CGI::Minimal Data::Dumper Time::Simple Encode Text::Ngram List::Util Time::Seconds';
34 print "Going to install ( APT )\n";
36 system( "aptitude install $APT" );
37 print "Going to install ( CPAN )\n";
39 system( "cpan $CPAN" );