ruby-net-nntp 0.2.2 → 1.0.0

data/lib/net/nntp/group.rb

@@ -1,83 +0,0 @@
-module Net
-
-  class NNTP
-
-    class Group
-      attr_reader :name, :article_count, :article_first, :article_last
-      attr_reader :hi, :lo, :postingmode
-
-      def initialize(name)
-        @name = name
-        @articles ||= Articles.new(self)
-        #@articles.group = self
-        @article_first = @article_last = @article_count = nil
-      end
-
-      # Set article_count, article_first, article_last (from GROUP command)
-      #
-      # Takes an array [count, first, last] as argument
-      def article_info=(art_array)
-        @article_count = art_array[0].to_i
-        @article_first = art_array[1].to_i
-        @article_last = art_array[2].to_i
-      end
-
-      def articles
-        @articles
-      end
-
-      def articles=(articles)
-        @articles = articles
-      end
-
-      # Sets hi and lo watermark alont with postingmode (from LIST ACTIVE command)
-      def listinfo(hi, lo, postingmode)
-        @hi = hi
-        @lo = lo
-        @postingmode = postingmode
-      end
-
-      def inspect
-"Group: #{@name}  #{@article_count} #{@article_first} #{@article_last}"
-      end
-
-      class Articles
-
-        attr_accessor :group
-
-        def initialize(group)
-          @articles ||=[]
-        end
-
-        # Stores articles in group attribute, using Net::NNTP::Article instances
-        def build_from_over(over, format)
-          article = Article.new
-          article.overview_format = format
-          article.overview(over)
-          @articles << article
-        end
-
-        def length
-          @articles.length
-        end
-
-        def <<(article)
-          @articles << article
-        end
-
-        # Creates one Net::NNTP::Article instance, sets the group attribute to the
-        # including group instances and adds the article to articles before returning it
-        def create
-          a = Article.new
-          a.group = self.group
-          @articles << a
-          a
-        end
-
-      end
-
-    end
-
-  end
-
-end

data/test/functional/test_nntp.rb

