[Rt-commit] r2579 - in experiments/Bamboo: examples/counter/html examples/counter/lib/Bamboo script

[autrijus at bestpractical.com]

Author: autrijus
Date: Sun Apr  3 12:03:02 2005
New Revision: 2579

Modified:
   experiments/Bamboo/examples/counter/html/index.html
   experiments/Bamboo/examples/counter/lib/Bamboo/Server.pm
   experiments/Bamboo/script/bamboo-server
Log:
* get example to run; start merging lib/

Modified: experiments/Bamboo/examples/counter/html/index.html
==============================================================================
--- experiments/Bamboo/examples/counter/html/index.html	(original)
+++ experiments/Bamboo/examples/counter/html/index.html	Sun Apr  3 12:03:02 2005
@@ -1,5 +1,5 @@
 %# View
-Current <a href="Counter.html">counter</a> is <% $::c->{cnt}->get('value') %>.
+Current <a href="">counter</a> is <% $::c->{cnt}->get('value') %>.
 
 <form method="post">
 

Modified: experiments/Bamboo/examples/counter/lib/Bamboo/Server.pm
==============================================================================
--- experiments/Bamboo/examples/counter/lib/Bamboo/Server.pm	(original)
+++ experiments/Bamboo/examples/counter/lib/Bamboo/Server.pm	Sun Apr  3 12:03:02 2005
@@ -4,7 +4,7 @@
 use FindBin;
 
 sub mason_config {
-    return ( comp_root => "$FindBin::Bin/../html");
+    return ( comp_root => "$FindBin::Bin/../$::app/html");
 }
 
 1;

Modified: experiments/Bamboo/script/bamboo-server
==============================================================================
--- experiments/Bamboo/script/bamboo-server	(original)
+++ experiments/Bamboo/script/bamboo-server	Sun Apr  3 12:03:02 2005
@@ -3,10 +3,11 @@
 use warnings;
 use strict;
 
-BEGIN {
-    use FindBin;
-    use lib $FindBin::Bin."/../lib"
-};
+# XXX FIXME TODO WRONG
+our $app;
+BEGIN { $app = (shift || 'examples/counter') };
+use FindBin;
+use lib "$FindBin::Bin/../$app/lib";
 
 use Bamboo;
 my $s = Bamboo::Server->new(8888);