#!/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);

 

  

 

 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\">Templates:<br>

    <input TYPE=\"image\" src = \"./templates/thumbnails/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\"    >

    <input TYPE=\"image\" src = \"./templates/thumbnails/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\"        >

    <input TYPE=\"image\" src = \"./templates/thumbnails/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\"          > 

    <input TYPE=\"image\" src = \"./templates/thumbnails/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 ="

 	<input TYPE=\"image\" src = \"./templates/display/$all.jpg\" >

 	";

 	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("classic_acrylic_clear");

 

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

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

 

 

 

 return $a

 

 

 }

 

 

 

 sub pokedex

 {

 

 my $key = shift;

 

 return $key;

 

 

 }