@@ -1,288 +0,0 @@
-require 'rubygems'
-require 'test/unit'
-require 'net/nntp.rb'
-require 'mock/mock_socket'
-
-
-unless defined? log
-  log = Log4r::Logger.new('net::nntp')
-  fileout = Log4r::FileOutputter.new('net::nntp::fileout', :filename => File.join('logs', 'autotest.log'), :trunc => true)
-  fileout.formatter = Log4r::PatternFormatter.new(:pattern => '%d [%5l] : %m')
-  log.add fileout
-  log.level = Log4r::ALL
-end
-
-module TestNet
-  class TestNNTP < Test::Unit::TestCase
-
-    def setup
-      nntp_connect_and_auth('localhost', 119, 'dummy', 'test')
-    end
-
-    def test_new
-      host = 'localhost'
-      port = '119'
-      timeout = 14
-      assert_nothing_raised do 
-        @nntp = Net::NNTP.new(host)
-      end
-      assert_nothing_raised do 
-        nntp_new(host, port)
-      end
-      assert_nothing_raised do
-        @nntp = Net::NNTP.new(host, port, timeout)
-      end
-    end
-
-    def test_connect
-      assert_nothing_raised do
-        @nntp.connect
-        assert @nntp.connected?
-      end
-    end
-
-    def test_close
-      assert_nothing_raised do
-        @nntp.connect
-        assert @nntp.connected?
-        @nntp.close
-        assert !@nntp.connected?
-      end
-    end
-
-    def test_quit
-      @nntp.connect
-      quit = @nntp.quit.join
-      assert_equal '200', quit[0..2]
-    end
-
-    def test_response_timeout
-      assert_equal 10, @nntp.response_timeout
-      @nntp.response_timeout = 11
-      assert_equal 11, @nntp.response_timeout
-    end
-
-    def test_help
-      help = @nntp.help.join
-      assert_equal '100', help[0..2]
-      assert_equal 429, help.length
-    end
-
-    def test_authenticate
-      assert_nothing_raised do
-        assert nntp_connect_and_auth('localhost', 119, 'dummy', 'test')
-      end
-    end
-
-    def test_group
-      assert_nothing_raised do
-        group = @nntp.group('at.linux')
-        assert_kind_of Net::NNTP::Group, group
-        assert_equal 'at.linux', group.name
-        assert_equal 12, group.article_count
-        assert_equal 1363, group.article_first
-        assert_equal 1375, group.article_last
-      end
-    end
-
-    def test_xhdr
-      headers = @nntp.xhdr('subject', 'at.linux', :from => 1363, :to => 1375)
-      assert_equal 15, headers.length
-      assert_equal '221', headers[0][0..2]
-      assert_equal "1364", headers[2].split[0]
-      header = @nntp.xhdr('subject', 'at.linux', :message_id => "<slrnf26akq.ci5.hjp-usenet2@zeno.hjp.at>").join
-      assert_equal 47, header.length
-      assert_equal "1375", header.split[0]
-    end
-
-    def test_xhdr_fails
-      header = @nntp.xhdr('', 'at.linux', {}).join
-      assert_equal '502', header[0..2] 
-      assert_raise(Net::NNTP::CommandFailedError) do 
-        header = @nntp.xhdr('at.xxx', 'subject', {})
-      end
-    end
-
-
-    def test_group_fails
-      assert_raise(Net::NNTP::CommandFailedError) do 
-        group = @nntp.group('at.xxx')
-      end
-    end
-
-    def test_xover
-      overviews = @nntp.xover('at.linux', :from => 1363, :to => 1375)
-      assert_equal 15, overviews.length
-      assert_equal '224', overviews[0][0..2]
-    end
-
-    def test_over_or_xover
-      assert @nntp.has_xover?
-      assert @nntp.has_over?
-    end
-
-    def test_xover_fails
-      over = @nntp.xover('at.linux', :from => 1363, :to => 1375)
-      over = @nntp.xover('at.linux', :message_id => "<slrnf26akq.ci5.hjp-usenet2@zeno.hjp.at>").join
-      assert_equal '502', over[0..2]
-      assert_raises(Net::NNTP::CommandFailedError) do
-        over = @nntp.xover('at.xxx', :message_id => "<slrnf26akq.ci5.hjp-usenet2@zeno.hjp.at>")
-      end
-    end
-
-    def test_listgroup
-      list = @nntp.listgroup('at.linux')
-      assert_equal 15, list.length
-      match = /(\d{3}).*f\or\s+(\S+)\s/.match(list[0])
-      assert_equal "211", match[1]
-      assert_equal "at.linux", match[2]
-      assert_equal "1365", list[3]
-    end
-
-    def test_list
-      assert_respond_to @nntp, :list
-      assert_nothing_raised do
-        @nntp.list('overview.fmt')
-        assert_equal 9, @nntp.overview_format.length
-        @nntp.list()
-        assert_not_equal 0, @nntp.grouplist.length
-        assert_not_nil @nntp.grouplist
-        assert_equal 'at.test', @nntp.grouplist['at.test'].name
-        @nntp.list('active')
-        assert_equal 'at.test', @nntp.grouplist['at.test'].name
-        @nntp.list('active.times')
-        @nntp.list('active.times', 'at.*')
-      end
-      assert_raise Net::NNTP::CommandFailedError do
-        @nntp.list('distrib.pat', 'at.*')
-      end
-    end
-
-    def test_article
-      assert_raises Net::NNTP::CommandFailedError do
-        article = @nntp.article
-      end
-      article = @nntp.article("<5d6be$4625ae23$51df8a12$32566@news.inode.at>")
-      response, id, msgid = article[0].split
-      assert_equal '220', response
-      assert_equal '1392', id
-      assert_equal "<5d6be$4625ae23$51df8a12$32566@news.inode.at>", msgid
-      group = @nntp.group 'at.linux'
-      article = @nntp.article '1392'
-      response, id, msgid = article[0].split
-      assert_equal '220', response
-      assert_equal '1392', id
-      assert_equal "<5d6be$4625ae23$51df8a12$32566@news.inode.at>", msgid
-    end
-
-    def test_head
-      nntp_connect_and_auth('localhost', 119, 'dummy', 'test')
-      assert_nothing_raised do
-        assert_respond_to @nntp, :head
-      end
-      assert_raise Net::NNTP::CommandFailedError do
-        head = @nntp.head
-      end
-      @nntp.group 'at.linux'
-      @io = [
-    "221 1430 <462dfa6f$0$23135$9b4e6d93@newsspool1.arcor-online.net> article retrieved - head follows\r\n",
-    "Path: vietwist00.chello.at!newsfeed02.chello.at!newsfeed01.chello.at!newsfeed.arcor.de!newsspool1.arcor-online.net!news.arcor.de.POSTED!not-for-mail\r\n",
-    "Message-ID: <462dfa6f$0$23135$9b4e6d93@newsspool1.arcor-online.net>\r\n",
-    "From: Gerhard Engler <gerhard.engler@gmx.de>\r\n",
-    "Newsgroups: at.linux\r\n",
-    "Subject: Re: udev_node_mknod: /dev/capi Operation not permitted\r\n",
-    "Date: Tue, 24 Apr 2007 14:39:11 +0200\r\n",
-    "References: <4629ee10$0$10187$9b4e6d93@newsspool4.arcor-online.net> <slrnf2np7k.a8e.tom-usenet@eristoteles.iwoars.net>\r\n",
-    "Lines: 26\r\n",
-    "User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)\r\n",
-    "MIME-Version: 1.0\r\n",
-    "In-Reply-To: <slrnf2np7k.a8e.tom-usenet@eristoteles.iwoars.net>\r\n",
-    "Content-Type: text/plain; charset=ISO-8859-15; format=flowed\r\n",
-    "Content-Transfer-Encoding: 7bit\r\n",
-    "Organization: Arcor\r\n",
-    "NNTP-Posting-Date: 24 Apr 2007 14:39:11 CEST\r\n",
-    "NNTP-Posting-Host: 6cf11d8c.newsspool1.arcor-online.net\r\n",
-    "X-Trace: DXC=Cd=D_AR>:`a^Y=RbYBPl4`ic==]BZ:afn4Fo<]lROoRaFl8W>\BH3Yb7K@fQgPi`FgUTEAfnAR\Ta@JWJ8E:^d<ob]cIfD6hVgh<SdIn0f]3?i\r\n",
-    "X-Complaints-To: usenet-abuse@arcor.de\r\n",
-    "Xref: sensor.twincode.net at.linux:1430\r\n",
-    ".\r\n"
-      ]
-      head = @nntp.head
-      assert_kind_of Array, head
-      response, id, msgid = head[0].split
-      assert_equal '221', response
-      assert_equal '1430', id
-      assert_equal '<462dfa6f$0$23135$9b4e6d93@newsspool1.arcor-online.net>', msgid
-    end
-
-    def test_body
-      assert_raises Net::NNTP::CommandFailedError do
-        body = @nntp.body
-      end
-      body = @nntp.body("<5d6be$4625ae23$51df8a12$32566@news.inode.at>")
-      response, id, msgid = body[0].split
-      assert_equal '222', response
-      assert_equal '1392', id
-      assert_equal "<5d6be$4625ae23$51df8a12$32566@news.inode.at>", msgid
-      group = @nntp.group 'at.linux'
-      body = @nntp.body '1392'
-      response, id, msgid = body[0].split
-      assert_equal '222', response
-      assert_equal '1392', id
-      assert_equal "<5d6be$4625ae23$51df8a12$32566@news.inode.at>", msgid
-    end
-
-    def test_stat
-      assert_nothing_raised do
-        assert_respond_to @nntp, :stat
-      end
-    end
-
-    def test_last
-      assert_raise Net::NNTP::ProtocolError do
-        last = @nntp.last
-      end
-      @nntp.group 'at.linux'
-      assert_raise Net::NNTP::CommandFailedError do
-        last = @nntp.last
-      end
-      @nntp.next
-      @nntp.next
-      last = @nntp.last
-      assert_kind_of String, last
-      response, article, msgid, rest = last.split
-      assert_equal "223", response
-      assert_equal "1363", article
-    end
-
-    def test_next
-      assert_raise Net::NNTP::ProtocolError do
-        anext = @nntp.next
-      end
-      @nntp.group 'at.linux'
-      anext = @nntp.next
-      assert_kind_of String, anext
-      response, article, msgid, rest = anext.split
-      assert_equal "223", response
-      assert_equal "1363", article
-      assert_equal "<example.msgid@fake.host>", msgid
-      anext = @nntp.next
-      response, article, msgid, rest = anext.split
-      assert_equal "1364", article
-    end
-
-    private
-    def nntp_new(host, port=119)
-      @nntp = Net::NNTP.new(host, port)
-    end
-    def nntp_connect_and_auth(host, port, user, pass)
-      @nntp = Net::NNTP.new(host, port)
-      @nntp.instance_variable_set :@socket_class, MockSocket
-      @nntp.connect
-      @nntp.socket.activate
-      @nntp.authenticate(user, pass)
-    end
-  end
-end
-
-

