Commit 2cadbd1b authored by Leigh B Stoller's avatar Leigh B Stoller

Set the noexport bit for windows images.

parent de587525
#
# Set the noexport bit for windows images.
#
use strict;
use libdb;
use libinstall;
use installvars;
use OSinfo;
use Image;
sub DoUpdate($$$)
{
my ($dbhandle, $dbname, $version) = @_;
my $query_result =
DBQueryFatal("select osid from os_info ".
"where OS='Windows' and ezid=1");
while (my ($osid) = $query_result->fetchrow_array()) {
my $image = Image->Lookup($osid);
next
if (!defined($image));
$image->Update({"noexport" => 1});
}
return 0;
}
# Local Variables:
# mode:perl
# End:
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment