GrandMA2 Notebook

From WLPS wiki
Jump to navigation Jump to search

Commands[edit]

Reboot 2.0.0.10 /noconfirm

SETIP “eth0" 192.168.1.1 /mask=255.255.255.0


Variables:[edit]

SetVar $choruschasers="Executors 3 + 4 + 10"


Macro popups:[edit]

SetVar $universe=("Which Universe?")

SetVar $address=("Which Address?")

Assign Dmx $universe .$address At Selection


Conditional expressions[edit]

SetVar $answer=("really delete all groups? yes/no")

[$answer=="yes"] Delete Group Thru


Telnet[edit]

Port: 30000


Crash Logs[edit]

To see if the console has generated any crash logs:

  1. Open the "CommandLine Feedback" window
  2. Type into the command line: Crashloglist
  3. If there are any crash logs, they will be displayed in the feedback window
  4. If logs are found, put a USB Stick in the console and select the USB stick from the [Backup] menu
  5. Type into the command line: Crashlogcopy
  6. This will copy all crash logs to the gma2\temp folder on your USB stick.
  7. Please send us the crash logs, show file, and exact steps you took to get the console to crash.


Actualizate con el curso "Redes para la Industria del Espectáculo" que se impartirá en el DF. Entre los temas veremos: DMX, Art-Net, sACN (E1.31), RDM, MIDI, SMPTE, redes LAN, Pathport, utilidaes para pruebas y solución de problemas, etc. Inscribete ya, informes por inbox.


<syntaxhighlight lang="lua" line='line'>


my $internet_on;

  1. For Telnet;

use Net::Telnet (); my $telnet_host; my $telnet_port; my $telnet_username;

my $telnet_password;

  1. For Telnet;

use Net::Telnet (); my $telnet_host; my $telnet_port; my $telnet_username; my $telnet_password;



                                                                                                                                                                                    1. $
  1. Telnet
                                                                                                                                                                                    1. $

sub cmd_telnet($$) {

   my($rx, $args) = @_;
   #warn "Telnet cmd\n";


   return if (!$is);


   my($cmd, @words) = @$args;


   my $msg = lc(@words);




   warn "*** Hello Telnet World ***\n";
   my $t = new Net::Telnet (Timeout => 10, Prompt => '/bash\$ $/‘);


   my $t = new Net::Telnet (Port => telnet_port, Prompt => '/bash\$ $/‘, Timeout => 10);



       $t->open($telnet_host);
  1. my $res = $t->print('login ' . $telnet_username .' ' . $telnet_password);
       my $res = $t->print($msg);
       t$->close;
   warn "Telnet sent res = $res\n";

}


   'gma' => \&cmd_telnet,


  1. Internet connection.

$internet_on = $c->{'internet_on'};

  1. Telnet.

$telnet_host = $c->{'telnet_host'}; $telnet_port = $c->{'telnet_port'}; $telnet_username = $c->{'telnet_username'};

$telnet_password = $c->{'telnet_password'};


</syntaxhighlight>