[aMail-checkins] CVS: new_project/program/lib Common.pm,1.6,1.7

[Victor A. R. <bi...@us...>]

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