JoseIbanez

#!/usr/bin/perl


# Ejemplo de uso:
#
# cat rai5-fax-interno.lst | sudo ./mkcall.pl --host RAI5 --channell OOH323 --delay 5
#


$n=0;

JoseIbanez

# Aastra MX-ONE
# MX-ONE TS 4.1 - Script PCRegen 

/opt/eri_sn/bin/mdsh -c "source pu_add_info.bat "| sed '/\r/!s/$/\r/' | tee -a pu_add_info
/opt/eri_sn/bin/mdsh -c "media_gateway_config;"| sed '/\r/!s/$/\r/' | tee -a media_gateway_config
/opt/eri_sn/bin/mdsh -c "board_list;"| sed '/\r/!s/$/\r/' | tee -a board_list
/opt/eri_sn/bin/mdsh -c "media_gateway_interface;"| sed '/\r/!s/$/\r/' | tee -a media_gateway_interface
/opt/eri_sn/bin/mdsh -c "pcm_config -print conn -lim all;"| sed '/\r/!s/$/\r/' | tee -a pcm_config_pcm
/opt/eri_sn/bin/mdsh -c "pcm_config;"| sed '/\r/!s/$/\r/' | tee -a pcm_config
/opt/eri_sn/bin/mdsh -c "pcm_synchronization;"| sed '/\r/!s/$/\r/' | tee -a pcm_synchronization

JoseIbanez

<?php
#
function push2phone($server,$phone,$data)
{
$xml = "xml=".$data;
$post = "POST / HTTP/1.1\r\n";
$post .= "Host: $phone\r\n";
$post .= "Referer: $server\r\n";
$post .= "Connection: Keep-Alive\r\n";
$post .= "Content-Type: text/xml\r\n";

JoseIbanez

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use Net::Pcap;
use IO::Select;
use IO::Socket;
use IO::File;
use Time::HiRes qw(gettimeofday);

JoseIbanez

# Aastra MX-ONE
# MX-ONE TS 3.2 - Script PCRegen 

mdsh -c "source pu_add_info.bat "| sed '/\r/!s/$/\r/' | tee -a pu_add_info
mdsh -c "media_gateway_interface;"| sed '/\r/!s/$/\r/' | tee -a media_gateway_interface
mdsh -c "pcm_config -print conn -lim all;"| sed '/\r/!s/$/\r/' | tee -a pcm_config_pcm
mdsh -c "pcm_config;"| sed '/\r/!s/$/\r/' | tee -a pcm_config
mdsh -c "pcm_synchronization;"| sed '/\r/!s/$/\r/' | tee -a pcm_synchronization
mdsh -c "board_list;"| sed '/\r/!s/$/\r/' | tee -a board_list
mdsh -c "alarm_input -list;"| sed '/\r/!s/$/\r/' | tee -a alarm_input_list