From: Colin Watson Date: Sun, 18 Aug 2002 02:15:02 +0000 (+0000) Subject: Remove historical relic. X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~cjwatson/git?p=bin.git;a=commitdiff_plain;h=abe720cd961a81209aa3d6ece1f6841caf389166 Remove historical relic. --- diff --git a/hermes-unread b/hermes-unread deleted file mode 100755 index d69cf0d..0000000 --- a/hermes-unread +++ /dev/null @@ -1,18 +0,0 @@ -#! /usr/bin/perl -w -use diagnostics; -use strict; -use Socket; - -my $sin = sockaddr_in 2345, inet_aton 'hermes.cam.ac.uk'; -for (@ARGV) -{ - socket HERMES, PF_INET, SOCK_STREAM, getprotobyname 'tcp' or - die "Couldn't create socket: $!"; - connect HERMES, $sin or die "Couldn't connect: $!"; - send HERMES, "$_\015\012", 0; - my $text; - recv HERMES, $text, 256, MSG_WAITALL; - print((split /\n/, $text, 2)[1]); - close HERMES; -} -