ruby-list

民斗です。

私は ftpmirror を次のように変更して使ってます。
全部とはいいませんが、いくつか取り込みません？ > 前田さん(かな？)

・引数で指定することで、転送対象のディレクトリまたはファイルを指定できる。
  （一部のディレクトリ、ファイルだけを転送可能）
・ディレクトリを再帰しないオプション -l
・コンフィグレーションファイルは -f オプションで指定する。
・TEXTFILE_EXT に nil を指定した場合は全部バイナリモードで転送する。
・ディレクトリでも IGNORE_FILE_REGEXP にマッチしたら無視する。
・ファイルの日付の比較は ctime ではなく mtime で行う。（ローカルファイル
  の日付を意図的に変更して、転送を制御できるようにするため）
・リモート側にシンボリックリンクがあった時のために、ftp.list 時に -lL フ
  ラグを指定する。（こんなやり方でいいのか一抹の不安が…(^^;）

どんなもんでしょう？
--
民斗 <tommy@valley.ne.jp>


--- /tmp/ftpmirror/ftpmirror	Thu Jan  7 13:41:10 1999
+++ ./ftpmirror	Wed Mar 10 13:29:58 1999
@@ -1,3 +1,3 @@
-#!/usr/bin/ruby
+#!/usr/local/bin/ruby
 
 ## ftpmirror version 1.2.1
@@ -5,4 +5,5 @@
 
 require "ftplib"
+require "getopts"
 
 class FTPMirror
@@ -17,5 +18,5 @@
   end
   
-  def initialize(config_file)
+  def initialize(config_file, not_recursive)
     load(config_file)
     check_config("Config")
@@ -26,6 +27,10 @@
     check_config("Config::LOCAL_DIR")
     if defined? Config::TEXTFILE_EXT
-      @textfile_regexp =
-	Regexp.new("\\.(" + Config::TEXTFILE_EXT.join("|") + ")$")
+      if Config::TEXTFILE_EXT
+	@textfile_regexp =
+	  Regexp.new("\\.(" + Config::TEXTFILE_EXT.join("|") + ")$")
+      else
+	@textfile_regexp = nil
+      end
     else
       @textfile_regexp = /\.(txt|html|shtml)$/
@@ -41,4 +46,5 @@
       @leave_file_regexp = nil
     end
+    @not_recursive = not_recursive
   end
   
@@ -49,5 +55,5 @@
   end
   
-  def start
+  def start(path)
     begin
       @ftp = FTP.new
@@ -59,5 +65,11 @@
 	@ftp.chdir(Config::REMOTE_DIR)
 	Dir.chdir(File.expand_path(Config::LOCAL_DIR))
-	updatedir(".")
+	if path.empty?
+	  update(".")
+	else
+	  path.each do |p|
+	    update(p)
+	  end
+	end
       ensure
 	@ftp.quit
@@ -68,4 +80,23 @@
   end
   
+  def update(path)
+    if path =~ /^\//
+      $stderr.print "#{path}: assumed .#{path}\n"
+      $stderr.flush
+      path[0,1] = ""
+    end
+    path[0,0] = "./" if path != "."
+    if not FileTest.exist? path
+      $stderr.print "#{path}: not found\n"
+      $stderr.flush
+      return
+    end
+    if FileTest.directory? path
+      updatedir(path)
+    else
+      updatefile(path)
+    end
+  end
+
   def updatedir(directory)
     print directory.sub(/^./, Config::REMOTE_DIR), ":\n"
@@ -77,12 +108,15 @@
       if file != "." && file != ".."
 	if File.ftype(longname) == "directory"
+	  if longname =~ @ignore_file_regexp
+	    next
+	  end
 	  unless remote_dirs.include?(file)
 	    makedir(longname)
 	  end
-	  updatedir(longname)
+	  updatedir(longname) unless @not_recursive
 	else
 	  if not longname =~ @ignore_file_regexp and
 	      (not remote_filetimes.has_key?(file) or
-	       remote_filetimes[file] < File.ctime(longname))
+	       remote_filetimes[file] < File.mtime(longname))
 	    updatefile(longname)
 	  end
@@ -101,5 +135,5 @@
   
   def check_remote_files(directory, dirs, filetimes)
