AHALL / Net-MirapointAdmin-3.02 / Makefile.PL 

            

              
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
#!/usr/bin/perl -w
##############################################################################
#
#       MakeMaker version for Installation Suite of Mirapoint Admin
#       utilities.
#
# Installation Instructions
#       perl Makefile.PL
#       make
#       make install
#
##############################################################################
#
use ExtUtils::MakeMaker qw(prompt WriteMakefile);
use MIME::Base64 qw(encode_base64);
sub trim
{
        my $str = shift;
        $str =~ s/[\r\n]+$//;
        $str =~ s/^\s*//;
        $str =~ s/\s*$//;
        return $str;
}
sub Prompt
{
        my ($prompt, $def) = @_;
        $def = "" unless defined $def;
        chomp($prompt);
        prompt($prompt, $def);
}
#
##############################################################################
#
WriteMakefile(
        NAME            =>   'Net::MirapointAdmin',
        VERSION_FROM    =>   'lib/Net/MirapointAdmin.pm',
        ( $[ >= 5.005) ?
        (
        AUTHOR => 'Adrian Hall (ahall@mirapoint.com)',
        ABSTRACT => 'Modules to handle the Mirapoint Administration Protocol',
        ) : (),
        PREREQ_PM => { 'IO::Socket' => 0 },
        SIGN => 0,
        clean => { FILES => ".config" },
);
#
##############################################################################
#
# For testing, enable remote tests
#
print <<_EOF;
Testing requires access to a Mirapoint host on port 10143 (and 10243 if you
are testing SSL connectivity). 
_EOF
my ($enable, $host, $user, $pass, $ssl);
do {
        $enable = Prompt("Do you wish to enable live testing?", "y");
        $enable = lc($enable);
} while ($enable ne "y" && $enable ne "n");
if ($enable eq "n") {
        open(F, ">.config") || die "Cannot write to .config: $^E\n";
        print F "disabled\n";
        close(F);
        goto SKIP_ALL;
}
do {
        $host = Prompt("Mirapoint host name?", "testmail");
        $host = lc($host);
} while (length($host) == 0 || length($host) > 255);
do {
        $user = Prompt("Enter Administrative Login", "Administrator");
} while (length($user) == 0 || length($user) > 64);
do {
        $pass = Prompt("Enter $user password", "");
} while (length($pass) == 0 || length($pass) > 64);
($pass = encode_base64($pass)) =~ s/[\r\n]+$//;
do {
        $ssl = Prompt("Do you wish to enable SSL tests?", "y");
        $ssl = lc($ssl);
} while ($ssl ne "y" && $ssl ne "n");
open(F, ">.config") || die "Cannot open .config: $!\n";
print F <<_EOF;
enabled
$host
$user
$pass
$ssl
_EOF
close(F);
#
##############################################################################
#
SKIP_ALL:
        exit 0;