--- lib/PXElator/httpd.pm	2009/08/30 22:46:57	385
+++ lib/PXElator/httpd.pm	2009/09/07 21:34:05	390
@@ -173,12 +173,15 @@
 						;
 				}
 
-				if ( $name->can('fork_if_active') ) {
-					$html .= qq| <a href=/start_stop/$name/$_>$_</a>| foreach $name->fork_if_active;
+				my $class = $name;
+				$class =~ s{\.\d+$}{};
+
+				if ( $class->can('fork_if_active') ) {
+					$html .= qq| <a href=/start_stop/$name/$_>$_</a>| foreach $class->fork_if_active;
 				}
 
-				if ( $name->can('actions') ) {
-					$html .= qq| <a href=/action/$name/$_>$_</a>| foreach $name->actions;
+				if ( $class->can('actions') ) {
+					$html .= qq| <a href=/action/$name/$_>$_</a>| foreach $class->actions;
 				}
 			} else {
 				if ( $pid =~ m{^\d+$} ) {
@@ -383,7 +386,7 @@
 		print $client redirect($url), qq|<big>$1 = $2</big><br>Location: <a href="$url">$url</a>|;
 		server::debug( $debug ) if $1 eq 'debug';
 	} elsif ( $path =~ m{^/start_stop/(\S+)} ) {
-		print $client redirect, daemons::start_stop($1);
+		print $client redirect, daemons::start_stop($1,$param);
 	} elsif ( $path =~ m{^/action/([^/]+)/(.+)} ) {
 		$1->$2();
 		print $client redirect;
@@ -401,9 +404,9 @@
 
 	warn 'network ', network::setup();
 
-	daemons::start_stop 'browser', $url;
+	daemons::start_stop 'browser', { url => $url };
 	daemons::start_stop $_ foreach ( qw/dhcpd tftpd dnsd syslogd/ );
-	daemons::start_stop 'kvm' unless $ENV{DEV}; # skip kvm statup when running on real device
+#	daemons::start_stop 'kvm' unless $ENV{DEV}; # skip kvm statup when running on real device
 
 	my $server = IO::Socket::INET->new(
 			Proto     => 'tcp',