//
// Editgruppen-Kommando für Connectline, editgruppen.c
//
// Copyright 1995 by Mathias Mischler
//

#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include <cl/clonline.h>
#include <cl/cl_prefs.h>

// Version String

char version[] = { "$VER: Editgruppen 1.0 " __AMIGADATE__ };

//
// gruppen_edit()
//

void gruppen_edit ( void )
{
ulong x,y, group;
char gruppen [ 4 ], *groupname;
struct Shortmenu *mymenu;
char dummy;

	CLONL_DrawTitle();

	while ( 1 )
	{
		for ( y = 0; y < 16; y++ )
		{
			for ( x = 0; x < 6; x++ )
			{
				group = 1 + y * 6 + x;
				CLONL_GotoXY ( x * 13, 3 + y );
				Printf ( "%2ld:%-10.10s", group, CLP_GetGroupName ( group ) );
			}
		}
		PutStr ("\n\n");
		mymenu = CLONL_AddShortMenu ( NULL,   MSG("MSG_EDIT"), 'E' );
		mymenu = CLONL_AddShortMenu ( mymenu, MSG("MSG_QUIT"), 'Q' );
		dummy = CLONL_ShortMenuSelect ( mymenu ); CLONL_FreeShortMenu ( mymenu );
		if ( dummy == 0 ) return;
		if ( dummy == 'Q') break;
		PutStr (""); CLONL_DeleteEOL ();
		PutMSG ("MSG_WELCHE");
		CLONL_BlueRead ( gruppen, "", 2, TYPE_NUMBER, FALSE );
		PutStr (""); CLONL_DeleteEOL ();
		groupname = CLP_GetGroupName ( atoi ( gruppen ) );
		PutMSG ("MSG_WIE");
		CLONL_BlueRead ( groupname, groupname, 10, TYPE_ASCII, FALSE );
		PutStr (""); CLONL_DeleteEOL ();
	}
}

//
// main()
//

int main(int argc, char *argv[])
{
	if ( !CLONL_Open("Online_Editgruppen.clcat")) { PutStr("Can't init ANSI-System.\n"); return 1; }

	gruppen_edit ();
	CLP_SaveGroupNames ();

	PutStr ("\n");

	CLONL_Close();
}