<?php

# This file is a part of RackTables, a datacenter and server room management
# framework. See accompanying file "COPYING" for the full copyright and
# licensing information.

function renderVSGList ()
{
	renderCellList ('ipvs', 'VS groups');
}

function formatVSPort ($port, $plain_text = FALSE)
{
	if ($port['proto'] == 'MARK')
		return 'fwmark ' . $port['vport'];
	$proto = strtolower ($port['proto']);
	$name = $port['vport'] . '/' . $proto;
	$srv = getservbyport ($port['vport'], $proto);
	if (!$plain_text && FALSE !== $srv)
		return '<span title="' . $name . '">' . $srv . '</span>';
	else
		return $name;
}

function formatVSIP ($vip, $plain_text = FALSE)
{
	$fmt_ip = ip_format ($vip['vip']);
	if ($plain_text)
		return $fmt_ip;
	$ret = '<a href="' . makeHref (array ('page' => 'ipaddress', 'ip' => $fmt_ip)) . '">' . $fmt_ip . '</a>';
	return $ret;
}

function renderVS ($vsid)
{
	$vsinfo = spotEntity ('ipvs', $vsid);
	amplifyCell ($vsinfo);

	echo '<table border=0 class=objectview cellspacing=0 cellpadding=0>';
	if ($vsinfo['name'] != '')
		echo "<tr><td colspan=2 align=center><h1>${vsinfo['name']}</h1></td></tr>\n";
	echo '<tr>';

	echo '<td class=pcleft>';
	$summary = array();
	$summary['Name'] = $vsinfo['name'] . getPopupSLBConfig ($vsinfo);
	$summary['tags'] = '';

	$ips = '<ul class="slb-checks">';
	foreach ($vsinfo['vips'] as $vip)
		$ips .= '<li>' . formatVSIP ($vip) . getPopupSLBConfig ($vip) . '</li>';
	$ips .= '</ul>';
	$summary['IPs'] = $ips;

	$ports = '<ul class="slb-checks">';
	foreach ($vsinfo['ports'] as $port)
		$ports .= '<li>' . formatVSPort ($port) . getPopupSLBConfig ($port) . '</li>';
	$ports .= '</ul>';
	$summary['Ports'] = $ports;

	renderEntitySummary ($vsinfo, 'Summary', $summary);
	echo '</td>';

	echo '<td class=pcright>';
	renderSLBTriplets2 ($vsinfo);
	echo '</td></tr><tr><td colspan=2>';
	renderFilesPortlet ('ipvs', $vsid);
	echo '</tr><table>';
}

function renderTripletForm ($bypass_id)
{
	renderSLBTriplets2 (spotEntity (etypeByPageno(), $bypass_id), TRUE);
}

// either $port of $vip argument should be NULL
function renderPopupTripletForm ($triplet, $port, $vip, $row)
{
	printOpFormIntro (isset ($port) ? 'updPort' : 'updIp');
	echo '<input type=hidden name=object_id value="' . htmlspecialchars ($triplet['object_id'], ENT_QUOTES) . '">';
	echo '<input type=hidden name=vs_id value="' . htmlspecialchars ($triplet['vs_id'], ENT_QUOTES) . '">';
	echo '<input type=hidden name=rspool_id value="' . htmlspecialchars ($triplet['rspool_id'], ENT_QUOTES) . '">';
	echo '<p><label><input type=checkbox name=enabled' . (is_array ($row) ? ' checked' : '') . '> ' . (isset ($port) ? 'Enable port' : 'Enable IP') . '</label>';
	if (isset ($port))
	{
		echo '<input type=hidden name=proto value="' . htmlspecialchars ($port['proto'], ENT_QUOTES) . '">';
		echo '<input type=hidden name=port value="'  . htmlspecialchars ($port['vport'], ENT_QUOTES) . '">';
	}
	else
	{
		echo '<input type=hidden name=vip value="'  . htmlspecialchars (ip_format ($vip['vip']), ENT_QUOTES) . '">';
		echo '<p><label>Priority:<br><input type=text name=prio value="'  . htmlspecialchars (is_array ($row) ? $row['prio'] : '', ENT_QUOTES) . '"></label>';
	}
	echo '<p><label>VS config:<br>';
	echo '<textarea name=vsconfig rows=3 cols=80>' . (is_array ($row) ? stringForTextarea ($row['vsconfig']) : '') . '</textarea></label>';
	echo '<p><label>RS config:<br>';
	echo '<textarea name=rsconfig rows=3 cols=80>' . (is_array ($row) ? stringForTextarea ($row['rsconfig']) : '') . '</textarea></label>';
	echo '<p align=center>' . getImageHREF ('SAVE', 'Save changes', TRUE);
	echo '</form>';
}

