oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added user selectable subscription code length

Browse source
This commit is contained in:
Martin Kamerbeek 2004-12-09 17:51:35 +00:00
parent f6bfb6b9bb
commit 5088d61069
2 changed files with 32 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lib/WebGUI/Operation/Subscription.pm
View file

@ -16,6 +16,19 @@ use WebGUI::Template;
use WebGUI::Form;
use WebGUI::International;
#-------------------------------------------------------------------
sub _generateCode {
my ($codeLength, @codeElements, $code, $i);
$codeLength = shift || 64;
@codeElements = ('A'..'Z', 'a'..'z', 0..9, '-');
for ($i=0; $i < $codeLength; $i++) {
$code .= $codeElements[rand(63)];
}
return $code;
}
#-------------------------------------------------------------------
sub _submenu {
my $i18n = WebGUI::International->new("Subscription");
@ -56,6 +69,11 @@ sub www_createSubscriptionCodeBatch {
-label => $i18n->get('noc'),
-value => $session{form}{noc} || 1
);
$f->integer(
-name => 'codeLength',
-label => $i18n->get('code length'),
-value => $session{form}{codeLength} || 64
);
$f->interval(
-name => 'expires',
-label => $i18n->get('codes expire'),
@ -94,19 +112,18 @@ sub www_createSubscriptionCodeBatchSave {
push(@error, $i18n->get('no description error')) unless ($description);
push(@error, $i18n->get('no association error')) unless ($session{form}{subscriptionId});
push(@error, $i18n->get('code length error')) unless ($session{form}{codeLength} >= 10 && $session{form}{codeLength} <= 64 && $session{form}{codeLength} =~ m/^\d\d$/);
return www_createSubscriptionCodeBatch(\@error) if (@error);
$creationEpoch = time();
WebGUI::SQL->write("insert into subscriptionCodeBatch (batchId, description) values (".
quote($batchId).", ".quote($description).")");
@codeElements = ('A'..'Z', 'a'..'z', 0..9, '-');
for ($currentCode=0; $currentCode < $numberOfCodes; $currentCode++) {
$code = "";
for ($i=0; $i < 64; $i++) {
$code .= $codeElements[rand(63)];
}
$code = _generateCode($session{form}{codeLength});
$code = _generateCode($session{form}{codeLength}) while (WebGUI::SQL->quickArray("select code from subscriptionCode where code=".quote($code)));
WebGUI::SQL->write("insert into subscriptionCode (batchId, code, status, dateCreated, dateUsed, expires, usedBy)".
" values (".quote($batchId).",".quote($code).", 'Unused', ".quote($creationEpoch).", 0, ".quote($expires).", 0)");

10
lib/WebGUI/i18n/English/Subscription.pm
View file

@ -369,6 +369,16 @@ The form in which the user can enter his subscription code.<br>|,
lastUpdated => 1101754848,
context => q|The title of the help page of the code redemption template.|
},
'code length' => {
message => q|Subscription code length|,
lastUpdated => 0,
context => q|The label of the formfield in which the length of a subscription code is entered.|
},
'code length error' => {
message => q|You must enter a subscription code length between 10 and 64 (border values included).|,
lastUpdated => 0,
context => q|The error message that shows up when a wrong code length is specified.|
},
};