{Administrator}=>eth bridge vlan iflist
Vid      Name            Bridge interfaces (* = untagged)
---      ----            --------------------------------
1        default         OBC*, ethport1*, ethport2*, ethport3*, usbport*, WLAN*
100      iptv            OBC, ethport4*, mcast*

{Administrator}=>eth bridge vlan iflist
Vid      Name            Bridge interfaces (* = untagged)
---      ----            --------------------------------
1        default         OBC*, ethport1*, ethport2*, ethport3*, ethport4*, usbport*, WLAN*
100      iptv            OBC, mcast*

eth bridge group move intf ethport4 name default

#!/usr/bin/perl -w
use Net::Telnet ();
$host = '10.0.0.138';
$user = 'Administrator';
$pass = '';
$t = new Net::Telnet ( Timeout => 10,Prompt => '/.*=>$/i');
$t->open($host);
$t->login($user, $pass);
@result = $t->cmd(':OMALE SOBILIK KÄSK SIIA');
print @result;
$t->close();

1) ühendatakse ruuteriga läbi telneti
2) logidakse sisse
3) antakse ruuterile käsk ,et see liigutaks  ethport4-ja default gruppi
4)teatud aja tagant pannakse terminali aken kinni (ruuterile aja andmiseks ja kasutaja teadvustamiseks kas toiming õnnestus)

Can't locate Net/Telnet.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at imre.pl line 2.
BEGIN failed--compilation aborted at imre.pl line 2.

cpan

install Net::Telnet

quit

$ apt-cache search telnet  | grep -i perl
libnet-telnet-perl - Script telnetable connections
libcgi-formalware-perl - Perl module for converting an XML file into a suite of CGI forms
libnet-telnet-cisco-perl - Additional functionality to automate Cisco management
libnetapp-perl - Perl modules for managing NetApp's NAS devices

apt-get install libnet-telnet-perl

#!/usr/bin/perl -w
use Net::Telnet ();
$host = '10.0.0.138';
$user = 'Administrator';
$pass = '';
$t = new Net::Telnet ( Timeout => 10,Prompt => '/.*=>$/i');
$t->open($host);
$t->login($user, $pass);
$t->cmd(':eth bridge group move intf ethport4 name default');
$t->waitfor('/>$/i'); # ootad prompti
exec 'vlc'; #vead VLC käima
$t->cmd(':eth bridge group move intf ethport4 name iptv'); #tõstad TV vaatamiseks tagasi
$t->waitfor('/>$/i'); # ootad prompti
$t->cmd(':saveall');
$t->waitfor('/>$/i');
$t->cmd(':exit');
$t->close();

open host [[-l] user][- port]
                Open a connection to the named host.  If no port number is specified, telnet will
                attempt to contact a telnet daemon at the standard port (23).  The host specifica‐
                tion may be a host name or IP address.  The -l option may be used to specify a user
                name to be passed to the remote system, like the -l command-line option.

                When connecting to ports other than the telnet port, telnet does not attempt telnet
                protocol negotiations. This makes it possible to connect to services that do not
                support the telnet protocol without making a mess. Protocol negotiation can be
                forced by placing a dash before the port number.

                After establishing a connection, any commands associated with the remote host in
                /etc/telnetrc and the user's .telnetrc file are executed, in that order.

                The format of the telnetrc files is as follows: Lines beginning with a #, and blank
                lines, are ignored.  The rest of the file should consist of hostnames and sequences
                of telnet commands to use with that host. Commands should be one per line, indented
                by whitespace; lines beginning without whitespace are interpreted as hostnames.
                Lines beginning with the special hostname ‘DEFAULT’ will apply to all hosts.  Host‐
                names including ‘DEFAULT’ may be followed immediately by a colon and a port number
                or string.  If a port is specified it must match exactly with what is specified on
                the command line.  If no port was specified on the command line, then the value
                ‘telnet’ is used.  Upon connecting to a particular host, the commands associated
                with that host are executed.

#!/usr/bin/perl -w
use Net::Telnet ();
$host = '192.168.1.254';
$user = 'kasutaja';
$pass = 'kasutaja';
$t = new Net::Telnet (Timeout => 10,Prompt => '/.*=>$/i');
$t->open($host);
$t->login($user, $pass);
@result1 = $t->cmd(':eth bridge group move intf ethport4 name default ');
system 'vlc';
@result2 = $t->cmd(':eth bridge group move intf ethport4 name iptv');
$t->close();
print @result1;
print '


';
print @result2;