Perl - Rendezvous Gateway

Ett hack som gör det möjligt att publicera/annonsera http url:er över rendezvous.

Följande moduler behövs:
libwww-perl
Net::Rendezvous::Publish

Modifiera efter önskemål:

my @services = (
    {
        title => 'Intranet',
        url   => 'http://intranet.company.com/'
    },
    {
        title => 'CRM',
        url   => 'http://crm.company.com/'
    },
    {
        title => 'Project - Xyz',
        url   => 'http://xyz.project.company.com/'
    },
    {
        title => 'Project - Zyx',
        url   => 'http://zyx.project.company.com/'
    }
);

mundus: chansen$ perl -c /usr/local/bin/rdgw
/usr/local/bin/rdgw syntax OK
mundus: chansen$ /usr/local/bin/rdgw 1>/dev/null 2>&1 &

rdwg.pl:
http://member.webforum.nu/882/rdgw.pl.txt

redigering
2004-08-24 19:40 Verkar som bifogade filer inte fungerar!
2004-08-24 19:42 Länk till rdwg.pl