Promoción de verano de Vodafone

CONTADOR DE SESIONES PARA LINUX

Hola,

Para los que estéis accediendo con el ordenador a internet través del móvil y estéis usando Linux, seguramente os sea de utilidad un script que he desarrollado, y que adjunto a continuación. Es un contador de "sesiones", tal como las define Vodafone (10 minutos o 256KB), las cuales sirven para tarificar el acceso a internet. Puede adaptarse facilmente a otros operadores y tipos de sesión.

Personalmente lo utilizo a diario y su funcionamiento creo que es correcto. Si encontráis algún error no dudéis en poneros en contacto conmigo (libnet_ algarroba myway.com).

Como veréis en la documentación que hay al principio del script, es también útil para la Promoción Verano, ya que nos permite ver el progreso en el consumo de las 1000 sesiones gratuitas por periodo de facturacion que incluye la oferta.

Si os parece bien, una vez que lo hayais probado y que hayamos podido depurar cualquier posible error, se podría guardar por ejemplo en la sección "Files", para facilitar la descarga del fichero y que así la gente no tenga que copiar y pegar a mano el script.

Espero que os sea útil

Libnet

------------------------------------------------------------------------------
Fichero adjunto: conta_ses.pl
------------------------------------------------------------------------------

#!/usr/bin/perl
#
# conta_ses.pl
#
# Contador de "sesiones" de Internet.
# Version 0.9 (12-ago-2006)
#
#
#
# POR QUE este script:
#
# - En Vodafone (y posiblemente en otros operadores), el consumo de internet se
# tarifica por "sesiones". Una "sesión" se define como 256KB de transferencia
# o 10 minutos de tiempo (lo que ocurra primero).
#
# - Por tanto, para saber el numero de "sesiones" consumidas, no basta con saber
# el total de datos transferidos o el tiempo total de conexión. Es preciso ir
# contando las sesiones conforme se van consumiendo.
#
# - Las sesiones se cobran por adelantado, es decir, antes de consumirlas. Nada
# mas conectar, ya has gastado una sesion. Por ejemplo, si conectas y
# desconectas rápidamente 3 veces (sin apenas consumir tiempo ni datos), te
# cobran 3 "sesiones".
#
# - Otro ejemplo. La Promoción Verano de este año anuncia "250MB gratis", pero
# en realidad son "1000 sesiones gratis". Si te conectaras a internet el
# primer día de facturación, y te desconectaras el último dia de facturación,
# sin haber transferido datos en todo el tiempo, tendrías que pagar
# aproximadamente (teniendo en cuenta que 1000 sesiones dan para
# 1000*10 minutos =~ 7 dias):
#
# (30-7)*24*(60/10) sesiones * 0.5 euros/sesion = 1656 euros
#
# Es decir, tendrías que pagar 1656 euros, a pesar de no haber consumido ni
# 1KB de los "250MB gratis".
#
#
# QUE HACE este script:
#
# - Cuenta el numero de "sesiones" conforme se van consumiendo.
#
# - Para ello, tiene en cuenta conexiones y desconexiones, tiempo de conexión,
# y datos transferidos (subida y bajada).
#
# - Va acumulando en un fichero (contador.txt) las sesiones contabilizadas.
# Para poner a cero el contador, sólo hay que borrar (o renombrar) el fichero.
#
# - Va generando un fichero de bitácora (conta_ses.log) con el historial de
# sesiones consumidas.
#
# - Es fácilmente adaptable a cualquier operador, a cualquier interfaz, y
# a cualesquiera cantidades que definan una "sesión".
#
#
# CUAN FIABLE es este script:
#
# - Este script funciona por muestreo. Es decir, cada cierto tiempo (periodo de
# muestreo) recoge muestras del estado de la interfaz (conectada o
# desconectada) y de los datos transferidos hasta el momento (bajada+subida).
#
# - Por tanto, no conoce el momento exacto en el que la interfaz cambia de
# estado o en el que se alcanza el máximo de datos de una sesión, ya eso que
# puede ocurrir en cualquier momento entre dos muestras.
#
# - Sin embargo, al ser el periodo de muestreo muy bajo (por defecto, de una
# décima de segundo), el error cometido también es muy bajo, lo suficiente
# como para afirmar que la contabilización de sesiones es muy fiable. No es
# exacta, pero sí muy aproximada.
#
# - Esto significa que no debe usarse este script, por ejemplo, para apurar "al
# máximo" un bono de acceso a internet (para consumir hasta la última sesión
# pero sin pasarse). Es decir, si tenemos un bono de 400 sesiones, y el script
# lleva contabilizadas 380, no podemos pretender llegar justo hasta 400,
# porque puede ser que se hayan contado algunas de menos o de mas. Aunque nos
# indique que hemos consumido 380, puede que en realidad hayamos consumido
# 377 o 383 (por poner un ejemplo).
#
# - Sí puede usarse para saber, con una fiabilidad bastante alta, cuánto hemos
# consumido.
#
# - Si se desea, puede aumentarse la exactitud modificando el periodo de
# muestreo. Cuanto mas pequeño sea este, mas pequeño será el error, y
# por tanto mas exacta será la contabilización de sesiones. Por ejemplo, en
# vez del periodo por defecto de una décima de segundo (0"1 seg.), puede
# utilizarse una centésima (0"01 seg.) o incluso con una milésima
# (0"001 seg.). La contrapartida es que, cuanto mas rápido se muestree, mayor
# será el uso del procesador por parte del script.
#
#
# CUANDO debe ejecutarse este script:
#
# - El script debe estar ejecutandose siempre que se realice una conexión, y
# no debe detenerse (control+c) hasta que finalice la conexión.
#
# - Si se lanza cuando ya está establecida una conexion, hará una estimación
# del número de sesiones consumidas durante la conexión, calculando el número
# de sesiones equivalentes a los datos transferidos.
#
# - El script sólo contabiliza sesiones mientras se está ejecutando, no
# contabiliza sesiones correspondientes a conexiones antiguas en las que no
# se estaba ejecutando. Por ejemplo: si, sin estar ejecutándose el script, se
# realiza una conexión, se transfieren datos, y se termina la conexión, las
# sesiones consumidas durante la conexión habrán quedado sin contabilizar.
#
# - Por tanto, se recomienda lanzar el script nada mas encender el ordenador,
# antes de realizar cualquier conexión, y dejarlo funcionando continuamente.
#
#
# COMO ejecutar este script:
#
# - Hay 2 comandos posibles:
#
# - perl conta_ses.pl
#
# - ./conta_ses.pl (darle antes permiso de ejecución (chmod +x conta_ses.pl))
#
# - Puede llamarse desde cualquier directorio (y desde cualquier script).
#
#
# REQUISITOS:
#
# - Ordenador gnulinux con interfaz lógica de red. Normalmente será la interfaz
# que utilices para la conexión punto-a-punto con el móvil (por ejemplo ppp0),
# pero puede servir cualquier interfaz (puedes probar con: lo, eth0, ...).
# - Perl.
# - Módulo Time::HiRes (viene de serie desde Perl 5.8) (disponible en cpan.org).
# - Kernel linux 2.6 (o superior). (proporciona el arbol /sys)
#
#
# Restricciones de LIBERTAD:
#
# - Este programa es Software Libre.
# - Eso significa que eres libre de usarlo, copiarlo, compartirlo y modificarlo
# (entre otras cosas).
# - Licencia GNU GPL 2.0 (disponible en http://www.gnu.org/licenses/gpl.html).
# - Y por supuesto, puedes contribuir a mejorarlo. Por ejemplo, detectando
# errores, añadiendo funcionalidad, traduciendo a otros idiomas, etc.
#
#
# AUTOR:
#
# - Libnet (libnet_ algarroba myway.com).
#

