[aMail-checkins] CVS: new_project/program/lib Common.pm,1.6,1.7
Brought to you by:
bit-man
|
From: Victor A. R. <bi...@us...> - 2002-08-24 17:52:32
|
Update of /cvsroot/amail/new_project/program/lib
In directory usw-pr-cvs1:/tmp/cvs-serv23128/program/lib
Modified Files:
Common.pm
Log Message:
Minimum Common.pm update: host IP addres is taken from environment variable set by CGI interface
Index: Common.pm
===================================================================
RCS file: /cvsroot/amail/new_project/program/lib/Common.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Common.pm 31 Jul 2002 17:46:32 -0000 1.6
--- Common.pm 24 Aug 2002 17:52:29 -0000 1.7
***************
*** 110,122 ****
###
### The next variables define the location for all the file components
###
! my $man_URL = "http://127.0.0.1/aMail/man"; ## Manual pages
! my $skin_URL = "http://127.0.0.1/aMail/media/skins"; ## Skins
! my $dir_URL = "http://127.0.0.1/cgi-bin/aMail"; ## cgi-bin (Perl scripts)
my $db_path = "/home/bit-man/aMail/initialize_user"; ## User data
! my $img_URL = "http://127.0.0.1/aMail/media/images"; ## Images base (modified
## on language basis)
--- 110,124 ----
+ my $localhost = $ENV{'SERVER_ADDR'}; # This host !!
+
###
### The next variables define the location for all the file components
###
! my $man_URL = "http://$localhost/aMail/man"; ## Manual pages
! my $skin_URL = "http://$localhost/aMail/media/skins"; ## Skins
! my $dir_URL = "http://$localhost/cgi-bin/aMail"; ## cgi-bin (Perl scripts)
my $db_path = "/home/bit-man/aMail/initialize_user"; ## User data
! my $img_URL = "http://$localhost/aMail/media/images"; ## Images base (modified
## on language basis)
***************
*** 131,135 ****
# ********************* Remove above testing ****************************
! my $lang = 'en'; # Preferred system language
#my $spellpath = ""; # OS path to ispell/aspell null disables spelling feature.
my %spell_dictionary = ( # Dictionaries for ispell
--- 133,137 ----
# ********************* Remove above testing ****************************
! my $lang = 'es'; # Preferred system language
#my $spellpath = ""; # OS path to ispell/aspell null disables spelling feature.
my %spell_dictionary = ( # Dictionaries for ispell
|