Forum ORANGE

Bonjour,

L'année passée, j'ai souffert à cause de problèmes de ligne.

Après des heures de discussion avec la hotline, trois visites de techniciens d'Orange,
la cause de ce problème a été trouvée.
C'était une connexion oxydée dans une boîte de connexion à 50 mètre de ma maison.

Lors de cette expérience, j'ai réalisé que les liveboxes ne fournissent pas
une information détaillée sur la ligne.

J'ai donc écrit un script pour surveiller ma ligne.
Ce script peut être lancé depuis votre domicile ou depuis un autre accès à Internet.
Ce script indique le délai dur dernier reset de la connexion, les débits,
les marges de bruit et les erreurs détectées sur la ligne.
Il fonctionne avec une livebox 2.

Afin d'aider ceux qui veulent avoir plus d'informations sur leurs lignes
je vous le transmets.

Bonne journée.

#!/usr/bin/perl
# Script that connects to a livebox and extract dsl relevant informations

use strict;
use WWW::Mechanize;
use HTTP::Cookies;
use JSON;

# URL to connect to the livebox (http://192.168.1.1 if it is from your home)
#my $liveboxiurl   = "https://192.168.1.1";
my $liveboxUrl = "https://xxx.zapto.org:10000";
# Username to connect to the web interface (admin if it is from your home)
#my $user      = "admin";
my $user      = "xxx";
# Password for the web user
my $pass      = "xxx";
# Interval between two queries
#my $sleepTime = "600";
my $sleepTime = "100";

my @mibFields = ('LinkStatus',
        'LastChange',
        'DownstreamCurrRate',
        'DownstreamNoiseMargin',
        'DownstreamAttenuation',
        'DownstreamPower',
        'UpstreamCurrRate',
        'UpstreamNoiseMargin',
                'UpstreamAttenuation',
        'UpstreamPower');

my @dslFields = ("FECErrors", "CRCErrors", "HECErrors");

my ($field, $sec, $min, $hour, $day, $month, $year);

# Set autoflush on stdout, usefull when you redirect to a file
select(STDOUT);
$| = 1;


my $mech=WWW::Mechanize->new(cookie_jar=>HTTP::Cookies->new(),
                 ssl_opts =>{'verify_hostname'=>0},
                 timeout=>15);

while (1) {
    # Just write the date of the connection
    ($sec, $min, $hour, $day, $month, $year) = (localtime)[0,1,2,3,4,5];
    $year  = $year+1900;
    $month = sprintf '%02d', $month+1;
    $day   = sprintf '%02d', $day;
    $hour  = sprintf '%02d', $hour;
    $min   = sprintf '%02d', $min;
    $sec   = sprintf '%02d', $sec;
    print $year,$month, $day, $hour, $min, $sec, "/";

    # Authenticate
    $mech->post("$liveboxUrl/authenticate?username=$user&password=$pass",
        Content =>"");
   
    # Set the contextID to use the session that we have just opened
    $mech->add_header("X-Context"=>decode_json($mech->content)->{"data"}{"contextID"});
   
    # Get MIB datas
    $mech->post("$liveboxUrl/sysbus/NeMo/Intf/data:getMIBs",Content =>'{"parameters":{"mibs":"dsl","flag":"","traverse":"down"}}');
   
    #print to_json(decode_json($mech->content))."\n";
    # The iformation is only relevant if the line is up
    if (decode_json($mech->content)->{"status"}{"dsl"}{"dsl0"}{'LinkStatus'} eq 'Up') {
    foreach $field (@mibFields) {
        print "$field:";
        print decode_json($mech->content)->{"status"}{"dsl"}{"dsl0"}{$field};
        print "\n";
    }

        # Get dsl informations
    $mech->post("$liveboxUrl/sysbus/NeMo/Intf/dsl0:getDSLStats",Content =>'{"parameters":{}}');
    foreach $field (@dslFields) {
        print "$field:";
        print decode_json($mech->content)->{"status"}{$field};
        print "\n";
    }
    } else {
    print decode_json($mech->content)->{"status"}{"dsl"}{"dsl0"}{'LinkStatus'};
    print "\n";
    }
    sleep ($sleepTime);
    $mech->post("$liveboxUrl/logout", Content =>"");
    print "---\n";
}