## Bibliotecas
use Time::HiRes qw( time sleep ); ## si no está instalada, descargar de CPAN.
use FindBin qw( $RealBin ); ## directorio del script

## Configuracion
$int = "ppp0"; ## interfaz [ppp0]
$ses_t = 10 * 60; ## tiempo de sesión (segundos) [10 minutos]
$ses_d = 256 * 1024; ## datos de sesión (bytes) [256 KB]
$p_mues = 0.1; ## periodo de muestreo (segundos) [1 décima]

$f_cont = "${RealBin}/contador.txt"; ## fich con el contador (núm. de sesiones)
$f_log = "${RealBin}/conta_ses.log"; ## fichero de bitácora

## Info interfaz
$int_d = "/sys/class/net/$int"; ## directorio de la interfaz
$int_d_es = "${int_d}/statistics"; ## direc de estadisticas de la interfaz
$int_f_su = "${int_d_es}/tx_bytes"; ## fichero contador de subida
$int_f_ba = "${int_d_es}/rx_bytes"; ## fichero contador de bajada

## Inicio bitácora
impri_log ("------ Iniciado programa");

## Contador acumulado
if (-e $f_cont) ## existe fichero contador -> leemos
{
open FCONT, "< $f_cont";
chomp ($f_ini_cont = <FCONT>); ## fecha inicio del contador (1a linea)
chomp ($n_ses = <FCONT>); ## numero de sesiones consumidas (2a)
close FCONT;
}
else ## no existe fichero contador -> creamos
{
$f_ini_cont = localtime;
$n_ses = 0;
guar_cont(); ## guardamos contador en fichero
}
impri ("Contador iniciado: $f_ini_cont");
impri ("Sesiones consumidas:");
impri ("= $n_ses");

## Bucle principal
$conectado = 0; ## conectado en este momento? (= hay sesion ahora?)
$ini_ses_t = 0; ## instante de inicio de la sesion actual
$ini_ses_d = 0; ## datos transferidos al iniciarse la sesion actual
$t_dorm = 0; ## tiempo a dormir
$mues_t = time; ## muestra de tiempo actual
$mues_t_sig = $mues_t; ## muestra de tiempo siguiente (muestreamos ya)
$mues_t_ant = $mues_t; ## muestra de tiempo anterior
$t_imp = 0; ## instante de ultima impresion por pantalla
$| = 1; ## escritura en pantalla sin buffer
while (1)
{
## Dormimos hasta siguiente muestra
$t_dorm = $mues_t_sig - time; ## rectifica desviaciones de tiempo
if ($t_dorm > 0)
{
sleep $t_dorm; ## dormimos el tiempo calculado
}
else
{
$t_dorm = 0;
}

## Datos de la muestra actual
$mues_t_ant = $mues_t; ## muestra de tiempo anterior
$mues_t = $mues_t_sig; ## muestra de tiempo actual
$nue_ses = 0; ## es nueva sesion?

## Casos posibles
if (-e $int_d) ## existe la interfaz (= conectado)
{

if ($conectado) ## estaba conectado -> sigue conectado
{
$mues_d = dat_act(); ## muestra de datos
$dif_t = $mues_t - $ini_ses_t; ## diferencia de tiempo entre muestras
$dif_d = $mues_d - $ini_ses_d; ## diferencia de datos entre muestras

if ($dif_t >= $ses_t) ## superado el tiempo de sesion
{
$n_ses++; ## una sesion mas
guar_cont(); ## guardamos contador en fichero
$nue_ses = 1; ## es nueva sesion

$ini_ses_t += $ses_t; ## instante de inicio de la nueva session
$ini_ses_d = $mues_d; ## datos transferidos al iniciarse la sesion

impri ("+1 = $n_ses Tiempo");

$mues_t_sig = $ini_ses_t + $p_mues; ## muestra de tiempo siguiente
}
elsif ($dif_d >= $ses_d) ## superados los datos de sesion
{
$inc_n_ses = int ($dif_d / $ses_d); ## sesiones equivalentes
$n_ses += $inc_n_ses; ## anadimos incremento de sesiones
guar_cont(); ## guardamos contador en fichero
$nue_ses = 1; ## es nueva sesion

$ini_ses_t = ($mues_t + $mues_t_ant) / 2; ## estimamos que los datos se
## superaron a mitad del intervalo

$dec_d = $dif_d % $ses_d; ## decremento de datos
$ini_ses_d = $mues_d - $dec_d; ## datos al iniciarse la sesion

impri ("+$inc_n_ses = $n_ses Datos");

$mues_t_sig = $ini_ses_t + $p_mues; ## muestra de tiempo siguiente
}
else ## no superados tiempo ni datos
{
$mues_t_sig = $mues_t + $p_mues; ## muestra de tiempo siguiente
}

}
else ## no estaba conectado -> acaba de conectarse
{
$n_ses++; ## una sesion mas
guar_cont(); ## guardamos contador en fichero
$nue_ses = 1; ## es nueva sesion

$ini_ses_t = ($mues_t + $mues_t_ant) / 2; ## estimamos a mitad del interv.
$ini_ses_d = 0; ## datos transferidos al iniciarse la sesion

impri ("+1 = $n_ses Iniciada conexion");

$mues_t_sig = $mues_t + $p_mues; ## muestra de tiempo siguiente
}

## Informacion en pantalla
if (
(($mues_t - $t_imp) >= 0.9) ## refrescamos pantalla cada 0"9 seg.
or
$nue_ses ## o cuando hay nueva sesion
)
{
## Tiempo
$minus = int ($dif_t / 60); ## minutos
$segs = $dif_t % 60; ## segundos

## Datos
$dats = ($dif_d >= 10 * 1024**2) ? sprintf ("%d MB", $dif_d / 1024**2)
: ($dif_d >= 1000 * 1024) ? sprintf ("%.01f MB", $dif_d / 1024**2)
: ($dif_d >= 10 * 1024) ? sprintf ("%d KB", $dif_d / 1024)
: ($dif_d >= 1000 * 1) ? sprintf ("%.01f KB", $dif_d / 1024)
: sprintf ("%d B", $dif_d);

## Porcentage
$porc_t = int (100 * $dif_t / $ses_t); ## porcentage de tiempo
$porc_d = int (100 * $dif_d / $ses_d); ## porcentage de datos
$porc = ($porc_t > $porc_d) ? $porc_t : $porc_d; ## el mayor

## Linea a imprimir
$tex = sprintf ("[%02d:%02d %7s %4s%]", $minus, $segs, $dats, $porc);
print ""x79, " "x79, ""x79,
" ", $tex;

## Tiempo de impresion
$t_imp = $mues_t;
}

## Cerca de tiempo máximo?
($mues_t_sig > ($ini_ses_t + $ses_t)) ## muestrear fuera de sesión
and $mues_t_sig = $ini_ses_t + $ses_t; ## muestrear justo al terminar

$conectado = 1;
}
else ## no existe la interfaz (= desconectado)
{
if ($conectado) ## estaba conectado -> acaba de desconectar
{
impri ("= $n_ses Terminada conexion");
}
else ## no estaba conectado -> sigue desconectado
{
}

$mues_t_sig = $mues_t + $p_mues; ## muestra de tiempo siguiente

$conectado = 0;
}

}

