--- trunk/example/demo1.cgi	2005/02/14 18:52:26	1
+++ trunk/example/demo1.cgi	2005/02/14 18:59:03	2
@@ -1,11 +1,13 @@
-#!/usr/bin/speedy -w
+#!/usr/bin/perl -w
 
 # uncomment this when doing maintenance work:
 # print "Content-Type: text/html\n\n";
 # print "Database temporarily disabled for maintenance.<br>\n";
 # exit;
 
-use lib "/usr/local/gedafe/lib/perl";
+use constant BASE_DIR => '/home/dpavlin/public_html/gedafe';
+
+use lib BASE_DIR.'/lib/perl';
 
 use Gedafe::Start;
 
@@ -14,8 +16,8 @@
 Start(
     db_datasource  => 'dbi:Pg:dbname=demo1',
     list_rows      => 15,
-    templates      => '/usr/local/gedafe/example/templates',
-    pearl_dir      => '/usr/local/gedafe/example/mypearls',
+    templates      => BASE_DIR.'/example/templates',
+    pearl_dir      => BASE_DIR.'/example/mypearls',
     isearch        => 'java/isearch.jar',
     show_row_count => 0,
 );