[Orca-users] Re: orcan!

[Blair Zajac]

Hi Tony,

Sorry for taking so long reply.

Currently Orca only handles space separated files.  I'm working on a new
version that can handle arbitrarly formatted text files, but that won't
happen for a while yet.

You could apply the following patch that would separate on commas instead
of spaces.

I don't currently have too many configuration examples either.

Cheers,
Blair


tony barratt wrote:
> 
> hi,
> i'm quite keen to use orcan to publish some (actually lots) gifs of server
> stats. I'm gonna start with the NT boxen, and work my way towards the
> solaris boxes via the bsd boxes.
> c 100 in all.
> So i've got my comma separated files for the NT machines that look like
> this:
> [tonyb at americium ~/orca-0.23]
> $ ls /home/tonyb/data/ntperf/*.csv
> /home/tonyb/data/ntperf/cerium_062316.csv
> /home/tonyb/data/ntperf/cerium_062415.csv
> 
> $ head -2 cerium_062316.csv
> " Sample Time","\\OFF-APP\Processor(0)\% Processor Time",
> "\\OFF-APP\Memory\Committed Bytes", "\\OFFAPP\Memory\Available Bytes"
> "06/23/1999 16:07:22.506","0.98574194684034611","74948608","203624448"
> 
> $ orca -v /home/tonyb/orca-0.23/lib/ntperf.cfg
> Orca version 0.23 using RRDs version 0.99031.
> Creating orca.gif.
> Creating rrdtool.gif.
> /usr/local/bin/orca: warning: cannot open state file
> `/home/tonyb/orca.state' for reading: No such file or directory
> Finding files and setting up data structures at Mon Jun 28 18:13:30 1999.
> ^* matches null string many times at /usr/local/bin/orca line 2395, <DATA>
> chunk 827.
> /usr/local/bin/orca: warning: internal error: found
> `/home/tonyb/data/ntperf/cerium_062316.csv' but no regexp match for it.
> 
> $ cat /home/tonyb/orca-0.23/lib/ntperf.cfg
> state_file              /home/tonyb/orca.state
> data_dir                /home/tonyb/data/ntperf
> html_dir                /var/www/docs/orca/ntperf
> expire_gifs             1
> 
> # This defines where the find the source data files and the format of those
> # files.
> files ntperf {
> find_files              /home/tonyb/data/ntperf/*.csv
> column_description      first_line
> date_source             column_name Time
> date_format             %s
> interval                300
> reopen                  1
> }
> 
> html_top_title          UUnet NT Performance
> 
> html_page_header
>   <table border=0 cellspacing=0 cellpadding=0 width="100%">
>     <tr>
>     </tr>
>   </table>
>   <spacer type=vertical size=4>
> 
> html_page_footer
>   <spacer type=vertical size=20>
>   <font face="Arial,Helvetica">
>     These plots brought to you by Orca
>   </font>
> 
> plot {
> title                   %g System Load
> source                  ntperf
> data                    1load
> data                    5load
> data                    15load
> legend                  1 Minute Average
> legend                  5 Minute Average
> legend                  15 Minute Average
> y_legend                Load
> data_min                0
> data_max                200
> }
> 
> </end cat>
> 
> So i am going to read through the docs and try and sort this tonight.
> But if you can offer some guidance/help that would be great.
> There's a note somewhere that orca can parse space separated input files. If
> that's the (only) problem, then it will be the work of a moment to fix.
> 
> But there again my plot{ ... } seems a bit dodgy..
> I couldn't find any sample data files with sample config file with sample
> output, but hah i haven't looked properly yet.
> 
> Groetjes
> 
> Tony
> 
> _______________________________________________________
> Get your free, private email at http://mail.excite.com/
-------------- next part --------------
*** orca.pl-0.23	Thu May 27 10:50:44 1999
--- orca.pl	Mon Aug 16 15:47:28 1999
***************
*** 1107,1113 ****
    chomp($line);
    if ($line) {
      $self->{_first_line} = 1;
!     my @line = split(' ', $line);
      my $cache_key = md5(join("\200", @line));
      unless (defined $first_line_cache{$cache_key}) {
        $first_line_cache{$cache_key} = \@line;
--- 1107,1113 ----
    chomp($line);
    if ($line) {
      $self->{_first_line} = 1;
!     my @line = split(',', $line);
      my $cache_key = md5(join("\200", @line));
      unless (defined $first_line_cache{$cache_key}) {
        $first_line_cache{$cache_key} = \@line;
***************
*** 1610,1616 ****
      # in the output file when it starts up.
      next if $line =~ /timestamp/;
  
!     my @line = split(' ', $line);
  
      # Skip this input line if 1) the file uses the first line to
      # define the column names, 2) the number of columns loaded is not
--- 1610,1616 ----
      # in the output file when it starts up.
      next if $line =~ /timestamp/;
  
!     my @line = split(',', $line);
  
      # Skip this input line if 1) the file uses the first line to
      # define the column names, 2) the number of columns loaded is not