*       *       *       *       *       root    /путь_до_скрипта/corbina.sh

#!/bin/sh

logname=/var/log/corbina.log
byteIP="([0-9]|[0-9][0-9]|[01][0-9][0-9]|2[0-4][0-9]|25[0-5])"
regexIP="$byteIP(\.$byteIP){3}(\b|/)"
natcfg='/etc/ipnat.rules'
outside=ng0
timeout=60   # timeout in seconds, while $outside interface bring up
tmpIPNATL='/scripts/ipnatl'

log ()
# процедура просто записывает строку в лог .var/log/corbina.log
{
  prefix=`eval date`
  echo $prefix': '$1 >> $logname
}

reloadNAT ()
# процедура вписывает в файл правил NAT новый IP
# и применяет новые правила
{
  log "correct $natcfg with new $outside IP $WANIP"
  # для корректировки правил применяем скрипт на Perl
  # replace.pl (см. ниже)
  regex="bimap $outside 192.168.7.1/32 -> $byteIP(\.$byteIP){3}/"
  replaceval="bimap $outside 192.168.7.1/32 -> $WANIP/"
  perl /scripts/replace.pl $natcfg "$regex" "$replaceval"
  ipnatmsg=`eval ipnat -CF -f $natcfg`
  log "$ipnatmsg"
}

getWANIP ()
# если WAN интерфейс имеет IP, то он записывается в переменную $WANIP
# иначе $WANIP будет пустая
{
  WANIP=`eval ifconfig $outside | grep -E -o --regexp="$byteIP(\.$byteIP){3} -->" 
| grep -E -o --regexp="$byteIP(\.$byteIP){3}"`
}

# тут начинается работа скрипта - получим IP на внешнем интерфейсе
getWANIP

# ветка 1: работает, если нет IP адреса на интерфейсе WAN
# В этом случае делается попытка переподключения (с помощью
# посылки сигналов демону mpd). В случае успеха
# корректируются правила NAT, а затем они вводятся в работу
if test -z "$WANIP"
then
 log "no IP address at $outside adapter, try reconnect..."
  log "killall -USR2 mpd"
  killall -USR2 mpd
  sleep 1
  log "killall -USR1 mpd"
  killall -USR1 mpd
  # цикл: в течение 60 секунд ожидаем появления IP на интерфейсе $outside.
  # Это должно означать, что подключение произошло успешно.
  timecnt=0
  while test $timecnt -ne $timeout
  do
 getWANIP
     if test -n "$WANIP"
     then
        # IP назначен успешно (переменная $WANIP не пустая), прерываем цикл
        break
 fi
     # задержка на 1 сек, ждем появления IP
     sleep 1
     # отсчет таймаута
     timecnt=`expr $timecnt + 1`
  done
 if test -n "$WANIP"
  then
     # да, IP действительно назначен, перезагружаем ipnat новыми правилами
     log "in $timecnt sec WAN $outside RST ok."
     reloadNAT
     exit 0
  else
     # подключиться на этот раз не удалось
     log "timeout $timeout sec expired, WAN $outside RST error... Quit."
     exit 1
  fi
fi

# ветка 2: IP назначен, проверяем его на соответствие правилам NAT 
# в файле /etc/ipnat.rules
ipnatrulesIP=`eval more $natcfg | grep -E --regexp="^bimap" | grep -E -o --regexp=
"-> $byteIP(\.$byteIP){3}(\b|/)" | grep -E -o --regexp="$byteIP(\.$byteIP){3}"`
if test -n "$ipnatrulesIP"
then
   # в файле правил NAT есть правило с IP, который возможно надо поменять
   if test "$ipnatrulesIP" != "$WANIP"
   then
      # кроме того, его действительно надо поменять
      log "$outside IP $WANIP != IP NAT, reload NAT rules"
      reloadNAT
      exit 0
   fi
fi