#######################
sub impri ## imprime en pantalla y en bitácora
{
my ($tex) = @_;

my ($s, $m, $h) = localtime;
print ""x79, " "x79, ""x79,
sprintf("[%02d:%02d:%02d]", $h, $m, $s),
" ", $tex, " ";

impri_log($tex);
}
#######################
sub impri_log ## imprime sólo en bitácora
{
my ($tex) = @_;

open FLOG, ">> $f_log"
or die "No puedo abrir fichero de bitacora";
print FLOG "[", scalar(localtime), "] $tex ";
close FLOG;
}
#######################
sub dat_act ## obtiene datos transferidos actuales
{
my ($dat_sub, $dat_baj);

open FSUB, "< $int_f_su"
or die "No puedo abrir fichero de subida";
chomp ($dat_sub = <FSUB>);
close FSUB;

open FBAJ, "< $int_f_ba"
or die "No puedo abrir fichero de bajada";
chomp ($dat_baj = <FBAJ>);
close FBAJ;

return $dat_sub + $dat_baj;
}
#######################
sub guar_cont ## guarda contador
{
$f_cont_tmp = $f_cont . ".tmp";

open FCONTTMP, "> $f_cont_tmp"
or die "No puedo abrir fichero temporal de bitacora";
print FCONTTMP $f_ini_cont, " ",
$n_ses, " ";
close FCONTTMP;

rename $f_cont_tmp, $f_cont
or die "No puedo renombrar fichero temporal de bitacora";

}
#######################

Hola,

alguien sabe si se contrata por MiVodafone Web sale más barato (la mitad creo, 3€)??? me suena que el año pasado si lo contratas desde internet te salia a mitad de precio

Gracias

wenas..

keria saver cuanto tiempo puedes estar ablando gratis..o si ay un limite o yo ke se..

yo tngo la targeta tiempo libre...k pago 12 cent...y ablo lo ke kiera o como es eso?

bss..

Veredicto: Culpables de publicidad engañosa y timo descarado con premeditacion y alebosia (se lo podia tambien añadir nocturnidad por realizar los timos las 24 horas del dia).

Se hace incapié en que el acusado tiene el atenuente de reincidencia y no admite ser culpable.

Ademas se le impone una multa de no utilizacion del servicio por parte de los usuarios de vodafone a llamadas, uso de internet o vodafone live! durante 1 dia en todo el territorio español.

Fechando dicho evento para el 30.11.2006

Se advierte al acusado que en futuras actuaciones dicha movilizacion, consecuencia de sus estafas, podrian prolongarse a una semana.

Firmado:
El Jurado de lo Quemado.

Hola os despues de leer todo lo dicho os digo que yo e estado usando internert con el movil en portatil con la promo vodaf live y conctetamente con el emule e estado descargando archivos, ojo siempre sin pasarme de 250 megasa mes y no me han cobrado en la factura ni un duro de esto.

me gustaría saber si alguien me pudiese conseguir el manual de mecanica de la yamaha tzr de 50 del año 95
grcias por todo un saludo a toda la gente de internet

