[Bigsister-cvslog] CVS: bigsister/bsmonitor/Statusmon bs_evgen.pm, 1.31, 1.32 DisplayCFG.pm, 1.19,
Brought to you by:
aeby
|
From: Thomas A. <ae...@us...> - 2013-08-24 14:35:15
|
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" ); |