# ветка 3: проверяем на соответствие текущих правил 
# (которые работают) и правил из /etc/ipnat.rules
# Запишем во временный файл текущие правила NAT:
ipnat -l > $tmpIPNATL
# Отфильтруем все ненужное (оставим в файле только правила NAT.
# для этого применяем скрипт на Perl cut_block.pl - см. ниже):
perl /scripts/cut_block.pl $tmpIPNATL "List of active MAP/Redirect filters:" "List of active sessions:"
# впишем в переменную $ipnatrules_curr текущие правила NAT
ipnatrules_curr=`more $tmpIPNATL`
# впишем в переменную $ipnatrules_file системные правила NAT
# (они в файле /etc/ipnat.rules)
ipnatrules_file=`more $natcfg | grep -E --regexp="^[^#]"`
# удаляем временный файл
rm $tmpIPNATL
if test "$ipnatrules_curr" != "$ipnatrules_file"
then
   # правила NAT поменялись, применяем новые правила
   log "ipnat -l != $natcfg, apply $natcfg"
   ipnatmsg=`eval ipnat -CF -f $natcfg`
   log "$ipnatmsg"
fi
exit 0

#----------------------------------------------------------------------------------------------
# Script replaces in file < pattval > with < replval >. Value < pattval >
# is interpreted as regular expression.
#
# Usage:
# perl replace.pl file pattval repval
#----------------------------------------------------------------------------------------------

sub Usage
{
  die "Usage:\nperl replace.pl file regex_pattern replace_value\n";
}

# просто проверка наличия входных параментров, без затей:
if (@ARGV[0] eq "")
{
   Usage();
}
if (@ARGV[1] eq "")
{
   Usage();
}
if (@ARGV[2] eq "")
{
   Usage();
}

$file=@ARGV[0];               # имя файла, в котором ищем
$tempfile=$file.".tmp";       # имя временного файла, который потом заменит исходный
$regex=@ARGV[1];              # регулярное выражение для поиска
$replval=@ARGV[2];            # текст, который заменит значение, попавшее в регулярное выражение

#Открываем рабочие файлы в двоичном режиме.
# Открыть входной файл только на чтение, если не получится, то выход:
open SRCFILE, '<', $file      or die "Cannot open file ".$file.": $!\n";        
# Открыть выходной файл только на запись, если не получится, то выход:
open DSTFILE, '>', $tempfile  or die "Cannot open file ".$tempfile.": $!\n";

# Цикл: читаем построчно входной файл, корректируем, если надо, строку,
# и результат пишем в выходной файл.
while (!eof(SRCFILE))
{
  $line = readline SRCFILE;
  # /g задает менять все "срабатывания" $regex в строке.
  # Если /g убрать, то произойдет только первая замена.
  $line =~ s/$regex/$replval/g;
  print DSTFILE $line;
}

# закрываем файлы
close SRCFILE;
close DSTFILE;

# старый файл удаляем и заменяем его на новый, скорректированный
unlink $file;
rename $tempfile, $file;

#----------------------------------------------------------------------------------------------
# Script get all strings block from file beetween beg_mark and end_mark 
# and placed these strings to file (another strings are removed). 
# Marks and empty strings excluded from block.
#
# Usage:
# perl cut_block.pl file beg_mark end_mark
#----------------------------------------------------------------------------------------------

sub Usage 
{
  die "Usage:\nperl cut_block.pl FILE BEGmark ENDmark\n";
}

if (@ARGV[0] eq "")
{
   Usage();
}
if (@ARGV[1] eq "")
{
   Usage();
}
if (@ARGV[2] eq "")
{
   Usage();
}

$file=@ARGV[0];
$tempfile=$file.".tmp";
$markBEG=@ARGV[1];
$markEND=@ARGV[2];
$BeginDetected=0;

open SRCFILE, '<', $file      or die "Cannot open file ".$file.": $!\n";        #открыть только на чтение
open DSTFILE, '>', $tempfile  or die "Cannot open file ".$tempfile.": $!\n";    #открыть только на запись

sub trim 
{
  my($string)=@_;
  for ($string)
  {
    s/^\s+//; #обрезать в начале
    s/\s+$//; #обрезать в конце
  }
  return $string;
}

while (!eof(SRCFILE))
{
  $line = readline SRCFILE;
  $line = &trim($line);
  if ($BeginDetected)
  {
    if (length($line))
    {
      $idx = index ($line, $markEND);
      if (-1!=$idx)
      {
        last;
      }
      print DSTFILE $line."\n";
    }
  }
  else
  {
    if (length($line))
    {
    
      $idx = index ($line, $markBEG);
      if (-1!=$idx)
      {
        $BeginDetected=1;
      }
    }
  }
}

close SRCFILE;
close DSTFILE;

unlink $file;
rename $tempfile, $file;