Add special numbers option

This commit is contained in:
Florent 2012-03-13 15:16:35 +01:00
commit aff616a149

View file

@ -24,6 +24,7 @@ You can configure the list of monitored data with the ligne:
env.freemonitored voice sms mms data env.freemonitored voice sms mms data
Others monitored options: voicetoint voiceint smsint mmsint dataint Others monitored options: voicetoint voiceint smsint mmsint dataint
specialvoice
The cache timeout is 3 hours by default. You can change this value The cache timeout is 3 hours by default. You can change this value
with env.cache_expire. with env.cache_expire.
@ -40,19 +41,21 @@ my $weboob = "/usr/bin/env weboob-cli ICapBill get_details coin -f table |";
my %label = ( my %label = (
'voice' => "Voix en France (min)\n", 'voice' => "Voix en France (min)\n",
'voicetoint' => "Voix vers l'international (min)\n", 'voicetoint' => "Voix vers l'international (min)\n",
'specialvoice' => "Numéro spéciaux (min) \n",
'sms' => "SMS en France\n", 'sms' => "SMS en France\n",
'mms' => "MMS en France\n", 'mms' => "MMS en France\n",
'data' => "Data en France\n", 'data' => "Data en France\n",
'voiceint' => "Voix à l\'international (min)\n", 'voiceint' => "Voix à l\'international (min)\n",
'smsint' => "SMS à l\'international\n", 'smsint' => "SMS à l\'international\n",
'mmsint' => "MMS à l\'international\n", 'mmsint' => "MMS à l\'international\n",
'dataint' => "Data à l\'international\n" 'dataint' => "Data à l\'international\n"
); );
my %linenum = ( my %linenum = (
'voice' => 3, 'voice' => 3,
'voicetoint' => 3, 'voicetoint' => 3,
'specialvoice' => 4,
'sms' => 5, 'sms' => 5,
'mms' => 6, 'mms' => 6,
'data' => 7, 'data' => 7,
@ -64,7 +67,8 @@ my %linenum = (
my %regexp = ( my %regexp = (
'voice' => 'Consommation : (\d+)h(\d+)min(\d+)s', 'voice' => 'Consommation : (\d+)h(\d+)min(\d+)s',
'voicetoint' => 'International : (\d+)h(\d+)min(\d+)s', 'voicetoint' => 'International : (\d+)h(\d+)min(\d+)s',
'specialvoice' => '\| (\d+)h(\d+) min (\d+)s',
'sms' => 'Conso SMS \| (\d+) \/ (.*)', 'sms' => 'Conso SMS \| (\d+) \/ (.*)',
'mms' => 'Vous avez consommé (\d+) MMS', 'mms' => 'Vous avez consommé (\d+) MMS',
'data' => 'Vous avez consommé ([\d\-\.]+) Mo', 'data' => 'Vous avez consommé ([\d\-\.]+) Mo',
@ -77,6 +81,7 @@ my %regexp = (
my %post = ( my %post = (
'voice' => 'postvoice', 'voice' => 'postvoice',
'voicetoint' => 'postvoice', 'voicetoint' => 'postvoice',
'specialvoice' => 'postvoice',
'sms' => 'simplepost', 'sms' => 'simplepost',
'mms' => 'simplepost', 'mms' => 'simplepost',
'data' => 'simplepost', 'data' => 'simplepost',
@ -162,4 +167,3 @@ sub simplepost {
my @args = split(/ /,$_[0]); my @args = split(/ /,$_[0]);
doubleprint("$args[0] \n"); doubleprint("$args[0] \n");
} }