1. Perl / Говнокод #16668

    −161

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    error_response("400 Bad request", "") unless (<> =~ /^GET\s+(.+?)\s+HTTP\/1\.1\r$/);                                                
my $request_url = $1;                                                                                                               
log_message "REQUEST $request_url";                                                                                                 
get_bans() if ($request_url =~ /^\/bans\?auth=$authkey$/);                                                                          
remove_ban($1) if ($request_url =~ /^\/bans\/(\d+\.\d+\.\d+\.\d+)\/remove\?auth=$authkey$/);                                        
error_response("404 Not found", "");

    REST API через inetd (на этом серваке нету веб сервера, и ставить его влом). Новая жизнь старых технологий ;)

    Запостил: bormand, 09 Сентября 2014

    Комментарии (14) RSS

    • ava laMer007 20.05.2015 13:39 # 0

      Первыйнах.

      Что происходит?
      Ответить

      • ava Vasiliy 20.05.2015 15:11 # +2

        bormand учит плохому. Следующий этапом будут учить курить.
        Ответить

        • ava 1024-- 20.05.2015 15:14 # +1

          Учить курить маны?
          Ответить

        • ava bormand 20.05.2015 16:55 # 0

          А что здесь плохого? С точки зрения клиента этот сервис неотличим от нормального :) Принимает HTTP запросы, отдаёт JSON, крякает как утка.

          Ну разве что аутентификация через анус и удаление записей в GET'е вместо POST'а.
          Ответить

          • ava Vasiliy 20.05.2015 16:58 # 0

            >С точки зрения клиента этот сервис неотличим от нормального
            Пока у клиента не появится желание прикрутить чего нить такое.
            Ответить

            • ava bormand 20.05.2015 17:09 # 0

              > не появится желание прикрутить чего нить такое
              Не появится, там за эти полгода всего 3 простеньких роута добавилось... Ну и аутентификация по куке вместо говна в параметрах.

              Вызывается этот нёх только другими нашими серверами. API документировано на местной вики, к нему можно спокойно обращаться любой либой, которая умеет HTTP/JSON. Что ещё надо для счастья :)

              Ну и всегда можно поставить вместо этого говнеца на 50 строк нормальный веб-сервер с нормальными скриптами. Просто лениво и на текущий момент нецелесообразно.
              Ответить

              • ava bormand 20.05.2015 17:27 # 0

                P.S. Можно было, конечно, какой-нибудь питоний SimpleHTTPServer заюзать... На другом сервере я бы так и поступил... Но трабла в том, что там нету ни питона ни пыхи, стоит ядро 2.4, древние либцы, пёрл с либами каменного века и нету пакетного менеджера. И питон собирать всяко дольше, чем писать этот пиздец скриптец...
                Ответить

                • ava Vasiliy 20.05.2015 19:54 # 0

                  >что там нету ни питона
                  на линукс не установлен питон??? У меня прям разрыв шаблона.
                  Ответить

                • ava Stallman 20.05.2015 21:23 # 0

                  Для чего его (сервер) вообще поставили?
                  Ответить

                  • ava bormand 20.05.2015 22:08 # 0

                    Он там давно стоял. И из-за одной сраной PCI'шной железки там нельзя обновить ядро.
                    Ответить

                    • ava laMer007 21.05.2015 01:37 # 0

                      > И из-за одной сраной PCI'шной железки там нельзя обновить ядро.
                      Сразу начинается питу ханик ведра?
                      Ответить

                      • ava kegdan 21.05.2015 02:02 # 0

                        А потом кококомпиляция ядра
                        Ответить

                      • ava bormand 21.05.2015 06:38 # 0

                        Под 2.6 на неё дров нету, а портировать самому как-то страшно ;( Так что не начинается.
                        Ответить

    Добавить комментарий