mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
110 lines
2.5 KiB
Perl
Executable File
110 lines
2.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# Actually do an import
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_edit_error("import");
|
|
&error_setup($text{'import_err'});
|
|
&ReadParseMime();
|
|
|
|
if (&foreign_check("net")) {
|
|
&foreign_require("net", "net-lib.pl");
|
|
foreach $i (&net::active_interfaces(), &net::boot_interfaces()) {
|
|
$iface{$i->{'fullname'}} = $i;
|
|
}
|
|
}
|
|
%services = map { $_->{'name'}, $_ } &list_services();
|
|
%times = map { $_->{'name'}, $_ } &list_times();
|
|
|
|
# Validate inputs
|
|
if (!$in{'src_def'}) {
|
|
-r $in{'src'} || &error_cleanup($text{'restore_esrc'});
|
|
$data = `cat $in{'src'}`;
|
|
}
|
|
else {
|
|
$in{'file'} || &error_cleanup($text{'restore_efile'});
|
|
$data = $in{'file'};
|
|
}
|
|
|
|
# Parse the CSV data
|
|
$data =~ s/\r//g;
|
|
$i = 0;
|
|
foreach $line (split(/\n/, $data)) {
|
|
# Split into columns
|
|
$oldline = $line;
|
|
$i++;
|
|
next if (!$line);
|
|
local @row;
|
|
while($line && $line =~ /^,?("([^"]*)"|([^,]*))(.*)$/) {
|
|
push(@row, $2 || $3);
|
|
$line = $4;
|
|
}
|
|
@row >= 4 || &error(&text('import_erow', $i, $oldline));
|
|
|
|
# Create a rule
|
|
$rule = { 'enabled' => 1 };
|
|
$rule->{'source'} = &parse_srcdest($row[0]);
|
|
$rule->{'source'} || &error(text('import_esource', $i, $row[0]));
|
|
$rule->{'dest'} = &parse_srcdest($row[1]);
|
|
$rule->{'dest'} || &error(text('import_edest', $i, $row[1]));
|
|
@servs = split(/\s+/, $row[2]);
|
|
foreach $s (@servs) {
|
|
$services{$s} || &error(text('import_eservice', $i, $s));
|
|
}
|
|
$rule->{'service'} = @servs ? join(",", @servs) : "*";
|
|
if ($row[3] =~ s/\s+log$//i) {
|
|
$rule->{'log'} = 1;
|
|
}
|
|
else {
|
|
$rule->{'log'} = 0;
|
|
}
|
|
&indexof(lc($row[3]), @actions) >= 0 ||
|
|
&error(text('import_eaction', $i, $row[3]));
|
|
$rule->{'action'} = lc($row[3]);
|
|
$rule->{'desc'} = $row[4] || "*";
|
|
if ($row[5]) {
|
|
$times{$row[5]} || &error(text('import_etime', $i, $row[5]));
|
|
$rule->{'time'} = $row[5];
|
|
}
|
|
else {
|
|
$rule->{'time'} = "*";
|
|
}
|
|
push(@newrules, $rule);
|
|
}
|
|
|
|
# Ensure that new rules are sane
|
|
|
|
# Save the rules
|
|
&lock_itsecur_files();
|
|
@rules = &list_rules();
|
|
push(@rules, @newrules);
|
|
&automatic_backup();
|
|
&save_rules(@rules);
|
|
&unlock_itsecur_files();
|
|
|
|
# Tell the user
|
|
&header($text{'import_title'}, "",
|
|
undef, undef, undef, undef, &apply_button());
|
|
print "<hr>\n";
|
|
|
|
print "<p>",&text('import_done1', scalar(@newrules)),"<p>\n";
|
|
|
|
print "<hr>\n";
|
|
&footer("", $text{'index_return'});
|
|
&remote_webmin_log("import", "rules", $in{'src_def'} ? undef : $in{'src'});
|
|
|
|
sub parse_srcdest
|
|
{
|
|
if ($_[0] eq "") {
|
|
return "*";
|
|
}
|
|
elsif (&valid_host($_[0])) {
|
|
return $_[0];
|
|
}
|
|
elsif ($iface{lc($_[0])}) {
|
|
return "%".lc($_[0]);
|
|
}
|
|
else {
|
|
return undef;
|
|
}
|
|
}
|