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

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

<?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

# 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

#!/usr/bin/perl


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


$n=0;

JoseIbanez

#!/usr/bin/perl



  while (<STDIN>) {


     $_ =~ tr/\t/ /;
     ($inicio,$fin,$interno)=split(/\s+/, $_);

JoseIbanez

#!/usr/bin/expect -f
log_user 1
set timeout 60
set env(TERM)

spawn ssh -o StrictHostKeyChecking=no eri_sn_admin@[lindex $argv 0]
expect "Password: "
send "Ericsson\r"
expect ">"
send "sudo -s\r"

JoseIbanez

Public Function ErlangB_Lineas(Trafico As Double, Bloqueo As Double) As Integer
Dim InvBloqueo As Double
Dim InvB As Double
Dim j As Integer

InvB = 1#
InvBloqueo = 1 / Bloqueo

For j = 1 To 256
 InvB = 1# + j / Trafico * InvB

JoseIbanez

'Crear Firma para Outlook

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strName =       objUser.FullName

JoseIbanez

from suds.client import Client
from suds import WebFault
from suds.transport.https import HttpAuthenticated
import os.path
import ssl
import time
import logging

logging.basicConfig(level=logging.CRITICAL)
logging.getLogger('suds.client').setLevel(logging.CRITICAL)