[jmardones]

buenas muchachines, el otro dia en un rato de oscio se me ocurrio hacer un programa que obtenga el tiempo de llamados de mi telefono movil, aun no esta listo, pero les envio un adelanto por si quieren hacer algo, por ahora estoy trabajando en un widget en superkaramba para tener mis cuentas bien claras

es un script en perl, saludos...

#!/usr/bin/perl
# Programa para ver el trafico de tu Entel PCS, clientes con plan.
#
# Creado por Juan Carlos Mardones K. bajo licencia CC:
# http://creativecommons.org/licenses/by-nc-sa/2.0/cl/
#
# V.01 RC1
# 13 Mayo 2007

use strict;
use warnings;
use LWP::Parallel::UserAgent;

# Ruts
my $rut=""; # Rut con puntos y guion
my $rut2="";  # Rut sin puntos ni guion

# Numero de telefono
my $numero="";

# Clave del portal
my $password=""; 

# Primera URL necesaria para sacar ids
my $url ="http://vasp.vas.entelpcs.com/acceso_2/entrada.php?funcion=ingreso&ext=Sistema%3D2111%26OP%3D2CC%26IDP%3D0000&
Sistema=2111&Portal=\"\"&desdelogin=SI&Movil=".$numero."&PIN=".$password;
my $ua = LWP::Parallel::UserAgent->new();
   $ua->redirect (1);
   $ua->timeout  (2);
   $ua->max_hosts (3);
   $ua->max_req (3);
my $response = $ua->get( $url );
my $contents =  $response->content;
my $cadena1="<input type=\"hidden\" name=\"ids\" value=\"";
my $cadena2="\">";

my $resultado = (split $cadena1, $contents)[1];
my $ids = (split $cadena2, $resultado)[0];


# Url para poder sacar el trafico de llamadas, previa confirmacion de rut, e IDS..
$url ="http://pcscuenta.entelpcs.com/cgi-bin/cgi_portalf23.exe?rut=".$rut2."&op=2CC&idc=\"\"&tp=1&tit=t0&acc=X&cta=0&
rutaux=".$rut."&ids=".$ids;
$response = $ua->get( $url );
$contents =  $response->content;

# Obtencion del Plan
$cadena1 = "<td align=\"center\" bgcolor=\"#BDD7FF\" class=\"TablatitBDD7FF\" colspan=\"2\">";
$cadena2 = "</td>";
$resultado = (split $cadena1, $contents)[1];
my $plan = (split $cadena2, $resultado)[0];

# obtencion del trafico
$cadena1 = "<strong>Voz</strong></td>";
my $cadena3="</strong>";
$resultado = (split $cadena1, $contents)[1];
$resultado = (split $cadena3, $resultado)[1];
my $trafico = (split $cadena2, $resultado)[0];

#obtencion del periodo
$cadena1 = "<td align=\"center\" class=\"TablatitBDD7FF\">Minutos y segundos</td>";
$cadena3 = "<td align=\"center\" class=\"TablatitBDD7FF\">";
$resultado = (split $cadena1, $contents)[1];
$resultado = (split $cadena3, $resultado)[1];
my $periodo = (split $cadena2, $resultado)[0];

#obtencion de mensajes SMS y MMS
$cadena1 = "<td class=\"tableBrd1color6699cc\"><strong>Mensajes</strong></td>";
$cadena3 = "<td align=\"center\" bgcolor=\"#BDD7FF\" class=\"TablatitBDD7FF\">";
$resultado = (split $cadena1, $contents)[1];
$resultado = (split $cadena3, $resultado)[1];
my $mensajes = (split $cadena2, $resultado)[0];


# Datos Banda Ancha
$cadena1 = "Banda Ancha</strong></td>";
$resultado = (split $cadena1, $contents)[1];
$resultado = (split $cadena3, $resultado)[1];
my $bandaAncha = (split $cadena2, $resultado)[0];

# imprimimos resultados
print "Numero Actual: ".$numero."\n";
print "Plan: ".$plan."\n";
print "Fecha: ".$periodo."\n";
print "Trafico de Voz: ".$trafico."\n";
print "Mensajes SMS y MMS: ".$mensajes."\n";
print "Trafico Banda Ancha: ".$bandaAncha." Kilobytes\n";

Lo que obtiene el script es la cantidad de minutos hablados.

Este tema ha sido editado por jmardones: 13 May 2007 - 03:11 PM

[Jotequila]

no es mas facil con *103# ???

¿eso funcionaria bajo windows??



no entiendo nada, me considero un ignorante

[jmardones]

Jotequila, en May 13 2007, 04:46 AM, dijo:

no es mas facil con *103# ???

¿eso funcionaria bajo windows??
no entiendo nada, me considero un ignorante

El *103# es para ver el saldo, no sirve para clientes con subscripcion, lo que entrega el script es cuantos minutos has hablado, cuantos mensajes se han enviado, cuanto trafico en internet, etc...

[Jotequila]

ahhh piola entonces...

yo soy puro prepago asi que no cacho na de lo otro
(ni de programacion)

