Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, April 19, 2024
[BACK] [TXT][DIR] Up to [Platon] / iotta

Diff for iotta/iotta.pl between version 1.2 and 1.3

version 1.2, 2003/03/23 11:29:52 version 1.3, 2003/03/30 11:33:59
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 require Iotta::Ctrl;  require Iotta::Ctrl;
 use strict;  use strict;
   use Getopt::Long;
   
 my (%cfg);  my (%cfg);
   
Line 23  my (%cfg);
Line 24  my (%cfg);
 #}  #}
   
 sub init_conf {  sub init_conf {
         my ($conf, $key, $val, $fname);          my @confs;
           my ($conf, $key, $val, @fname);
   
         $fname = shift;          &Getopt::Long::Configure ("pass_through");
         $fname = "iotta.cf" unless $fname;          &GetOptions ("conf=s" => \@confs, "conffile=s" => \@fname);
         print STDERR "loading configuration file $fname...\n";          $conf = join ("\n", @confs);
   
         open (CF, $fname) || die "couldn't open configuration file $fname\n";          for my $fname (@fname) {
         while (<CF>) { $conf .= $_; };                  $fname = "iotta.cf" unless $fname;
         close CF;                  print STDERR "loading configuration file $fname...\n";
   
                   open (CF, $fname); #|| die "couldn't open configuration file $fname\n";
                   while (<CF>) { $conf .= $_; };
                   close CF;
           }
   
         $conf =~ s/^#.*//;          $conf =~ s/^#.*//;
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top