Tillbaka till fram… forntiden

Tilläggas bör att http://tools.ietf.org/html/rfc1288#section-2.5.5 exemplifierar allt som internet en gång stod för.

Jag citerar:

Vending machines SHOULD respond to a {C} request with a list of all items currently available for purchase and possible consumption. Vending machines SHOULD respond to a {U}{C} request with a detailed count or list of the particular product or product slot. Vending machines should NEVER NEVER EVER eat money.

En standard som tar sig friheten att specifiera hur automater ska hantera protokollet avspeglar hur hemtrevligt internet var 1991. För att inte tala om den berömda glimten i ögat. Det skulle aldrig hända i dagens internet där profithungriga företag styr.

Men å andra sidan fanns ju inte vår underbara blog 1991 och den är ju ganska hemtrevlig den också, så det finns nog hopp även för framtiden.

Skulle vara fasligt kul att vet hur ni faktiskt genomförde detta också!

//Jonas.

#!/usr/bin/perl

package lfingerd;

use Net::Server::PreForkSimple;
@ISA = qw(Net::Server::PreForkSimple);

use XML::RSS::Parser;
use LWP::Simple qw(get);
use Encode qw(from_to);

use utf8;

&main();
exit 1;

sub process_request {
  my $query = "";

  do {
    my $buf;
    my $err = sysread STDIN, $buf, 1024;
    if (defined($err) && $err > 0) {
      $query .= $buf;
    }
  } while (defined($err) && $err > 0);

  chomp $query;
  $query =~ s/[\s\r\x00]+$//;

  if ($query =~ /drift/) {
    fetch_and_print_rss("http://www.driftbloggen.se/?feed=rss2")
      || print "No news available.\r\n";
  } else {
    fetch_and_print_rss("http://blogg.loopia.se/?feed=rss2")
      || print "No news available.\r\n";
  }
}

sub main {
  lfingerd->run(port => 79, max_servers => 2);
}

sub fetch_and_print_rss {
  my $url = shift;

  eval {
    my $xml = get($url);
    die("error fetching xml") unless defined($xml);

    my $p = XML::RSS::Parser->new;
    my $feed = $p->parse_string($xml);
    die("error parsing RSS") unless defined($feed);

    # output some values
    my $feed_title =
      $feed->query('/channel/title')->text_content;
    #from_to($feed_title, "utf-8", "us-ascii");
    my $feed_url =
      $feed->query('/channel/link')->text_content;

    print $feed->item_count
      . " latest headlines from $feed_title ($feed_url):\r\n\r\n";

    foreach my $i ( $feed->query('//item') ) {
      my $content = $i->query('title')->text_content;
      my $url = $i->query('link')->text_content;

      #from_to($content, "utf-8", "us-ascii");
      print "$content ($url)\r\n";
    }
  };

  if ($@) {
    print STDERR "Caught exception in fetch_and_print_rss: $@\n";
    return 0;
  }

  return 1;
}

Det skall noteras att Jimmy (som alltså skrivit vår finger-tjänst) givetvis använde åtta tecken långa tabbar as intended by God, men jag har kortat ned dem något för att slippa alltför långa rader.

Är sjukt imponerad! Gränsar mellan otroligt användbart och helt onödigt. Som alla genialiska lösningar