function renderPopupVSPortForm ($port, $used = 0)
{
	$keys = array ('proto' => $port['proto'], 'port' => $port['vport']);
	$title = 'remove port ' . formatVSPort ($port) . ($used ? " (used $used times)" : '');
	printOpFormIntro ('updPort', $keys);
	echo '<p align=center>';
	echo getOpLink (array ('op' => 'delPort') + $keys, $title, 'destroy', '', ($used ? 'del-used-slb' : '') );
	echo '<p><label>VS config:<br>';
	echo '<textarea name=vsconfig rows=3 cols=80>' . stringForTextarea ($port['vsconfig']) . '</textarea></label>';
	echo '<p><label>RS config:<br>';
	echo '<textarea name=rsconfig rows=3 cols=80>' . stringForTextarea ($port['rsconfig']) . '</textarea></label>';
	echo '<p align=center>' . getImageHREF ('SAVE', 'Save changes', TRUE);
	echo '</form>';
}

function renderPopupVSVIPForm ($vip, $used = 0)
{
	$fmt_ip = ip_format ($vip['vip']);
	$title = 'remove IP ' . formatVSIP ($vip) . ($used ? " (used $used times)" : '');
	printOpFormIntro ('updIP', array ('ip' => $fmt_ip));
	echo '<p align=center>';
	echo getOpLink (array ('op' => 'delIP', 'ip' => $fmt_ip), $title, 'destroy', '', ($used ? 'del-used-slb' : '') );
	echo '<p><label>VS config:<br>';
	echo '<textarea name=vsconfig rows=3 cols=80>' . stringForTextarea ($vip['vsconfig']) . '</textarea></label>';
	echo '<p><label>RS config:<br>';
	echo '<textarea name=rsconfig rows=3 cols=80>' . stringForTextarea ($vip['rsconfig']) . '</textarea></label>';
	echo '<p align=center>' . getImageHREF ('SAVE', 'Save changes', TRUE);
	echo '</form>';
}

function renderEditVS ($vs_id)
{
	global $vs_proto;
	$vsinfo = spotEntity ('ipvs', $vs_id);
	amplifyCell ($vsinfo);
	$triplets = getTriplets ($vsinfo);

	// first form - common VS settings
	printOpFormIntro ('updVS');
	echo '<table border=0 align=center>';
	echo '<tr><th class=tdright>Name:</th><td class=tdleft><input type=text name=name value="' . htmlspecialchars ($vsinfo['name'], ENT_QUOTES) . '"></td></tr>';
	echo "<tr><th class=tdright>Tags:</th><td class=tdleft>";
	printTagsPicker ();
	echo "</td></tr>\n";
	echo '<tr><th class=tdright>VS config:</th><td class=tdleft><textarea name=vsconfig rows=3 cols=80>' . stringForTextarea ($vsinfo['vsconfig']) . '</textarea></td></tr>';
	echo '<tr><th class=tdright>RS config:</th><td class=tdleft><textarea name=rsconfig rows=3 cols=80>' . stringForTextarea ($vsinfo['rsconfig']) . '</textarea></td></tr>';
	echo '<tr><th></th><th>';
	printImageHREF ('SAVE', 'Save changes', TRUE);
	// delete link
	$triplets = getTriplets ($vsinfo);
	echo '<span style="margin-left: 2em"></span>';
	if (count ($triplets) > 0)
		echo getOpLink (NULL, '', 'NODESTROY', "Could not delete: there are " . count ($triplets) . " LB link(s)");
	else
		echo getOpLink (array ('op' => 'del'), '', 'DESTROY', 'Delete', 'need-confirmation');
	echo '</th></tr>';
	echo '</table></form>';

	addJS ('js/jquery.thumbhover.js');
	addJS ('js/slb_editor.js');

	// second form - ports and IPs settings
	echo '<p>'; // vertical indentation
	echo '<table width=50% border=0 align=center>';

	echo '<tr><th style="white-space:nowrap">';
	printOpFormIntro ('addPort');
	echo 'Add new port:<br>';
	echo getSelect ($vs_proto, array ('name' => 'proto'));
	echo ' <input name=port size=5> ';
	echo getImageHREF ('add', 'Add port', TRUE);
	echo '</form></th>';

	echo '<td width=99%></td>';

	echo '<th style="white-space:nowrap">';
	printOpFormIntro ('addIP');
	echo 'Add new IP:<br>';
	echo '<input name=ip size=14> ';
	echo getImageHREF ('add', 'Add IP', TRUE);
	echo '</form></th></tr>';

	echo '<tr><td valign=top class=tdleft><ul class="slb-checks editable">';
	foreach ($vsinfo['ports'] as $port)
	{
		$used = 0;
		foreach ($triplets as $triplet)
			if (isPortEnabled ($port, $triplet['ports']))
				$used++;
		echo '<li class="enabled">';
		echo formatVSPort ($port) . getPopupSLBConfig ($port);
		renderPopupVSPortForm ($port, $used);
		echo '</li>';
	}
	echo '</ul></td>';

	echo '<td width=99%></td>';

	echo '<td valign=top class=tdleft><ul class="slb-checks editable">';
	foreach ($vsinfo['vips'] as $vip)
	{
		$used = 0;
		foreach ($triplets as $triplet)
			if (isVIPEnabled ($vip, $triplet['vips']))
				$used++;
		echo '<li class="enabled">';
		echo formatVSIP ($vip) . getPopupSLBConfig ($vip);
		renderPopupVSVIPForm ($vip, $used);
		echo '</li>';
	}
	echo '</ul></td>';

	echo '</tr></table>';
}

