foreach i in=[/interface find type=pppoe-out] do={

   local intName [/interface get $i name]
   local p [/int pppoe-client get $i interface]

#       Get ethernet links state

        local ethStat [:pick [/interface ether monitor $p  as-value] 6]

#       Check ethernet link state - if link is ok.. enable DSL pppoe dialer

        if ( [:len $ethStat] > 0 ) do={ 

#               Check PPPoE is diasbled

                 if ( [/interface get $intName disabled] ) do={ 

                        log info " $intName on interface $p is OK and disabled.. enabling $intName dialer "
                       [/int ppp-client enable $i]
                 }

       } else= { 

                if ( ![/interface get $intName disabled] ) do={ 
                       log info "$intName on interface $p is down and enabled: CHECK CABLE on port $p.. disabling $intName" 
                       [/int ppp-client disable $i]
                }

       }

}

#-----------------------------------------------------------------------------------------
# Scripting by
# Rextended
# Fixing Technologies
# MAKE ANY ALTERATIONS YOU WANT
#----------------------------------------------------------------------------------------- <- +1

# From RouterOS 6.? this script are unuseful, the system automaticaly stop the connection attempt if the master interface are not running

# Wasting no time, monitors only the PPPoE clients that are not Running, this obviates to check later if the PPPoE clients are Running or not.
# Check any interface used by PPPoE clients, not only the ethernets, if are running or not (like EoIP, bridge, etc.).
# If the Interface is running, enable the previous not running PPPoE.
# If the Interface is not running, write a warning on the log and disable the PPPoE for stop the connection attempts.

:foreach pppoe in=[/interface pppoe-client find where running=no] do={
 :local tmpName value=[/interface pppoe-client get $pppoe value-name=name];
 :local tmpInterface value=[/interface pppoe-client get $pppoe value-name=interface];
 :if ([/interface get $tmpInterface value-name=running]) do={
  :log info message=("Interface ".$tmpInterface." now is Running, Enabling ".$tmpName);
  /interface pppoe-client enable $pppoe;
 } else={
  :log warning message=("Interface ".$tmpInterface." not Running, Disabling ".$tmpName." - CHECK INTERFACE");
  /interface pppoe-client disable $pppoe;
 }
}