Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
A while ago Ozymandias posted his code for a Cable Modem Check. I've also written similar code for my DSL modem. Both Ozymandias and myself use X10 (a home automation system .. x10.com) to power-cycle the modem. The particulars of detecting an outage and resetting your connection will vary based on too many factors to give you an absolute solution (DSL provider, protocol, modem brand/model, etc...). You may however be able to use the experiences of myself and Ozymandias as a starting point. My code works as follows:
Ping the modem every 30 seconds Ping the "internet" every 5 minutes if either ping fails stop PPPOE process power-cycle modem while(modem not responding to pings for > 30 seconds after last po +wer-cycle) power-cycle modem wait 10 seconds start PPPOE process wait 10 seconds ping internet if internet still not up, repeat entire process
I will be happy to post my complete code; if anyone is interested.

In reply to Re: Checking ADSL connection by lhoward
in thread Checking ADSL connection by JP Sama

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    [Discipulus]: Eataly vs World(coffe) ;=)
    [Discipulus]: shemem i wrote it directly.. but when i tested it i got a lot of 'undefined value..'
    [Corion]: Oh, poor Trump can't get a break. Even the Vatican only sends the second in command to greet him...
    [shmem]: Discipulus: readdir has the same semantics as readline (a.k.a <>). Have another coffee ☕ ;-)
    [Discipulus]: ah! just with my old system perl (5.8.8) was needed
    [Corion]: Has anybody toyed around with Mastodon? There is a Perl module for it, but I'm not sure that it's a yak worth chasing
    [Corion]: On the upside, maybe running that for my family would be interesting, or at least for myself
    [Corion]: I'm not fond of using a server hosted by other people, even if they claim to be GNU ;)

    How do I use this? | Other CB clients
    Other Users?
    Others chanting in the Monastery: (8)
    As of 2017-05-26 07:31 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?