// returns sorted (grouped) array of elements from $tr_list.
// Sets 'span' key for grouped rows, indexed by grouped realms,
// with the value = number of rows in the group
function groupTriplets ($tr_list)
{
	$self = __FUNCTION__;

	// index triplets by ids of fields
	$index = array();
	foreach ($tr_list as $tr)
	{
		if (! isset ($tr['key']))
			$tr['key'] = implode ('-', array ($tr['vs_id'], $tr['rspool_id'], $tr['object_id']));
		$index[$tr['key']] = $tr;
	}

	$ret = array();
	while ($index)
	{
		$seen = array();
		foreach ($index as $tr)
			foreach (array ('ipvs' => 'vs_id', 'ipv4rspool' => 'rspool_id', 'object' => 'object_id') as $realm => $key)
				$seen[$realm . '-' . $tr[$key]][] = $tr;
		// sort $seen by count in groups, desc
		uasort ($seen, 'cmp_array_sizes');
		$seen = array_reverse ($seen, TRUE);
		foreach ($seen as $group_key => $group)
		{
			$group_by = preg_replace ('/-.*/', '', $group_key);
			$first_tr = array_first ($group);
			if (isset ($first_tr['span'][$group_by]))
				// if already grouped by this field, take next group
				continue;
			elseif (count ($group) == 1)
			{
				// dont create groups of 1 element
				if (isset ($index[$first_tr['key']]))
				{
					unset ($index[$first_tr['key']]);
					$ret[] = $first_tr;
				}
			}
			else
			{
				foreach (array_keys ($group) as $key)
					$group[$key]['span'][$group_by] = count ($group);
				foreach ($self ($group) as $tr)
					if (isset ($index[$tr['key']]))
					{
						unset ($index[$tr['key']]);
						$ret[] = $tr;
					}
				break;
			}
		}
	}
	return $ret;
}

