Shell Scripting

Shell Scripting RSS

is this perl doable in shell?

•

Join Date: Jun 2009

Posts: 2

Reputation: scotddn1 is an unknown quantity at this point

Solved Threads: 0

scotddn1

Offline

Newbie Poster

is this perl doable in shell?

Jun 15th, 2009

 Help with Code Tags 
 Shell Scripting Syntax (Toggle Plain Text) 
$dgs = new IO::Socket::INET(LocalPort => $lisport, Proto => 'udp') or die "Socket: $!\n";
$dgs = new IO::Socket::INET(LocalPort => $lisport, Proto => 'udp') or die "Socket: $!\n";

I have a perl script that I want to run on tomato firmware router using the current shell scripting that it supports

How would I do the above in shell? In perl you have to use IO:Socket.

Last edited by scotddn1; Jun 15th, 2009 at 10:31 pm.

•

Join Date: Dec 2005

Posts: 5,850

Reputation: Salem has a reputation beyond repute

Solved Threads: 749

Salem

Offline

Void main'ers are DOOMed

Re: is this perl doable in shell?

Jun 16th, 2009

Is your next question going to be
"How do I do x in shell"
where x is some perl statement involving the USE of $dgs ?

There must be a reason for opening the port, which means there's going to be more things to do with that variable once you've initialised it.

Fixing it one line at a time won't solve your problem.

•

Join Date: Aug 2007

Posts: 165

Reputation: Fest3er is an unknown quantity at this point

Solved Threads: 18

Fest3er

Offline

Junior Poster

Re: is this perl doable in shell?

Jun 17th, 2009

•

Originally Posted by scotddn1

Help with Code Tags

Shell Scripting Syntax (Toggle Plain Text)
$dgs = new IO::Socket::INET(LocalPort => $lisport, Proto => 'udp') or die "Socket: $!\n";
$dgs = new IO::Socket::INET(LocalPort => $lisport, Proto => 'udp') or die "Socket: $!\n";
I have a perl script that I want to run on tomato firmware router using the current shell scripting that it supports

How would I do the above in shell? In perl you have to use IOocket.

Generally speaking, one would first catalog all available CLI programs on the router and see if one of them approximates the perl functionality. Specifically in this instance, netcat might do the trick.

•

Join Date: Jun 2009

Posts: 2

Reputation: scotddn1 is an unknown quantity at this point

Solved Threads: 0

scotddn1

Offline

Newbie Poster

Re: is this perl doable in shell?

Jul 6th, 2009

This the perl code I wish do convert to shell (ash so it works on Tomato),

 Help with Code Tags 
 Shell Scripting Syntax (Toggle Plain Text) 
#!/usr/bin/perl -w
 
use IO::Socket;
 
$ataip = '192.168.1.158';       
$ataport = 5060;              
$server = 'voipserver';       
 
$lport = 5070;                  # port to listen on
$dgs = new IO::Socket::INET(LocalPort => $lport, Proto => 'udp') or die "Socket: $!\n";
while (1) {
    $rcv = $dgs->recv($ibuf, 2000, 0);
    next unless $rcv && length($rcv) >= 8; # ignore errors
    $raddr = inet_ntoa((sockaddr_in($rcv))[1]); # get source addr
    if ($raddr eq $ataip) {      # packet from ATA
        $ibuf =~ s/(nonce=\"\w+_\w+)_[\w\-]+/$1/; # send original nonce to server
        $dpaddr = sockaddr_in(5070, inet_aton($server));
        $dgs->send($ibuf, 0, $dpaddr); # send to server
    }
    elsif ($raddr eq $server) { # packet from server
        if (($nonce) = $ibuf =~ /nonce=\"(\w+)/) { # need to fix nonce
            ($callid) = $ibuf =~ /Call-ID: ([\w\-]+)/ or die;
            $enonce = '_';      # compute extended nonce
            $enonce .= substr($callid, hex(substr($nonce, $_, 1)), 1) for (0..7);
            $ibuf =~ s/(nonce=\"\w+)/$1$enonce/; # pass new nonce to ATA
        }
        $dpaddr = sockaddr_in($ataport, inet_aton($ataip));
        $dgs->send($ibuf, 0, $dpaddr); # send to ATA
    }
}
 
#!/usr/bin/perl -w
 
use IO::Socket;

$ataip = '192.168.1.158';       
$ataport = 5060;              
$server = 'voipserver';       

$lport = 5070;                  # port to listen on
$dgs = new IO::Socket::INET(LocalPort => $lport, Proto => 'udp') or die "Socket: $!\n";
while (1) {
    $rcv = $dgs->recv($ibuf, 2000, 0);
    next unless $rcv && length($rcv) >= 8; # ignore errors
    $raddr = inet_ntoa((sockaddr_in($rcv))[1]); # get source addr
    if ($raddr eq $ataip) {      # packet from ATA
        $ibuf =~ s/(nonce=\"\w+_\w+)_[\w\-]+/$1/; # send original nonce to server
        $dpaddr = sockaddr_in(5070, inet_aton($server));
        $dgs->send($ibuf, 0, $dpaddr); # send to server
    }
    elsif ($raddr eq $server) { # packet from server
        if (($nonce) = $ibuf =~ /nonce=\"(\w+)/) { # need to fix nonce
            ($callid) = $ibuf =~ /Call-ID: ([\w\-]+)/ or die;
            $enonce = '_';      # compute extended nonce
            $enonce .= substr($callid, hex(substr($nonce, $_, 1)), 1) for (0..7);
            $ibuf =~ s/(nonce=\"\w+)/$1$enonce/; # pass new nonce to ATA
        }
        $dpaddr = sockaddr_in($ataport, inet_aton($ataip));
        $dgs->send($ibuf, 0, $dpaddr); # send to ATA
    }
}