[otrs-cvs] Support/Kernel/System/Support Webserver.pm,1.2,1.3

[cvs-log at otrs.org]

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

Modified Files:
	Webserver.pm 
Log Message:
Fix bug in Webserver.pm

Author: sr

Index: Webserver.pm
===================================================================
RCS file: /home/cvs/Support/Kernel/System/Support/Webserver.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Webserver.pm	23 May 2007 18:08:21 -0000	1.2
--- Webserver.pm	11 Jul 2007 10:20:50 -0000	1.3
***************
*** 117,132 ****
      my $ConfigArray = [
          {
!             Key => 'TicketDump',
!             Name => 'Dump Tickets',
!             Description => 'Please tell me how many latest Tickets we shut dump?',
              Input => {
!                 Type => 'Select',
!                 Data => {
!                     All => 'All',
!                     0 => '0',
!                     10 => 'Last 10',
!                     100 => 'Last 100',
!                     1000 => 'Last 1000',
!                 },
              },
          },
--- 117,126 ----
      my $ConfigArray = [
          {
!             Key => 'ApacheHome',
!             Name => 'Apache Home Directory',
!             Description => 'Please tell me the path to the Apache home directory (/etc/apache2)',
              Input => {
!                 Type => 'Text',
!                 Size => 40,
              },
          },
***************
*** 228,237 ****
      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";
--- 222,230 ----
      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";
***************
*** 248,252 ****
                  my $SupportObject = $GenericModule->new(%{$Self});
                  if ($SupportObject) {
!                     my $ArrayRef = $SupportObject->SupportInfoGet();
                      if ($ArrayRef && ref($ArrayRef) eq 'ARRAY') {
                          push (@{$DataArray}, @{$ArrayRef});
--- 241,247 ----
                  my $SupportObject = $GenericModule->new(%{$Self});
                  if ($SupportObject) {
!                     my $ArrayRef = $SupportObject->SupportInfoGet(
!                         ModuleInputHash => $Param{ModuleInputHash},
!                     );
                      if ($ArrayRef && ref($ArrayRef) eq 'ARRAY') {
                          push (@{$DataArray}, @{$ArrayRef});