#pragma implementation
#include "clonesys.h"
#include "clonesys.m"
#include <tlmpmod.h>
#include <tlmplib.h>

static HELP_FILE help_clone ("clonesys","clonesys");

MODULE_DEFINE_VERSION(clonesys);
static const char *keymenu=NULL;

<mod>
static void clonesys_do()
{
	<glocal>
		SSTRING disk;
	</glocal>
	DIALOG dia;
	FIELD_COMBO *comb = dia.newf_combo (MSG_U(F_DISK,"Destination disk")
		,glocal.disk);
	comb->addopt ("hda",MSG_U(I_HDA,"Master disk, first IDE controller"));
	comb->addopt ("hdb",MSG_U(I_HDB,"Slave disk, first IDE controller"));
	comb->addopt ("hdc",MSG_U(I_HDC,"Master disk, second IDE controller"));
	comb->addopt ("hdd",MSG_U(I_HDD,"Slave disk, second IDE controller"));
	int nof = 0;
	while (1){
		MENU_STATUS code = dia.edit (MSG_U(T_CLONESYS,"Cloning a linux installation")
			,MSG_U(I_CLONESYS,"")
			,help_clone
			,nof);
		if (code == MENU_ESCAPE || code == MENU_CANCEL){
			break;
		}else{
			glocal.found = false;
			<call walkfs>("/proc/ide");
			<f recurse>
				return false;
			</f>
			<f onefile>
				if (glocal.disk.cmp(file)==0){
					glocal.found = true;
				}
			</f>
			</call>
			glocal.disk.setfrom ("/dev/%s",glocal.disk.get());
			FSTAB
			PARTITIONS
			fdisk
			e2label
			cp -ax
			lilo
		}
	}
}
</mod>

static void clonesys_main()
{
	if (perm_rootaccess(MSG_U(P_CLONESYS,"clone the linux installation"))){
		closesys_do();
	}
}

<mod>
<obj TLMP_MODULE xx>("clonesys",PACKAGE_REV);
	<f usage>
		tb.add (new SSTRING(MSG_U(T_USAGE
			,"linuxconf --modulemain clonesys usage\n"
			 "\n"
			 "    clonesys --option ...\n")));
	</f>

	<f setmenu>
		if (context == MENU_MISCSERV){
			keymenu = MSG_U(M_clonesys,"Clone a linux installation");
			dia.new_menuitem ("clonesys","",keymenu);
		}
	</f>
	<f domenu>
		if (context == MENU_MISCSERV){
			if (key == keymenu){
				CONTEXT_LOCK l("clonesys");
				if (l.isok()){
					clonesys_main();
				}
			}
		}
		return 0;
	</f>

	<f dohtml>
		int ret = LNCF_NOT_APPLICABLE;
		#if 0
			// ### Check the variable key to provide your own html hook
			ret = 0;
		#endif
		return ret;
	</f>
	<f execmain>
		int ret = -1;
		if (argc == 1){
			CONTEXT_LOCK l("clonesys");
			if (l.isok()){
				clonesys_main();
			}
		}else{
			printusage();
		}
		return ret;
	</f>
</obj>