Kan elk orgaan legt het onder bepaalde regels code heb ik problemen bij het begrijpen,


my $ ErrorLog \u003d "/ var / log / controler.log";

& initLanguage ($ taal);
& launchCbox ();
sub launchCbox (

$ scr \u003d Term:: ScreenColor-> new;
$ scr-> clrscr ();
my ($ mode) \u003d @ _;
my $ fout \u003d 0;
my $ cbox_x \u003d $ dog_x + 3;

my $ args;
mijn% box_args \u003d% ($ args [3]);
$ args .\u003d "-d" als $ box_args ( "debug");
$ args .\u003d "-l" als $ box_args ( "log");
$ args .\u003d "-L". $ box_args ( "taal") if $ box_args ( "taal");

if ($ mode ne "restart") ($ scr-> op ($ y_pos, 3) -> zet ($ x. ".." $ txth-> gettext ( "5016"));)
else ($ y_pos \u003d $ dog_y_pos +3; $ scr-> op ($ dog_y_pos +3,3) -> zet ($ cbox_x "..." $ txth-> gettext ( "5016". "" x ($ status_bar_pos - (lengte ($ txth-> gettext ( "5016")) +7 ))));)

if (! $ Xwindow) ( "perl . / cbox.pl 2>> / var / log / cbox.log $ args> / dev/tty9 ";)
else ( `perl . / cbox.pl 2>> / var / log / cbox.log $ args> / dev/pts/2 ";)
$ fout? & printNOK: &printOK;

)

Met vriendelijke groet,
Raheel.

Tip van de Dag: "Gebruik [code] [/ code] tags (sans de ruimte), of de '#' symbool in de geavanceerde editor om uw bron of aanbieding beter leesbaar is voor anderen."

Dat gezegd zijnde, kan ik alleen maar raden wat deze code zou moeten doen, want het is sterk afhankelijk van globale variabelen.

my $errorlog = "/var/log/controler.log";

&initLanguage($language); # I18N / L10N?
&launchCbox();

sub launchCbox {

    $scr = Term::ScreenColor->new; # Enable us to use pretty colors and
                                   # positioning on the terminal
    $scr->clrscr(); # Clear the screen
    my ($mode) = @_;
    my $error  = 0;
    my $cbox_x = $dog_x + 3; # Global. Source unknown. Meaning
                             # unknown.

    my $args;
    my %box_args = %{ $args[3] }; # Same as above
    $args .= "-d "                         if $box_args{"debug"};
    $args .= "-l "                         if $box_args{"log"};
    $args .= "-L " . $box_args{"language"} if $box_args{"language"};

    if ( $mode ne "restart" ) {
        
        # Print at line $y_pos, column 3 of the terminal the translation with
        # the key 5016 (whatever that is)
        $scr->at( $y_pos, 3 )->puts( $x . ". " . $txth->getText("5016") );
    }
    else {
        $y_pos = $dog_y_pos + 3; # Globals again
        $scr->at( $dog_y_pos + 3, 3 )->puts(
            $cbox_x . ". "
              . $txth->getText(
                "5016"
                  . " " x (
                    $status_bar_pos - ( length( $txth->getText("5016") ) + 7 )
                  )
              )
        ); # Write at position $dog_y_pos+3, 3 the content of $cbox_x,
           # the translation for key 5016, and a space (' ') times
           # the position of the status bar minus (about) the length of
           # text #5016
    }

    if ( !$xwindow ) { # If a xterm (or similar) is there, write to one
                       # hardcoded TTY, to another hardcoded TTY otherwise.
                       #Either way call cbox.pl
        `perl ./cbox.pl 2>>/var/log/cbox.log $args > /dev/tty9`;
    }
    else { `perl ./cbox.pl 2>>/var/log/cbox.log $args > /dev/pts/2`; }
    $error ? &printNOK : &printOK;

}