Some people don't have 20/20 vision, so elide 'I' and '1' from the
characters in the confirmation image. en/gifs/1.pnm and en/gifs/I.pnm will be safe to remove 45 minutes after the next web build and not before, so I'll do that tomorrow. PR: www/69676
This commit is contained in:
parent
310f3da377
commit
798c983fea
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=21711
3 changed files with 11 additions and 11 deletions
|
|
@ -1,6 +1,6 @@
|
|||
#!/usr/bin/perl -T
|
||||
#
|
||||
# $FreeBSD: www/en/cgi/sendpr-code.cgi,v 1.1 2003/12/14 17:28:13 ceri Exp $
|
||||
# $FreeBSD: www/en/cgi/sendpr-code.cgi,v 1.2 2004/01/03 21:24:51 ceri Exp $
|
||||
#
|
||||
# Copyright (c) 2003 Eric Anderson
|
||||
|
||||
|
|
@ -15,9 +15,9 @@ my($fd, $db_obj, %db_hash, $currenttime, $randomcode, $pngbindata, $randompick,
|
|||
my($expiretime, $pnmcat, $pnmtopng, $pnmdatadir, $dbpath);
|
||||
|
||||
############################################
|
||||
# generate 8 charactor code from A-Z0-9 (no o,O,0)
|
||||
my @availchars = qw(A B C D E F G H I J K L M N P Q R S T U V W X Y Z
|
||||
1 2 3 4 5 6 7 8 9);
|
||||
# generate 8 character code from A-Z0-9 (no I,O,0,1 for clarity)
|
||||
my @availchars = qw(A B C D E F G H J K L M N P Q R S T U V W X Y Z
|
||||
2 3 4 5 6 7 8 9);
|
||||
|
||||
$pnmcat = "/usr/local/bin/pnmcat";
|
||||
$pnmtopng = "/usr/local/bin/pnmtopng";
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
#!/usr/bin/perl -T
|
||||
#
|
||||
# $FreeBSD: www/en/cgi/sendpr-code.cgi,v 1.1 2003/12/14 17:28:13 ceri Exp $
|
||||
# $FreeBSD: www/en/cgi/sendpr-code.cgi,v 1.2 2004/01/03 21:24:51 ceri Exp $
|
||||
#
|
||||
# Copyright (c) 2003 Eric Anderson
|
||||
|
||||
|
|
@ -15,9 +15,9 @@ my($fd, $db_obj, %db_hash, $currenttime, $randomcode, $pngbindata, $randompick,
|
|||
my($expiretime, $pnmcat, $pnmtopng, $pnmdatadir, $dbpath);
|
||||
|
||||
############################################
|
||||
# generate 8 charactor code from A-Z0-9 (no o,O,0)
|
||||
my @availchars = qw(A B C D E F G H I J K L M N P Q R S T U V W X Y Z
|
||||
1 2 3 4 5 6 7 8 9);
|
||||
# generate 8 character code from A-Z0-9 (no I,O,0,1 for clarity)
|
||||
my @availchars = qw(A B C D E F G H J K L M N P Q R S T U V W X Y Z
|
||||
2 3 4 5 6 7 8 9);
|
||||
|
||||
$pnmcat = "/usr/local/bin/pnmcat";
|
||||
$pnmtopng = "/usr/local/bin/pnmtopng";
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue