ispman/bin ispman-agent,1.62,1.63 ispman.listSessionProcesses,1.3,1.4 ispman.processes,1.4,1.5

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19683/bin

Modified Files:
	ispman-agent ispman.listSessionProcesses ispman.processes 
Log Message:
perltidy (2nd run)

Index: ispman.processes
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.processes,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- ispman.processes	30 May 2004 23:35:32 -0000	1.4
+++ ispman.processes	31 May 2004 20:13:40 -0000	1.5
@@ -27,8 +27,10 @@
 
 $opts{'s'} ||= "ispmanPid";
 
-for ( sort { $processes->{$a}{ $opts{'s'} } cmp $processes->{$b}{ $opts{'s'} } }
-    keys %$processes )
+for (
+    sort { $processes->{$a}{ $opts{'s'} } cmp $processes->{$b}{ $opts{'s'} } }
+    keys %$processes
+  )
 {
     write();
 }

Index: ispman.listSessionProcesses
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.listSessionProcesses,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- ispman.listSessionProcesses	30 May 2004 23:35:32 -0000	1.3
+++ ispman.listSessionProcesses	31 May 2004 20:13:40 -0000	1.4
@@ -20,8 +20,10 @@
 
 $opts{'s'} ||= "ispmanPid";
 
-for ( sort { $processes->{$a}{ $opts{'s'} } cmp $processes->{$b}{ $opts{'s'} } }
-    keys %$processes )
+for (
+    sort { $processes->{$a}{ $opts{'s'} } cmp $processes->{$b}{ $opts{'s'} } }
+    keys %$processes
+  )
 {
     write();
 }

Index: ispman-agent
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman-agent,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- ispman-agent	30 May 2004 23:35:31 -0000	1.62
+++ ispman-agent	31 May 2004 20:13:40 -0000	1.63
@@ -217,8 +217,10 @@
       if $processHash && $ispman->{'Config'}{'debug'} > 2;
 
     for $domain ( keys %$processHash ) {
-        for $job ( sort { jobPriority($a) <=> jobPriority($b) }
-            keys %{ $processHash->{$domain} } )
+        for $job (
+            sort { jobPriority($a) <=> jobPriority($b) }
+            keys %{ $processHash->{$domain} }
+          )
         {
             for $params ( keys %{ $processHash->{$domain}{$job} } ) {
                 log_message("Doing $job on $domain with parameters $params\n");



-------------------------------------------------------
This SF.Net email is sponsored by: Oracle 10g
Get certified on the hottest thing ever to hit the market... Oracle 10g. 
Take an Oracle 10g class now, and we'll give you the exam FREE.
http://ads.osdn.com/?ad_id=3149&alloc_id=8166&op=click