blob: 8954d356ff8259246e270966e7336fe6769f915d (
plain)
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
package ProFtpconf;
require "/usr/share/wizards/common/scripts/DrakconnectConf.pm";
use MDK::Common;
use strict;
require "/usr/share/wizards/common/scripts/Vareqval.pm";
sub true {
my ($val) = @_;
$val eq "1" || $val eq "\'1\'" || $val eq "\"1\"" ||
$val eq "true" || $val eq "\'true\'" || $val eq "\"true\"" and
return 1;
0;
}
my $o = DrakconnectConf->new();
sub check {
$> and return 1;
$o->is_dhcp() and return 2;
0;
}
sub do_it {
my $wiz_ftp_internal = $ENV{wiz_ftp_external} ? 1 : true $ENV{wiz_ftp_internal};
my $wiz_ftp_external = true $ENV{wiz_ftp_external};
my $file = "/etc/proftpd.conf";
die "no ftp configuration file found ! warning." if (!-f $file);
MDK::Common::cp_af($file, $file . ".orig");
open(NEW, "< $file") or die "error while opening $file: $!";
my $allow = "all";
if ($wiz_ftp_internal && !$wiz_ftp_external) {
($allow) = $o->get_from_known_dev("IP") =~ qr/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.)\d{1,3}$/;
$allow .= " 127.0.0.1";
}
elsif (!$wiz_ftp_external) {
$allow = "none";
}
my $file = "/etc/proftpd.conf";
open (NEW, "< $file");
my $exist = 0;
while (<NEW>) {
if (m/^\s*<Global>/s...m/^\s*<\/Global>/s ) {
if (m/^\s*<Limit LOGIN>/s...m/^\s*<\/Limit>/s ) {
if (/^\s*(?!\#)\s*Order .*$/) {
$exist += 1;
}
if (/^\s*(?!\#)\s*Allow .*$/) {
$exist += 1;
}
if (/^\s*(?!\#)\s*Deny .*$/) {
$exist += 1;
}
}
}
}
close (NEW);
if ($exist < 3) {
substInFile {
if (m/^\s*<Global>/s...m/^\s*<\/Global>/s ) {
if (m/^\s*<Limit LOGIN>/s...m/^\s*<\/Limit>/s ) {
s/^\s*(?!\#)\s*Order .*$/\#$&\n/s;
s/^\s*(?!\#)\s*Allow .*$/\#$&\n/s;
s/^\s*(?!\#)\s*Deny .*$/\#$&\n/s;
}
}
} $file;
open (NEW, ">> $file");
print NEW '
<Global>
<Limit LOGIN>
Order allow,deny
Allow from ' .$allow.'
Deny from all
</Limit>
</Global>';
close NEW;
}
else {
substInFile {
if (m/^\s*<Global>/s...m/^\s*<\/Global>/s ) {
if (m/^\s*<Limit LOGIN>/s...m/^\s*<\/Limit>/s ) {
if (/^\s*(?!\#)\s*Order .*$/i) {
if (!/\s*Order\s*allow,\s*deny\s*$/) {
s//\#$&\n Order allow,deny\n/;
}
}
if (/^\s*(?!\#)\s*Allow .*$/i) {
if (!/\s*Allow\s*from\s*$allow\s*$/) {
s//\#$&\n Allow from $allow/;
}
}
if (/^\s*(?!\#)\s*Deny .*$/i) {
if (!/\s*Deny\s*from\s*all\s*$/) {
s//\#$&\n Deny from all\n/;
}
}
}
}
} $file;
}
system("/etc/rc.d/init.d/proftpd restart");
10;
}
1;
|
