Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Piatok, 29. marec 2024

Rozdiely pre iotta/iotta.pl medzi verziami 1.1 a 1.2

verzia 1.1, 2003/02/16 15:48:06 verzia 1.2, 2003/03/23 11:29:52
Riadok 4  use strict;
Riadok 4  use strict;
   
 my (%cfg);  my (%cfg);
   
 sub init_mods {  #sub init_mods {
         my ($mods, $pre, $fname);  #       my ($mods, $pre, $fname);
   #
         $fname = $cfg{"init/mods"};  #       $fname = $cfg{"init/mods"};
         $fname = "iotta.mods" unless $fname;  #       $fname = "iotta.mods" unless $fname;
   #
         open (INPUT, $fname) || return 1;  #       open (INPUT, $fname) || return 1;
         while (<INPUT>) { $mods.=$_; }  #       while (<INPUT>) { $mods.=$_; }
         close (INPUT);  #       close (INPUT);
   #
         for (split (/\n/, $mods)) {  #       for (split (/\n/, $mods)) {
                 my $b = $_;  #               my $b = $_;
                 s/::/\//g;  #               s/::/\//g;
                 print STDERR "loading $b ($_.pm)\n";  #               print STDERR "loading $b ($_.pm)\n";
                 require "$_.pm" unless /^[ \t]*#.*$/;  #               require "$_.pm" unless /^[ \t]*#.*$/;
         }  #       }
 }  #}
   
 sub init_conf {  sub init_conf {
         my ($conf, $key, $val, $fname);          my ($conf, $key, $val, $fname);
Riadok 46  sub start_control {
Riadok 46  sub start_control {
         $ctrln = $cfg{"ctrl"};          $ctrln = $cfg{"ctrl"};
         $ctrln = "Iotta::Ctrl" if (!$ctrln);          $ctrln = "Iotta::Ctrl" if (!$ctrln);
         print STDERR "starting control module: $ctrln...\n";          print STDERR "starting control module: $ctrln...\n";
           my $req = $ctrln;
           $req =~ s/::/\//g;
           require "$req.pm";
         $ctrl = $ctrln->new;          $ctrl = $ctrln->new;
         $ctrl->config(\%cfg);          $ctrl->config(\%cfg);
         $retval = $ctrl->main;          $retval = $ctrl->main;
Riadok 54  sub start_control {
Riadok 57  sub start_control {
   
 &init_conf (@ARGV);  &init_conf (@ARGV);
   
 &init_mods ();  #&init_mods ();
   
 &start_control ();  &start_control ();
   

Legend:
Odstranené z verzie1.1  
zmenené riadky
  Pridané vo verzii1.2

Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox
Na začiatok