data/test/mock/mock_socket.rb

@@ -1,359 +0,0 @@
-require 'mock'
-class MockSocket < Test::Unit::MockObject( TCPSocket )
-  def initialize(host, port)
-    super
-    @io = ["200 Welcome\r\n"]
-    @authenticated = false
-    @group_selected = nil
-    @last_article = nil
-    @is_closed = false
-  end
-
-
-  def closed?
-    super
-    @is_closed
-  end
-
-  def close
-    super
-    @is_closed=true
-  end
-
-  def recv(len)
-    return readline
-  end
-
-  def read( len )
-    super # Call the mocked method to record the call
-    rval = @io[0,len]
-    @io[0,len] = ''
-    return %w{ you should never reach this }
-  end
-
-  def puts(stuff)
-    super
-    stuff += "\r\n"
-    write stuff
-  end
-
-  def write( str )
-    super # Call the mocked method to record the call
-    @io = []
-    case str.downcase
-    when /^body(.*)/
-      body = [
-"222 1392 <5d6be$4625ae23$51df8a12$32566@news.inode.at> article retrieved - body follows\r\n",
-"Hi,\r\n",
-"\r\n",
-"kennt ihr eine Moeglichkeit den maximalen Speicherbedarf eines Programms \r\n",
-"ueber dessen gesamte Laufzeit zu ermitteln? Also keine Momentaufnahme \r\n",
-"wie mit ps, top & Co?\r\n",
-"\r\n",
-"Danke & vG\r\n",
-"Franz Hollerer\r\n",
-".\r\n"
-    ]
-      case $1
-      when /^\s+1392/, /^\s*$/
-        if @group_selected
-          @io = body
-        else 
-          @io = ["412 No Group selected"]
-        end
-      when  /^\s*<5d6be\$4625ae23\$51df8a12\$32566@news\.inode\.at>/
-        @io = body
-      else 
-        @io = ["No such article"]
-      end
-    when /^article(.*)/
-      article = [
-"220 1392 <5d6be$4625ae23$51df8a12$32566@news.inode.at> article retrieved - text follows\r\n",
-"Path: vietwist00.chello.at!newsfeed02.chello.at!news.inode.at.POSTED!not-for-mail\r\n",
-"Message-ID: <5d6be$4625ae23$51df8a12$32566@news.inode.at>\r\n",
-"From: Franz Hollerer <franz.hollerer@ims.co.at>\r\n",
-"Newsgroups: at.linux\r\n",
-"Subject: Q: maximalen Speicherbedarfs eines Programms ueber dessen gesamte\r\n",
-"  Laufzeit\r\n",
-"Date: Wed, 18 Apr 2007 07:34:56 +0200\r\n",
-"Lines: 8\r\n",
-"User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)\r\n",
-"MIME-Version: 1.0\r\n",
-"Content-Type: text/plain; charset=ISO-8859-15; format=flowed\r\n",
-"Content-Transfer-Encoding: 7bit\r\n",
-"X-Complaints-To: abuse@inode.at\r\n",
-"NNTP-Posting-Host: 81.223.138.18 (81.223.138.18)\r\n",
-"NNTP-Posting-Date: Wed, 18 Apr 2007 07:35:31 +0200\r\n",
-"X-Trace: 5d6be4625ae23f47a2fb732566\r\n",
-"Xref: sensor.twincode.net at.linux:1392\r\n",
-"\r\n",
-"Hi,\r\n",
-"\r\n",
-"kennt ihr eine Moeglichkeit den maximalen Speicherbedarf eines Programms \r\n",
-"ueber dessen gesamte Laufzeit zu ermitteln? Also keine Momentaufnahme \r\n",
-"wie mit ps, top & Co?\r\n",
-"\r\n",
-"Danke & vG\r\n",
-"Franz Hollerer\r\n",
-".\r\n"
-    ]
-      case $1
-      when /\s*1392/
-        if @group_selected
-          @io = article
-        else
-          @io = ["412 No Group selected"]
-        end
-      when /^\s*<5d6be\$4625ae23\$51df8a12\$32566@news\.inode\.at>/
-        @io = article
-      else 
-        @io = ["430 No such article"]
-      end
-    when /^list\b\s*(.*)\r\n$/
-      case $1
-      when /overview.fmt/i
-        @io = ["215 Order of fields in overview database.\r\n", "Subject:\r\n", "From:\r\n", "Date:\r\n", "Message-ID:\r\n", "References:\r\n", "Bytes:\r\n", "Lines:\r\n", "Xref:full\r\n", ".\r\n" ]
-      when /active\s*(.*)/
-        @io = ["215 Newsgroups in form \"group high low flags\".", "at.test 200 100 y\r\n", "at.linux 100 90 n\r\n", ".\r\n"]
-      when /^\s*$/
-        @io = ["215 Newsgroups in form \"group high low flags\".", "at.test 200 100 y\r\n", "at.linux 100 90 n\r\n", ".\r\n"]
-      else
-        @io = ["501 Bad Command Usage"]
-      end
-    when "help\r\n" then
-      @io = [
-      "100 Legal commands on THIS server:\r\n", 
-        "ARTICLE [<Message-ID>|<Number>]\r\n",
-        "BODY [<Message-ID>|<Number>]\r\n",
-        "DATE\r\n",
-        "GROUP <Newsgroup>\r\n",
-        "HDR <Header> <Message-ID>|<Range>\r\n",
-        "HEAD [<Message-ID>|<Number>]\r\n",
-        "HELP\r\n",
-        "LAST\r\n",
-        "LIST [ACTIVE|NEWSGROUPS] [<Wildmat>]]\r\n",
-        "LIST [ACTIVE.TIMES|EXTENSIONS|OVERVIEW.FMT]\r\n",
-        "LISTGROUP <Newsgroup>\r\n",
-        "MODE READER\r\n",
-        "NEWGROUPS <yymmdd> <hhmmss> [GMT]\r\n",
-        "NEXT\r\n",
-        "POST\r\n",
-        "OVER <Range>\r\n",
-        "SLAVE\r\n",
-        "STAT [<Message-ID>|<Number>]\r\n",
-        "XHDR <Header> <Message-ID>|<Range>\r\n",
-        "XOVER <Range>\r\n",
-      ".\r\n"]
-    when /^next/i
-      if @group_selected
-        if @last_article 
-          if @last_article < 1375
-            @last_article += 1
-          else
-            @last_article = nil
-          end
-        else 
-          @last_article = 1363
-        end
-        @io = @last_article ? ["223 #{@last_article} <example.msgid@fake.host> retrieved"] : ['421 No next article in group']
-      else 
-        @io = ['412 No Group selected']
-      end
-    when /^last/i
-      if @group_selected
-        if @last_article 
-          if @last_article > 1363
-            @last_article -= 1
-          else
-            @last_article = nil
-          end
-        end
-        @io = @last_article ? ["223 #{@last_article} <example.msgid@fake.host> retrieved"] : ['421 No next article in group']
-      else 
-        @io = ['412 No Group selected']
-      end
-    when /^mode reader/i
-      @io = ["200 Welcome"]
-    when /^listgroup\s*(.*)\s*/i
-      case $1
-      when 'at.linux'
-        @io = [
-    "211 Article list for at.linux follows\r\n",
-  "1363\r\n", 
-  "1364\r\n", 
-  "1365\r\n", 
-  "1366\r\n", 
-  "1367\r\n", 
-  "1368\r\n", 
-  "1369\r\n", 
-  "1370\r\n", 
-  "1371\r\n", 
-  "1372\r\n", 
-  "1373\r\n", 
-  "1374\r\n", 
-  "1375\r\n",
-  ".\r\n"
-      ]
-      else 
-        if @group_selected
-          @io = [
-    "211 Article list for at.linux follows\r\n",
-  "1363\r\n", 
-  "1364\r\n", 
-  "1365\r\n", 
-  "1366\r\n", 
-  "1367\r\n", 
-  "1368\r\n", 
-  "1369\r\n", 
-  "1370\r\n", 
-  "1371\r\n", 
-  "1372\r\n", 
-  "1373\r\n", 
-  "1374\r\n", 
-  "1375\r\n",
-  ".\r\n"
-          ]
-        else
-          @io = ['412 No Group selected']
-        end
-      end
-    when "quit\r\n" then
-      @io = ["200 Good bye"]
-    when "authinfo user dummy\r\n"
-      @io = ["381 More authentication details needed"]
-    when "authinfo pass test\r\n"
-      @io = ["281 Welcome to dummytest"]
-    when /^group\s+(.+)\s*\r\n$/
-      case $1
-      when 'at.linux'
-        @io = ["211 12 1363 1375 at.linux"]
-        @group_selected = 'at.linux'
-      else
-        @io = ["411 No such group"]
-      end
-    when "xhdr subject <slrnf26akq.ci5.hjp-usenet2@zeno.hjp.at>\r\n"
-      @io = 
-      ["1375 Re: Bitte um Meinungen ==> Virtualisierung\r\n"]
-    when "xhdr subject 1363-1375\r\n"
-      if @group_selected
-        @io = [
-    "221 Subject header (from overview) for postings 1363-1375\r\n",
-    "1363 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1364 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1365 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1366 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1367 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1368 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1369 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1370 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1371 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1372 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1373 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1374 Re: Bitte um Meinungen ==> Virtualisierung\r\n", 
-    "1375 Re: Bitte um Meinungen ==> Virtualisierung\r\n",
-    ".\r\n"
-        ]
-      else
-        @io = ['412 No group selected']
-      end
-    when "xover 1363-1375\r\n"
-      if @group_selected
-        @io = [
-  "224 Overview information for postings 1363-1375:\r\n",
-  "1363    Re: Bitte um Meinungen ==> Virtualisierung      \"Igo Besser\" <i.besser@aon.at>  Sun, 15 Apr 2007 14:09:46 +0200 <46221541$0$2299$91cee783@newsreader01.highway.telekom.at>     <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <evt242$1jc7$1@geiz-ist-geil.priv.at> 1165    9       Xref: sensor.twincode.net at.linux:1363\r\n",
-  "1364    Re: Bitte um Meinungen ==> Virtualisierung      \"Igo Besser\" <i.besser@aon.at>  Sun, 15 Apr 2007 14:14:12 +0200 <4622164b$0$25611$91cee783@newsreader02.highway.telekom.at>    <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <4621fc17$0$2315$91cee783@newsreader01.highway.telekom.at> <evt1p1$1jar$1@geiz-ist-geil.priv.at>  1229    13      Xref: sensor.twincode.net at.linux:1364\r\n",
-  "1365    Re: Bitte um Meinungen ==> Virtualisierung      \"Peter J. Holzer\" <hjp-usenet2@hjp.at>  Sun, 15 Apr 2007 16:39:56 +0200 <slrnf24e9s.dtb.hjp-usenet2@zeno.hjp.at>       <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at>       2643    42      Xref: sensor.twincode.net at.linux:1365\r\n",
-  "1366    Re: Bitte um Meinungen ==> Virtualisierung      \"Igo Besser\" <i.besser@aon.at>  Sun, 15 Apr 2007 19:14:08 +0200 <46225c97$0$25626$91cee783@newsreader02.highway.telekom.at>    <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <slrnf24e9s.dtb.hjp-usenet2@zeno.hjp.at>      1344    13      Xref: sensor.twincode.net at.linux:1366\r\n",
-  "1367    Re: Bitte um Meinungen ==> Virtualisierung      \"Peter J. Holzer\" <hjp-usenet2@hjp.at>  Sun, 15 Apr 2007 21:35:27 +0200 <slrnf24vjv.7pk.hjp-usenet2@zeno.hjp.at>       <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <slrnf24e9s.dtb.hjp-usenet2@zeno.hjp.at> <46225c97$0$25626$91cee783@newsreader02.highway.telekom.at> 1851    24      Xref: sensor.twincode.net at.linux:1367\r\n",
-  "1368    Re: Bitte um Meinungen ==> Virtualisierung      Wolfgang Steger <wolfgangs-spambox@utanet.at>   Sun, 15 Apr 2007 21:48:48 +0200 <16caf4-581.ln1@swws1.dyndns.org>      <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <slrnf24e9s.dtb.hjp-usenet2@zeno.hjp.at> <46225c97$0$25626$91cee783@newsreader02.highway.telekom.at> 2248    20      Xref: sensor.twincode.net at.linux:1368\r\n",
-  "1369    Re: Bitte um Meinungen ==> Virtualisierung      Michael Prokop <devnull@michael-prokop.at>      Sun, 15 Apr 2007 22:22:46 +0200 <2007-04-15T22-19-44@devnull.michael-prokop.at>        <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <slrnf24e9s.dtb.hjp-usenet2@zeno.hjp.at> <46225c97$0$25626$91cee783@newsreader02.highway.telekom.at> <slrnf24vjv.7pk.hjp-usenet2@zeno.hjp.at>        2022    23      Xref: sensor.twincode.net at.linux:1369\r\n",
-  "1370    Re: Bitte um Meinungen ==> Virtualisierung      Robert Annessi <robert@annessi.at>      Sun, 15 Apr 2007 22:52:36 +0200 <46229089$0$10578$3b214f66@tunews.univie.ac.at>        <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <slrnf24e9s.dtb.hjp-usenet2@zeno.hjp.at> <46225c97$0$25626$91cee783@newsreader02.highway.telekom.at> <16caf4-581.ln1@swws1.dyndns.org>       1807    27      Xref: sensor.twincode.net at.linux:1370\r\n",
-  "1371    Re: Bitte um Meinungen ==> Virtualisierung      \"Thomas Spachinger\" <t.spachinger@gmx.at>       Sun, 15 Apr 2007 22:58:17 +0200 <58fi18F2gdp4eU1@mid.individual.net>   <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <4621fc17$0$2315$91cee783@newsreader01.highway.telekom.at> <evt1p1$1jar$1@geiz-ist-geil.priv.at> <4622164b$0$25611$91cee783@newsreader02.highway.telekom.at>      1427    18    Xref: sensor.twincode.net at.linux:1371\r\n",
-  "1372    Re: Bitte um Meinungen ==> Virtualisierung      Bernd Haug <haug@berndhaug.net> Sun, 15 Apr 2007 23:54:05 +0200 <tgjaf4-lt9.ln1@this.is.a.news.server.you.goddamn.stupid.program>      <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <slrnf24e9s.dtb.hjp-usenet2@zeno.hjp.at> <46225c97$0$25626$91cee783@newsreader02.highway.telekom.at> <slrnf24vjv.7pk.hjp-usenet2@zeno.hjp.at>        1721    10      Xref: sensor.twincode.net at.linux:1372\r\n",
-  "1373    Re: Bitte um Meinungen ==> Virtualisierung      Wolfgang Fuschlberger <usenet-2006-05@fuschlberger.net> Sun, 15 Apr 2007 23:58:07 +0200 <fojaf4-kcj.ln1@window.dtdns.net>      <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <slrnf24e9s.dtb.hjp-usenet2@zeno.hjp.at> <46225c97$0$25626$91cee783@newsreader02.highway.telekom.at> <16caf4-581.ln1@swws1.dyndns.org> <46229089$0$10578$3b214f66@tunews.univie.ac.at>       1800    17      Xref: sensor.twincode.net at.linux:1373\r\n",
-  "1374    Re: Bitte um Meinungen ==> Virtualisierung      Andreas Labres <al-nospam0310&bounce@labres.at> Mon, 16 Apr 2007 08:57:43 +0200 <1tnru1ccirb05.dlg@al.lab.at>  <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at>       1702    19      Xref: sensor.twincode.net at.linux:1374\r\n",
-  "1375    Re: Bitte um Meinungen ==> Virtualisierung      \"Peter J. Holzer\" <hjp-usenet2@hjp.at>  Mon, 16 Apr 2007 09:49:46 +0200 <slrnf26akq.ci5.hjp-usenet2@zeno.hjp.at>       <4621dbb8$0$2310$91cee783@newsreader01.highway.telekom.at> <dh49f4-qem.ln1@this.is.a.news.server.you.goddamn.stupid.program> <slrnf23snh.dfm.hjp-usenet2@zeno.hjp.at> <4621ff58$0$2307$91cee783@newsreader01.highway.telekom.at> <1tnru1ccirb05.dlg@al.lab.at> 2127    33      Xref: sensor.twincode.net at.linux:1375\r\n",
-  ".\r\n"
-        ]
-      else
-        @io = ["412 No Group selected"]
-      end
-    when /xover \<.+\>/
-      @io = ["502 Usage: OVER first[-[last]]"]
-    when /^xhdr\s*$/
-      @io = ["502 Usage: HDR header [first[-last]]|[message-id]"]
-    when /^head(.*)$/
-      case $1
-      when /^\s+(1430|<462dfa6f$0$23135$9b4e6d93@newsspool1.arcor-online.net>)/
-        @io = [
-      "221 1430 <462dfa6f$0$23135$9b4e6d93@newsspool1.arcor-online.net> article retrieved - head follows\r\n",
-      "Path: vietwist00.chello.at!newsfeed02.chello.at!newsfeed01.chello.at!newsfeed.arcor.de!newsspool1.arcor-online.net!news.arcor.de.POSTED!not-for-mail\r\n",
-      "Message-ID: <462dfa6f$0$23135$9b4e6d93@newsspool1.arcor-online.net>\r\n",
-      "From: Gerhard Engler <gerhard.engler@gmx.de>\r\n",
-      "Newsgroups: at.linux\r\n",
-      "Subject: Re: udev_node_mknod: /dev/capi Operation not permitted\r\n",
-      "Date: Tue, 24 Apr 2007 14:39:11 +0200\r\n",
-      "References: <4629ee10$0$10187$9b4e6d93@newsspool4.arcor-online.net> <slrnf2np7k.a8e.tom-usenet@eristoteles.iwoars.net>\r\n",
-      "Lines: 26\r\n",
-      "User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)\r\n",
-      "MIME-Version: 1.0\r\n",
-      "In-Reply-To: <slrnf2np7k.a8e.tom-usenet@eristoteles.iwoars.net>\r\n",
-      "Content-Type: text/plain; charset=ISO-8859-15; format=flowed\r\n",
-      "Content-Transfer-Encoding: 7bit\r\n",
-      "Organization: Arcor\r\n",
-      "NNTP-Posting-Date: 24 Apr 2007 14:39:11 CEST\r\n",
-      "NNTP-Posting-Host: 6cf11d8c.newsspool1.arcor-online.net\r\n",
-      "X-Trace: DXC=Cd=D_AR>:`a^Y=RbYBPl4`ic==]BZ:afn4Fo<]lROoRaFl8W>\BH3Yb7K@fQgPi`FgUTEAfnAR\Ta@JWJ8E:^d<ob]cIfD6hVgh<SdIn0f]3?i\r\n",
-      "X-Complaints-To: usenet-abuse@arcor.de\r\n",
-      "Xref: sensor.twincode.net at.linux:1430\r\n",
-      ".\r\n"
-      ]
-
-      when /^\s?$/
-        if @group_selected 
-          @io = [
-      "221 1430 <462dfa6f$0$23135$9b4e6d93@newsspool1.arcor-online.net> article retrieved - head follows\r\n",
-      "Path: vietwist00.chello.at!newsfeed02.chello.at!newsfeed01.chello.at!newsfeed.arcor.de!newsspool1.arcor-online.net!news.arcor.de.POSTED!not-for-mail\r\n",
-      "Message-ID: <462dfa6f$0$23135$9b4e6d93@newsspool1.arcor-online.net>\r\n",
-      "From: Gerhard Engler <gerhard.engler@gmx.de>\r\n",
-      "Newsgroups: at.linux\r\n",
-      "Subject: Re: udev_node_mknod: /dev/capi Operation not permitted\r\n",
-      "Date: Tue, 24 Apr 2007 14:39:11 +0200\r\n",
-      "References: <4629ee10$0$10187$9b4e6d93@newsspool4.arcor-online.net> <slrnf2np7k.a8e.tom-usenet@eristoteles.iwoars.net>\r\n",
-      "Lines: 26\r\n",
-      "User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)\r\n",
-      "MIME-Version: 1.0\r\n",
-      "In-Reply-To: <slrnf2np7k.a8e.tom-usenet@eristoteles.iwoars.net>\r\n",
-      "Content-Type: text/plain; charset=ISO-8859-15; format=flowed\r\n",
-      "Content-Transfer-Encoding: 7bit\r\n",
-      "Organization: Arcor\r\n",
-      "NNTP-Posting-Date: 24 Apr 2007 14:39:11 CEST\r\n",
-      "NNTP-Posting-Host: 6cf11d8c.newsspool1.arcor-online.net\r\n",
-      "X-Trace: DXC=Cd=D_AR>:`a^Y=RbYBPl4`ic==]BZ:afn4Fo<]lROoRaFl8W>\BH3Yb7K@fQgPi`FgUTEAfnAR\Ta@JWJ8E:^d<ob]cIfD6hVgh<SdIn0f]3?i\r\n",
-      "X-Complaints-To: usenet-abuse@arcor.de\r\n",
-      "Xref: sensor.twincode.net at.linux:1430\r\n",
-      ".\r\n"
-          ]
-        else 
-          @io = ["412 No Group selected"]
-        end
-      else
-        @io = ["501 Bad Command"]
-      end
-    else
-      @io = ["500 Unknown Command"]
-    end
-    return str.length
-  end
-
-  def readline
-    super
-    @io.shift
-  end
-
-  private
-  def dp(x)
-    $stdout.puts x
-  end
-
-end