+sub sshfingerprint {
+ my $keys = shift;
+ my $res = '';
+ my $fn = '';
+
+ return '' if (!$keys);
+ do {
+ $fn = tmpnam();
+ } until sysopen(FH, $fn, O_RDWR|O_CREAT|O_EXCL, 0600);
+
+ foreach my $key (split(/<br>/, $keys)) {
+ printf FH "foo %s\n", $key;
+ }
+ close (FH);
+
+ if (open (S, "ssh-keygen -l -f $fn|")) {
+ $res = join("\n", <S>);
+ close (S);
+ }
+ $res =~ s/\n/<br>/g;
+ unlink ($fn);
+ return $res;
+}
+