// supports object, ipvs, ipv4rspool cell types
function renderSLBTriplets2 ($cell, $editable = FALSE, $hl_ip = NULL)
{
	list ($realm1, $realm2) = array_values (array_diff (array ('object', 'ipvs', 'ipv4rspool'), array ($cell['realm'])));
	if ($editable && getConfigVar ('ADDNEW_AT_TOP') == 'yes')
		callHook ('renderNewTripletForm', $realm1, $realm2);

	$fields = array
	(
		'ipvs' => 'vs_id',
		'object' => 'object_id',
		'ipv4rspool' => 'rspool_id',
	);

	$headers = array
	(
		'ipvs' => 'VS',
		'object' => 'LB',
		'ipv4rspool' => 'RS pool',
	);

	$triplets = groupTriplets (getTriplets ($cell));

	// sort $headers by number of grouped cells
	$new_headers = array();
	$grouped_by = array
	(
		'ipvs' => 0,
		'object' => 0,
		'ipv4rspool' => 0,
	);
	foreach ($triplets as $slb)
		if (isset ($slb['span']))
			foreach (array_keys ($slb['span']) as $realm)
				$grouped_by[$realm]++;
	arsort ($grouped_by, SORT_NUMERIC);
	foreach (array_keys ($grouped_by) as $realm)
		$new_headers[$realm] = $headers[$realm];
	$headers = $new_headers;

	// render table header
	if (count ($triplets))
	{
		startPortlet ('VS group instances (' . count ($triplets) . ')');
		echo "<table cellspacing=0 cellpadding=5 align=center class=widetable><tr><th></th>";
		foreach ($headers as $realm => $header)
			if ($realm != $cell['realm'])
				echo "<th>$header</th>";
		echo '<th>Ports</th>';
		echo '<th>VIPs</th>';
		echo "</tr>";
	}

	addJS ('js/slb_editor.js');
	addJS ('js/jquery.thumbhover.js');

	$class = 'slb-checks';
	if ($editable)
		$class .= ' editable';

	// render table rows
	global $nextorder;
	$order = 'odd';
	$span = array();
	foreach ($triplets as $slb)
	{
		$vs_cell = spotEntity ('ipvs', $slb['vs_id']);
		amplifyCell ($vs_cell);
		echo makeHtmlTag ('tr', array(
			'valign' => 'top',
			'class' => "row_${order} triplet-row",
			'data-object_id' => $slb['object_id'],
			'data-vs_id' => $slb['vs_id'],
			'data-rspool_id' => $slb['rspool_id'],
		));
		echo '<td><a href="#" onclick="' . "slb_config_preview(event, ${slb['object_id']}, ${slb['vs_id']}, ${slb['rspool_id']}); return false" . '">' . getImageHREF ('Zoom', 'config preview') . '</a></td>';
		foreach (array_keys ($headers) as $realm)
		{
			if ($realm == $cell['realm'])
				continue;
			if (isset ($span[$realm]))
			{
				if (--$span[$realm] <= 0)
					unset ($span[$realm]);
			}
			else
			{
				$span_html = '';
				if (isset ($slb['span'][$realm]))
				{
					$span[$realm] = $slb['span'][$realm] - 1;
					$span_html = sprintf ("rowspan=%d", $slb['span'][$realm]);
				}
				echo "<td $span_html class=tdleft>";
				$slb_cell = spotEntity ($realm, $slb[$fields[$realm]]);
				renderSLBEntityCell ($slb_cell);
				echo "</td>";
			}
		}
		// render ports
		echo "<td class=tdleft><ul class='$class'>";
		foreach ($vs_cell['ports'] as $port)
		{
			echo '<li class="' . (($row = isPortEnabled ($port, $slb['ports'])) ? 'enabled' : 'disabled') . '">';
			echo formatVSPort ($port) . getPopupSLBConfig ($row);
			if ($editable)
				renderPopupTripletForm ($slb, $port, NULL, $row);
			echo '</li>';
		}
		echo '</ul></td>';

		// render VIPs
		echo "<td class=tdleft><ul class='$class'>";
		foreach ($vs_cell['vips'] as $vip)
		{
			$row = isVIPEnabled ($vip, $slb['vips']);
			$li_class = $row ? 'enabled' : 'disabled';
			if ($vip['vip'] === $hl_ip && $li_class == 'enabled')
				$li_class .= ' highlight';
			echo "<li class='$li_class'>";
			echo formatVSIP ($vip);
			if (is_array ($row) && !empty ($row['prio']))
			{
				$prio_class = 'slb-prio slb-prio-' . preg_replace ('/\s.*/', '', $row['prio']);
				echo '<span class="' . htmlspecialchars ($prio_class, ENT_QUOTES) . '">' . htmlspecialchars($row['prio']) . '</span>';
			}
			echo getPopupSLBConfig ($row);
			if ($editable)
				renderPopupTripletForm ($slb, NULL, $vip, $row);
			echo '</li>';
		}
		echo '<ul></td>';

		if ($editable)
		{
			echo '<td valign=middle>';
			printOpFormIntro ('del', array (
				'object_id' => $slb['object_id'],
				'vs_id' => $slb['vs_id'],
				'rspool_id' => $slb['rspool_id'],
			));
			printImageHREF ('DELETE', 'Remove triplet', TRUE);
			echo '</form></td>';
		}

		echo "</tr>\n";
		$order = $nextorder[$order];
	}
	if (count ($triplets))
	{
		echo "</table>\n";
		finishPortlet();
	}

	if ($editable && getConfigVar ('ADDNEW_AT_TOP') != 'yes')
		callHook ('renderNewTripletForm', $realm1, $realm2);

}

