Hallo,
mit diesem kleinen Script kann man Gutschein-Codes generieren.
(natürlich auch beliebige andere Codes wenn man das Script entsprechend anpasst)
<!--spmacro:module(print)
sub code {
my $pre = "_GS_";
@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9);
$code = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);
main::mprint $pre.$code;
}
-->
tragen Sie bei my $pre = " " Ihren Gutscheinpräfix ein.
Es wird ein zufälliger Code mit 8 Zeichen (Großbuchstaben, Kleinbuchstaben und Zahlen) und vorangestelltem Gutscheinpräfix generiert.
Kann man z.B. dazu verwenden, um den Wertgutscheinverkauf vollständig zu automatisieren.
Bestellt der Kunde Wertgutscheine mit Kreditkarte, Sofortüberweisung oder anderer sofort akzeptierter Zahlart,
wird der GS-Code mit Wert, Gültigkeitsdatum und "Stückzahl begrenzen = 1" in die DB geschrieben,
der Kunde erhält mit der Bestätigungsmail auch den GS-Code und kann den GS sofort einlösen.
Mit Daten einlesen sind diese Daten auch im WC vorhanden und können wie gewohnt exportiert werden.
(oder auch, wenn man GS manuell eintragen und sich den Code nicht selber ausdenken will
)
Autor
