App-feedback fix

This commit is contained in:
ragu 2022-07-20 06:54:17 +02:00
parent 9a036e363a
commit 7442d49f11
9 changed files with 40 additions and 18 deletions

View file

@ -271,7 +271,7 @@ sub save_account(){
print FILE "Prepare SWK Bonusnr by prefix $valxx" . "\n" if($debug);
}
#Freischaltcode format can be "CA-Li-hsze789k" or "CA1234567"
if($valxx && ($valxx =~ /^(\w{2,3})-([\w\-]+)/i || $valxx =~ /^(\w{2,3})(\d+)/)){
if($valxx && ($valxx =~ /^(\w{2,3})-([\w\-]+)/i || $valxx =~ /^(\w{2,3})(\d+)/i)){
$valxx =~ s/\s//g;
my $bonus_prefix = uc($1),
my $bonusnr = $2;