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

    −120

    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
    # Find out what mail program to use !! Terrible kludge !!
  $mailprogram = "/usr/bin/mail";
  if (! -x "$mailprogram") {
    if (-x "/bin/mail") {
      $mailprogram = "/bin/mail";
    } else {
      if (-x "/usr/sbin/sendmail") {
        $mailprogram = "/usr/sbin/sendmail";
      } else {
        if (-x "/usr/lib/sendmail") {
          $mailprogram = "/usr/lib/sendmail";
        } else {
          if (-x "/usr/bin/mutt") {
            $mailprogram = "/usr/bin/mutt";
          } else {
            if (-x "/usr/sbin/exim4") {
              $mailprogram = "/usr/sbin/exim4";
            } else {
              if (-x "/usr/bin/elm") {
                $mailprogram = "/usr/bin/elm";
              } else {
                print "Cannot find a mail program to use\n";
              }
            }
          }
        }
      }
    }
  }

    В changelog автор честно признался, что не знал, как реализовать иначе.

    Запостил: Anderson, 01 Декабря 2010

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

    • ava Мистер Хэнки 01.12.2010 12:52 # +2

      ./facepalm.pl
      Ответить

    • ava fey 01.12.2010 13:05 # +2

      Массивы после универа забыл наверное )
      Ответить

    • ava Анонимус 01.12.2010 14:05 # +3

      лол, автор впервые в жизни за никсы сел, что ли?
      переменную окружения MAIL не зна?

      хотя судя по незнанию массивов -- за программирование он тоже впервые сел
      Ответить

    • ava Govnocoder#0xFF 01.12.2010 21:00 # +2

      За честность афтару - зачОт!
      Ответить

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