create_swap.cgi

Unix下基于Web的管理工具

#!/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();
$whatfailed = "Failed to create swap file";
$in{cswap_size} =~ /^\d+$/ ||
	&error("'$in{cswap_size}' is not a valid size");
if ($error = &create_swap($in{cswap_file}, $in{cswap_size}, $in{cswap_units})) {
	&error($error);
	}
&redirect("save_mount.cgi?$in");