2. Fórumok
  3. OS, alkalmazások
  4. RSS topik
Keresés

Hirdetés

Új hozzászólás Aktív témák

  • #6 biker nagyúr biker #5
    Új Válasz #6
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    biker

    nagyúr

    válasz biker #5 üzenetére

    egyenlőre thinking, mert sem az ie, sem a galeon, sem a mozilla nem fogadja el, és ami eddig megvan, hogy ez valami gány necckép dolog, és a mynetscape.com oldalak első soraiban ez van:
    //redirect unsupported browsers
    if (!b.ie4 && !b.ns4 && !b.ie5 && !b.ns6 && !b.ie6) location.href=''/common/badbrowser.psp'';
    ergo egy másik oldalra visz, ami nem rss-es.....

    Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |

  • #10 esteban senior tag biker #9
    Új Válasz #10
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    esteban

    senior tag

    válasz biker #9 üzenetére

    En is , mert ki kell sutnom valahogy. Jo dolog es nem csak a vilagkorul.hu -n akarom hasznalni, hanem mashol is , de ah nem jovunk ra baj lesz ... :))

    iBook + RedBull :)

  • #12 esteban senior tag biker #11
    Új Válasz #12
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    esteban

    senior tag

    válasz biker #11 üzenetére

    ez egy hatalmas halozat, majd keresek linket. Rengetegen teszik igy kozze hireiket, amiket konnyen(?) megjelenithetsz a lapodon. Mint pl. a prg.hu hirek a PROHARDVER nyitolapjan ,,,,

    teljesen legalis, raadasul baratom lapja, o adta meg, csak os em tudja hogyna tudom megcsinalni, a postNuke-nak van letoltheto modulja ... allitolag.

    iBook + RedBull :)

  • #15 esteban senior tag biker #11
    Új Válasz #15
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    esteban

    senior tag

    válasz biker #11 üzenetére

    nezd ezt meg ... valami olyasmi, csak hogy kell konfiguralni, feltelepiteni ?
    --------------------------------------------------------------------------------------------
    #!/usr/bin/perl -w
    # rss2html - converts an RSS file to HTML
    # It take one argument, either a file on the local system,
    # or an HTTP URL like http://slashdot.org/slashdot.rdf
    # by Jonathan Eisenzopf. v1.0 19990901
    # Copyright (c) 1999 Jupitermedia Corp. All Rights Reserved.
    # See http://www.webreference.com/perl for more information
    #
    # This program is free software; you can redistribute it and/or modify
    # it under the terms of the GNU General Public License as published by
    # the Free Software Foundation; either version 2 of the License, or
    # (at your option) any later version.

    # INCLUDES
    use strict;
    use XML::RSS;
    use LWP::Simple;

    # Declare variables
    my $content;
    my $file;

    # MAIN
    # check for command-line argument
    die ''Usage: rss2html.pl (<RSS file> | <URL>)\n'' unless @ARGV == 1;

    # get the command-line argument
    my $arg = shift;

    # create new instance of XML::RSS
    my $rss = new XML::RSS;

    # argument is a URL
    if ($arg=~ /http:/i) {
    $content = get($arg);
    die ''Could not retrieve $arg'' unless $content;
    # parse the RSS content
    $rss->parse($content);

    # argument is a file
    } else {
    $file = $arg;
    die ''File \''$file\'' does't exist.\n'' unless -e $file;
    # parse the RSS file
    $rss->parsefile($file);
    }

    # print the HTML channel
    &print_html($rss);

    # SUBROUTINES
    sub print_html {
    my $rss = shift;
    print <<HTML;
    <table bgcolor=''#000000'' border=''0'' width=''200''><tr><td>
    <TABLE CELLSPACING=''1'' CELLPADDING=''4'' BGCOLOR=''#FFFFFF'' BORDER=0 width=''100%''>
    <tr>
    <td valign=''middle'' align=''center'' bgcolor=''#EEEEEE''><font color=''#000000'' face=''Arial,Helvetica''><B><a href=''$rss->{'channel'}->{'link'}''>$rss->{'channel'}->{'title'}</a></B></font></td></tr>
    <tr><td>
    HTML

    # print channel image
    if ($rss->{'image'}->{'link'}) {
    print <<HTML;
    <center>
    <p><a href=''$rss->{'image'}->{'link'}''><img src=''$rss->{'image'}->{'url'}'' alt=''$rss->{'image'}->{'title'}'' border=''0''
    HTML
    print '' width=\''$rss->{'image'}->{'width'}\''''
    if $rss->{'image'}->{'width'};
    print '' height=\''$rss->{'image'}->{'height'}\''''
    if $rss->{'image'}->{'height'};
    print ''></a></center><p>\n'';
    }

    # print the channel items
    foreach my $item (@{$rss->{'items'}}) {
    next unless defined($item->{'title'}) && defined($item->{'link'});
    print ''<li><a href=\''$item->{'link'}\''>$item->{'title'}</a><BR>\n'';
    }

    # if there's a textinput element
    if ($rss->{'textinput'}->{'title'}) {
    print <<HTML;
    <form method=''get'' action=''$rss->{'textinput'}->{'link'}''>
    $rss->{'textinput'}->{'description'}<BR>
    <input type=''text'' name=''$rss->{'textinput'}->{'name'}''><BR>
    <input type=''submit'' value=''$rss->{'textinput'}->{'title'}''>
    </form>
    HTML
    }

    # if there's a copyright element
    if ($rss->{'channel'}->{'copyright'}) {
    print <<HTML;
    <p><sub>$rss->{'channel'}->{'copyright'}</sub></p>
    HTML
    }

    print <<HTML;
    </td>
    </TR>
    </TABLE>
    </td></tr></table>
    HTML
    }

    --------------------------------------------------------------------------------------------

    http://www.webreference.com/perl/tutorial/8/index.html





    iBook + RedBull :)

Új hozzászólás Aktív témák