VBoxManageCloudMachine.cpp@ 100684

Last change on this file since 100684 was 98701, checked in by vboxsync, 22 months ago
bugref:10365. OCI stuff. Initial version of the command 'reset' for an instance. The command implements 'hard reset': no gently waiting, just power off, next power on.
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 43.7 KB

Line
1	/* $Id: VBoxManageCloudMachine.cpp 98701 2023-02-23 13:24:50Z vboxsync $ */
2	/** @file
3	* VBoxManageCloudMachine - The cloud machine related commands.
4	*/
5
6	/*
7	* Copyright (C) 2006-2023 Oracle and/or its affiliates.
8	*
9	* This file is part of VirtualBox base platform packages, as
10	* available from https://www.virtualbox.org.
11	*
12	* This program is free software; you can redistribute it and/or
13	* modify it under the terms of the GNU General Public License
14	* as published by the Free Software Foundation, in version 3 of the
15	* License.
16	*
17	* This program is distributed in the hope that it will be useful, but
18	* WITHOUT ANY WARRANTY; without even the implied warranty of
19	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20	* General Public License for more details.
21	*
22	* You should have received a copy of the GNU General Public License
23	* along with this program; if not, see <https://www.gnu.org/licenses>.
24	*
25	* SPDX-License-Identifier: GPL-3.0-only
26	*/
27
28	#include "VBoxManage.h"
29
30	#include <VBox/log.h>
31
32	#include <VBox/com/ErrorInfo.h>
33	#include <VBox/com/Guid.h>
34	#include <VBox/com/errorprint.h>
35
36	#include <algorithm>
37	#include <vector>
38
39	DECLARE_TRANSLATION_CONTEXT(CloudMachine);
40
41
42	struct CMachineHandlerArg
43	: public HandlerArg
44	{
45	ComPtr<ICloudClient> pClient;
46
47	const char pcszSpec; / RTGETOPTUNION::psz, points inside argv */
48	enum { GUESS, ID, NAME } enmSpecKind;
49	ComPtr<ICloudMachine> pMachine;
50
51	explicit CMachineHandlerArg(const HandlerArg &a)
52	: HandlerArg(a), pcszSpec(NULL), enmSpecKind(GUESS) {}
53	};
54
55
56	static int selectCloudProvider(ComPtr<ICloudProvider> &pProvider,
57	const ComPtr<IVirtualBox> &pVirtualBox,
58	const char *pszProviderName);
59	static int selectCloudProfile(ComPtr<ICloudProfile> &pProfile,
60	const ComPtr<ICloudProvider> &pProvider,
61	const char *pszProviderName);
62	static int getCloudClient(CMachineHandlerArg &a,
63	const char *pcszProviderName,
64	const char *pcszProfileName);
65
66	static HRESULT getMachineList(com::SafeIfaceArray<ICloudMachine> &aMachines,
67	const ComPtr<ICloudClient> &pClient);
68
69	static HRESULT getMachineBySpec(CMachineHandlerArg *a);
70	static HRESULT getMachineById(CMachineHandlerArg *a);
71	static HRESULT getMachineByName(CMachineHandlerArg *a);
72	static HRESULT getMachineByGuess(CMachineHandlerArg *a);
73
74	static int checkMachineSpecArgument(CMachineHandlerArg *a,
75	int ch, const RTGETOPTUNION &Val);
76
77
78	static RTEXITCODE handleCloudMachineImpl(CMachineHandlerArg *a, int iFirst);
79
80	static RTEXITCODE handleCloudMachineStart(CMachineHandlerArg *a, int iFirst);
81	static RTEXITCODE handleCloudMachineReboot(CMachineHandlerArg *a, int iFirst);
82	static RTEXITCODE handleCloudMachineReset(CMachineHandlerArg *a, int iFirst);
83	static RTEXITCODE handleCloudMachineShutdown(CMachineHandlerArg *a, int iFirst);
84	static RTEXITCODE handleCloudMachinePowerdown(CMachineHandlerArg *a, int iFirst);
85	static RTEXITCODE handleCloudMachineTerminate(CMachineHandlerArg *a, int iFirst);
86
87	static RTEXITCODE handleCloudMachineConsoleHistory(CMachineHandlerArg *a, int iFirst);
88
89	static RTEXITCODE listCloudMachinesImpl(CMachineHandlerArg *a, int iFirst);
90	static RTEXITCODE handleCloudMachineInfo(CMachineHandlerArg *a, int iFirst);
91
92	static HRESULT printMachineInfo(const ComPtr<ICloudMachine> &pMachine);
93	static HRESULT printFormValue(const ComPtr<IFormValue> &pValue);
94
95
96
97	/*
98	* This is a temporary hack as I don't want to refactor "cloud"
99	* handling right now, as it's not yet clear to me what is the
100	* direction that we want to take with it.
101	*
102	* The problem with the way "cloud" command handling is currently
103	* written is that it's a bit schizophrenic about whether we have
104	* multiple cloud providers or not. OTOH it insists on --provider
105	* being mandatory, on the other it hardcodes the list of available
106	* subcommands, though in principle those can vary from provider to
107	* provider. If we do want to support multiple providers we might
108	* need to come up with a way to allow an extpack provider to supply
109	* its own VBoxManage command handler for "cloud" based on --provider
110	* as the selector.
111	*
112	* Processing of --provider and --profile should not be postponed
113	* until the leaf command handler, but rather happen immediately, so
114	* do this here at our earliest opportunity (without actually doing it
115	* in handleCloud).
116	*/
117	RTEXITCODE
118	handleCloudMachine(HandlerArg *a, int iFirst,
119	const char *pcszProviderName,
120	const char *pcszProfileName)
121	{
122	CMachineHandlerArg handlerArg(*a);
123	int vrc = getCloudClient(handlerArg, pcszProviderName, pcszProfileName);
124	if (RT_FAILURE(vrc))
125	return RTEXITCODE_FAILURE;
126
127	return handleCloudMachineImpl(&handlerArg, iFirst);
128	}
129
130
131	/*
132	* Select cloud provider to use based on the --provider option to the
133	* "cloud" command. The option is not mandatory if only a single
134	* provider is available.
135	*/
136	static int
137	selectCloudProvider(ComPtr<ICloudProvider> &pProvider,
138	const ComPtr<IVirtualBox> &pVirtualBox,
139	const char *pcszProviderName)
140	{
141	HRESULT hrc;
142
143	ComPtr<ICloudProviderManager> pCloudProviderManager;
144	CHECK_ERROR2_RET(hrc, pVirtualBox,
145	COMGETTER(CloudProviderManager)(pCloudProviderManager.asOutParam()),
146	VERR_GENERAL_FAILURE);
147
148
149	/*
150	* If the provider is explicitly specified, just look it up and
151	* return.
152	*/
153	if (pcszProviderName != NULL)
154	{
155	/*
156	* Should we also provide a way to specify the provider also
157	* by its id? Is it even useful? If so, should we use a
158	* different option or check if the provider name looks like
159	* an id and used a different getter?
160	*/
161	CHECK_ERROR2_RET(hrc, pCloudProviderManager,
162	GetProviderByShortName(com::Bstr(pcszProviderName).raw(),
163	pProvider.asOutParam()),
164	VERR_NOT_FOUND);
165
166	return VINF_SUCCESS;
167	}
168
169
170	/*
171	* We have only one provider and it's not clear if we will ever
172	* have more than one. Forcing the user to explicitly specify the
173	* only provider available is not very nice. So try to be
174	* friendly.
175	*/
176	com::SafeIfaceArray<ICloudProvider> aProviders;
177	CHECK_ERROR2_RET(hrc, pCloudProviderManager,
178	COMGETTER(Providers)(ComSafeArrayAsOutParam(aProviders)),
179	VERR_GENERAL_FAILURE);
180
181	if (aProviders.size() == 0)
182	{
183	RTMsgError(CloudMachine::tr("cloud: no providers available"));
184	return VERR_NOT_FOUND;
185	}
186
187	if (aProviders.size() > 1)
188	{
189	RTMsgError(CloudMachine::tr("cloud: multiple providers available,"
190	" '--provider' option is required"));
191	return VERR_MISSING;
192	}
193
194	/* Do RTMsgInfo telling the user which one was selected? */
195	pProvider = aProviders[0];
196	return VINF_SUCCESS;
197	}
198
199
200	/*
201	* Select cloud profile to use based on the --profile option to the
202	* "cloud" command. The option is not mandatory if only a single
203	* profile exists.
204	*/
205	static int
206	selectCloudProfile(ComPtr<ICloudProfile> &pProfile,
207	const ComPtr<ICloudProvider> &pProvider,
208	const char *pcszProfileName)
209	{
210	HRESULT hrc;
211
212	/*
213	* If the profile is explicitly specified, just look it up and
214	* return.
215	*/
216	if (pcszProfileName != NULL)
217	{
218	CHECK_ERROR2_RET(hrc, pProvider,
219	GetProfileByName(com::Bstr(pcszProfileName).raw(),
220	pProfile.asOutParam()),
221	VERR_NOT_FOUND);
222
223	return VINF_SUCCESS;
224	}
225
226
227	/*
228	* If the user has just one profile for this provider, don't force
229	* them to specify it. I'm not entirely sure about this one,
230	* actually. It's nice for interactive use, but it might be not
231	* forward compatible if used in a script and then when another
232	* profile is created the script starts failing. I'd say, give
233	* them enough rope...
234	*/
235	com::SafeIfaceArray<ICloudProfile> aProfiles;
236	CHECK_ERROR2_RET(hrc, pProvider,
237	COMGETTER(Profiles)(ComSafeArrayAsOutParam(aProfiles)),
238	VERR_GENERAL_FAILURE);
239
240	if (aProfiles.size() == 0)
241	{
242	RTMsgError(CloudMachine::tr("cloud: no profiles exist"));
243	return VERR_NOT_FOUND;
244	}
245
246	if (aProfiles.size() > 1)
247	{
248	RTMsgError(CloudMachine::tr("cloud: multiple profiles exist, '--profile' option is required"));
249	return VERR_MISSING;
250	}
251
252	/* Do RTMsgInfo telling the user which one was selected? */
253	pProfile = aProfiles[0];
254	return VINF_SUCCESS;
255	}
256
257
258	static int
259	getCloudClient(CMachineHandlerArg &a,
260	const char *pcszProviderName,
261	const char *pcszProfileName)
262	{
263	ComPtr<ICloudProvider> pProvider;
264	int vrc = selectCloudProvider(pProvider, a.virtualBox, pcszProviderName);
265	if (RT_FAILURE(vrc))
266	return vrc;
267
268	ComPtr<ICloudProfile> pProfile;
269	vrc = selectCloudProfile(pProfile, pProvider, pcszProfileName);
270	if (RT_FAILURE(vrc))
271	return vrc;
272
273	ComPtr<ICloudClient> pCloudClient;
274	CHECK_ERROR2I_RET(pProfile, CreateCloudClient(pCloudClient.asOutParam()), VERR_GENERAL_FAILURE);
275
276	a.pClient = pCloudClient;
277	return VINF_SUCCESS;
278	}
279
280
281	static HRESULT
282	getMachineList(com::SafeIfaceArray<ICloudMachine> &aMachines,
283	const ComPtr<ICloudClient> &pClient)
284	{
285	HRESULT hrc;
286
287	ComPtr<IProgress> pListProgress;
288	CHECK_ERROR2_RET(hrc, pClient,
289	ReadCloudMachineList(pListProgress.asOutParam()),
290	hrc);
291
292	hrc = showProgress(pListProgress, SHOW_PROGRESS_NONE);
293	if (FAILED(hrc))
294	return hrc;
295
296	CHECK_ERROR2_RET(hrc, pClient,
297	COMGETTER(CloudMachineList)(ComSafeArrayAsOutParam(aMachines)),
298	hrc);
299
300	return S_OK;
301	}
302
303
304	static HRESULT
305	getMachineById(CMachineHandlerArg *a)
306	{
307	HRESULT hrc;
308
309	ComPtr<ICloudMachine> pMachine;
310	CHECK_ERROR2_RET(hrc, a->pClient,
311	GetCloudMachine(com::Bstr(a->pcszSpec).raw(),
312	pMachine.asOutParam()), hrc);
313
314	ComPtr<IProgress> pRefreshProgress;
315	CHECK_ERROR2_RET(hrc, pMachine,
316	Refresh(pRefreshProgress.asOutParam()), hrc);
317
318	hrc = showProgress(pRefreshProgress, SHOW_PROGRESS_NONE);
319	if (FAILED(hrc))
320	return hrc;
321
322	a->pMachine = pMachine;
323	return S_OK;
324	}
325
326
327	static HRESULT
328	getMachineByName(CMachineHandlerArg *a)
329	{
330	HRESULT hrc;
331
332	com::SafeIfaceArray<ICloudMachine> aMachines;
333	hrc = getMachineList(aMachines, a->pClient);
334	if (FAILED(hrc))
335	return hrc;
336
337	const size_t cMachines = aMachines.size();
338	if (cMachines == 0)
339	return VBOX_E_OBJECT_NOT_FOUND;
340
341	ComPtr<ICloudMachine> pMachineFound;
342	for (size_t i = 0; i < cMachines; ++i)
343	{
344	const ComPtr<ICloudMachine> pMachine = aMachines[i];
345
346	com::Bstr bstrName;
347	CHECK_ERROR2_RET(hrc, pMachine,
348	COMGETTER(Name)(bstrName.asOutParam()),
349	hrc);
350
351	if (!bstrName.equals(a->pcszSpec))
352	continue;
353
354	if (pMachineFound.isNull())
355	pMachineFound = pMachine;
356	else
357	{
358	com::Bstr bstrId1, bstrId2;
359	CHECK_ERROR2_RET(hrc, pMachineFound,
360	COMGETTER(Id)(bstrId1.asOutParam()),
361	hrc);
362	CHECK_ERROR2_RET(hrc, pMachine,
363	COMGETTER(Id)(bstrId2.asOutParam()),
364	hrc);
365
366	RTMsgError(CloudMachine::tr("ambiguous name: %ls and %ls"), bstrId1.raw(), bstrId2.raw());
367	return VBOX_E_OBJECT_NOT_FOUND;
368	}
369	}
370
371	if (pMachineFound.isNull())
372	return VBOX_E_OBJECT_NOT_FOUND;
373
374	a->pMachine = pMachineFound;
375	return S_OK;
376	}
377
378
379	/*
380	* Try to find the machine refered by pcszWhatever. If the look up by
381	* id fails we might want to fallback to look up by name, b/c someone
382	* might want to use a uuid as a display name of a machine. But cloud
383	* lookups are not fast, so that would be incurring performance
384	* penalty for typos or for machines that are gone. Should provide
385	* explicit --id/--name options instead.
386	*/
387	static HRESULT
388	getMachineByGuess(CMachineHandlerArg *a)
389	{
390	HRESULT hrc;
391
392	RTUUID Uuid;
393	int vrc = RTUuidFromStr(&Uuid, a->pcszSpec);
394	if (RT_SUCCESS(vrc))
395	hrc = getMachineById(a);
396	else
397	hrc = getMachineByName(a);
398
399	if (FAILED(hrc))
400	return hrc;
401
402	return S_OK;
403	}
404
405
406
407	/*
408	* RTGETOPTINIT_FLAGS_NO_STD_OPTS recognizes both --help and --version
409	* and we don't want the latter. It's easier to add one line of this
410	* macro to the s_aOptions initializers than to filter out --version.
411	*/
412	#define CLOUD_MACHINE_RTGETOPTDEF_HELP \
413	{ "--help", 'h', RTGETOPT_REQ_NOTHING }, \
414	{ "-help", 'h', RTGETOPT_REQ_NOTHING }, \
415	{ "help", 'h', RTGETOPT_REQ_NOTHING }, \
416	{ "-?", 'h', RTGETOPT_REQ_NOTHING }
417
418	static RTEXITCODE
419	errThereCanBeOnlyOne()
420	{
421	return RTMsgErrorExit(RTEXITCODE_SYNTAX,
422	CloudMachine::tr("only one machine can be specified"));
423	}
424
425
426	#define CLOUD_MACHINE_RTGETOPTDEF_MACHINE \
427	{ "--id", 'i', RTGETOPT_REQ_STRING }, \
428	{ "--name", 'n', RTGETOPT_REQ_STRING }
429
430
431	/*
432	* Almost all the cloud machine commands take a machine argument, so
433	* factor out the code to fish it out from the command line.
434	*
435	* ch - option should be processed by the caller.
436	* VINF_SUCCESS - option was processed.
437	* VERR_PARSE_ERROR - RTEXITCODE_SYNTAX
438	* Other IPRT errors - RTEXITCODE_FAILURE
439	*/
440	static int
441	checkMachineSpecArgument(CMachineHandlerArg *a,
442	int ch, const RTGETOPTUNION &Val)
443	{
444	int vrc;
445
446	switch (ch)
447	{
448	/*
449	* Note that we don't used RTGETOPT_REQ_UUID here as it would
450	* be too limiting. First, we need the original string for
451	* the API call, not the UUID, and second, if the UUID has bad
452	* forward RTGetOptPrintError doesn't have access to the
453	* option argument for the error message. So do the format
454	* check ourselves.
455	*/
456	case 'i': /* --id */
457	{
458	const char *pcszId = Val.psz;
459
460	if (a->pcszSpec != NULL)
461	{
462	errThereCanBeOnlyOne();
463	return VERR_PARSE_ERROR;
464	}
465
466	RTUUID Uuid;
467	vrc = RTUuidFromStr(&Uuid, pcszId);
468	if (RT_FAILURE(vrc))
469	{
470	RTMsgError(CloudMachine::tr("not a valid uuid: %s"), pcszId);
471	return VERR_PARSE_ERROR;
472	}
473
474	a->pcszSpec = pcszId;
475	a->enmSpecKind = CMachineHandlerArg::ID;
476	return VINF_SUCCESS;
477	}
478
479	case 'n': /* --name */
480	{
481	const char *pcszName = Val.psz;
482
483	if (a->pcszSpec != NULL)
484	{
485	errThereCanBeOnlyOne();
486	return VERR_PARSE_ERROR;
487	}
488
489	a->pcszSpec = pcszName;
490	a->enmSpecKind = CMachineHandlerArg::NAME;
491	return VINF_SUCCESS;
492	}
493
494	/*
495	* Plain word (no dash/es). This must name a machine, though
496	* we have to guess whether it's an id or a name.
497	*/
498	case VINF_GETOPT_NOT_OPTION:
499	{
500	const char *pcszNameOrId = Val.psz;
501
502	if (a->pcszSpec != NULL)
503	{
504	errThereCanBeOnlyOne();
505	return VERR_PARSE_ERROR;
506	}
507
508	a->pcszSpec = pcszNameOrId;
509	a->enmSpecKind = CMachineHandlerArg::GUESS;
510	return VINF_SUCCESS;
511	}
512
513	/* might as well do it here */
514	case 'h': /* --help */
515	{
516	printHelp(g_pStdOut);
517	return VINF_CALLBACK_RETURN;
518	}
519	}
520
521	/* let the caller deal with it */
522	return VINF_NOT_SUPPORTED;
523	}
524
525
526	static HRESULT
527	getMachineBySpec(CMachineHandlerArg *a)
528	{
529	HRESULT hrc = E_FAIL;
530
531	if (a->pcszSpec == NULL)
532	{
533	RTMsgErrorExit(RTEXITCODE_SYNTAX, CloudMachine::tr("machine not specified"));
534	return E_FAIL;
535	}
536
537	if (a->pcszSpec[0] == '\0')
538	{
539	RTMsgError(CloudMachine::tr("machine name is empty"));
540	return E_FAIL;
541	}
542
543	switch (a->enmSpecKind)
544	{
545	case CMachineHandlerArg::ID:
546	hrc = getMachineById(a);
547	if (FAILED(hrc))
548	{
549	if (hrc == VBOX_E_OBJECT_NOT_FOUND)
550	RTMsgError(CloudMachine::tr("unable to find machine with id %s"), a->pcszSpec);
551	return hrc;
552	}
553	break;
554
555	case CMachineHandlerArg::NAME:
556	hrc = getMachineByName(a);
557	if (FAILED(hrc))
558	{
559	if (hrc == VBOX_E_OBJECT_NOT_FOUND)
560	RTMsgError(CloudMachine::tr("unable to find machine with name %s"), a->pcszSpec);
561	return hrc;
562	}
563	break;
564
565	case CMachineHandlerArg::GUESS:
566	hrc = getMachineByGuess(a);
567	if (FAILED(hrc))
568	{
569	if (hrc == VBOX_E_OBJECT_NOT_FOUND)
570	RTMsgError(CloudMachine::tr("unable to find machine %s"), a->pcszSpec);
571	return hrc;
572	}
573	break;
574	}
575
576	/* switch was exhaustive (and successful) */
577	AssertReturn(SUCCEEDED(hrc), E_FAIL);
578	return S_OK;
579	}
580
581
582
583
584	/*
585	* cloud machine [--id id \| --name name] command ...
586	*
587	* We allow machine to be specified after "machine" but only with an
588	* explicit option for the obvious reason. We will also check for
589	* these options and machine spec as a plain words argument after the
590	* command word, so user can use either of:
591	*
592	* cloud machine --name foo start
593	* cloud machine start --name foo
594	* cloud machine start foo
595	*
596	* This will accept e.g. cloud machine --name foo list ... b/c we
597	* don't yet know that it's "list" that is coming, so commands that
598	* don't take machine argument check that separately when called. One
599	* side effect of this is that specifying several machines or using a
600	* syntactically invalid id will be reported as such, not as an
601	* unknown option, but that's a relatively minor nit.
602	*/
603	static RTEXITCODE
604	handleCloudMachineImpl(CMachineHandlerArg *a, int iFirst)
605	{
606	enum
607	{
608	kMachineIota = 1000,
609	kMachine_ConsoleHistory,
610	kMachine_Info,
611	kMachine_List,
612	kMachine_Powerdown,
613	kMachine_Reboot,
614	kMachine_Reset,
615	kMachine_Shutdown,
616	kMachine_Start,
617	kMachine_Terminate,
618	};
619
620	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE);
621	static const RTGETOPTDEF s_aOptions[] =
622	{
623	{ "console-history", kMachine_ConsoleHistory, RTGETOPT_REQ_NOTHING },
624	{ "consolehistory", kMachine_ConsoleHistory, RTGETOPT_REQ_NOTHING },
625	{ "info", kMachine_Info, RTGETOPT_REQ_NOTHING },
626	{ "list", kMachine_List, RTGETOPT_REQ_NOTHING },
627	{ "powerdown", kMachine_Powerdown, RTGETOPT_REQ_NOTHING },
628	{ "reboot", kMachine_Reboot, RTGETOPT_REQ_NOTHING },
629	{ "reset", kMachine_Reset, RTGETOPT_REQ_NOTHING },
630	{ "shutdown", kMachine_Shutdown, RTGETOPT_REQ_NOTHING },
631	{ "start", kMachine_Start, RTGETOPT_REQ_NOTHING },
632	{ "terminate", kMachine_Terminate, RTGETOPT_REQ_NOTHING },
633	CLOUD_MACHINE_RTGETOPTDEF_MACHINE,
634	CLOUD_MACHINE_RTGETOPTDEF_HELP
635	};
636
637	RTGETOPTSTATE OptState;
638	int vrc = RTGetOptInit(&OptState, a->argc, a->argv, s_aOptions, RT_ELEMENTS(s_aOptions),
639	iFirst, RTGETOPTINIT_FLAGS_NO_STD_OPTS);
640	AssertRCReturn(vrc, RTMsgErrorExit(RTEXITCODE_INIT, CloudMachine::tr("cloud machine: RTGetOptInit: %Rra"), vrc));
641
642	int ch;
643	RTGETOPTUNION Val;
644	while ((ch = RTGetOpt(&OptState, &Val)) != 0)
645	{
646	if (RT_FAILURE(ch))
647	return RTGetOptPrintError(ch, &Val);
648
649	/*
650	* Check for an unknown word first: checkMachineSpecArgument()
651	* would try to interpret that as a machine id/name.
652	*/
653	if (ch == VINF_GETOPT_NOT_OPTION)
654	return RTMsgErrorExit(RTEXITCODE_SYNTAX,
655	CloudMachine::tr("Invalid sub-command: %s"), Val.psz);
656
657	/*
658	* Allow --id/--name after "machine", before the command.
659	* Also handles --help.
660	*/
661	vrc = checkMachineSpecArgument(a, ch, Val);
662	if (vrc == VINF_SUCCESS)
663	continue;
664	if (vrc == VINF_CALLBACK_RETURN)
665	return RTEXITCODE_SUCCESS;
666	if (vrc == VERR_PARSE_ERROR)
667	return RTEXITCODE_SYNTAX;
668
669	/*
670	* Dispatch to command implementation ([ab]use getopt to do
671	* string comparisons for us).
672	*/
673	switch (ch)
674	{
675	case kMachine_ConsoleHistory:
676	return handleCloudMachineConsoleHistory(a, OptState.iNext);
677
678	case kMachine_Info:
679	return handleCloudMachineInfo(a, OptState.iNext);
680
681	case kMachine_List:
682	return listCloudMachinesImpl(a, OptState.iNext);
683
684	case kMachine_Powerdown:
685	return handleCloudMachinePowerdown(a, OptState.iNext);
686
687	case kMachine_Reboot:
688	return handleCloudMachineReboot(a, OptState.iNext);
689
690	case kMachine_Reset:
691	return handleCloudMachineReset(a, OptState.iNext);
692
693	case kMachine_Shutdown:
694	return handleCloudMachineShutdown(a, OptState.iNext);
695
696	case kMachine_Start:
697	return handleCloudMachineStart(a, OptState.iNext);
698
699	case kMachine_Terminate:
700	return handleCloudMachineTerminate(a, OptState.iNext);
701
702	default: /* should never happen */
703	return RTMsgErrorExit(RTEXITCODE_INIT,
704	CloudMachine::tr("cloud machine: internal error: %d"), ch);
705	}
706	}
707
708	return RTMsgErrorExit(RTEXITCODE_SYNTAX,
709	CloudMachine::tr("cloud machine: command required\n"
710	"Try '--help' for more information."));
711	}
712
713
714	/*
715	* cloud list machines
716	*
717	* The "cloud list" prefix handling is in VBoxManageCloud.cpp, so this
718	* function is not static. See handleCloudMachine() for the
719	* explanation early provider/profile lookup.
720	*/
721	RTEXITCODE
722	listCloudMachines(HandlerArg *a, int iFirst,
723	const char *pcszProviderName,
724	const char *pcszProfileName)
725	{
726	CMachineHandlerArg handlerArg(*a);
727	int vrc = getCloudClient(handlerArg, pcszProviderName, pcszProfileName);
728	if (RT_FAILURE(vrc))
729	return RTEXITCODE_FAILURE;
730
731	return listCloudMachinesImpl(&handlerArg, iFirst);
732	}
733
734
735	/*
736	* cloud machine list # convenience alias
737	* cloud list machines # see above
738	*/
739	static RTEXITCODE
740	listCloudMachinesImpl(CMachineHandlerArg *a, int iFirst)
741	{
742	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_LIST);
743	static const RTGETOPTDEF s_aOptions[] =
744	{
745	{ "--long", 'l', RTGETOPT_REQ_NOTHING },
746	{ "--sort", 's', RTGETOPT_REQ_NOTHING },
747	CLOUD_MACHINE_RTGETOPTDEF_HELP
748	};
749
750	enum kFormatEnum { kFormat_Short, kFormat_Long };
751	kFormatEnum enmFormat = kFormat_Short;
752
753	enum kSortOrderEnum { kSortOrder_None, kSortOrder_Name, kSortOrder_Id };
754	kSortOrderEnum enmSortOrder = kSortOrder_None;
755
756	if (a->pcszSpec != NULL)
757	return RTMsgErrorExit(RTEXITCODE_SYNTAX,
758	CloudMachine::tr("cloud machine list: unexpected machine argument"));
759
760
761	RTGETOPTSTATE OptState;
762	int vrc = RTGetOptInit(&OptState, a->argc, a->argv, s_aOptions, RT_ELEMENTS(s_aOptions),
763	iFirst, RTGETOPTINIT_FLAGS_NO_STD_OPTS);
764	AssertRCReturn(vrc, RTMsgErrorExit(RTEXITCODE_INIT, CloudMachine::tr("cloud machine list: RTGetOptInit: %Rra"), vrc));
765
766	int ch;
767	RTGETOPTUNION Val;
768	while ((ch = RTGetOpt(&OptState, &Val)) != 0)
769	{
770	switch (ch)
771	{
772	case 'l':
773	enmFormat = kFormat_Long;
774	break;
775
776	case 's':
777	/** @todo optional argument to select the sort key? */
778	enmSortOrder = kSortOrder_Name;
779	break;
780
781	case 'h': /* --help */
782	printHelp(g_pStdOut);
783	return RTEXITCODE_SUCCESS;
784
785
786	case VINF_GETOPT_NOT_OPTION:
787	return RTMsgErrorExit(RTEXITCODE_SYNTAX,
788	CloudMachine::tr("Invalid sub-command: %s"), Val.psz);
789
790	default:
791	return RTGetOptPrintError(ch, &Val);
792	}
793	}
794
795	com::SafeIfaceArray<ICloudMachine> aMachines;
796	HRESULT hrc = getMachineList(aMachines, a->pClient);
797	if (FAILED(hrc))
798	return RTEXITCODE_FAILURE;
799
800	const size_t cMachines = aMachines.size();
801	if (cMachines == 0)
802	return RTEXITCODE_SUCCESS;
803
804
805	/*
806	* Get names/ids that we need for the short output and to sort the
807	* list.
808	*/
809	std::vector<ComPtr<ICloudMachine> > vMachines(cMachines);
810	std::vector<com::Bstr> vBstrNames(cMachines);
811	std::vector<com::Bstr> vBstrIds(cMachines);
812	for (size_t i = 0; i < cMachines; ++i)
813	{
814	vMachines[i] = aMachines[i];
815
816	CHECK_ERROR2_RET(hrc, vMachines[i],
817	COMGETTER(Name)(vBstrNames[i].asOutParam()),
818	RTEXITCODE_FAILURE);
819
820	CHECK_ERROR2_RET(hrc, vMachines[i],
821	COMGETTER(Id)(vBstrIds[i].asOutParam()),
822	RTEXITCODE_FAILURE);
823	}
824
825
826	/*
827	* Sort the list if necessary. The sort is indirect via an
828	* intermediate array of indexes.
829	*/
830	std::vector<size_t> vIndexes(cMachines);
831	for (size_t i = 0; i < cMachines; ++i)
832	vIndexes[i] = i;
833
834	if (enmSortOrder != kSortOrder_None)
835	{
836	struct SortBy {
837	const std::vector<com::Bstr> &ks;
838	SortBy(const std::vector<com::Bstr> &aKeys) : ks(aKeys) {}
839	bool operator() (size_t l, size_t r) { return ks[l] < ks[r]; }
840	};
841
842	std::sort(vIndexes.begin(), vIndexes.end(),
843	SortBy(enmSortOrder == kSortOrder_Name
844	? vBstrNames : vBstrIds));
845	}
846
847
848	if (enmFormat == kFormat_Short)
849	{
850	for (size_t i = 0; i < cMachines; ++i)
851	{
852	const size_t idx = vIndexes[i];
853	const com::Bstr &bstrId = vBstrIds[idx];
854	const com::Bstr &bstrName = vBstrNames[idx];
855
856	RTPrintf("%ls %ls\n", bstrId.raw(), bstrName.raw());
857	}
858	}
859	else // kFormat_Long
860	{
861	for (size_t i = 0; i < cMachines; ++i)
862	{
863	const size_t idx = vIndexes[i];
864	const ComPtr<ICloudMachine> &pMachine = vMachines[idx];
865
866	if (i != 0)
867	RTPrintf("\n");
868	printMachineInfo(pMachine);
869	}
870	}
871
872	return RTEXITCODE_SUCCESS;
873	}
874
875
876	/*
877	* cloud showvminfo "id"
878	*
879	* Alias for "cloud machine info" that tries to match the local vm
880	* counterpart.
881	*/
882	RTEXITCODE
883	handleCloudShowVMInfo(HandlerArg *a, int iFirst,
884	const char *pcszProviderName,
885	const char *pcszProfileName)
886	{
887	CMachineHandlerArg handlerArg(*a);
888	int vrc = getCloudClient(handlerArg, pcszProviderName, pcszProfileName);
889	if (RT_FAILURE(vrc))
890	return RTEXITCODE_FAILURE;
891
892	return handleCloudMachineInfo(&handlerArg, iFirst);
893	}
894
895
896	/*
897	* cloud machine info "id" ...
898	*/
899	static RTEXITCODE
900	handleCloudMachineInfo(CMachineHandlerArg *a, int iFirst)
901	{
902	enum
903	{
904	kMachineInfoIota = 1000,
905	kMachineInfo_Details,
906	};
907
908	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_INFO);
909	static const RTGETOPTDEF s_aOptions[] =
910	{
911	{ "--details", kMachineInfo_Details, RTGETOPT_REQ_NOTHING },
912	CLOUD_MACHINE_RTGETOPTDEF_MACHINE,
913	CLOUD_MACHINE_RTGETOPTDEF_HELP
914	};
915
916	RTGETOPTSTATE OptState;
917	int vrc = RTGetOptInit(&OptState, a->argc, a->argv, s_aOptions, RT_ELEMENTS(s_aOptions),
918	iFirst, RTGETOPTINIT_FLAGS_NO_STD_OPTS);
919	AssertRCReturn(vrc, RTMsgErrorExit(RTEXITCODE_INIT, "RTGetOptInit: %Rra", vrc));
920
921	int ch;
922	RTGETOPTUNION Val;
923	while ((ch = RTGetOpt(&OptState, &Val)) != 0)
924	{
925	vrc = checkMachineSpecArgument(a, ch, Val);
926	if (vrc == VINF_SUCCESS)
927	continue;
928	if (vrc == VINF_CALLBACK_RETURN)
929	return RTEXITCODE_SUCCESS;
930	if (vrc == VERR_PARSE_ERROR)
931	return RTEXITCODE_SYNTAX;
932
933	switch (ch)
934	{
935	case kMachineInfo_Details:
936	/* currently no-op */
937	break;
938
939	default:
940	return RTGetOptPrintError(ch, &Val);
941	}
942	}
943
944	HRESULT hrc = getMachineBySpec(a);
945	if (FAILED(hrc))
946	return RTEXITCODE_FAILURE;
947
948	/* end of boilerplate */
949
950
951	hrc = printMachineInfo(a->pMachine);
952	if (FAILED(hrc))
953	return RTEXITCODE_FAILURE;
954
955	return RTEXITCODE_SUCCESS;
956	}
957
958
959	static HRESULT
960	printMachineInfo(const ComPtr<ICloudMachine> &pMachine)
961	{
962	HRESULT hrc;
963
964	com::Bstr bstrId;
965	CHECK_ERROR2_RET(hrc, pMachine,
966	COMGETTER(Id)(bstrId.asOutParam()),
967	hrc);
968	RTPrintf("UUID: %ls\n", bstrId.raw());
969
970
971	/*
972	* Check if the machine is accessible and print the error
973	* message if not.
974	*/
975	BOOL fAccessible = FALSE;
976	CHECK_ERROR2_RET(hrc, pMachine,
977	COMGETTER(Accessible)(&fAccessible), hrc);
978
979	if (!fAccessible)
980	{
981	RTMsgError(CloudMachine::tr("machine is not accessible")); // XXX: Id?
982
983	ComPtr<IVirtualBoxErrorInfo> pErrorInfo;
984	CHECK_ERROR2_RET(hrc, pMachine,
985	COMGETTER(AccessError)(pErrorInfo.asOutParam()), hrc);
986
987	while (!pErrorInfo.isNull())
988	{
989	com::Bstr bstrText;
990	CHECK_ERROR2_RET(hrc, pErrorInfo,
991	COMGETTER(Text)(bstrText.asOutParam()), hrc);
992	RTStrmPrintf(g_pStdErr, "%ls\n", bstrText.raw());
993
994	CHECK_ERROR2_RET(hrc, pErrorInfo,
995	COMGETTER(Next)(pErrorInfo.asOutParam()), hrc);
996	}
997
998	return E_FAIL;
999	}
1000
1001
1002	/*
1003	* The machine seems to be ok, print its details.
1004	*/
1005	CloudMachineState_T enmState;
1006	CHECK_ERROR2_RET(hrc, pMachine,
1007	COMGETTER(State)(&enmState),
1008	hrc);
1009	switch (enmState) {
1010	case CloudMachineState_Invalid:
1011	RTPrintf(CloudMachine::tr("State: Invalid (%RU32)\n"), CloudMachineState_Invalid);
1012	break;
1013
1014	case CloudMachineState_Provisioning:
1015	RTPrintf(CloudMachine::tr("State: Provisioning (%RU32)\n"), CloudMachineState_Provisioning);
1016	break;
1017
1018	case CloudMachineState_Running:
1019	RTPrintf(CloudMachine::tr("State: Running (%RU32)\n"), CloudMachineState_Running);
1020	break;
1021
1022	case CloudMachineState_Starting:
1023	RTPrintf(CloudMachine::tr("State: Starting (%RU32)\n"), CloudMachineState_Starting);
1024	break;
1025
1026	case CloudMachineState_Stopping:
1027	RTPrintf(CloudMachine::tr("State: Stopping (%RU32)\n"), CloudMachineState_Stopping);
1028	break;
1029
1030	case CloudMachineState_Stopped:
1031	RTPrintf(CloudMachine::tr("State: Stopped (%RU32)\n"), CloudMachineState_Stopped);
1032	break;
1033
1034	case CloudMachineState_CreatingImage:
1035	RTPrintf(CloudMachine::tr("State: CreatingImage (%RU32)\n"), CloudMachineState_CreatingImage);
1036	break;
1037
1038	case CloudMachineState_Terminating:
1039	RTPrintf(CloudMachine::tr("State: Terminating (%RU32)\n"), CloudMachineState_Terminating);
1040	break;
1041
1042	case CloudMachineState_Terminated:
1043	RTPrintf(CloudMachine::tr("State: Terminated (%RU32)\n"), CloudMachineState_Terminated);
1044	break;
1045
1046	default:
1047	RTPrintf(CloudMachine::tr("State: Unknown state (%RU32)\n"), enmState);
1048	}
1049
1050	ComPtr<IForm> pDetails;
1051	CHECK_ERROR2_RET(hrc, pMachine,
1052	GetDetailsForm(pDetails.asOutParam()), hrc);
1053
1054	if (RT_UNLIKELY(pDetails.isNull()))
1055	{
1056	RTMsgError(CloudMachine::tr("null details")); /* better error message? */
1057	return E_FAIL;
1058	}
1059
1060	com::SafeIfaceArray<IFormValue> aValues;
1061	CHECK_ERROR2_RET(hrc, pDetails,
1062	COMGETTER(Values)(ComSafeArrayAsOutParam(aValues)), hrc);
1063	for (size_t i = 0; i < aValues.size(); ++i)
1064	{
1065	hrc = printFormValue(aValues[i]);
1066	if (FAILED(hrc))
1067	return hrc;
1068	}
1069
1070	return S_OK;
1071	}
1072
1073
1074	static HRESULT
1075	printFormValue(const ComPtr<IFormValue> &pValue)
1076	{
1077	HRESULT hrc;
1078
1079	BOOL fVisible = FALSE;
1080	CHECK_ERROR2_RET(hrc, pValue,
1081	COMGETTER(Visible)(&fVisible), hrc);
1082	if (!fVisible)
1083	return S_OK;
1084
1085
1086	com::Bstr bstrLabel;
1087	CHECK_ERROR2_RET(hrc, pValue,
1088	COMGETTER(Label)(bstrLabel.asOutParam()), hrc);
1089
1090	FormValueType_T enmType;
1091	CHECK_ERROR2_RET(hrc, pValue,
1092	COMGETTER(Type)(&enmType), hrc);
1093
1094	switch (enmType)
1095	{
1096	case FormValueType_Boolean:
1097	{
1098	ComPtr<IBooleanFormValue> pBoolValue;
1099	hrc = pValue.queryInterfaceTo(pBoolValue.asOutParam());
1100	if (FAILED(hrc))
1101	{
1102	RTStrmPrintf(g_pStdErr,
1103	CloudMachine::tr("%ls: unable to convert to boolean value\n"),
1104	bstrLabel.raw());
1105	break;
1106	}
1107
1108	BOOL fSelected;
1109	hrc = pBoolValue->GetSelected(&fSelected);
1110	if (FAILED(hrc))
1111	{
1112	RTStrmPrintf(g_pStdOut,
1113	"%ls: %Rhra", bstrLabel.raw(), hrc);
1114	break;
1115	}
1116
1117	RTPrintf("%ls: %RTbool\n",
1118	bstrLabel.raw(), RT_BOOL(fSelected));
1119	break;
1120	}
1121
1122	case FormValueType_String:
1123	{
1124	ComPtr<IStringFormValue> pStrValue;
1125	hrc = pValue.queryInterfaceTo(pStrValue.asOutParam());
1126	if (FAILED(hrc))
1127	{
1128	RTStrmPrintf(g_pStdErr,
1129	CloudMachine::tr("%ls: unable to convert to string value\n"),
1130	bstrLabel.raw());
1131	break;
1132	}
1133
1134	/*
1135	* GUI hack: if clipboard string is set, it contains
1136	* untruncated long value, usually full OCID, so check it
1137	* first. Make this selectable with an option?
1138	*/
1139	com::Bstr bstrValue;
1140	hrc = pStrValue->COMGETTER(ClipboardString)(bstrValue.asOutParam());
1141	if (FAILED(hrc))
1142	{
1143	RTStrmPrintf(g_pStdOut,
1144	"%ls: %Rhra", bstrLabel.raw(), hrc);
1145	break;
1146	}
1147
1148	if (bstrValue.isEmpty())
1149	{
1150	hrc = pStrValue->GetString(bstrValue.asOutParam());
1151	if (FAILED(hrc))
1152	{
1153	RTStrmPrintf(g_pStdOut,
1154	"%ls: %Rhra", bstrLabel.raw(), hrc);
1155	break;
1156	}
1157	}
1158
1159	RTPrintf("%ls: %ls\n",
1160	bstrLabel.raw(), bstrValue.raw());
1161	break;
1162	}
1163
1164	case FormValueType_RangedInteger:
1165	{
1166	ComPtr<IRangedIntegerFormValue> pIntValue;
1167	hrc = pValue.queryInterfaceTo(pIntValue.asOutParam());
1168	if (FAILED(hrc))
1169	{
1170	RTStrmPrintf(g_pStdErr,
1171	CloudMachine::tr("%ls: unable to convert to integer value\n"),
1172	bstrLabel.raw());
1173	break;
1174	}
1175
1176	LONG lValue;
1177	hrc = pIntValue->GetInteger(&lValue);
1178	if (FAILED(hrc))
1179	{
1180	RTStrmPrintf(g_pStdOut,
1181	"%ls: %Rhra", bstrLabel.raw(), hrc);
1182	break;
1183	}
1184
1185	RTPrintf("%ls: %RI64\n",
1186	bstrLabel.raw(), (int64_t)lValue);
1187	break;
1188	}
1189
1190	case FormValueType_Choice:
1191	{
1192	ComPtr<IChoiceFormValue> pChoiceValue;
1193	hrc = pValue.queryInterfaceTo(pChoiceValue.asOutParam());
1194	if (FAILED(hrc))
1195	{
1196	RTStrmPrintf(g_pStdErr,
1197	CloudMachine::tr("%ls: unable to convert to choice value\n"),
1198	bstrLabel.raw());
1199	break;
1200	}
1201
1202	com::SafeArray<BSTR> aValues;
1203	hrc = pChoiceValue->COMGETTER(Values)(ComSafeArrayAsOutParam(aValues));
1204	if (FAILED(hrc))
1205	{
1206	RTStrmPrintf(g_pStdOut,
1207	CloudMachine::tr("%ls: values: %Rhra"),
1208	bstrLabel.raw(), hrc);
1209	break;
1210	}
1211
1212	LONG idxSelected = -1;
1213	hrc = pChoiceValue->GetSelectedIndex(&idxSelected);
1214	if (FAILED(hrc))
1215	{
1216	RTStrmPrintf(g_pStdOut,
1217	CloudMachine::tr("%ls: selectedIndex: %Rhra"),
1218	bstrLabel.raw(), hrc);
1219	break;
1220	}
1221
1222	if (idxSelected < 0 \|\| (size_t)idxSelected > aValues.size())
1223	{
1224	RTStrmPrintf(g_pStdOut,
1225	CloudMachine::tr("%ls: selected index %RI64 out of range [0, %zu)\n"),
1226	bstrLabel.raw(), (int64_t)idxSelected, aValues.size());
1227	break;
1228	}
1229
1230	RTPrintf("%ls: %ls\n",
1231	bstrLabel.raw(), aValues[idxSelected]);
1232	break;
1233	}
1234
1235	default:
1236	{
1237	RTStrmPrintf(g_pStdOut, CloudMachine::tr("unknown value type %RU32\n"), enmType);
1238	break;
1239	}
1240	}
1241
1242	return S_OK;
1243	}
1244
1245
1246	/*
1247	* Boilerplate code to get machine by name/id from the arguments.
1248	* Shared by action subcommands b/c they currently don't have any
1249	* extra options (but we can't use this for e.g. "info" that has
1250	* --details).
1251	*/
1252	static RTEXITCODE
1253	getMachineFromArgs(CMachineHandlerArg *a, int iFirst)
1254	{
1255	static const RTGETOPTDEF s_aOptions[] =
1256	{
1257	CLOUD_MACHINE_RTGETOPTDEF_MACHINE,
1258	CLOUD_MACHINE_RTGETOPTDEF_HELP
1259	};
1260
1261	RTGETOPTSTATE OptState;
1262	int vrc = RTGetOptInit(&OptState, a->argc, a->argv, s_aOptions, RT_ELEMENTS(s_aOptions),
1263	iFirst, RTGETOPTINIT_FLAGS_NO_STD_OPTS);
1264	AssertRCReturn(vrc, RTMsgErrorExit(RTEXITCODE_INIT, /* internal error */ "RTGetOptInit: %Rra", vrc));
1265
1266	int ch;
1267	RTGETOPTUNION Val;
1268	while ((ch = RTGetOpt(&OptState, &Val)) != 0)
1269	{
1270	vrc = checkMachineSpecArgument(a, ch, Val);
1271	if (vrc == VINF_SUCCESS)
1272	continue;
1273	if (vrc == VINF_CALLBACK_RETURN)
1274	return RTEXITCODE_SUCCESS;
1275	if (vrc == VERR_PARSE_ERROR)
1276	return RTEXITCODE_SYNTAX;
1277
1278	switch (ch)
1279	{
1280	/* no other options currently */
1281	default:
1282	return RTGetOptPrintError(ch, &Val);
1283	}
1284	}
1285
1286	HRESULT hrc = getMachineBySpec(a);
1287	if (FAILED(hrc))
1288	return RTEXITCODE_FAILURE;
1289
1290	return RTEXITCODE_SUCCESS;
1291	}
1292
1293
1294	/*
1295	* cloud machine start "id"
1296	*/
1297	static RTEXITCODE
1298	handleCloudMachineStart(CMachineHandlerArg *a, int iFirst)
1299	{
1300	HRESULT hrc;
1301
1302	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_START);
1303	RTEXITCODE status = getMachineFromArgs(a, iFirst);
1304	if (status != RTEXITCODE_SUCCESS)
1305	return status;
1306
1307
1308	ComPtr<IProgress> pProgress;
1309	CHECK_ERROR2_RET(hrc, a->pMachine,
1310	PowerUp(pProgress.asOutParam()),
1311	RTEXITCODE_FAILURE);
1312
1313	hrc = showProgress(pProgress, SHOW_PROGRESS_NONE);
1314	return SUCCEEDED(hrc) ? RTEXITCODE_SUCCESS : RTEXITCODE_FAILURE;
1315	}
1316
1317
1318	/*
1319	* cloud machine reboot "id"
1320	* "Press" ACPI power button, then power the instance back up.
1321	*/
1322	static RTEXITCODE
1323	handleCloudMachineReboot(CMachineHandlerArg *a, int iFirst)
1324	{
1325	HRESULT hrc;
1326
1327	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_REBOOT);
1328	RTEXITCODE status = getMachineFromArgs(a, iFirst);
1329	if (status != RTEXITCODE_SUCCESS)
1330	return status;
1331
1332
1333	ComPtr<IProgress> pProgress;
1334	CHECK_ERROR2_RET(hrc, a->pMachine,
1335	Reboot(pProgress.asOutParam()),
1336	RTEXITCODE_FAILURE);
1337
1338	hrc = showProgress(pProgress, SHOW_PROGRESS_NONE);
1339	return SUCCEEDED(hrc) ? RTEXITCODE_SUCCESS : RTEXITCODE_FAILURE;
1340	}
1341
1342
1343	/*
1344	* cloud machine reset "id"
1345	* Force power down machine, then power the instance back up.
1346	*/
1347	static RTEXITCODE
1348	handleCloudMachineReset(CMachineHandlerArg *a, int iFirst)
1349	{
1350	HRESULT hrc;
1351
1352	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_RESET);
1353	RTEXITCODE status = getMachineFromArgs(a, iFirst);
1354	if (status != RTEXITCODE_SUCCESS)
1355	return status;
1356
1357
1358	ComPtr<IProgress> pProgress;
1359	CHECK_ERROR2_RET(hrc, a->pMachine,
1360	Reset(pProgress.asOutParam()),
1361	RTEXITCODE_FAILURE);
1362
1363	hrc = showProgress(pProgress, SHOW_PROGRESS_NONE);
1364	return SUCCEEDED(hrc) ? RTEXITCODE_SUCCESS : RTEXITCODE_FAILURE;
1365	}
1366
1367
1368	/*
1369	* cloud machine shutdown "id"
1370	* "Press" ACPI power button.
1371	*/
1372	static RTEXITCODE
1373	handleCloudMachineShutdown(CMachineHandlerArg *a, int iFirst)
1374	{
1375	HRESULT hrc;
1376
1377	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_SHUTDOWN);
1378	RTEXITCODE status = getMachineFromArgs(a, iFirst);
1379	if (status != RTEXITCODE_SUCCESS)
1380	return status;
1381
1382
1383	ComPtr<IProgress> pProgress;
1384	CHECK_ERROR2_RET(hrc, a->pMachine,
1385	Shutdown(pProgress.asOutParam()),
1386	RTEXITCODE_FAILURE);
1387
1388	hrc = showProgress(pProgress, SHOW_PROGRESS_NONE);
1389	return SUCCEEDED(hrc) ? RTEXITCODE_SUCCESS : RTEXITCODE_FAILURE;
1390	}
1391
1392
1393	/*
1394	* cloud machine powerdown "id"
1395	* Yank the power cord.
1396	*/
1397	static RTEXITCODE
1398	handleCloudMachinePowerdown(CMachineHandlerArg *a, int iFirst)
1399	{
1400	HRESULT hrc;
1401
1402	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_POWERDOWN);
1403	RTEXITCODE status = getMachineFromArgs(a, iFirst);
1404	if (status != RTEXITCODE_SUCCESS)
1405	return status;
1406
1407
1408	ComPtr<IProgress> pProgress;
1409	CHECK_ERROR2_RET(hrc, a->pMachine,
1410	PowerDown(pProgress.asOutParam()),
1411	RTEXITCODE_FAILURE);
1412
1413	hrc = showProgress(pProgress, SHOW_PROGRESS_NONE);
1414	return SUCCEEDED(hrc) ? RTEXITCODE_SUCCESS : RTEXITCODE_FAILURE;
1415	}
1416
1417
1418	/*
1419	* cloud machine terminate "id"
1420	* Discard the instance running this machine.
1421	*/
1422	static RTEXITCODE
1423	handleCloudMachineTerminate(CMachineHandlerArg *a, int iFirst)
1424	{
1425	HRESULT hrc;
1426
1427	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_TERMINATE);
1428	RTEXITCODE status = getMachineFromArgs(a, iFirst);
1429	if (status != RTEXITCODE_SUCCESS)
1430	return status;
1431
1432
1433	ComPtr<IProgress> pProgress;
1434	CHECK_ERROR2_RET(hrc, a->pMachine,
1435	Terminate(pProgress.asOutParam()),
1436	RTEXITCODE_FAILURE);
1437
1438	hrc = showProgress(pProgress, SHOW_PROGRESS_NONE);
1439	return SUCCEEDED(hrc) ? RTEXITCODE_SUCCESS : RTEXITCODE_FAILURE;
1440	}
1441
1442
1443	/*
1444	* cloud machine console-history "id"
1445	*/
1446	static RTEXITCODE
1447	handleCloudMachineConsoleHistory(CMachineHandlerArg *a, int iFirst)
1448	{
1449	HRESULT hrc;
1450
1451	// setCurrentSubcommand(HELP_SCOPE_CLOUD_MACHINE_CONSOLEHISTORY);
1452	RTEXITCODE status = getMachineFromArgs(a, iFirst);
1453	if (status != RTEXITCODE_SUCCESS)
1454	return status;
1455
1456
1457	ComPtr<IDataStream> pHistoryStream;
1458	ComPtr<IProgress> pHistoryProgress;
1459	CHECK_ERROR2_RET(hrc, a->pMachine,
1460	GetConsoleHistory(pHistoryStream.asOutParam(),
1461	pHistoryProgress.asOutParam()),
1462	RTEXITCODE_FAILURE);
1463
1464	hrc = showProgress(pHistoryProgress, SHOW_PROGRESS_NONE);
1465	if (FAILED(hrc))
1466	return RTEXITCODE_FAILURE;
1467
1468	bool fEOF = false;
1469	while (!fEOF)
1470	{
1471	com::SafeArray<BYTE> aChunk;
1472	CHECK_ERROR2_RET(hrc, pHistoryStream,
1473	Read(64 *_1K, 0, ComSafeArrayAsOutParam(aChunk)),
1474	RTEXITCODE_FAILURE);
1475	if (aChunk.size() == 0)
1476	break;
1477
1478	RTStrmWrite(g_pStdOut, aChunk.raw(), aChunk.size());
1479	}
1480
1481	return SUCCEEDED(hrc) ? RTEXITCODE_SUCCESS : RTEXITCODE_FAILURE;
1482	}

Note: See TracBrowser for help on using the repository browser.

source: vbox/trunk/src/VBox/Frontends/VBoxManage/VBoxManageCloudMachine.cpp@ 100684

Download in other formats: