misc qemu-run tweaks

1 files changed, 12 insertions, 8 deletions

diff --git a/qemu-run b/qemu-run
index 95634a2..e07cfa6 100755
--- a/qemu-run
+++ b/qemu-run
@@ -2,16 +2,19 @@
 use warnings;
 use strict;
 use XML::Parser;
+use Getopt::Std;
 
 # args
-my $name = shift;
+my %opts;
+getopts('dm', \%opts);
+my $name    = shift;
+my $debug   = defined($opts{'d'}) ? 1 : 0;
+my $showmon = defined($opts{'m'}) ? 1 : 0;
 
 # config
-my $debug   = 1;
-my $showmon = 1;
 my $tapup   = "/etc/qemu-virbr0-ifup";
 my $tapdown = "/etc/qemu-virbr0-ifdown";
-my $mondir  = $ENV{HOME} . "/.qemu-run";
+my $mondir  = $ENV{HOME} . "/.qemu-gtk";
 my $monitor = $mondir . "/" . $name . ",server,nowait";
 
 # vars
@@ -253,9 +256,6 @@ if ($graphics) {
 
 print "-- \n" if $debug;
 
-# print it
-print join(", ", map { "\"$_\"" } @cmdline) . "\n";
-
 # prepare
 mkdir $mondir unless -d $mondir;
 unlink($monitor);
@@ -265,6 +265,8 @@ $pid = fork();
 die "fork: $!" unless defined($pid);
 if (0 == $pid) {
 	# child
+	print join(", ", map { "\"$_\"" } @cmdline) . "\n"
+	  if $debug;
 	exec(@cmdline);
 	exit(1);
 }
@@ -273,9 +275,11 @@ if (0 == $pid) {
 @cmdline = ();
 push @cmdline, "qemu-gtk";
 push @cmdline, "-m" if $showmon;
-push @cmdline, "unix:monitor";
+push @cmdline, "unix:$monitor";
 foreach my $i (0 ... 256) {
 	last if -S $monitor;
 	sleep(0.03);
 }
+print join(", ", map { "\"$_\"" } @cmdline) . "\n"
+  if $debug;
 exec(@cmdline);