X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=blobdiff_plain;f=fetch-totp-seed.cgi;h=3bcc4479d020a70857179eb705ff8b6f5bff669b;hp=639b7eb74589bccabdedaf5814b1b18a16496264;hb=refs%2Fheads%2Fmaster;hpb=50a9e1ca77ee3f36febc8afda740f12d2888ae2e

diff --git a/fetch-totp-seed.cgi b/fetch-totp-seed.cgi
index 639b7eb..3bcc447 100644
--- a/fetch-totp-seed.cgi
+++ b/fetch-totp-seed.cgi
@@ -25,11 +25,15 @@ if ($timestamp + 1800 < time()) {
 
 my $filename = $config{totpticketdirectory} . "/" . $random_id;
 open(my $fh, "<", $filename) or &Util::HTMLError("TOTP seed file not found or permission denied: $! ; $filename");
-my $seed = encode_base32(pack('H*', <$fh>));
+my $hex_seed = <$fh>;
+chomp $hex_seed;
+my $accountname = <$fh>;
+chomp $accountname;
+my $seed = encode_base32(pack('H*', $hex_seed));
 close $fh;
 #unlink $filename;
 
-my $totpurl = "otpauth://totp/Debian?secret=$seed&issuer=Debian";
+my $totpurl = "otpauth://totp/Debian:$accountname?secret=$seed&issuer=Debian";
 my $totppng = "data:image/png;base64, " .
 	encode_base64(GD::Barcode::QRcode->new($totpurl,
 					       { ModuleSize => 10 })->plot->png);