[Orca-users] Re: Orca shut down?

[Blair Zajac]

Trevor,

Did this help?

Also, make sure to apply the attached patch to Orca to fix a problem
with reading input data files in the wrong order.

Regards,
Blair

John Mastin wrote:
> 
> Trevor Reynolds writes:
> > I looked at the files
> > in  /usr/local/var/orca/rrd/orcallator/discovery and they had not
> > been updated since 23:55.
> >
> 
> Trevor,
> 
> Take a look at ${COMPRESSOR} as defined in ${bindir}/start_orcallator.
> 
> Make sure it is pointing to a valid compression utility (pathnames and
> such).  If memory serves me correct, around midnight each night,
> orcallator.se tries to open a new log file and compress the old one.
> I
> could see where if ${COMPRESSOR} was messed up, it might not rollover
> properly.  If it was hanging on the rollover, maybe it wouldn't open a
> new logfile, hence no new additional data.
> 
> Johnny
> 
> --
> John Mastin, Jr.              email: john.mastin at bms.com
> Bristol-Myers Squibb            phone: (609) 818-3788
> PRI Infomatics              fax: (609) 818-7693
> Princeton  NJ
-------------- next part --------------
--- ../orca-0.26/src/orca.pl.in	Thu Mar  9 14:49:59 2000
+++ src/orca.pl.in	Wed Feb  7 16:40:57 2001
@@ -965,17 +965,26 @@
 
     # Create a new list of filenames sorted by subgroup name and
     # inside each subgroup sorted using the filename_compare
-    # configuration option function or by the Perl cmp function.  This
-    # will cause the created plots to appear in subgroup order.  The
-    # compare subroutine expects the input in the $a and $b package
-    # variables.  Since the subroutine was eval'ed in the Orca::Config
-    # package, the sort subroutine needs be in that package.
+    # configuration file function or by the default compare function
+    # that uses cmp to compare filenames.  This will cause the created
+    # plots to appear in subgroup order.  Note that the FIDs are not
+    # being sorted, but the filename the FID references.
+    #
+    # The compare subroutine expects the input in the $a and $b
+    # package variables and since the compare subroutine was eval'ed
+    # in the Orca::Config package it will look for these variables in
+    # Orca::Config.  Also, since sort cannot be passed a reference to
+    # a sorting subroutine stored in a hash (i.e. sort $a{b} @c), use
+    # a temporary variable.  Some versions of Perl will complain that
+    # fc is used only once, so declare the variable and set it in two
+    # separate statements.
     @fids = ();
     {
-      local *Orca::Config::fc = $config_groups{$group_name}{filename_compare};
+      package Orca::Config;
+      local *fc;
+      *fc = $config_groups{$group_name}{filename_compare};
       foreach my $subgroup (sort keys %tmp_fids_by_subgroup) {
-        push(@fids,
-             sort Orca::Config::fc @{$tmp_fids_by_subgroup{$subgroup}});
+        push(@fids, sort fc @{$tmp_fids_by_subgroup{$subgroup}});
       }
     }