function renderSLBFormAJAX()
{
	global $pageno, $tabno;
	parse_str (assertStringArg ('form'), $orig_request);
	parse_str (ltrim (assertStringArg ('action'), '?'), $action);
	$pageno = $action['page'];
	$tabno = $action['tab'];
	printOpFormIntro ($action['op'], $orig_request);

	$realm_list = array_diff (array ('ipvs', 'object', 'ipv4rspool'), array ($pageno));
	echo '<table align=center><tr class="tdleft">';
	foreach ($realm_list as $realm)
	{
		switch ($realm)
		{
			case 'object':
				$slb_cell = spotEntity ('object', $orig_request['object_id']);
				break;
			case 'ipv4rspool':
				$slb_cell = spotEntity ('ipv4rspool', $orig_request['rspool_id']);
				break;
			case 'ipvs':
				$slb_cell = spotEntity ('ipvs', $orig_request['vs_id']);
				break;
		}
		echo '<td>';
		renderSLBEntityCell ($slb_cell);
		echo '</td>';
	}

	$vsinfo = spotEntity ('ipvs', $orig_request['vs_id']);
	amplifyCell ($vsinfo);

	echo '<td><ul style="list-style: none">';
	foreach ($vsinfo['ports'] as $port)
	{
		$key = $port['proto'] . '-' . $port['vport'];
		echo '<li><label><input type=checkbox name="enabled_ports[]" value="' . htmlspecialchars ($key, ENT_QUOTES) . '" checked>' . formatVSPort ($port) . '</label></li>';
	}
	echo '</ul></td>';

	echo '<td><ul style="list-style: none">';
	foreach ($vsinfo['vips'] as $vip)
	{
		$key = ip_format ($vip['vip']);
		echo '<li><label><input type=checkbox name="enabled_vips[]" value="' . htmlspecialchars ($key, ENT_QUOTES) . '" checked>' . $key . '</label></li>';
	}
	echo '</ul></td>';
	echo '<td>';
	printImageHREF ('ADD', 'Configure LB', TRUE);
	echo '</td>';
	echo '</tr></table>';
	echo '</form>';
}

function getTripletConfigAJAX()
{
	$tr_list = fetchTripletRows
	(
		array (
			'object_id' => assertUIntArg ('object_id'),
			'vs_id' => assertUIntArg ('vs_id'),
			'rspool_id' => assertUIntArg ('rspool_id'),
		)
	);
	echo '<div class="slbconf" style="max-height: 500px; max-width: 600px; overflow: auto">' . htmlspecialchars (generateSLBConfig2 ($tr_list)) . '</div>';
}

function renderNewTripletForm ($realm1, $realm2)
{
	function get_realm_data ($realm)
	{
		$name = NULL;
		$list = array();
		$options = array();
		switch ($realm)
		{
			case 'object':
				$name = 'Load balancer';
				$list = getNarrowObjectList ('IPV4LB_LISTSRC');
				$options = array ('name' => 'object_id');
				break;
			case 'ipvs':
				$name = 'Virtual service';
				$list = formatEntityList (listCells ('ipvs'));
				$options = array ('name' => 'vs_id');
				break;
			case 'ipv4rspool':
				$name = 'RS pool';
				$list = formatEntityList (listCells ('ipv4rspool'));
				$options = array ('name' => 'rspool_id');
				break;
			default:
				throw new InvalidArgException('realm', $realm);
		}
		return array ('name' => $name, 'list' => $list, 'options' => $options);
	}

	$realm1_data = get_realm_data ($realm1);
	$realm2_data = get_realm_data ($realm2);
	startPortlet ('Add new VS group');
	if (count ($realm1_data['list']) && count ($realm2_data['list']))
		printOpFormIntro ('addLink');
	echo "<table cellspacing=0 cellpadding=5 align=center>";
	echo "<tr valign=top><th class=tdright>{$realm1_data['name']}</th><td class=tdleft>";
	printSelect ($realm1_data['list'], $realm1_data['options']);
	echo '</td><td class=tdcenter valign=middle rowspan=2>';
	if (count ($realm1_data['list']) && count ($realm2_data['list']))
		printImageHREF ('ADD', 'Configure LB', TRUE);
	else
	{
		$names = array();
		if (! count ($realm1_data['list']))
			$names[] = 'a ' . $realm1_data['name'];
		if (! count ($realm2_data['list']))
			$names[] = 'a ' . $realm2_data['name'];
		$message = 'Please create ' . (implode (' and ', $names)) . '.';
		showNotice ($message);
		printImageHREF ('DENIED', $message, FALSE);
	}
	echo "<tr valign=top><th class=tdright>{$realm2_data['name']}</th><td class=tdleft>";
	printSelect ($realm2_data['list'], $realm2_data['options']);
	echo "</td></tr>\n";
	echo "</table></form>\n";
	finishPortlet();
}

