...
 
Commits (2)
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2018 University of Utah and the Flux Group.
# Copyright (c) 2000-2019 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -161,7 +161,7 @@ foreach my $image (@imagelist) {
fatal("Could not set deprecation info for image");
}
if ($usetracker && $image->ims_reported()) {
if ($usetracker && $image->IsLocal() && $image->ims_reported()) {
if ($impotent) {
print "Would update $versname at the image server\n";
}
......
......@@ -981,7 +981,16 @@ function Do_BindParameters()
$script = $profile->script();
$paramdefs = $profile->paramdefs();
# Repo argument to rungenilib;
$runopts .= " -r " . $profile->reponame();
if ($profile->repourl()) {
$runopts .= " -r " . $profile->reponame();
if (isset($ajax_args["refspec"])) {
if (!preg_match('/^[-\w\/]+$/', $ajax_args["refspec"])) {
SPITAJAX_ERROR(1, "Invalid refspec");
return;
}
$runopts .= " -h " . escapeshellarg($ajax_args["refspec"]);
}
}
}
unset($formfields["script"]);
unset($formfields["paramdefs"]);
......