Changeset cd72a17ffb136142b5e16c01bf36b8c373f1317b in xas


Ignore:
Timestamp:
09/02/15 14:18:32 (2 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
bbd0f278a66e68cd6b4adb5efaaebac7cd93c4ac
Parents:
055e215ce0a12165c2f11257e1da7997ce00baba
git-author:
Kevin L. Esteb <kevin@…> (09/02/15 14:18:32)
git-committer:
Kevin L. Esteb <kevin@…> (09/02/15 14:18:32)
Message:

Fixed a preceived problem with the environment.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/XAS/Lib/Modules/Environment.pm

    r7963afe8f5afd5280655e4b6642219c0a1503d00 rcd72a17ffb136142b5e16c01bf36b8c373f1317b  
    180180    my $OS = $^O; 
    181181 
    182     if (($OS eq "aix") or ($OS eq 'linux') or ($OS =~ /bsd/)) { 
     182    if ($OS eq "MSWin32") { 
     183 
     184        require Win32; 
     185 
     186        $self->{host} = defined($ENV{'XAS_HOSTNAME'})  
     187            ? $ENV{'XAS_HOSTNAME'}  
     188            : Win32::NodeName(); 
     189 
     190        $self->{root} = Dir(defined($ENV{'XAS_ROOT'})  
     191            ? $ENV{'XAS_ROOT'}  
     192            : ['C:', 'XAS']); 
     193 
     194        $self->{etc} = Dir(defined($ENV{'XAS_ETC'})    
     195            ? $ENV{'XAS_ETC'}    
     196            : [$self->{root}, 'etc']); 
     197 
     198        $self->{tmp} = Dir(defined($ENV{'XAS_TMP'})    
     199            ? $ENV{'XAS_TMP'}    
     200            : [$self->{root}, 'tmp']); 
     201 
     202        $self->{var} = Dir(defined($ENV{'XAS_VAR'})    
     203            ? $ENV{'XAS_VAR'}    
     204            : [$self->{root}, 'var']); 
     205 
     206        $self->{lib} = Dir(defined($ENV{'XAS_LIB'})    
     207            ? $ENV{'XAS_LIB'}    
     208            : [$self->{root}, 'var', 'lib']); 
     209 
     210        $self->{log} = Dir(defined($ENV{'XAS_LOG'})    
     211            ? $ENV{'XAS_LOG'}    
     212            : [$self->{root}, 'var', 'log']); 
     213 
     214        $self->{run} = Dir(defined($ENV{'XAS_RUN'})    
     215            ? $ENV{'XAS_RUN'}    
     216            : [$self->{root}, 'var', 'run']); 
     217 
     218        $self->{spool} = Dir(defined($ENV{'XAS_SPOOL'})  
     219            ? $ENV{'XAS_SPOOL'}  
     220            : [$self->{root}, 'var', 'spool']); 
     221 
     222        $self->{mxmailer}  = defined($ENV{'XAS_MXMAILER'})  
     223            ? $ENV{'XAS_MXMAILER'}  
     224            : 'smtp'; 
     225 
     226        $self->{username} = Win32::LoginName(); 
     227 
     228    } else { 
     229 
     230        # this assumes a unix like working environment 
    183231 
    184232        $self->{host} = defined($ENV{'XAS_HOSTNAME'})  
     
    226274        $self->{username} = getpwuid($<); 
    227275 
    228     } elsif ($OS eq "MSWin32") { 
    229  
    230         require Win32; 
    231  
    232         $self->{host} = defined($ENV{'XAS_HOSTNAME'})  
    233             ? $ENV{'XAS_HOSTNAME'}  
    234             : Win32::NodeName(); 
    235  
    236         $self->{root} = Dir(defined($ENV{'XAS_ROOT'})  
    237             ? $ENV{'XAS_ROOT'}  
    238             : ['C:', 'XAS']); 
    239  
    240         $self->{etc} = Dir(defined($ENV{'XAS_ETC'})    
    241             ? $ENV{'XAS_ETC'}    
    242             : [$self->{root}, 'etc']); 
    243  
    244         $self->{tmp} = Dir(defined($ENV{'XAS_TMP'})    
    245             ? $ENV{'XAS_TMP'}    
    246             : [$self->{root}, 'tmp']); 
    247  
    248         $self->{var} = Dir(defined($ENV{'XAS_VAR'})    
    249             ? $ENV{'XAS_VAR'}    
    250             : [$self->{root}, 'var']); 
    251  
    252         $self->{lib} = Dir(defined($ENV{'XAS_LIB'})    
    253             ? $ENV{'XAS_LIB'}    
    254             : [$self->{root}, 'var', 'lib']); 
    255  
    256         $self->{log} = Dir(defined($ENV{'XAS_LOG'})    
    257             ? $ENV{'XAS_LOG'}    
    258             : [$self->{root}, 'var', 'log']); 
    259  
    260         $self->{run} = Dir(defined($ENV{'XAS_RUN'})    
    261             ? $ENV{'XAS_RUN'}    
    262             : [$self->{root}, 'var', 'run']); 
    263  
    264         $self->{spool} = Dir(defined($ENV{'XAS_SPOOL'})  
    265             ? $ENV{'XAS_SPOOL'}  
    266             : [$self->{root}, 'var', 'spool']); 
    267  
    268         $self->{mxmailer}  = defined($ENV{'XAS_MXMAILER'})  
    269             ? $ENV{'XAS_MXMAILER'}  
    270             : 'smtp'; 
    271  
    272         $self->{username} = Win32::LoginName(); 
    273  
    274     } else { 
    275  
    276         $self->throw_msg( 
    277             'xas.lib.modules.environment.unknownos', 
    278             'environment_unknownos',  
    279             $^O 
    280         ); 
    281  
    282276    } 
    283277 
     
    314308        $self->class->method($datum => sub { 
    315309            my $self = shift; 
    316             my ($p) = $self->validate_params(\@_,  
    317                 [ 
     310            my ($p) = $self->validate_params(\@_, [ 
    318311                    {optional => 1, default => undef, isa => 'Badger::Filesystem::File' } 
    319312                ], 
     
    333326        $self->class->method($datum => sub { 
    334327            my $self = shift; 
    335             my ($p) = $self->validate_params(\@_,  
    336                 [ 
     328            my ($p) = $self->validate_params(\@_, [ 
    337329                    {optional => 1, default => undef, isa => 'Badger::Filesystem::Directory'} 
    338330                ], 
Note: See TracChangeset for help on using the changeset viewer.