-    @ftp.list(directory) do |line|
+    @ftp.list("-lL "+directory) do |line|
       unless line =~ /^total/
 	if line[0] == ?d
@@ -168,13 +202,13 @@
 end
 
-if ARGV.length == 0
-  config_file = File.expand_path("~/.ftpmirror")
-elsif ARGV[0] == "--version"
+if not getopts("l", "f:~/.ftpmirror", "version")
+  usage()
+end
+
+if $OPT_version
   FTPMirror.print_version
   exit
-else
-  config_file = ARGV.shift
 end
 
-ftpmirror = FTPMirror.new(config_file)
-ftpmirror.start
+ftpmirror = FTPMirror.new(File.expand_path($OPT_f), $OPT_l)
+ftpmirror.start ARGV

Thread

Prev Next

In This Thread

Prev Next

[#12441] Re: ロックでアドバイスをいただきたいのですが — Keisuke Minami <keisuke@...>

[#12442] Re: 全角文字列の分割方法について — Masatoshi SEKI <m_seki@...>

[#12443] Re: Tiny eRuby — Masatoshi SEKI <m_seki@...>

[#12444] Re: ロックでアドバイスをいただきたいのですが — Shugo Maeda <shugo@...>

[#12446] Re: Linux World Conference Japan materials (Re: Re: FAQ for /:|)) — Kikutani Makoto <kikutani@...>

[#12447] Re: ロックでアドバイスをいただきたいのですが — "Kozuka Masahiro" <kozuka@...>

[#12448] Re: 全角文字列の分割方法について — goto@...

[#12488] super — WATANABE Hirofumi <watanabe@...>

[#12498] monitor.rb — Shugo Maeda <shugo@...>

[#12504] smtpclient — Kikutani Makoto <kikutani@...>

[#12527] Class::method Class.method — Wakou Aoyama <wakou@...>

[#12531] Link List on Ruby Home Page — Hiroshi Igarashi <igarashi@...>

[#12537] cygwin 版 ruby の $LOAD_PATH(Meeting2000 v0.92 にて ) — Yukihiko Eda <yuki-e@...>

[#12543] Ruby Conference 0.3 — greentea@...2.so-net.ne.jp (Tomoyuki Kosimizu)

[#12545] arg omit — Kikutani Makoto <kikutani@...>

[#12546] ［閑話］ Ruby Conference 0.3 参加したいぃ — Atsuko Yoshida <atsuko@...>

[#12560] — Miki Okada <miki@...>

[#12564] irb-0.5.1 release [Re: irb on ruby-1.4] — keiju@... (石塚圭樹 )

[#12569] ruby-perllib-19990305 — Yoshinori Toki <toki@...>

[#12573] alternative name of iterator — Shugo Maeda <shugo@...>

[#12574] Ruby in a NUTSHELL — KIMURA Koichi <kbk@...>

[#12585] — SONE Toshihiko <tsone@...>

[#12590] kconv SJIS — Kikutani Makoto <kikutani@...>

[#12612] Pattern matching — Masatoshi SEKI <m_seki@...>

[#12618] my ruby page — kikutani@...

[#12622] mod_ruby-0.0.8 — Shugo Maeda <shugo@...>

[#12623] Ruby 1.2.3 FreeBSD port — Yasuhiro Fukuma <yasuf@...>

[#12625] nif.rb(ver0.41) — Wakou Aoyama <wakou@...>

[#12626] Fw: Re: ruby-perllib-19990305 — ymaekawa@...

[#12629] trouble on ruby-perllib — ymaekawa@...

[#12634] UNIX USER 4/1999 — WATANABE Tetsuya <tetsu@...>

[#12635] RE:UNIX USER 4/1999 — "Kozuka Masahiro" <kozuka@...>

[#12648] [CFP:] UML'99 (2nd Call For Paper) — Jean-Michel.Bruel@... (Jean-Michel BRUEL)

[#12652] nif.rb(ver0.42) — Wakou Aoyama <wakou@...>

[#12656] Ruby Conference 0.3 — matz@... (Yukihiro Matsumoto)

[#12692] — IKARASHI Akira <ikarashi@...>

[#12693] Self Intorduction — Hirosato Matsuura <matswra@...>

[#12694] operater bind order ? — "Kikutani, Makoto" <kikutani@...>

[#12695] 第 2 回 OMG 分散コンピューティング・セミナー： CORBA3.0 の詳説と CORBA 活用の実際 — Junichi Suzuki <jun-sk@...>

[#12701] Re: alternative name of iterator — 助田 雅紀 <masaki.suketa@...>

[#12707] Re: operater bind order ? — Inaba Hiroto <inaba@...>

[#12715] ftpmirror 改 — 民斗 <tommy@...>

[#12727] Making of Interval class. — moochan <moochan@...>

[#12728] Time + 1M — Wakou Aoyama <wakou@...>

[#12734] calendar-1.4r and date-1.3 — Tadayoshi Funaba <tadf@...>

[#12743] ftpmirror — Shugo Maeda <shugo@...>

[#12756] Re: Making of Interval class. — moochan <moochan@...>

[#12788] 米国からコンタクトレンズの個人輸入のご案内 !!! — DM <dmservice@...>

[#12805] win32 版 (cygwin) での MS-DOS ツールを起動したい時について — Hirotaka Ishida <h-ishida@...>

[#12816] ruby-perllib-19990313 — Yoshinori Toki <toki@...>

[#12822] nif.rb (ver0.50) — Wakou Aoyama <wakou@...>

[#12827] ruby/tk for win32 — oshima@... (Mitsuru Oshima)

[#12833] Re: property, pascal, etc... — greentea@...2.so-net.ne.jp (Tomoyuki Kosimizu)

[#12835] XML developper day — Takaaki Higuchi - Technology Marketing <Takaaki.Higuchi@...>

[#12838] patches — ttate@...

[#12843] win32ole — 助田 雅紀 <masaki.suketa@...>

[#12850] Ruby Conference 0.3 where ? when ? — ISII takesi <isii@...>

[#12869] clone vs. dup in subclass of Array — Inaba Hiroto <inaba@...>

[#12876] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12878] FileDialog — akendo@...3.rim.or.jp

[#12891] ftplib.rb — ttate@...

[#12893] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12916] Thanks 出沢さん (mime.rb) — kikutani@...

[#12918] Sieve of Eratosthenes (Re: [ruby-dev:6094]) — Shin-ichiro Hara <sinara@...>

[#12922] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12925] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12928] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12940] fwtelnet.rb — WATANABE Hirofumi <watanabe@...>

[#12945] mutex_m.rb & sync.rb for 1.3 — Shugo Maeda <shugo@...>

[#12947] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12950] ruby-perllib-19990317 — Yoshinori Toki <toki@...>

[#12951] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12953] Re: mutex_m.rb & sync.rb for 1.3 — 助田 雅紀 <masaki.suketa@...>

[#12961] OS/2 support — OKUNISHI Fujikazu <fuji0924@...>

[#12963] seqcmp.rb — sekita-n@... (Sekitani Nobutaka)

[#12967] profiler — "Kikutani, Makoto" <kikutani@...>

[#12979] popclient.rb (1.0.10) CR LF -> CR CR LF ? — "Kikutani, Makoto" <kikutani@...>

[#12983] Re: seqcmp.rb — Inaba Hiroto <inaba@...>

[#13000] Tiny eRuby — Masatoshi SEKI <m_seki@...>

[#13024] — Ryo HAYASAKA <hayasaka@...>

[#12701] Re: alternative name of iterator — 助田　雅紀 <masaki.suketa@...>

[#12843] win32ole — 助田　雅紀 <masaki.suketa@...>

[#12876] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12893] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12922] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12925] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12928] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12947] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12951] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12953] Re: mutex_m.rb & sync.rb for 1.3 — 助田　雅紀 <masaki.suketa@...>

[#13069] RE: Ruby Session in LinuxWorld Conference Japan — 助田　雅紀 <masaki.suketa@...>

[#13070] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#13076] RE: TIMTOWTDI — 助田　雅紀 <masaki.suketa@...>

[#13077] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#13097] RE: FAQ for /:|) — 助田　雅紀 <masaki.suketa@...>

[#13101] Re: FAQ for /:|) — 助田　雅紀 <masaki.suketa@...>