[Orca-dev] Oops

[Alex Howansky]

-------------------------- eGroups Sponsor -------------------------~-~>
Let the internet lead you to LOWER long distance bills.  
Join beMANY! and watch your rates drop automatically.  Click for more.
http://click.egroups.com/1/6844/11/_/576655/_/968253821/
---------------------------------------------------------------------_->


Oops, I forgot to update the pod accordingly. Replace the previous patch1 with
this one.

--
Alex Howansky
Wankwood Associates
http://www.wankwood.com/


-------------- next part --------------
*** orca.old	Tue Sep  5 13:58:26 2000
--- orca	Wed Sep  6 10:14:13 2000
***************
*** 39,44 ****
--- 39,45 ----
  use Orca::Constants     qw($ORCA_VERSION
                             @IMAGE_PLOT_TYPES
                             $opt_generate_gifs
+                            $opt_graphs_only
                             $opt_once_only
                             $opt_rrd_update_only
                             $opt_verbose
***************
*** 66,72 ****
  $SIG{HUP} = \&handle_hup;
  
  sub Usage {
!   die "usage: $0 [-o] [-r] [-v] config_file\n";
  }
  
  while (@ARGV and $ARGV[0] =~ /^-\w/) {
--- 67,73 ----
  $SIG{HUP} = \&handle_hup;
  
  sub Usage {
!   die "usage: $0 [-g] [-o] [-r] [-v] config_file\n";
  }
  
  while (@ARGV and $ARGV[0] =~ /^-\w/) {
***************
*** 74,79 ****
--- 75,82 ----
    if ($arg eq '-gifs') {
      $opt_generate_gifs = 1;
      $IMAGE_SUFFIX      = 'gif';
+   } elsif ($arg eq '-g') {
+     $opt_graphs_only = 1;
    } elsif ($arg eq '-o') {
      $opt_once_only = 1;
    } elsif ($arg eq '-r') {
***************
*** 168,174 ****
    # the RRD files.  The generated files should include orca.gif and
    # rrdtool.gif.  Convert the hexadecimal forms stored in the DATA
    # section to the raw image form on disk.
!   return if $opt_rrd_update_only;
    my $image_filename = '';
    while (<main::DATA>) {
      chomp;
--- 171,177 ----
    # the RRD files.  The generated files should include orca.gif and
    # rrdtool.gif.  Convert the hexadecimal forms stored in the DATA
    # section to the raw image form on disk.
!   return if $opt_rrd_update_only || $opt_graphs_only;
    my $image_filename = '';
    while (<main::DATA>) {
      chomp;
***************
*** 474,479 ****
--- 477,483 ----
  # Create all of the different HMTL files with all of the proper HREFs
  # to the images.
  sub create_html_files {
+   return if $opt_graphs_only;
    my ($found_files_ref,
        $subgroup_fids_ref,
        $image_files_ref) = @_;
***************
*** 1075,1081 ****
  
  =head1 SYNOPSIS
  
!   orca [-gifs] [-o] [-r] [-v [-v [-v]]] configuration_file
  
  =head1 DESCRIPTION
  
--- 1079,1085 ----
  
  =head1 SYNOPSIS
  
!   orca [-gifs] [-g] [-o] [-r] [-v [-v [-v]]] configuration_file
  
  =head1 DESCRIPTION
  
***************
*** 1132,1137 ****
--- 1136,1144 ----
  B<-gifs>: Generate GIFs instead of PNGs.  Tell Orca to generate GIFs
  instead of PNGs.  You may not want to generate GIFs since PNGs are 1/3
  the size of GIFs and take less time to generate.
+ 
+ B<-g>: Generate graphs only.  This tells Orca to skip the generation
+ of HTML files.
  
  B<-o>: Once.  This tells Orca to go through the steps of finding
  files, updating the RRDs, updating the PNGs, and creating the HTML