[mhc:02003] net: パッチ + private パッチ for palm2mhc/mhc2palm

[KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx>]

パッチ2つを送ります。

(1) mhc2palm -d net: でネットワークシンクしようとすると
    net:がないといわれてしまうのを回避するパッチです。
    #このパッチがなくてもカレントディレクトリに
    #"net:"というファイルを置いておけばチェックを回避することはできます。

Index: mhc2palm.in
===================================================================
RCS file: /cvsroot/mhc/mhc2palm.in,v
retrieving revision 1.6
diff -p -u -r1.6 mhc2palm.in
--- mhc2palm.in	13 Sep 2001 05:15:17 -0000	1.6
+++ mhc2palm.in	5 Jan 2005 05:46:51 -0000
@@ -105,7 +115,7 @@ usage() if !($flag_append || $flag_insta
 ##
 
 if !$flag_noharm
-  if !File .exist?($flag_device)
+  if $flag_device != "net:" && !File .exist?($flag_device)
     STDERR .print "Can not open #{$flag_device}.\n"
     exit 1
   end
Index: palm2mhc.in
===================================================================
RCS file: /cvsroot/mhc/palm2mhc.in,v
retrieving revision 1.4
diff -p -u -r1.4 palm2mhc.in
--- palm2mhc.in	9 Feb 2001 09:37:06 -0000	1.4
+++ palm2mhc.in	5 Jan 2005 05:46:51 -0000
@@ -75,7 +75,7 @@ while ARGV .length > 0
   ARGV .shift
 end
 
-if !File .exist?($flag_device)
+if $flag_device != "net:" && !File .exist?($flag_device)
   STDERR .print "Can not open #{$flag_device}.\n"
   exit 1
 end



(2) mhc2palmでX-SC-CategoryにPrivateが含まれていると
    Palmにもプライベート情報が伝わるようにするのと
    palm2mhcでプライベートにチェックが入っている予定を
    X-SC-Category: Private にするパッチです。

Index: ruby-ext/lib/mhc-palm.rb
===================================================================
RCS file: /cvsroot/mhc/ruby-ext/lib/mhc-palm.rb,v
retrieving revision 1.11
diff -p -u -r1.11 mhc-palm.rb
--- ruby-ext/lib/mhc-palm.rb	22 Jun 2004 10:09:15 -0000	1.11
+++ ruby-ext/lib/mhc-palm.rb	5 Jan 2005 05:46:51 -0000
@@ -598,6 +598,16 @@ class PilotApptRecord < PilotRecord
       end
     end
 
+    if attribute_secret?
+      if xsc["Category"]
+        if xsc["Category"] !~ /private/i
+          xsc["Category"] += 'Private'
+        end
+      else
+        xsc["Category"] = 'Private'
+      end
+    end
+
     if repeat?
       if @repeatFrequency > 1
 	STDERR .print "#{@beg} : #{Kconv::tojis(@description)} "
Index: ruby-ext/lib/mhc-schedule.rb
===================================================================
RCS file: /cvsroot/mhc/ruby-ext/lib/mhc-schedule.rb,v
retrieving revision 1.21
diff -p -u -r1.21 mhc-schedule.rb
--- ruby-ext/lib/mhc-schedule.rb	25 Oct 2004 02:28:57 -0000	1.21
+++ ruby-ext/lib/mhc-schedule.rb	5 Jan 2005 05:51:40 -0000
@@ -840,6 +840,11 @@ class MhcScheduleItem
       # STDERR .print "#{occur_min .to_js} : #{subject} unsupported. ignored..\n"
       return nil
     else
+      if category_as_string =~ /private/i
+        ret .each{|r|
+          r .set_attribute_secret
+        }
+      end
       return ret
     end
   end

--
鯉江英隆 <hide@xxxxxxxx>