1. Список говнокодов пользователя pdp_dp

    Всего: 1

  2. Perl / Говнокод #1519

    −55.2

    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
    #!/etc/Tivoli/bin/perl
##############################################################
#  Name: Default.cgi
#
#  Description: Generates translated Default HTML page
#               according to browser's language
#  TMF 4.1
#  Licensed Materials- Property of IBM
#  (C) Copyright IBM Corp. 2000. All Rights Reserved
#
#  US Government Users Restricted Rights- Use, duplication,
#  or disclosure restricted by GSA ADP Schedule Contract with
#  IBM Corp.
##############################################################

# wupddefhtml will bind all messages contained in default page
# accordingly ( LANG is set to the browser's locale )

$defaultPage=`wupddefhtml -out`;

# all links in the default page are absolute or relative to root
# so we need to fix them because we have changed location

$defaultPage =~ s|href=|href=../|g;
$defaultPage =~ s|//|/|g;

print("HTTP/1.0 200 OK
Contents-Type: text/html

");

print "$defaultPage";

    строка print("HTTP/1.0 200 OK
    явно говорит о глубоких знаниях протокола :))
    (C) Copyright IBM Corp. - ИТ лидер - что еще сказать

    pdp_dp, 11 Августа 2009

    Комментарии (10)