[jmardones]

Jotequila, en May 13 2007, 04:04 PM, dijo:

ahhh piola entonces...

yo soy puro prepago asi que no cacho na de lo otro
(ni de programacion)

hice el programa para no tener que estar metiendome en la pagina para revisar el estado de mis cuentas, funciona perfecto, solo hay que colocar los ruts y el password.

Sigo trabajando en el widget para superkaramba asi que esten atentos...

[Dracma]

pero ver los minutos y todo eso en los planes sale 150 pesos por teléfono

en q parte de internet sale eso sin q te cobren
?

[Rolo]

Dracma, en May 30 2007, 09:47 AM, dijo:

pero ver los minutos y todo eso en los planes sale 150 pesos por teléfono

en q parte de internet sale eso sin q te cobren
?

Comentario al respecto... el sitio de entel es una bosta. En todo sentido... Es una de las cosas mas horripilantes que hay (me refiero a "mi entel pcs")

[jmardones]

Dracma, en May 30 2007, 11:47 AM, dijo:

pero ver los minutos y todo eso en los planes sale 150 pesos por teléfono

en q parte de internet sale eso sin q te cobren
?

donde te cobran...?

por que portal estas entrando?

Rolo, en May 30 2007, 09:39 PM, dijo:

Comentario al respecto... el sitio de entel es una bosta. En todo sentido... Es una de las cosas mas horripilantes que hay (me refiero a "mi entel pcs")

Totalmente de acuerdo.

[Rolo]

Y de hecho... Antes era "facil" encontrar la opcion de cambio de plan, y bueno todo lo que a uno le interesa saber. El otro dia visite els tio y que les puedo decir.. Fue un viaje fantastico 4 o 5 años atras. En general, el sistema de atencion al publico general de entel (al menos pcs) es muy malo... Diria que pesimo comparado con Movistar, o incluso con claro.

Ni hablar de las tarifas para llamar a otros moviles, nose como sera en plan... Supongo que mucho mejor.

Este tema ha sido editado por Rolo: 30 May 2007 - 10:44 PM

[jmardones]

Rolo, en May 31 2007, 12:36 AM, dijo:

Y de hecho... Antes era "facil" encontrar la opcion de cambio de plan, y bueno todo lo que a uno le interesa saber. El otro dia visite els tio y que les puedo decir.. Fue un viaje fantastico 4 o 5 años atras. En general, el sistema de atencion al publico general de entel (al menos pcs) es muy malo... Diria que pesimo comparado con Movistar, o incluso con claro.

Ni hablar de las tarifas para llamar a otros moviles, nose como sera en plan... Supongo que mucho mejor.

Lamentablemente no se como andara con respecto a otros sitios, pero lo que si puedo asegurar es estos tios tienen a una persona muy complicada como diseñador de interfaces, Muy poca usabilidad, incluso marea a usuarios avanzados al principio.

Llegando un poco mas lejos, se podria sacar la conclusion del que diseña el sitio o es programador, o si es diseñador, solo se preocupa de la estetica del sitio.

[Dracma]

jmardones, en May 31 2007, 03:37 PM, dijo:

Lamentablemente no se como andara con respecto a otros sitios, pero lo que si puedo asegurar es estos tios tienen a una persona muy complicada como diseñador de interfaces, Muy poca usabilidad, incluso marea a usuarios avanzados al principio.

Llegando un poco mas lejos, se podria sacar la conclusion del que diseña el sitio o es programador, o si es diseñador, solo se preocupa de la estetica del sitio.

ya encontré donde, pero no se si sale actualizado

y tu codigo como se corre? para el usuario comun y silvestre?

[jmardones]

Dracma, en Jun 1 2007, 12:32 PM, dijo:

ya encontré donde, pero no se si sale actualizado

y tu codigo como se corre? para el usuario comun y silvestre?

copias el codigo y lo pegas en un archivo, necesitas tener perl.

luego ejecutas perl nombre del archivo, tambien necesitas tener la libreria de perl LWP y colocar tu rut, fono y password donde corresponda...

[Dracma]

ah ya... o sea no es para usuarios comunes y corrientes

[aicam]

a menos que tengas perl y la libreria correspondiente, loque hace esto, es que ahorres los minutos de tu vida entrando a navegar por la pagina de entel, captura los datos que muestra el sitio y los despliega de una.

[jmardones]

aicam, en Jun 4 2007, 04:35 PM, dijo:

a menos que tengas perl y la libreria correspondiente, loque hace esto, es que ahorres los minutos de tu vida entrando a navegar por la pagina de entel, captura los datos que muestra el sitio y los despliega de una.

Asi es, se salta el proceso de autenticacion ...

[Dracma]

aicam, en Jun 4 2007, 02:35 PM, dijo:

a menos que tengas perl y la libreria correspondiente, loque hace esto, es que ahorres los minutos de tu vida entrando a navegar por la pagina de entel, captura los datos que muestra el sitio y los despliega de una.

hay gente q ni si quiera sabe q es pearl...