#!/usr/bin/perl

 

 

 use List::Util qw(first max maxstr min minstr reduce shuffle sum);

 use Storable;

 use CGI::Ajax;

 use CGI;

 

 

 

 my $q = new CGI;

 

 

 

 my %hash = ( 

 

 'material' => \&material,

 'pokedex'  => \&pokedex,

 'template'	=> \&template, 

 'inputbox'	=> \&inputbox,

 'display'	=> \&display,

 'change_rules' => \&change_rules,

 'vanish'      => \&vanish

 );

 

  

 

 my $pjx = CGI::Ajax->new(%hash);

 #$pjx->JSDEBUG(1);

 #$pjx->DEBUG(1);

 

 print $pjx->build_html($q,\&gen); # this outputs the html for the page

 

 

 

 

 

 sub material{

 	

 	$newvar = shift;

 	

 	my $t = $newvar;

 	

 	$newvar =~ m/([^_]*)_/;

 	$newvar = $1;

 	

 	#return (($t =~ m/_acrylic_green/) ? 'CHECKED' : 'notchecked');

 	

 	#$y = "$t<br>".(($t =~ m/_acrylic_green/) ? 'CHECKED' : 'notchecked')."

 	

 	{

     local( $/, *FH ) ;

     open( FH, "<./buy_pieces/materials2.html" ) or die "sudden flaming death\n";

     $y = <FH>;

 	}

 	

 	@symbols = qw(PERL::ACRYLIC_CLEAR PERL::ACRYLIC_BLUE PERL::ACRYLIC_GREEN PERL::ALUMINUM_RED PERL::ALUMINUM_BLUE PERL::ALUMINUM_GREEN PERL::ALUMINUM_BLACK);

 	

 	for (@symbols)

 	{

 	$c = $_;

 	$c =~ s/PERL:://;

 	$c =~ tr/[A-Z]/[a-z]/;

 	$c =~ s/^/_/;

 	

 	$b = '"'.$newvar.$c.'"'.(($t =~ m/$c/) ? '  CHECKED ' : '');

 	$y =~ s/$_/$b/; 

 	}

 	

 

 	$first = shift;

 	if ($first){  $y =~ s/display[^;]*;//g; }

 	

 		

 	

 	return $y;

 		

 	

 }

 

 

 

 sub template

 {

 	

 $all = shift;

 $all =~ m/_(.*)/;

 

 $materialcolor = $1;

 

 	

 $r = "<div id = \"i_templates\"><titletron>Templates</titletron><br>

 

 <input TYPE=\"image\" src = \"./images/templates/big_$materialcolor.jpg\" 	onmouseover=\"pokedex([\'args__big\'],[\'pokedex\']);\" 	onclick=\"display([\'template2\'], [\'display\']); inputbox([\'template2\'], [\'inputbox\']);material([\'template2\'], [\'materials\']);\" ID=\"template2\" NAME=\"template2\" VALUE=\"big_$materialcolor\"        > <br>

   

 <input TYPE=\"image\" src = \"./images/templates/basic_$materialcolor.jpg\"  onmouseover=\"pokedex([\'args__basic\'],['pokedex\']);\"	onclick=\"display([\'template3\'], [\'display\']); inputbox([\'template3\'], [\'inputbox\']);material([\'template3\'], [\'materials\']);\" ID=\"template3\" NAME=\"template3\" VALUE=\"basic_$materialcolor\"          ><br>

   

 <input TYPE=\"image\" src = \"./images/templates/classic_$materialcolor.jpg\"  onmouseover=\"pokedex([\'args__classic\'],[\'pokedex\']);\"	onclick=\"display([\'template1\'], [\'display\']); inputbox([\'template1\'], [\'inputbox\']);material([\'template1\'], [\'materials\']);\" ID=\"template1\" NAME=\"template1\" VALUE=\"classic_$materialcolor\"    ><br>

  

 <input TYPE=\"image\" src = \"./images/templates/lines_$materialcolor.jpg\"  onmouseover=\"pokedex([\'args__lines\'],[\'pokedex\']);\"	onclick=\"display([\'template4\'], [\'display\']); inputbox([\'template4\'], [\'inputbox\']);material([\'template4\'], [\'materials\']);\" ID=\"template4\" NAME=\"template4\" VALUE=\"lines_$materialcolor\"           > 

 	</div>

 

 ";

 

 return $r;

 }

 

 

 

 

 sub inputbox

 {

 

 #grab the type of template we'll be using <<<<

 	$type = shift;

 #	return $type;

 # we have to care about both the type of template and the material and the color. these are stored in $type>>>>

 

 #Then, update with a special custon paypal form, taken from the paypal folder and specially designed for that particular template.

 #will probaly eventually create a script to automate the generation of these files.

 

 

 #take care of everythign but acrylic clear type

 

 

 

   {

     local( $/, *FH ) ;

     open( FH, "<./paypal/$type.paylist" ) or die "sudden flaming death\n";

     $z = <FH>;

   }

 

 

 #every type has it's own associated paylist file the contains the things we need

 

 $z = '<div id = "whatever" onmouseover='."\"pokedex([\'args__$type\'],[\'pokedex\']);\">".$z.'</div>';

 return $z;

 

 

 

 

 

 }

 

 

 

 

 

 

 

 

 sub display

 {

 	$all = shift;

 	

 	

 	

 	$t = <<HERE;

 	<input TYPE="image" src = "./images/display/PERL::PIC.jpg" 	onmouseover="pokedex(['args__PERL::PIC'],['pokedex']);">

 HERE

 

 

 $t =~ s/PERL::PIC/$all/g;

 

 	

 	

 	return $t;

 	

 }

 

 

 

 

 sub gen

 {

   {

     local( $/, *FH ) ;

     open( FH, "<./buy.html" ) or die "sudden flaming death\n";

     $a = <FH>;

    }

 

   {

     local( $/, *FH ) ;

     open( FH, "<./top_menu.include" ) or die "sudden flaming death\n";

     $b = <FH>;

    }

 

 

 

 $a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to <?php include("top_menu.html"); ?>, but in perl and with more memory problems :)

 $b = &material("void_acrylic_clear",1);

 $a =~ s/PERL-REPLACE::MATERIALS/$b/; #let's do it again!!! :)

 $b = &template("big_acrylic_clear");

 

 #$a =~ s/PERL-REPLACE::TEMPLATES//; 

 $a =~ s/PERL-REPLACE::TEMPLATES/$b/; #comment out one or the other!

 

 $b = &display("big_acrylic_clear");

 $a =~ s/PERL-REPLACE::DISPLAY/$b/;

 

 $b = &inputbox("big_acrylic_clear");

 $a =~ s/PERL-REPLACE::INPUTBOX/$b/;

 

 $b = &pokedex('big');

 $a =~ s/PERL-REPLACE::POKEDEX/$b/;

 

 

 return $a

 

 

 }

 

 

 

 sub pokedex

 {

 

 

 $classic = <<HERE;

 <h1>The Classic LaserKard.</h1>

 Balanced and Complete.  The original LaserKard.  For those that wish to leave no stone unturned.  It's all there.

 HERE

 

 $bold = <<HERE;

 <h1>The Bold Kard.</h1>

 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.

 HERE

 

 $arrow = <<HERE;

 <h1>The Arrow Kard.</h1>

 Precise and Straightforward.  For those that seek to make a statement while being clear and concise. Straight as an arrow.

 HERE

 

 $direct = <<HERE;

 <h1>The Direct Kard.</h1>

 Thorough and Distinct.  For those that aim to demonstrate their professionalism with style.  Push the envelope.  Be Direct.

 HERE

 

 

 

 my %megahash = 

 (

 

 'big' => $bold,

 

 'basic' => $arrow,

 

 'lines' => $direct,

 

 'classic' => $classic,

 

 'big_acrylic_clear' => $bold,

 

 'classic_acrylic_clear' => $classic,

 

 'basic_acrylic_clear'  => $arrow,

 

 'lines_acrylic_clear' => $direct

 );

 

 

 

 my $key = shift;

 

 

 if (!$megahash{$key}){return $key;}

 

 return $megahash{$key};

 

 

 

 

 }

 

 

 

 

 

 

 

 

 # this here function makes the paypal button go away so people know it's working!

 sub vanish

 {

 return "";

 

 

 }