[ruby-list:29410] Re: rnet.rb 〜高レベルネットライブラリ〜

From: rubikitch <[e-mail]>
Subject: [ruby-list:29397] rnet.rb 〜高レベルネットライブラリ〜
Date: Wed, 25 Apr 2001 02:32:21 +0900

> ネットを扱うクラスでちょっと高レベルなインターフェースが欲しかったので、
> 書いてみました。
ぐはっ、バグ発見。

--- rnet.rb	2001/04/25 15:18:48	1.1
+++ rnet.rb	2001/04/25 15:28:54	1.2
@@ -1,6 +1,8 @@
 #!/usr/bin/env ruby
 =begin
 = RNet
+$Id: rnet.rb,v 1.2 2001/04/25 15:28:54 takashi Exp $
+
 高レベルネットクラス。要uri.rb。
 URIで指定してネットワークをいじくる。
 
@@ -69,6 +71,15 @@
     end
     private :setup
     
+    def full_uri(url)
+      begin
+        URI::create(url)
+      rescue
+        URI::create(@uri, url)
+      end
+    end
+      
+    
     def head(header0={})
       header = @@HeadHeader.dup.update(header0)
       @net.head2 @path, header
@@ -78,7 +89,7 @@
       header = @@GetHeader.dup.update(header0)
       @net.get2(@path, header) do |res|
         if res.code =~ /^3[0-9][0-9]$/
-          return RNet::new(res['location']).get(header0)
+          return RNet::new(full_uri(res['location'])).get(header0)
         end
       end
     end
@@ -114,7 +125,7 @@
       header = @@PostHeader.dup.update(header0)
       @net.post2(@path, datastr, header) do |res|
         if res.code =~ /^3[0-9][0-9]$/
-          return RNet::new(res['location']).get(header0)
+          return RNet::new(full_uri(res['location'])).get(header0)
         end
       end
     end