Pode qualquer órgão explica o título dado linhas de código que tenho dificuldades em compreender que,


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

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

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

my $ args;
minha% box_args \u003d% ($ args [3]);
$ args .\u003d "-d" se box_args $ ( "debug");
$ args .\u003d "-l", se box_args $ ( "log");
$ args .\u003d "-L". $ box_args ( "language") if ($ box_args "linguagem");

if ($ mode ne "restart") ($ scr-> at ($ y_pos, 3) -> puts ($ x. ".. $ txth-> gettext (" 5016 "));)
else ($ y_pos $ dog_y_pos \u003d 3; $ scr-> at ($ dog_y_pos +3,3) -> puts ($ cbox_x "..". $ txth-> gettext ( "5016". "x ($ status_bar_pos - (length ($ 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 `;)
$ erro? & printNOK: &printOK;

)

Kindest Atenciosamente,
Raheel.