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

Тема в разделе "Тех. вопросы", создана пользователем dez2007, 4 июн 2008.

Статус темы:
Закрыта.
  1. dez2007

    dez2007 Создатель

    Регистр.:
    27 апр 2008
    Сообщения:
    31
    Симпатии:
    1
    Есть его исходник. А так же кусок поста с форума не помню какого : ;)
    ######################################
    Да действительно есть зависимость работы скрипта от этой строки
    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 и продолжил юзать скрипт дальше
    #########################################
    Предлагаю тем кто шарит переделать этот изходник.
     

    Вложения:

Статус темы:
Закрыта.