--- trunk/bin/designer.pl	2008/08/10 16:01:07	164
+++ trunk/bin/designer.pl	2008/08/11 19:30:30	165
@@ -13,11 +13,13 @@
 
 my $designer = Frey::Designer->new( uri => 'http://www.carnet.hr' );
 
+my $port = $ENV{FREY_PORT} || 14000;
+
 my $engine = HTTP::Engine->new(YAML::Load(qq{
 interface:
   module: ServerSimple
   args:
-    port: 14000
+    port: $port
   request_handler: main::handler
 }));
 $engine->run;