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

    −123

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    # Обработка нажатия клавиш
# Если нажата кнопка СОХРАНИТЬ
if(CGI::param('sub_data_save'))
{
  if(CGI::param('content')){ $content=CGI::param('content'); }
	
  $content=~s/'/\\'/g;	
  $dbh->do("update public.m_content set content='$content' where id=70");
                                                                                                                             
  # Зафиксировали изменения
  $dbh->commit;
                                                                                                                             
  # формируем страницу
  md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content,$www{'path'},'/turfirm.php');

  # подгонка остальных страниц
  # новости
  $sql = "select content from public.m_content where \"id\"=20";
  $sth=$dbh->prepare($sql);
  $sth->execute;
  ($content0)=$sth->fetchrow_array;
  md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/news.php');
  # Корпаративным клиентам
  $sql = "select content from public.m_content where \"id\"=60";
  $sth=$dbh->prepare($sql);
  $sth->execute;
  ($content0)=$sth->fetchrow_array;
  md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/cor_clients.php');
  # Главная
  $sql = "select content from public.m_content where \"id\"=10";
  $sth=$dbh->prepare($sql);
  $sth->execute;
  ($content0)=$sth->fetchrow_array;
  md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/index.php');
  # Контакты
  $sql = "select content from public.m_content where \"id\"=30";
  $sth=$dbh->prepare($sql);
  $sth->execute;
  ($content0)=$sth->fetchrow_array;
  md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/contact.php');
  # Базы
  $sql = "select content from public.m_content where \"id\"=40";
  $sth=$dbh->prepare($sql);
  $sth->execute;
  ($content0)=$sth->fetchrow_array;
  md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/centre.php');
  # Бронирование
  $content0="<iframe width=100% scrolling='auto' height=100% frameborder=0 src='/cgi-bin/res.cgi' ></iframe>";
  md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/reservation.php'); 
}

    Из админки одного сайта
    (админка - один сплошной перл)

    Запостил: happy_me, 07 Января 2011

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

    • ava Lure Of Chaos 07.01.2011 16:51 # −1

      > where id=70
      такой жесткой привязки к бд я еще не видел
      Ответить

    • ava bildja 07.01.2011 17:27 # 0

      Это без use strict насколько я понял же?
      Ответить

      • ava happy_me 07.01.2011 17:46 # 0

        верно
        зато... вот index.pl оттуда-же (главная страница админка):

        #!/usr/bin/perl
# Форма администрирования

use strict;
use CGI;

print "Content-type: text/html; charset=koi8-r; lang=koi8-r\n\n";


print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>Управление сайтом</TITLE>\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=koi8-r\">\n";
print "<STYLE type=\"text/css\">\n";
print "  \@import url(\"/css/manager.css\");\n";
print "</STYLE>\n";
print "</HEAD>\n";
print "<FRAMESET rows=\"100,*\" framespacing=\"0\" border=0px>\n";
print "<FRAME src=\"top.pl\" name=\"top\" scrolling=\"no\" noresize=\"noresize\" frameborder=\"no\">\n";
print "<FRAME src=\"\" name=\"output\" frameborder=\"no\">\n";
print "</FRAMESET>\n";
print "</HTML>\n";

1;
        Ответить

        • ava da4ever 07.01.2011 18:28 # 0

          замечательный, бескомпромисный стрикт.
          Ответить

        • ava Мистер Хэнки 08.01.2011 11:58 # 0

          беспросветный пиздец начала 90-ых
          Ответить

          • ava happy_me 08.01.2011 13:44 # 0

            Сайт создан в 2008 году.
            Ответить

            • ava Мистер Хэнки 08.01.2011 18:20 # 0

              ну можно было накрайняк написать так (чтобы не париться с \" и мульти-print-ами):
              print qq{
 вся HTML портянка
};

              Но тут и этого нет, жуть в общем :)
              Ответить

              • ava Lure Of Chaos 10.01.2011 17:16 # 0

                а зачем вообще динамически отдавать самую статичную статику? index.htm справился бы не хуже
                Ответить

    • ava delirium 07.01.2011 21:43 # 0

      > # Корпаративным клиентам

      Ну да, судя по всему, это именно корпАрация.
      Ответить

      • ava brainstorm 08.01.2011 02:43 # +2

        копропротивным клиентам. ога
        Ответить

        • ava guest 08.01.2011 03:23 # +2

          >копропротивным
          Те, кому противно говно?))
          Ответить

          • ava happy_me 08.01.2011 18:32 # 0

            а может те, кто противен говну? :)
            Ответить

            • ava Lure Of Chaos 10.01.2011 17:17 # +1

              +1
              "вам неприятно видеть микробы на ободке унитаза? а представьте себе, что каждый день видят они!" (ц)
              Ответить

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