[Bigsister-cvslog] CVS: bigsister/bsmonitor/Statusmon bs_evgen.pm, 1.31, 1.32 DisplayCFG.pm, 1.19, 1.20 Display.pm, 1.36, 1.37

[Thomas A. <ae...@us...>]

Update of /cvsroot/bigsister/bigsister/bsmonitor/Statusmon
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv22666/Statusmon

Modified Files:
	bs_evgen.pm DisplayCFG.pm Display.pm 
Log Message:
deprecated use of qw(...) as parenthesis (bug #232, thanks Devon Hubner)


Index: bs_evgen.pm
===================================================================
RCS file: /cvsroot/bigsister/bigsister/bsmonitor/Statusmon/bs_evgen.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -r1.31 -r1.32
*** bs_evgen.pm	19 Oct 2005 07:18:46 -0000	1.31
--- bs_evgen.pm	24 Aug 2013 14:35:09 -0000	1.32
***************
*** 11,14 ****
--- 11,17 ----
  #
  # $Log$
+ # Revision 1.32  2013/08/24 14:35:09  aeby
+ # deprecated use of qw(...) as parenthesis (bug #232, thanks Devon Hubner)
+ #
  # Revision 1.31  2005/10/19 07:18:46  aeby
  # page(): hold a @backlog for the last 60 seconds, so that we know how many
***************
*** 436,440 ****
  	my $host = $event->{"host"};
  	my $check = $event->{"check"};
! 	foreach my $queuename qw( alarms new_alarms old_alarms ) {
  	    my $queue = $self->{$queuename};
  	    for( my $i=$#$queue; $i>=0; $i-- ) {
--- 439,443 ----
  	my $host = $event->{"host"};
  	my $check = $event->{"check"};
! 	foreach my $queuename (qw( alarms new_alarms old_alarms )) {
  	    my $queue = $self->{$queuename};
  	    for( my $i=$#$queue; $i>=0; $i-- ) {

Index: DisplayCFG.pm
===================================================================
RCS file: /cvsroot/bigsister/bigsister/bsmonitor/Statusmon/DisplayCFG.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** DisplayCFG.pm	6 Mar 2009 17:35:27 -0000	1.19
--- DisplayCFG.pm	24 Aug 2013 14:35:09 -0000	1.20
***************
*** 399,403 ****
  			} );
  		    $tab{"group"} = $table;
! 		    foreach my $arg qw( refto itemref sort select select_names column_wrap items ) {
  		        $tab{$arg} = $args{$arg} if( $args{$arg} );
  		    }
--- 399,403 ----
  			} );
  		    $tab{"group"} = $table;
! 		    foreach my $arg (qw( refto itemref sort select select_names column_wrap items )) {
  		        $tab{$arg} = $args{$arg} if( $args{$arg} );
  		    }

Index: Display.pm
===================================================================
RCS file: /cvsroot/bigsister/bigsister/bsmonitor/Statusmon/Display.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -r1.36 -r1.37
*** Display.pm	6 Mar 2009 18:51:03 -0000	1.36
--- Display.pm	24 Aug 2013 14:35:09 -0000	1.37
***************
*** 168,176 ****
  
      my $viewdir = $self->{"wwwdir"}."/".$view;
!     foreach my $subdir qw/ html logs graphs / {
  	next if( -d "$viewdir/$subdir" );
  	mkdir( "$viewdir/$subdir" );
      }
!     foreach my $backlink qw/ skins help / {
  	next if( -e "$viewdir/$backlink" );
  	symlink( "../$backlink", "$viewdir/$backlink" );
--- 168,176 ----
  
      my $viewdir = $self->{"wwwdir"}."/".$view;
!     foreach my $subdir (qw/ html logs graphs /) {
  	next if( -d "$viewdir/$subdir" );
  	mkdir( "$viewdir/$subdir" );
      }
!     foreach my $backlink (qw/ skins help /) {
  	next if( -e "$viewdir/$backlink" );
  	symlink( "../$backlink", "$viewdir/$backlink" );