get("name","ERROR"); ?>

Launcher Details

get("action", "none"); if($act eq "Add") { my $dynamics = $request->getInt("dynamics", "0"); if($lname eq "" || $lname eq "ERROR") { print "Missing launcher name in Add action."; } elsif($dynamics < 0) { print "Invalid dynamics count in Add action."; } else { print "Added launcher '$lname' with $dynamics dynamic zones."; $EQW->CreateLauncher($lname, $dynamics); } print "
"; } $config = $EQW->GetLauncher($lname); if(!$config) { print "

Unable to find launcher $lname

"; } if($act eq "Boot") { my $zone = $request->get("zone", "none"); my $port = $request->getInt("port", 0); if($lname eq "ERROR" || $zone eq "none" || $zone eq "" || $port < 0 || $port > 65535) { print "Invalid zone, port, or launcher name in Boot action."; } else { if(!$config->BootStaticZone($zone, $port)) { print "Failed to boot '$zone' on launcher $lname with port $port. Invalid zone?"; } else { print "Booting new zone $zone on launcher $lname with port $port."; } } print "
"; } elsif($act eq "Change") { my $count = $request->getInt("count", 0); if($lname eq "ERROR" || $count < 0) { print "Invalid launcher name or count"; } else { $config->SetDynamicCount($count); print "Changed dynamic count to $count. Notifying launcher."; } print "
"; } elsif($act eq "remove") { my $zone = $request->get("zone", "none"); if($lname eq "ERROR" || $zone eq "none" || $zone eq "") { print "Invalid zone or launcher name in $act action."; } else { if(!$config->DeleteStaticZone($zone)) { print "Failed to remove '$zone' on launcher $lname. Invalid zone?"; } else { print "Removed $zone from launcher $lname"; } } print "
"; } elsif($act eq "restart") { my $zone = $request->get("zone", "none"); if($lname eq "ERROR" || $zone eq "none" || $zone eq "") { print "Invalid zone or launcher name in $act action."; } else { $config->RestartZone($zone); print "Sent restart for $zone to launcher $lname"; } print "
"; } elsif($act eq "start") { my $zone = $request->get("zone", "none"); if($lname eq "ERROR" || $zone eq "none" || $zone eq "") { print "Invalid zone or launcher name in $act action."; } else { $config->StartZone($zone); print "Sent start for $zone to launcher $lname"; } print "
"; } elsif($act eq "kill") { my $zone = $request->get("zone", "none"); if($lname eq "ERROR" || $zone eq "none" || $zone eq "") { print "Invalid zone or launcher name in $act action."; } else { $config->StopZone($zone); print "Sent stop for $zone to launcher $lname"; } print "
"; } elsif($act eq "rebootall") { foreach my $z($config->ListZones()) { $config->RestartZone($z); } print "Restarted all zones.\n
"; } elsif($act eq "stopall") { foreach my $z($config->ListZones()) { $config->StopZone($z); } print "Stopped all zones.\n
"; } elsif($act eq "startall") { foreach my $z($config->ListZones()) { $config->StartZone($z); } print "Started all zones.\n
"; } ?>
Reload - Reboot All Zones - Stop All Zones - Start All Zones
Add: Zone Short Name: Port:
Change Dynamic Count:
ListZones(); for my $zone (sort @zones) { my $z = $config->GetZoneDetails($zone); if(!$z) { $zone->{name} = "ERROR: no launcher"; } elsif($z->{error}) { $zone->{name} = "ERROR: $z->{error}"; } print "\n"; print "\t"; if($z->{up}) { print ""; } else { print ""; } if($z->{port} == 0) { print ""; } else { print ""; } print ""; print "\n"; print "\n"; } ?>
Zone Name State Port Start Count Actions
$z->{name}UPDOWNDynamic$z->{port}$z->{starts}"; if($config->IsConnected()) { print "Restart - "; if($z->{up}) { print "Stop"; } else { print "Start"; } if($z->{name} !~ /dynamic/) { print " - "; } } if($z->{name} !~ /dynamic/) { print "Remove"; } print "