UWebAdmin.MapListPage

//=============================================================================
// MapListPage. Maplist config page.
//=============================================================================
class MapListPage expands WebPageContent;

var string DoMapList; // Filled in by SubWebManager.

Static function string LoadUpClassContent( SubWebManager Other, WebConnection Receiver )
{
	local class<MapList> MPLC;
	local string S,PreF,FML,AML,ML;
	local int i,j,c;
	local bool bRes;

	if( Default.DoMapList=="" )
		Return "<-- Missing maplist code -->";
	i = InStr(Default.DoMapList,".");
	PreF = Left(Default.DoMapList,i);
	S = Mid(Default.DoMapList,i+1);
	MPLC = Class<MapList>(DynamicLoadObject(S,Class'Class',True));
	if( MPLC==None )
		Return "<-- Bad maplist class specified"@Default.DoMapList@"-->";
	S = "<!-- Maplist auto-gen code --><CENTER>Select maps you wish to add or remove from the maplist, then press Submit (using Ctrl key you can select multiple maps).<BR>"$Other.NewLineChar;
	S = S$"<form method=\"post\" action=\"MapList_"$Default.DoMapList$"?"$Default.Class$"\">"$Other.NewLineChar;

	c = Array_Size(MPLC.Default.MapsArray);
	For( i=0; i<c; i++ )
	{
		if( MPLC.Default.MapsArray[i]!="" )
		{
			if( !(Right(MPLC.Default.MapsArray[i],4)~=".unr") )
				MPLC.Default.MapsArray[i] = MPLC.Default.MapsArray[i]$".unr";
			AML = AML$"<option value=\""$MPLC.Default.MapsArray[i]$"\">"$MPLC.Default.MapsArray[i]$"</option>";
		}
	}
	foreach Other.AllFiles("unr",PreF,ML)
	{
		bRes = False;
		For( j=0; j<c; j++ )
		{
			if( Len(MPLC.Default.MapsArray[j])!=0 && MPLC.Default.MapsArray[j]~=ML )
			{
				bRes = True;
				Break;
			}
		}
		if( bRes )
			Continue;
		FML = FML$"<option value=\""$ML$"\">"$ML$"</option>";
	}
	S = S$"<TABLE BORDER=0><TR><TH>Maps not in cycle:</TH><TH>Maps in cycle:</TH></TR>"$Other.NewLineChar;
	S = S$"<TR><TD><select name=\"INC\" size=\"10\" multiple=\"multiple\">"$Other.NewLineChar;
	S = S$FML$Other.NewLineChar$"</select></TD>"$Other.NewLineChar;

	S = S$"<TD><select name=\"EXC\" size=\"10\" multiple=\"multiple\">"$Other.NewLineChar;
	S = S$AML$Other.NewLineChar$"</select></TD></TR></TABLE>"$Other.NewLineChar;
	S = S$"<p><input class=\"button\" type=\"submit\" name=\"edit\" value=\"Submit\"></form></CENTER><!-- End of maplist code -->"$Other.NewLineChar;
	Return S;
}

Static function ProcessReceivedData( string Data, SubWebManager Other, WebConnection Receiver )
{
	local int i,j,c;
	local bool bLoopsDone;
	local class<MapList> MPLC;
	local string S,Pr;

	i = InStr(Default.DoMapList,".");
	MPLC = Class<MapList>(DynamicLoadObject(Mid(Default.DoMapList,i+1),Class'Class',True));
	if( MPLC==None )
		Return;
	c = Array_Size(MPLC.Default.MapsArray);
	While( !bLoopsDone )
	{
		i = InStr(Data,"&");
		if( i==-1 )
		{
			bLoopsDone = True;
			S = Data;
		}
		else
		{
			S = Left(Data,i);
			Data = Mid(Data,i+1);
		}
		i = InStr(S,"=");
		if( i==-1 )
			Continue;
		Pr = Left(S,i);
		S = Mid(S,i+1);
		S = Other.DataToStr(S);
		Switch(Pr)
		{
			Case "INC":
				MPLC.Default.MapsArray[c++] = S;
				Break;
			Case "EXC":
				for( j=0; j<c; j++ )
				{
					if( MPLC.Default.MapsArray[j]~=S )
					{
						Array_Remove(MPLC.Default.MapsArray,j);
						c--;
						break;
					}
				}
				Break;
		}
	}
	MPLC.Static.StaticSaveConfig();
}

defaultproperties
{
}