Есть исходник directmailer'а

[dez2007]

Есть его исходник. А так же кусок поста с форума не помню какого :
######################################
Да действительно есть зависимость работы скрипта от этой строки
rel => 'u114XXXXXXX'
а именно номера лицензии я так понимаю, делается запрос на какойто урл, я копать не стал какой именно.

И если этот номер заблочен скрипт перестает слать и бодяжит ошибки:
502 Error: command not implemented
501 Unknown command
502 unimplemented (#5.5.1)

этот номер зависит от этой проверки
for ('rel', 'addr', 'name', 'path') { $q .= '=' . unpack ('H*', ($c{$_} ||= 'none')); }
my $u = sub { my $u = pack ('H*', '687474703a2f2f65646573736f2e6e65742f6367692d62696e'.
'2f646d2f696e6465782e6367693f75'); $u .= shift }; $q = $u->($q);


немного поколдовав в коде, и выяснив гдеб это отрубить. Все заработало.
А номер лицензии скрипта 1.6.8 который я слил случайно на купленном фтп и правда сегодня перестал работать.

Но после модификации я смело забил номер лицензии u1111111111 и продолжил юзать скрипт дальше
#########################################
Предлагаю тем кто шарит переделать этот изходник.