mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
17 lines
472 B
Perl
Executable File
17 lines
472 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# create_swap.cgi
|
|
# Attempt to create a swap file, and then redirect the browser back to
|
|
# the mounting program to mount it
|
|
|
|
require './mount-lib.pl';
|
|
&ReadParse();
|
|
&error_setup($text{'swap_err'});
|
|
$in{cswap_size} =~ /^\d+$/ ||
|
|
&error(&text('swap_esize', $in{'cswap_size'}));
|
|
if ($error = &create_swap($in{cswap_file}, $in{cswap_size}, $in{cswap_units})) {
|
|
&error($error);
|
|
}
|
|
&webmin_log("swap", $in{cswap_file});
|
|
&redirect("save_mount.cgi?$in");
|
|
|