Mercurial > laserkard

comparison buy.pl @ 44:1045db9799e3 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r45] Greatly Enhanced Responsiveness of the website.
author rlm
date Thu, 28 Jan 2010 04:10:44 -0500
parents ef8615de8a9c
children 4431dc7d4bb5
comparison
equal deleted inserted replaced
43:329638a361cc 44:1045db9799e3
301 local( $/, *FH ) ; 301 local( $/, *FH ) ;
302 open( FH, "<./top_menu.include" ) or die "sudden flaming death\n"; 302 open( FH, "<./top_menu.include" ) or die "sudden flaming death\n";
303 $b = <FH>; 303 $b = <FH>;
304 } 304 }
305 305
306 306 {
307 local( $/, *FH ) ;
308 open( FH, "<./cardDefinitions.JSON" ) or die "sudden flaming death\n";
309 $c = <FH>;
310 }
311
312 $a =~s/PERL::DEFS/$c/;
307 313
308 314
309 315
310 $a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to <?php include("top_menu.html"); ?>, but in perl and with more memory problems :) 316 $a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to <?php include("top_menu.html"); ?>, but in perl and with more memory problems :)
311 $b = &material("void_acrylic_clear",1); 317 $b = &material("void_acrylic_clear",1);
312 $a =~ s/PERL-REPLACE::MATERIALS/$b/; #let's do it again!!! :) 318 $a =~ s/PERL-REPLACE::MATERIALS/$b/; #let's do it again!!! :)
313 $b = &template("big_acrylic_clear"); 319 $b = &template("big_acrylic_clear");
314 320
315 321
322
323
324
316 $a =~ s/PERL-REPLACE::TEMPLATES/$b/; 325 $a =~ s/PERL-REPLACE::TEMPLATES/$b/;
317 326
318 $b = &display("big_acrylic_clear"); 327 $b = &display("big_acrylic_clear");
319 $a =~ s/PERL-REPLACE::DISPLAY/$b/; 328 $a =~ s/PERL-REPLACE::DISPLAY/$b/;
320 329
321 $initials = <<HERE; 330 $initials = <<HERE ;
322 {"Email":"rlm\@mit.edu","Name":"Robert McIntyre"} 331 {
323 HERE 332 "Name":"James Bond",
333 "Email":"jbond\@mi6.co.uk",
334 "Phone": "123.456.7890",
335 "Company": "MI6",
336 "Website" : "http://jamesbond.com",
337 "Occupation" : "Secret Agent"
338 }
339
340 HERE
341
324 342
325 343
326 $b = &inputbox("big_acrylic_clear", $initials); 344 $b = &inputbox("big_acrylic_clear", $initials);
327 $a =~ s/PERL-REPLACE::INPUTBOX/$b/; 345 $a =~ s/PERL-REPLACE::INPUTBOX/$b/;
328 346