ports/www/amphetadesk/files/patch-lib_AmphetaDesk_Settings.pm

--- lib/AmphetaDesk/Settings.pm.orig	Mon Oct 28 14:40:19 2002
+++ lib/AmphetaDesk/Settings.pm	Mon Oct 10 17:05:56 2005
@@ -33,7 +33,6 @@
 
 # where are we?
 use FindBin qw($Bin);
-BEGIN { unshift(@INC, catdir($Bin, "lib")); }
 
 # where we store our
 # in-memory settings.
@@ -105,9 +104,9 @@
    $SETTINGS{app_contact}                     = "Morbus Iff";
    $SETTINGS{app_email}                       = "morbus\@disobey.com";
    $SETTINGS{app_os}                          = $^O;
-   $SETTINGS{dir_data}                        = catdir($Bin, "data");
-   $SETTINGS{dir_docs}                        = catdir($Bin, "docs");
-   $SETTINGS{dir_templates}                   = catdir($Bin, "templates", "default");
+   $SETTINGS{dir_data}                        = catdir($ENV{'HOME'}, ".amphetadesk", "data");
+   $SETTINGS{dir_docs}                        = "%%DOCSDIR%%";
+   $SETTINGS{dir_templates}                   = catdir("%%DATADIR%%", "templates", "default");
    $SETTINGS{dir_gui}                         = catdir($SETTINGS{dir_templates}, "gui");
    $SETTINGS{dir_data_channels}               = catdir($SETTINGS{dir_data}, "channels");
    $SETTINGS{dir_data_lists}                  = catdir($SETTINGS{dir_data}, "lists");