add dist

[rec10/rec10-git.git] / dist / trunk / www / Makefile.PL

diff --git a/dist/trunk/www/Makefile.PL b/dist/trunk/www/Makefile.PL
new file mode 100755 (executable)
index 0000000..a1f8943
--- /dev/null
+++ b/dist/trunk/www/Makefile.PL
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+print "UID:$<\n";
+if ( $< ) {
+       print "Please run this script with root.\n";
+       exit;
+}
+
+$distribution = `ls /etc -F | grep \"release\$\\|version\$\"`;
+
+if ( $distribution =~ /redhat|fedora/m ) {
+       print "Your distribution seems to be RedHat/Fedora.\n";
+       $redhat = 1;
+}
+elsif ( $distribution =~ /debian/m ) {
+       print "Your distribution seems to be Debian.\n";
+       $debian = 1;
+}
+
+if ( $redhat ) {
+       my $YUM  = 'perl-DBI perl-Date-Simple perl-DateTime perl-Config-Simple perl-Tie-IxHash perl-SVG perl-XML-Atom perl-List-Compare';
+       my $CPAN = 'CGI::Carp CGI::Minimal MIME::Base64 Time::HiRes Data::Dumper Time::Simple Encode Text::Ngram File::Find Perl6::Slurp List::Util';
+       $CPAN .= 'SVG Text::Ngram Algorithm::Diff';
+       print "Going to install ( YUM )\n";
+       print "$YUM\n";
+       system( "yum install $YUM" );
+       print "Going to install ( CPAN )\n";
+       print "$CPAN\n";
+       system( "cpan $CPAN" );
+}elsif ( $debian ) {
+       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';
+       my $CPAN = 'CGI::Carp CGI::Minimal Data::Dumper Time::Simple Encode Text::Ngram File::Find List::Util';
+       $CPAN .= 'SVG Text::Ngram Algorithm::Diff';
+       print "Going to install ( APT )\n";
+       print "$APT\n";
+       system( "aptitude install $APT" );
+       print "Going to install ( CPAN )\n";
+       print "$CPAN\n";
+       system( "cpan $CPAN" );
+}else{
+       my $CPAN = 'CGI::Carp DBI Time::Piece Time::Seconds Date::Simple DateTime CGI::Minimal MIME::Base64 Config::Simple ';
+       $CPAN .= 'Time::HiRes Data::Dumper Tie::IxHash Perl6::Slurp Sort::Naturally';
+       $CPAN .= 'SVG Text::Ngram Algorithm::Diff';
+       print "Going to install ( CPAN )\n";
+       print "$CPAN\n";
+       system( "cpan $CPAN" );
+}
+