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

    −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
    sub Blog_MakeRSS {
my @data = @_;
my $selflink = "http://$ENV{'SERVER_NAME'}:666$ENV{'SCRIPT_NAME'}?$ENV{'QUERY_STRING'}";
$selflink =~ s/&/&/gi;

my $out = "<?xml version=\"1.0\" encoding=\"$charset\"?>

<rss version=\"2.0\" xmlns:atom=\"http://www.w3.org/2005/Atom\">

<channel>
<atom:link href=\"$selflink\" rel=\"self\" type=\"application/rss+xml\" />";

$data[0][6] =~ s/MSD/\+0300/i;

$out .= "<title>$rss_title</title>
<link>http://$ENV{'SERVER_NAME'}:666$ENV{'SCRIPT_NAME'}?$rss_link</link>
<description>$rss_descr</description>
<language>ru</language>
<copyright>$rss_copy</copyright>
<lastBuildDate>$data[0][6]</lastBuildDate>
<pubDate>$data[0][6]</pubDate>
<webMaster>$rss_email</webMaster>
<ttl>1</ttl>\n";

foreach (@data) {
my @row = @{ $_ };

if ($blog_owner ne "") { $row[7] = $blog_owner; }

my $link = "http://$ENV{'SERVER_NAME'}:666$ENV{'SCRIPT_NAME'}?blog=$row[7]&amp;post=$row[5]";
$row[0] =~ s/\%cut\%.+?$/ \[\.\.\.\]/gis;
$row[6] =~ s/MSD/\+0300/i;

$out .= "<item>
<title>$row[1]</title>
<description><![CDATA[ $row[0] ]]></description>
<guid isPermaLink=\"true\">$link</guid>
<link>$link</link>
<pubDate>$row[6]</pubDate>
</item>\n";

}

$out .= '</channel>
</rss>';

print "Content-type:application/rss+xml;charset=$charset\n\n";
print $out;
}

    Был в несознанке, а XML::RSS плохо отзывался о кириллице...

    Запостил: kainwinterheart, 07 Августа 2010

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

    • ava Dummy00001 07.08.2010 01:17 # −3

      и кто таким в руки перл дает? учите какую жабу или питон что ли...
      Ответить

    • ava Lure Of Chaos 07.08.2010 10:28 # +4

      вот черти! http://$ENV{'SERVER_NAME'}:666
      Ответить

      • ava telnet 08.08.2010 19:49 # +2

        http://en.wikipedia.org/wiki/List_of_TCP_and_UDP_port_numbers
        Этот порт использовался в DOOM для игры по сети. Неуважением к стандартизованному порту говноедыкодеры оскорбили великую игру середины девяностых.
        Ответить

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