1.1 --- a/buy.pl	Thu Jan 28 00:32:54 2010 -0500
     1.2 +++ b/buy.pl	Thu Jan 28 04:10:44 2010 -0500
     1.3 @@ -303,7 +303,13 @@
     1.4      $b = <FH>;
     1.5     }
     1.6  
     1.7 +  {
     1.8 +    local( $/, *FH ) ;
     1.9 +    open( FH, "<./cardDefinitions.JSON" ) or die "sudden flaming death\n";
    1.10 +    $c = <FH>;
    1.11 +   }
    1.12  
    1.13 +$a =~s/PERL::DEFS/$c/;
    1.14  
    1.15  
    1.16  
    1.17 @@ -313,16 +319,28 @@
    1.18  $b = &template("big_acrylic_clear");
    1.19  
    1.20  
    1.21 +
    1.22 +
    1.23 +
    1.24  $a =~ s/PERL-REPLACE::TEMPLATES/$b/; 
    1.25  
    1.26  $b = &display("big_acrylic_clear");
    1.27  $a =~ s/PERL-REPLACE::DISPLAY/$b/;
    1.28  
    1.29 -$initials = <<HERE;
    1.30 -{"Email":"rlm\@mit.edu","Name":"Robert McIntyre"}
    1.31 +$initials = <<HERE ;
    1.32 +{
    1.33 +"Name":"James Bond",
    1.34 +"Email":"jbond\@mi6.co.uk",
    1.35 +"Phone": "123.456.7890", 
    1.36 +"Company": "MI6",
    1.37 +"Website" : "http://jamesbond.com",
    1.38 +"Occupation" : "Secret Agent"
    1.39 +}
    1.40 +
    1.41  HERE
    1.42  
    1.43  
    1.44 +
    1.45  $b = &inputbox("big_acrylic_clear", $initials);
    1.46  $a =~ s/PERL-REPLACE::INPUTBOX/$b/;
    1.47