IPCop 1.4.15 + RedMAC-1.0-GUI-b1

[MaX6]

У меня стоит прокси IPCop 1.4.15 и возникла необходимость поставить к нему аддон RedMAC-1.0-GUI-b1.tar.gz который позволяет менять MAC адрес на внешним интерфейсе (RED). Вот только проблема заключается в том что последняя версия IPCOp 1.4.15 не поддерживает RedMAC. В поисковике я нашел что можно отредактировать конфигурационный файл и RedMAC будет работать на IPCop 1.4.15 но информация на ENG и поэтому я не понял что конкретно нужно делать. Собственно вот ссылка на первоисточник http://forums.speedguide.net/showthread.php?t=223852
И вот что там сказано:

fix for ipcop 1.4.15 RedMAC addon
________________________________________
RedMAC doesn't work with ipcop 1.4.15. After installing addons,
redmac package and rebooting, redmac still says it needs to reboot.
It is stuck. You can patch redmac.cgi with code below and change your
MAC right away and then reboot to get new red interface MAC setup.

This fix is for RedMAC-1.0-GUI-b1.tar.gz insert into /home/httpd/cgi-
bin/redmac.cgi right after line 44:
&Header::openpage($Lang::tr{'redmac'}, 1, '');

#
-----------------------------------------------------------------------------------------
# redmac fix - bl8n8r 06/10/2007 vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
#
my $reddev=`grep RED_DEV= ${General::swroot}/ethernet/settings | sed
's#RED_DEV=##g'`;
chomp ($reddev);

my $redmac=`ifconfig eth1 | grep HWaddr | awk '{print $5};'`;
chomp ($redmac);

# is redmac/originalmac empty or crap in file?
my $hwmac=`cat ${General::swroot}/redmac/originalmac | grep ':'`;
chomp ($hwmac);

if ( length($hwmac) < 4)
{
print "<font color=red>didnt find any colons in ${General::swroot}/
redmac/originalmac so adding current mac from RED_DEV $reddev</
font><br>\n";
open (FO, ">${General::swroot}/redmac/originalmac") || die ("unable
to open ${General::swroot}/redmac/originalmac");
printf (FO "%s\n", $redmac);
close (FO);
}
#
# redmac fix - bl8n8r 06/10/2007 ^^^^^^^^^^^^^^^^^^^^

То есть на сколько я понял нужно данный текст вставить после линии 44 после строк
&Header::openpage($Lang::tr{'redmac'}, 1, '');

Это понятно но там вроде еще нужно куда то вставлять нужные значения MAC. Вот куда их вписать я не понял. Если просто вставить текст что выше то вот что выдает RedMAC:

Цитата: Can't modify negation (-) in predecrement (--) at /home/httpd/cgi-bin/redmac.cgi line 52, near "$reddev=" Execution of /home/httpd/cgi-bin/redmac.cgi aborted due to compilation errors.

Если кто владеет Английским так чтобы понять что как нужно сделать отпишите пожалуйста.

[MaX6]

Пришлось ставить виртуальную машину что бы выяснить в чем дело. Короче нужно добавлять без знаков:
#
-----------------------------------------------------------------------------------------
И должно получится так (первая и последняя строчка у вас уже есть они присутствуют в этом примере что бы было видно где начинается и где заканчивается код):

&Header::openpage($Lang::tr{'redmac'}, 1, '');

# redmac fix - bl8n8r 06/10/2007 vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
#
my $reddev=`grep RED_DEV= ${General::swroot}/ethernet/settings | sed
's#RED_DEV=##g'`;
chomp ($reddev);

my $redmac=`ifconfig eth1 | grep HWaddr | awk '{print $5};'`;
chomp ($redmac);

# is redmac/originalmac empty or crap in file?
my $hwmac=`cat ${General::swroot}/redmac/originalmac | grep ':'`;
chomp ($hwmac);

if ( length($hwmac) < 4)
{
print "<font color=red>didnt find any colons in ${General::swroot}/
redmac/originalmac so adding current mac from RED_DEV $reddev</
font><br>\n";
open (FO, ">${General::swroot}/redmac/originalmac") || die ("unable
to open ${General::swroot}/redmac/originalmac");
printf (FO "%s\n", $redmac);
close (FO);
}
#
# redmac fix - bl8n8r 06/10/2007 ^^^^^^^^^^^^^^^^^^^^

# MAC addresses