単なる日記 (2002-2)

module WavFile
  class NotWavFormatError < StandardError
  end
 
  class Chunk
    attr_reader(:id, :size, :data)
 
    def read(file)
      @id = file.read(4)
      @size = file.read(4).unpack("V")[0]
      @data = file.read(size)
    end
  end
 
  def WavFile.read(file)
    riff = file.read(4)
    data_size = file.read(4).unpack("V")[0]
    wave = file.read(4)
    raise(NotWavFormatError) unless riff == "RIFF" and wave == "WAVE"
 
    while not file.eof?
      chunk = Chunk.new
      chunk.read(file)
      p([chunk.id, chunk.size])
    end
  end
end
 
if $0 == __FILE__
  File.open(ARGV[0]) do |f|
    f.binmode
    WavFile.read(f)
  end
end

module Wav
  class NotWavFormatError < StandardError
  end
 
  class Chunk
    attr_reader(:id, :size, :data)
 
    def read(file)
      @id = file.read(4)
      @size = file.read(4).unpack("V")[0]
      @data = file.read(size)
    end
 
    def write(file)
      file.write(@id + [@size].pack("V") + @data)
    end
  end
 
  class File
    def initialize
      @chunks = []
    end
 
    def read(file)
      riff = file.read(4)
      data_size = file.read(4).unpack("V")[0]
      wave = file.read(4)
      raise(NotWavFormatError) unless riff == "RIFF" and wave == "WAVE"
 
      while not file.eof?
        chunk = Chunk.new
        @chunks.push(chunk)
        chunk.read(file)
      end
    end
 
    def write(file, filters = nil)
      filters = ["fmt ", "data"] if filters.class != Array
      size = 4
      @chunks.each do |chunk|
        size += 4 + chunk.size + 4
      end
      file.write("RIFF" + [size].pack("V") + "WAVE")
      @chunks.each do |chunk|
        chunk.write(file) if filters.include?(chunk.id)
      end
    end
  end
end
 
if $0 == __FILE__
  wavfile = Wav::File.new
  File.open(ARGV[0]) do |f|
    f.binmode
    wavfile.read(f)
  end
  File.open(ARGV[1], "w") do |f|
    f.binmode
    wavfile.write(f)
  end
end

--- /usr/local/etc/ddclient.conf.sample Sun Feb 17 23:27:13 2002
+++ /usr/local/etc/ddclient.conf    Mon Feb 18 00:32:35 2002
@@ -14,7 +14,7 @@
 ######################################################################
 daemon=300                 # check every 300 seconds
 syslog=yes                 # log update msgs to syslog
-mail=root                  # mail update msgs to root
+mail=don                   # mail update msgs to root
 pid=/var/run/ddclient.pid          # record PID in file.
 #
 #use=watchguard-soho,        fw=192.168.111.1:80   # via Watchguard's SOHO FW
@@ -39,10 +39,12 @@
 #use=ip,                     ip=127.0.0.1  # via static IP's
 #use=if,                     if=eth0       # via interfaces
 #use=web                   # via web
+use=if, if=tun0                    # via interfaces
 #
 #protocol=dyndns2              # default protocol
 #proxy=fasthttp.sympatico.ca:80            # default proxy
 #server=members.dyndns.org         # default server
+#server=members.dyndns.org         # default server
 #server=members.dyndns.org:8245            # default server (bypassing proxies)
 
 #login=your-login              # default login
@@ -102,11 +104,11 @@
 ##
 ## Hammernode (hn.org) dynamic addresses
 ##
-# server=dup.hn.org,               \
-# protocol=hammernode1,            \
-# login=your-hn-login,             \
-# password=your-hn-password        \
-# your-hn-host.hn.org,your-2nd-hn-host.hn.org
+server=dup.hn.org,                 \
+protocol=hammernode1,          \
+login=iwadon,              \
+password=*******           \
+iwadon.hn.org
 
 ##
 ## dslreports.com dynamic-host monitoring

--- /usr/local/etc/rc.d/ddclient.sh.sample  Sun Feb 17 23:27:13 2002
+++ /usr/local/etc/rc.d/ddclient.sh Mon Feb 18 00:51:40 2002
@@ -1,19 +1,19 @@
 #!/bin/sh
 
+if ! PREFIX=$(expr $0 : "\(/.*\)/etc/rc\.d/$(basename $0)\$"); then
+    echo "$0: Cannot determine the PREFIX" >&2
+    exit 1
+fi
+
 case "$1" in
    start)
-       if [ -x /usr/local/sbin/ddclient ]; then
-           /usr/local/sbin/ddclient -daemon 300 && echo -n ' ddclient'
-       fi
+       [ -x ${PREFIX}/sbin/ddclient ] && ${PREFIX}/sbin/ddclient -daemon 300 && echo -n ' ddclient'
        ;;
    stop)
-       /usr/bin/killall ddclient
-       echo -n ' ddclient'
+       [ -r /var/run/ddclient.pid ] && /bin/kill `/bin/cat /var/run/ddclient.pid`
        ;;
    *)
-       echo ""
        echo "Usage: `basename $0` { start | stop }"
-       echo ""
        exit 64
        ;;
 esac

 $keep_local_copy   = false
 
 $get_commands = [
 # 'ncftpget ftp://localhost/usr/src/%s',
  'wget --passive-ftp --non-verbose ftp://ftp.st.ryukoku.ac.jp/pub/ms-windows/%s',
  'ln -s /usr/src/%s .',
 ]
 
 $holds = [
 ]
 
 $directories = [
  "redhat/RPMS/i686",         # for local
  "redhat/RPMS/noarch",           # for local
  "HeavyMoon/rpms/i686",          # for Project HeavyMoon
  "HeavyMoon/rpms/noarch",        # for Project HeavyMoon
 ]