display just part of ssh public key
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 29 Aug 2009 22:10:55 +0000 (22:10 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 29 Aug 2009 22:10:55 +0000 (22:10 +0000)
lib/PXElator/html.pm

index a6af381..062fb88 100644 (file)
@@ -84,6 +84,8 @@ sub conf {
                } else {
                        if ( $name eq 'amt' ) {
                                $html = qq|<a title="$html" href=http://$ip:16992/logon.htm>logon</a>|;
+                       } elsif ( $name eq 'ssh' ) {
+                               $html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 };
                        }
                        $html = qq|<pre style="display: inline">$html</pre>|
                        unless