start/stop kvm

diff --git a/lib/PXElator/html.pm b/lib/PXElator/html.pm
index a2845cd..5370e63 100644 (file)
--- a/lib/PXElator/html.pm
+++ b/lib/PXElator/html.pm
@@ -98,6 +98,8 @@ sub conf {
                        } elsif ( $name eq 'ssh' ) {
                                $html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 };
                                chomp($html);
+                       } elsif ( $name eq 'kvm' ) {
+                               $html = qq|<a href="/start_stop/kvm?nr=$html">$html</a>|;
                        }
                        $html = qq|<tt>$html</tt>|
                        unless