[otrs-cvs] Support/Kernel/System/Support Webserver.pm,1.5,1.6

[CVS commits notifications of OTRS.org]

Comments:
Update of /home/cvs/Support/Kernel/System/Support
In directory lancelot:/tmp/cvs-serv15646/Kernel/System/Support

Modified Files:
	Webserver.pm 
Log Message:
Improved descriptions.

Author: martin

Index: Webserver.pm
===================================================================
RCS file: /home/cvs/Support/Kernel/System/Support/Webserver.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Webserver.pm	22 Nov 2007 13:05:10 -0000	1.5
--- Webserver.pm	1 May 2008 16:54:57 -0000	1.6
***************
*** 1,5 ****
  # --
  # Kernel/System/Support/Webserver.pm - all required system informations
! # Copyright (C) 2001-2007 OTRS GmbH, http://otrs.org/
  # --
  # $Id$
--- 1,5 ----
  # --
  # Kernel/System/Support/Webserver.pm - all required system informations
! # Copyright (C) 2001-2008 OTRS AG, http://otrs.org/
  # --
  # $Id$
***************
*** 7,11 ****
  # This software comes with ABSOLUTELY NO WARRANTY. For details, see
  # the enclosed file COPYING for license information (GPL). If you
! # did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
  # --
  
--- 7,11 ----
  # This software comes with ABSOLUTELY NO WARRANTY. For details, see
  # the enclosed file COPYING for license information (GPL). If you
! # did not receive this file, see http://www.gnu.org/licenses/gpl-2.0.txt.
  # --
  
***************
*** 210,215 ****
      }
      if ( ref( $Param{ModuleInputHash} ) ne 'HASH' ) {
!         $Self->{LogObject}
!             ->Log( Priority => 'error', Message => "ModuleInputHash must be a hash reference!" );
          return;
      }
--- 210,217 ----
      }
      if ( ref( $Param{ModuleInputHash} ) ne 'HASH' ) {
!         $Self->{LogObject}->Log(
!             Priority => 'error',
!             Message  => 'ModuleInputHash must be a hash reference!',
!         );
          return;
      }
***************
*** 239,246 ****
  
      # try to get availible modules and the directory name
!     my $DirName = $Self->{ConfigObject}->Get('Home') . "/Kernel/System/Support/Webserver";
  
      # read all availible modules in @List
!     my @List = glob( $DirName . "/*.pm" );
      for my $File (@List) {
  
--- 241,248 ----
  
      # try to get availible modules and the directory name
!     my $DirName = $Self->{ConfigObject}->Get('Home') . '/Kernel/System/Support/Webserver';
  
      # read all availible modules in @List
!     my @List = glob( $DirName . '/*.pm' );
      for my $File (@List) {
  
***************
*** 320,334 ****
      my $WebserverType = '';
      if ( $ENV{SERVER_SOFTWARE} =~ /^.*Apache.*$/i ) {
!         $WebserverType = 'Apache.pm';
      }
      else {
!         $WebserverType = 'IIS.pm';
      }
  
      # try to get availible modules and the directory name
!     my $DirName = $Self->{ConfigObject}->Get('Home') . "/Kernel/System/Support/Webserver";
  
      # read all availible modules in @List
!     my @List = glob( $DirName . "/*.pm" );
      for my $File (@List) {
  
--- 322,336 ----
      my $WebserverType = '';
      if ( $ENV{SERVER_SOFTWARE} =~ /^.*Apache.*$/i ) {
!         $WebserverType = 'Apache';
      }
      else {
!         $WebserverType = 'IIS';
      }
  
      # try to get availible modules and the directory name
!     my $DirName = $Self->{ConfigObject}->Get('Home') . '/Kernel/System/Support/Webserver';
  
      # read all availible modules in @List
!     my @List = glob( $DirName . '/*.pm' );
      for my $File (@List) {
  
***************
*** 410,414 ****
  This software comes with ABSOLUTELY NO WARRANTY. For details, see
  the enclosed file COPYING for license information (GPL). If you
! did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
  
  =cut
--- 412,416 ----
  This software comes with ABSOLUTELY NO WARRANTY. For details, see
  the enclosed file COPYING for license information (GPL). If you
! did not receive this file, see http://www.gnu.org/licenses/gpl-2.0.txt.
  
  =cut