bvstone

Updating DNS With Dynamic IP Addresses After a Router Reboot/Power Outage

Posted:

Updating DNS With Dynamic IP Addresses After a Router Reboot/Power Outage

About a year ago I wrote an article named Why I Cancelled my DynDNS Service and How I Replaced It with an IBM i Application.  

This article was how I wrote a few web service calls using GoDaddy APIs to check my current IP address and update them automatically if needed.  

Now that it is summer, thunderstorms are giving us power outages now and then.  While my IBM i and router are on a UPS (and also backed up with a generator) when the power flickers or goes out, it does cause a disconnect from our ISP which 99% of the time will result in an IP address refresh (yes, we're using a dynamic IP address... it's a long story).

What I noticed was while I was at home and this happened, even though I have a continuous job checking and updating my IP address ever couple hours I would need to go to my home office and call the program manually to get things reset so our website would still be available.  But what I also found is that I don't always have access to my office.  

So, because our local network is still available after a power outage, I wrote a small web service I can call from any PC, laptop or even mobile device to update our DNS from the comfort of where ever I happen to be. 

     H DFTACTGRP(*NO) BNDDIR('ERPGSDK')
      ****************************************************************
      * This is called CHECKDNSWS because if you call CHECKDNS it will try
      *  to call this program instead of the one in the GODADDY library.
      ****************************************************************
      ****************************************************************
      * Prototypes                                                   *
      ****************************************************************
      /COPY QCOPYSRC,P.ERPGSDK
      /COPY QCOPYSRC,P.LIBL
      *
     D CHECKDNS        PR                  EXTPGM
      ****************************************************************
     D i               S             10i 0
      ****************************************************************
      /free

       #pushlib('GODADDY');
       #pushlib('MAILTOOLBV');

       CHECKDNS();

       #poplib('GODADDY');
       #poplib('MAILTOOLBV');

       exsr $Return;
       //-------------------------------------------------------------/
       // Return                                                      /
       //-------------------------------------------------------------/
       begsr $Return;

         #startup();
         #writeTemplate('stdhtmlheader.erpg');
         #loadTemplate('message.erpg');
         #replaceData('/%msg%/':'CHECKDNS Called.');
         #writeSection();
         #cleanup();

         *INLR = *on;
         return;

       endsr;
      /end-free

So, as you can see, this program uses a GODADDY package that we created as well as the eRPG SDK.  We simply call the CHECKDNS program and return a message saying it has been called.  If the IP addresses are updated the IBM i sends an email and lets me know and things should be back to normal!  I simply made a bookmark that points to http://mylocalip/webservice/checkdns (which actually is routed to a program named CHECKDNSWS in my CGI library) and is available on any Chrome browser that I use, even my Pixel smartphone.

In fact, the program is so simple, I don't know why I didn't do this earlier, and all while not wearing a face covering!  Stay safe everyone!

 


Last edited 08/16/2020 at 12:00:28



Latest Posts:

How to Whitelist GreenTools for G Suite (G4G) For Your Organization How to Whitelist GreenTools for G Suite (G4G) For Your Organization
Posted by November 5, 2023
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion
QuickBooks Online Releases QuickBooks Online Releases "New Invoices!"... and It's Terrible!
Posted by October 8, 2023
QuickBooks >> QuickBooks Online
Admin/4i - What is it? Admin/4i - What is it?
Posted by September 30, 2023
Vendor Corner >> MSD Information Technology
BVSTools Releases Send Job Log to BVSTools (SNDLOG2BVS) Command BVSTools Releases Send Job Log to BVSTools (SNDLOG2BVS) Command
Posted by August 28, 2023
BVSTools >> BVSTools Announcements
MAILTOOL Now Allows Email Redirection for Development and Testing MAILTOOL Now Allows Email Redirection for Development and Testing
Posted by May 27, 2023
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
GreenTools for Microsoft Apps (G4MS) Now Supports Footers When Sending Email GreenTools for Microsoft Apps (G4MS) Now Supports Footers When Sending Email
Posted by March 29, 2023
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
QuickBooks Online - Subtotals and Discounts Frustration QuickBooks Online - Subtotals and Discounts Frustration
Posted by March 16, 2023
QuickBooks >> QuickBooks Online
Making the Switch From QuickBooks Desktop to QuickBooks Online - No Picnic Making the Switch From QuickBooks Desktop to QuickBooks Online - No Picnic
Posted by March 16, 2023
QuickBooks >> QuickBooks Online
BVSTools Software Verified on V7R5 and Power10 BVSTools Software Verified on V7R5 and Power10
Posted by December 9, 2022
BVSTools >> BVSTools Announcements
Microsoft Office 365 Servers and Random Errors Issue Microsoft Office 365 Servers and Random Errors Issue
Posted by November 14, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending/Resending Emails Using a MIME File with MAILTOOL Sending/Resending Emails Using a MIME File with MAILTOOL
Posted by November 8, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending an HTML Email on Your IBM i Using MAILTOOL Sending an HTML Email on Your IBM i Using MAILTOOL
Posted by November 1, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Transferring License Keys from One System to Another Transferring License Keys from One System to Another
Posted by October 31, 2022
BVSTools >> BVSTools Software Discussion
Calculating the Size of a File Before Base64 Encoding Calculating the Size of a File Before Base64 Encoding
Posted by August 13, 2022
Programming >> RPG Programming
GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File
Posted by August 11, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements

Reply




© Copyright 1983-2020 BVSTools
GreenBoard(v3) Powered by the eRPG SDK, MAILTOOL Plus!, GreenTools for Google Apps, jQuery, jQuery UI, BlockUI, CKEditor and running on the IBM i (AKA AS/400, iSeries, System i).