llo kisiera saver como se conecta el movil al ordenador si usb esk coned to el blotooth i no me pone nada me trajo un cd lo instale i novaaaaa si algien save como conectar el sharp 770sh k me lodiga plissssssssss este es mi messenger danisgdb@hotmail.com

Saludos soy de argentina y estoy haciendo mis primeras incursiones en el acceso por gprs.

Posiblemente me equivoque pero cualquier compañia debe registrar el cobro por los datos bajados a partir de la autenticacion, ahora bien, no existe posibilidad que nos conectemos a algun ISP gratuito? sea mediante un proxy o algo por el estilo?

mi mail: maximilianopereyra@gmail.com

Tengo 2 dudas, la primera, sobre que programa tengo que descargar para usar el movil como modem, y la segunda, si hacen falta los drivers del movil para usb.

Muchas gracias

hola gente. He estado leyendo tos los comentarios y me parece que no hay nadie que tenga el mismo problema que yo. os comento. Tengo activada la promocion esta del verano con mi samsung z140 con 3g. intento conectarme a vodafone live para ver la tele y resulta que al live accedo pero cuando se supone que esta cargando la tv me dice que tengo que conectarme con otra configuracion diferente. probe a cambiar el acceso de airtelwap por airtelnet como lei arriba por si acaso era eso y ni siquiera conecta con live!. supongo que mi actual configuracion es la buena aunque no estoy seguro porque me la baje de samsung a traves de gsmspain. que me decis. alguien sabe a que se debe? cual es la configuracion correcta? e visto en gsmspain tambien para configurarlo manualmente pero hay algunos parametros que o bien no me salen o no se donde ponerlo.

Gracias de antemano. seguir asi que esto ayuda a mucha peña. Gracias

hola quisiera saber si la oferta ke da vodafone sobre internet es buena voy a utilizarla dentro de poco metiendome al correo y al mesenguer y keria saber si los 250 megas te da para mucho o no gracias

LA tele ya me va pero despues de conectarme varias veces vi que me cobraron!!!

Hola,

Me he comprado el sabado una tarjeta de prepago de vodafone para aprovechar esta oferta. He configurado el ordenador para conectarme a internet desde el movil utilizando bien bluetooth o bien puerto serie.

Mi sorpresa cuando realizo consultas de saldo y observo que me estan cobrando las conexiones. Se supone que son gratuitas hasta 250 MB/mes. Tengo 2 incidencias abiertas a vodafone.

¿A alguien le esta pasando lo mismo?

Salu2

Buenas tengo una preguntita, tengo un sharp 770SH y la TV no me va , dice que tengo ke estar en una zona de cobertura 3G dentro del territorio nacional. Alguien sabe porke es eso y como lo soluciono?

gracias gente

La promoción ofrece: Llamadas y videollamadas a vodafone por 0 cent/minuto, Vodafone live gratis, TV gratis y conexión a internet desde el pc usando como modem el móvil también gratis. Internet mediante wap (desde el móvil y fuera de Vodafone live! no es gratis. Son 50 cent cada 10 minutos).

Los límites de la promoción son 150 minutos por llamada y 250 MB al mes para conexión a internet con el PC. Sin límites para conexión a Vodafone live! y a TV en el móvil

Tengo un Nokia 6600 el cual conecto por Bt al PC, me he dadod e alta en la oferta y me he bajado el programa.

Al intentar configurar una conexion, despues de elegir bluetooth y todo eso me pregunta por Internet, Intranet o VPN, eligo Internet pero luego me pide un nombre d ela conexion y ponga lo que ponga me dice que contiene caracteres invalidos. Si dejo el nombre por defecto tambien pasa.

Alguna idea?

PUES YO OS COMENTO.

me di de alta en la promo, en cuanto al internet no me han cobrado por navegar fuera de vodafone live, la television la he visto 4 veces sin cobrarme nada, ma he descargado el programa para conectar el pc y he navegado con el bt del movil y no me han cobrado nada, las videollamadas pues lo mismo ( menos establecimiento de llamadas), en fin yo estoy contento aunque lo uso para videollamadas principalmente,

en cuanto al internet deciros que yo con vodafone me conecte hace tiempo un monton de veces y fuera del live y no me cobraban nada pero despues de un mes empezaron a cobrarme cada conexion fuera del live( por lo que creo que si me conecto con la oferta del verano no me cobraran hasta que se den cuenta) es qu eson un poco desastre pero a mi nunca me han perjudicado asi que ....

venga animos y que saquen ya una tarifa plana para todo y vale de megaofertas y demas pijadas