function getPopupSLBConfig ($row)
{
	$do_vs = (isset ($row) && isset ($row['vsconfig']) && $row['vsconfig'] != '');
	$do_rs = (isset ($row) && isset ($row['rsconfig']) && $row['rsconfig'] != '');
	if (!$do_vs && !$do_rs)
		return;

	$ret = '';
	$ret .= '<div class="slbconf-btn">…</div>';
	$ret .= '<div class="slbconf popup-box">';
	if ($do_vs)
	{
		$ret .= '<h1>VS config:</h1>';
		$ret .= $row['vsconfig'];
	}
	if ($do_rs)
	{
		$ret .= '<h1>RS config:</h1>';
		$ret .= $row['rsconfig'];
	}
	$ret .= '</div>';

	static $js_added = FALSE;
	if (! $js_added)
	{
		addJS ('js/jquery.thumbhover.js');
		addJS (<<<END
$(document).ready (function () {
	$('.slbconf-btn').each (function () {
		$(this).thumbPopup($(this).siblings('.slbconf.popup-box'), { showFreezeHint: false });
	});
});
END
		, TRUE);
	}
	return $ret;
}

function trigger_ipvs_convert ()
{
	return count (callHook ('getVSIDsByGroup', getBypassValue())) ? 'std' : '';
}

function renderIPVSConvert ($vs_id)
{
	$old_vs_list = callHook ('getVSIDsByGroup', $vs_id);

	$grouped = array();
	$used_tags = array();
	foreach ($old_vs_list as $old_vs_id)
	{
		$vsinfo = spotEntity ('ipv4vs', $old_vs_id);
		foreach ($vsinfo['etags'] as $taginfo)
			$used_tags[$taginfo['id']] = $taginfo;
		$port_key = $vsinfo['proto'] . '-' . $vsinfo['vport'];
		$grouped[$port_key][] = $vsinfo;
	}

	startPortlet ("Found " . count ($old_vs_list) . " matching VS");
	printOpFormIntro ('convert');
	if (count ($used_tags))
	{
		echo '<p>Assign these tags to VS group:</p>';
		foreach ($used_tags as $taginfo)
			echo '<p><label><input type=checkbox checked name="taglist[]" value="' . htmlspecialchars ($taginfo['id'], ENT_QUOTES) . '""> ' . serializeTags (array ($taginfo)) . '<label>';
	}

	echo '<p>Import settings of these VS:</p>';
	echo '<table align=center><tr>';
	foreach ($grouped as $port_key => $list)
		echo '<th>' . $port_key . '</th>';
	echo '</tr><tr>';
	foreach ($grouped as $port_key => $list)
	{
		echo '<td><table>';
		foreach ($list as $vsinfo)
		{
			echo '<tr><td><input type=checkbox name="vs_list[]" checked value="' . htmlspecialchars ($vsinfo['id'], ENT_QUOTES) . '"></td><td>';
			renderSLBEntityCell ($vsinfo);
			echo '</td></tr>';
		}
		echo '</table></td>';
	}
	echo '</tr></table>';
	printImageHREF ('next', "Import settings of the selected services", TRUE);
	echo '</form>';
	finishPortlet();
}

function renderNewVSGForm ()
{
	startPortlet ('Add new VS group');
	printOpFormIntro ('add');
	echo '<table border=0 cellpadding=5 cellspacing=0 align=center>';
	echo '<tr valign=bottom><th>Name:</th><td class="tdleft">';
	echo '<input type=text name=name></td></tr>';
	echo '<tr><th>Tags:</th><td class="tdleft">';
	printTagsPicker ();
	echo '</td></tr>';
	echo '</table>';
	printImageHREF ('CREATE', 'create virtual service', TRUE);
	echo '</form>';
	finishPortlet();
}
