Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 28 lines (23 sloc) 0.479 kb
#!/usr/bin/perl
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
$ENV{'PATH'}='/bin:/usr/bin:/sbin:/usr/sbin/';
$ret = 0;
open(FH, "/etc/xen/xend-config.sxp");
while(<FH>) {
chomp;
if ($_ =~ /\(dom0-min-mem (\d+)\)/) {
print "dom0-min-mem=$1\n";
}
}
close(FH);
exit $ret;
sub untaint() {
$str = shift;
if ($str =~ /^([ &:#-\@\w.]+)$/) {
$str = $1; #data is now untainted
} else {
print STDERR "inputs are tainted\n";
$str = "";
}
return($str);
}
Jump to Line
Something went wrong with that request. Please try again.