#! /usr/bin/ruby

######################################################
# convert XMMS playlist to Winamp-style so my iRiver #
# can read it.                                       #
# v0.1 jan 20/2004                                   #
######################################################
# Copyright (c) 2004 Jason Fabris. All rights        #
# reserved.  This program is free software; you can  #
# redistribute it and/or modify it for any non-      #
# commercial use.                                    #
######################################################

require 'getoptlong'

def usage()
puts <<END_USAGE

Converts XMMS-style m3u playlists to a format readable by the iRiver iHP
conv_m3u --options [m3u_file] [new_m3u_file]

Options:
-h, --help\tYou're looking at it.
-m, --mount\tDefine base mount point to be stripped (e.g. /mnt/device)
      (default is '/mnt/iriv', so if that's where you had your iRiver
       when you made your playlist, you don't need to use this option)
-v, --verbose\tPrint new list to STDOUT (as well as to [new_m3u_file])
      (default is false)

END_USAGE
exit
end

mount_point = '/mnt/iriv/'
v_out = false

# initialize command options
opts = GetoptLong.new(
  ["--help", "-h", GetoptLong::NO_ARGUMENT],
  ["--mount", "-m", GetoptLong::REQUIRED_ARGUMENT],
  ["--verbose", "-v", GetoptLong::NO_ARGUMENT]
  )
opts.quiet = true

begin
  opts.each do |opt, arg|
    case opt
    when "--help"
      usage()
    when "--mount"
      mount_point = arg.to_s
      unless mount_point =~ /\/$/     # user can add trailing '/' or not
        mount_point.concat("/")
      end
    when "--verbose"
      v_out = true
    else
      raise
    end
  end
rescue
  usage()
end

reg = Regexp.new("^" + mount_point)
file_name = ARGV[0].to_s
new_file = ARGV[1].to_s

if file_name.length == 0 || new_file.length == 0
  usage()
else
  unless /.+\.m3u$/i =~ new_file     # check to see if new m3u file is named properly
    puts "Warning: to be recgonized on the iRiver, filename must end in \".m3u\""
    puts "You created a file named: " + ARGV[1].to_s
  end
  File.open(new_file, "w") do |out_file|
    File.open(file_name) do |in_file|
      in_file.each_line do |line|

        if reg.match(line)                #line starts with mount point
          line[mount_point] = ""          #remove abs path info

          if line =~ /.+\r\n/            #convert lf to cr-lf
            puts "lf-cr already there"
          else
            line.gsub!(/\n/, %Q/\r\n/)
          end

          line.gsub!(/\//, "\\")          #convert path sep from / to \

          out_file.puts line
          puts line if v_out

        elsif line=~ /^#EXT*/          #for EXTINF/EXTM3U lines
          if line =~ /.*\r\n/            #convert lf to cr-lf
            puts "lf-cr already there"
          else
            line.gsub!(/\n/, %Q/\r\n/)
          end
          out_file.puts line
          puts line if v_out
        else                              #line doesn't start w/path or EXTINF
          puts "Don't know what to do with this line:"
          puts line
          puts "Maybe your mount point is set incorrectly? (#{mount_point})"
        end                               #reg.match
      end                                 #in_file.each_line
    end                                   #open in_file
  end                                     #open out_file
end                                       #input opts acceptable