mailstats/modules.pl at master · chrisice/mailstats · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
#!/usr/bin/perl

my $module1 = '/usr/local/share/perl5/Sort/Fields.pm';
my $module12 = '/usr/lib/perl5/site_perl/5.8.8/Sort/Fields.pm';
my $module13 = '/usr/local/lib/perl5/site_perl/5.8.8/Sort/Fields.pm';
if ((-e $module1) || (-e $module12) || (-e $module13)) {
print "\n\nSort::Fields module already installed.  Continuing\n\n";
}
else{
print "\n\nSort::Fields module not installed.  Would you like to install it now?  (y/n) ";
$yn = <STDIN>;
	if ($yn =~ /y/){
        system("/scripts/perlinstaller Sort::Fields");
}
        elsif ($yn =~ /n/) {
        die "\n\nScript cannot run without the required modules.  Stopping\n";
}
        elsif ( ($yn =~ /y/) && ($yn =~ /n/) ){

        die "\n\nMust choose y or n.  Stopping\n\n";
}
}

my $module2 = '/usr/local/lib64/perl5/List/MoreUtils.pm';
my $module21 = '/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/List/MoreUtils.pm';
if ((-e $module2) || (-e $module21)){
print "\n\n\nList::MoreUtils module already installed.  Continuing\n\n";
}
else{
print "\n\nList::MoreUtils module not installed.  Would you like to install it now?  (y/n) ";
$yn2 = <STDIN>;
        if ($yn2 =~ /y/){
        system("/scripts/perlinstaller List::MoreUtils");
}
        elsif ($yn2 =~ /n/) {
        die "\n\nScript cannot run without the required modules.  Stopping\n\n";
}
        elsif ( ($yn2 =~ /y/) && ($yn2 =~ /n/) ){
        die "\n\nMust choose y or n.  Stopping\n\n";
}
}

my $module3 = '/usr/local/lib64/perl5/PerlIO/gzip.pm';
my $module31 = '/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/PerlIO/gzip.pm';
if ((-e $module3) || (-e $module31)){
print "\n\n\nPerlIO::gzip module already installed.  Continuing\n\n";
}
else{
print "\n\n\nPerlIO::gzip module not installed.  Would you like to install it now?  (y/n)";
$yn3 = <STDIN>;
        if ($yn3 =~ /y/){
        system("/scripts/perlinstaller PerlIO::gzip");
}
        elsif ($yn3 =~ /n/) {
        die "\n\nScript cannot run without the required modules.  Stopping\n\n";
}
        elsif ( ($yn3 =~ /y/) && ($yn3 =~ /n/) ){
        die "\n\nMust choose y or n.  Stopping\n\n";
}
}

my $module4 = '/usr/local/share/perl5/File/ReadBackwards.pm';
my $module41 = '/usr/lib/perl5/site_perl/5.8.8/File/ReadBackwards.pm';
if ((-e $module4) || (-e $module41)) {
print "\n\n\nFile::ReadBackwards module already installed.  Continuing\n\n";
}
else{
print "\n\n\nFile::ReadBackwards module not installed.  Would you like to install it now?  (y/n)";
$yn4 = <STDIN>;
        if ($yn4 =~ /y/){
        system("/scripts/perlinstaller File::ReadBackwards");
}
        elsif ($yn4 =~ /n/) {
        die "\n\nScript cannot run without the required modules.  Stopping\n\n";
}
        elsif ( ($yn4 =~ /y/) && ($yn4 =~ /n/) ){
        die "\n\nMust choose y or n.  Stopping\n\n";
}
}

print "\n\n\nFishing installing modules.  Running script\n\n\n";

system('curl -s https://raw.githubusercontent.com/chrisice/mailstats/master/mailstats.pl | perl');