From 2016bd83be878cd365a1416b85c62574e64869fc Mon Sep 17 00:00:00 2001
From: wmorgan <wmorgan@5c8cc53c-5e98-4d25-b20a-d8db53a31250>
Date: Thu, 3 May 2007 20:11:39 +0000
Subject: [PATCH] allow host:port specifications in sup-config

git-svn-id: svn://rubyforge.org/var/svn/sup/trunk@389 5c8cc53c-5e98-4d25-b20a-d8db53a31250
---
 bin/sup-config | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/bin/sup-config b/bin/sup-config
index f624841..5b75b2b 100644
--- a/bin/sup-config
+++ b/bin/sup-config
@@ -65,7 +65,7 @@ def add_source
         return if fn.nil? || fn.empty?
         { :scheme => "maildir", :path => fn }
       when :mboxssh
-        srv = axe "What server is the mbox file located on?", $last_server 
+        srv = axe "What machine is the mbox file located on?", $last_server 
         return if srv.nil? || srv.empty?
         $last_server = srv
         fn = axe "What's the full path to the mbox file?", ENV["MAIL"] #"srm
@@ -73,13 +73,19 @@ def add_source
         fn = "/#{fn}" # lame
         { :scheme => "mbox+ssh", :host => srv, :path => fn }
       when :imap, :imaps
-        srv = axe "What is the IMAP server?", $last_server
+        srv = axe "What is the IMAP server (host, or host:port notation)?", $last_server
         return if srv.nil? || srv.empty?
         $last_server = srv
         fn = axe "What's the folder path?", "INBOX" #"srm 
         return if fn.nil? || fn.empty?
         fn = "/#{fn}" # lame
-        { :scheme => type.to_s, :host => srv, :path => fn }
+
+        if srv =~ /^(\w+):(\d+)$/
+          host, port = $1, $2.to_i
+        else
+          host, port = srv, nil
+        end
+        { :scheme => type.to_s, :host => host, :port => port, :path => fn }
       end
     
     uri = 
-- 
2.45.2