rlm@32:
rlm@0:
rlm@37: HERE
rlm@37:
rlm@0:
rlm@40: %shankHash =
rlm@40: (
rlm@40:
rlm@40: big => template2,
rlm@40: basic => template3,
rlm@40: classic => template1,
rlm@40: lines => template4
rlm@40: );
rlm@40:
rlm@40: $target = $shankHash{$style};
rlm@40:
rlm@40:
rlm@40:
rlm@40:
rlm@40: #$r =~ s/inputbox\(\['$target'\], \['inputbox'\]\)\;//;
rlm@40:
rlm@40:
rlm@40:
rlm@40:
rlm@40:
rlm@0: return $r;
rlm@0: }
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0: sub inputbox
rlm@0: {
rlm@0:
rlm@0: #grab the type of template we'll be using <<<<
rlm@0: $type = shift;
rlm@42:
rlm@42: $hashString = shift;
rlm@42: #return $hashString;
rlm@42:
rlm@42: $perl_hash = decode_json $hashString;
rlm@42:
rlm@42: %fieldHash = %$perl_hash;
rlm@42:
rlm@42:
rlm@0: # we have to care about both the type of template and the material and the color. these are stored in $type>>>>
rlm@0:
rlm@0: #Then, update with a special custon paypal form, taken from the paypal folder and specially designed for that particular template.
rlm@0: #will probaly eventually create a script to automate the generation of these files.
rlm@0:
rlm@0:
rlm@0: #take care of everythign but acrylic clear type
rlm@2:
rlm@2: {
rlm@2: local( $/, *FH ) ;
rlm@2: open( FH, "<./paypal/$type.paylist" ) or die "sudden flaming death\n";
rlm@2: $z = ;
rlm@2: }
rlm@0:
rlm@0:
rlm@0: #every type has it's own associated paylist file the contains the things we need
rlm@2:
rlm@47: $z = <
rlm@47: HERE
rlm@47:
rlm@47:
rlm@47:
rlm@47:
rlm@47: $z = $z.'';
rlm@2:
rlm@2:
rlm@42: foreach my $key ( keys %fieldHash )
rlm@42: {
rlm@0:
rlm@42: my $replace = $fieldHash{$key};
rlm@42:
rlm@42: #id="Name" value = "PERL::NAME"
rlm@42:
rlm@42:
rlm@42: $z =~ s/id="$key"/id="$key" value = "$replace"/g;
rlm@0:
rlm@0:
rlm@0: }
rlm@0:
rlm@0:
rlm@42: return $z;
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@42: }
rlm@42:
rlm@42:
rlm@42:
rlm@0:
rlm@0: sub display
rlm@0: {
rlm@0: $all = shift;
rlm@0:
rlm@0:
rlm@40: #~
rlm@40: #~ $t = <
rlm@40: #~
rlm@40: #~
rlm@29:
rlm@24: HERE
rlm@24:
rlm@0: return $t;
rlm@0:
rlm@0: }
rlm@0:
rlm@0:
rlm@0:
rlm@0:
rlm@0: sub gen
rlm@0: {
rlm@0: {
rlm@0: local( $/, *FH ) ;
rlm@0: open( FH, "<./buy.html" ) or die "sudden flaming death\n";
rlm@0: $a = ;
rlm@0: }
rlm@0:
rlm@0: {
rlm@0: local( $/, *FH ) ;
rlm@0: open( FH, "<./top_menu.include" ) or die "sudden flaming death\n";
rlm@0: $b = ;
rlm@0: }
rlm@0:
rlm@44: {
rlm@44: local( $/, *FH ) ;
rlm@44: open( FH, "<./cardDefinitions.JSON" ) or die "sudden flaming death\n";
rlm@44: $c = ;
rlm@44: }
rlm@2:
rlm@44: $a =~s/PERL::DEFS/$c/;
rlm@2:
rlm@40:
rlm@40:
rlm@2: $a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to , but in perl and with more memory problems :)
rlm@2: $b = &material("void_acrylic_clear",1);
rlm@2: $a =~ s/PERL-REPLACE::MATERIALS/$b/; #let's do it again!!! :)
rlm@47:
rlm@47:
rlm@47:
rlm@47: $b = "big_acrylic_clear";
rlm@47: $a =~ s/PERL::INITIALCARD/$b/;
rlm@22: $b = &template("big_acrylic_clear");
rlm@40: $a =~ s/PERL-REPLACE::TEMPLATES/$b/;
rlm@2:
rlm@22: $b = &display("big_acrylic_clear");
rlm@22: $a =~ s/PERL-REPLACE::DISPLAY/$b/;
rlm@22:
rlm@44: $initials = <The Classic LaserKard.
rlm@24: Balanced and Complete. The original LaserKard. For those that wish to leave no stone unturned. It's all there.
rlm@24: HERE
rlm@24:
rlm@24: $bold = <The Bold Kard.
rlm@24: Austere and Iconic. For those that wish to leave an impression with the power of their name accompanied only by their main method of contact. Bold, period.
rlm@24: HERE
rlm@24:
rlm@24: $arrow = <The Arrow Kard.
rlm@24: Precise and Straightforward. For those that seek to make a statement while being clear and concise. Straight as an arrow.
rlm@24: HERE
rlm@24:
rlm@24: $direct = <The Direct Kard.
rlm@24: Thorough and Distinct. For those that aim to demonstrate their professionalism with style. Push the envelope. Be Direct.
rlm@24: HERE
rlm@24:
rlm@24:
rlm@24:
rlm@24: my %megahash =
rlm@24: (
rlm@24:
rlm@24: 'big' => $bold,
rlm@24:
rlm@24: 'basic' => $arrow,
rlm@24:
rlm@24: 'lines' => $direct,
rlm@24:
rlm@24: 'classic' => $classic,
rlm@24:
rlm@24: 'big_acrylic_clear' => $bold,
rlm@24:
rlm@24: 'classic_acrylic_clear' => $classic,
rlm@24:
rlm@24: 'basic_acrylic_clear' => $arrow,
rlm@24:
rlm@24: 'lines_acrylic_clear' => $direct
rlm@24: );
rlm@24:
rlm@24:
rlm@24:
rlm@2: my $key = shift;
rlm@2:
rlm@24:
rlm@24: if (!$megahash{$key}){return $key;}
rlm@24:
rlm@24: return $megahash{$key};
rlm@24:
rlm@24:
rlm@2:
rlm@2:
rlm@2: }
rlm@23:
rlm@23:
rlm@23:
rlm@23:
rlm@23:
rlm@23:
rlm@23:
rlm@23:
rlm@23: # this here function makes the paypal button go away so people know it's working!
rlm@23: sub vanish
rlm@23: {
rlm@24: return "";
rlm@23:
rlm@23:
rlm@23: }
rlm@23: