httmpc 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: dd8a6a07c3f8561bcb3ba49a8099d65211b76ccd1427b0305b5bf03811e13a5f
+  data.tar.gz: d381ad4686df3d5bfae6366279d6dfe68cd8a569199fec3cdf4d1d9981c820b8
+SHA512:
+  metadata.gz: aa9ae1eb4398d06bb1c52304d74ef98198d54c3616fe6d7696e73eb3df17d3cdd4cb1553f50d62951b56b8ad8f6125cd8db8c6eece2bca8c071e15e2adbbde15
+  data.tar.gz: 0b5096064ff6f5d0303febc34580c4590354e1b45bfb48963c0035b16e600340218d212a1f28a74538cfec1874f97283a99e5d6dd15b2d38c26f16ea7b5a83d2

data/.gitignore

@@ -0,0 +1,12 @@
+/.bundle/
+/.yardoc
+/Gemfile.lock
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+/vendor/
+._*
+

data/Gemfile

@@ -0,0 +1,4 @@
+source "https://rubygems.org"
+
+# Specify your gem's dependencies in httmpc.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,8 @@
+Copyright 2020 ASAHI,Michiharu
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+

data/README.md

@@ -0,0 +1,102 @@
+# httmpc
+
+mpd サーバのフロントエンドとなる web サーバです。
+httmpc が動作するサーバにブラウザでアクセスすることで、mpd サーバの選曲や再生ができます。
+
+主な使い方として、Raspberry Pi 上に [rbtune](https://github.com/fusuian/rbtune) ともどもインストールして、自動録音されたラジオ番組を再生すること（また、聞き終わった番組を手軽に消去すること）を想定しています。
+mp3 などのアルバムのコレクションからの再生には向かないので、その場合は他の mpd クライアントをご利用ください。
+
+
+## インストールと設定
+
+あらかじめ mpd をインストールする必要があります。
+
+    $ sudo apt install mpd
+
+httmpc 本体は gem でインストールできます。Ruby 2.5以降が必要です。
+
+    $ gem install httmpc
+
+
+## 使い方
+
+### サーバの起動
+以下のコマンドで httmpc が起動します。
+
+    $ httmpc -e production
+
+コマンドラインオプションはsinatraに準じます、
+
+  Usage: httmpc [options]
+      -p port                          set the port (default is 4567)
+      -s server                        specify rack server/handler (default is thin)
+      -q                               turn on quiet mode (default is off)
+      -x                               turn on the mutex lock (default is off)
+      -e env                           set the environment (default is development)
+      -o addr                          set the host (default is (env == 'development' ? 'localhost' : '0.0.0.0'))
+
+ただし、ポートを指定する-pオプションは効果がないので、環境変数PORTで設定します。
+
+    $ PORT=80 httmpc -e production
+
+
+### ブラウザからのアクセス
+
+ホスト recorder.local 上でhttmpcを起動した場合、ブラウザから以下のアドレスにアクセスすると、音声ファイルのリストが表示されます。
+
+デフォルトで起動した場合:
+http://recorder.local:4567/
+
+PORT=80 で起動した場合:
+http://recorder.local/
+
+
+#### All List タブ
+
+All List タブをクリックすると、録音された音声ファイルの一覧が表示されます。
+タイトル、日付、時:分 でソートできます。音声ファイル名がボタンになっているので、これをクリックするとPlaylist に追加されます。右端のゴミ箱アイコンをクリックするとファイルを削除します。
+録音されたはずのファイルが表示されない場合は、ブラウザからリロードを繰り返すと表示されます。
+
+
+#### Playlist タブ
+Playlist タブをクリックすると、プレイリストが表示されます。
+これもタイトル、日付、時:分 でソートでき、音声ファイル名のボタンを押すと再生が始まります。
+再生が済んでもプレイリストから自動的に消えることはないので、右端のxボタンを押して音声ファイルをプレイリストから取り除きます。（ファイルは消えません）
+
+
+#### コントロールパネル
+どちらのタブでも、上部にはコントロールパネルがあります。
+コントロールパネルの機能は以下のようになっています。（上から）
+* 再生中のタイトルとプレイリストの進む・戻るボタン
+* 再生位置バー
+* 30秒戻る、15秒戻る、再生開始、一時停止、15秒進む、30秒進む
+* 15分戻る、5分戻る、1分戻る、1分進む、5分進む、15分進む
+
+
+### サービスとして登録する
+
+httmpcはWebサーバなので、コマンドラインから起動するよりも、自動起動されるようにサービスとして登録する方が便利です。
+Raspberry piの場合、以下のような httmpc.service を用意して /etc/systemd/system/ に配置して、
+
+  $ sudo systemctl enable httmpc
+
+としてから再起動すると、OSが起動するときに自動的に httmpc が起動するようになります。
+
+    [Unit]
+    Description=httmpc - run mpd Web frontend
+    After=network.target
+
+    [Service]
+    Type = simple
+    Environment=PORT=80
+    ExecStart = /usr/local/bin/httmpc -e production
+    Restart = always
+
+    [Install]
+    WantedBy=multi-user.target
+
+
+
+## プロジェクトへの協力
+
+バグ報告やプルリクエストは Github の https://github.com/fusuian/httmpc まで、よろしくお願いします。

data/Rakefile

@@ -0,0 +1,2 @@
+require "bundler/gem_tasks"
+task :default => :spec

data/bin/console

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+
+require "bundler/setup"
+require "httmpc"
+
+# You can add fixtures and/or initialization code here to make experimenting
+# with your gem easier. You can also use a different console, if you like.
+
+# (If you use this, don't forget to add pry to your Gemfile!)
+# require "pry"
+# Pry.start
+
+require "irb"
+IRB.start(__FILE__)

data/bin/setup

@@ -0,0 +1,8 @@
+#!/usr/bin/env bash
+set -euo pipefail
+IFS=$'\n\t'
+set -vx
+
+bundle install
+
+# Do any other automated setup that you need to do here

data/exe/httmpc

@@ -0,0 +1,200 @@
+#!/usr/bin/env ruby
+require "sinatra"
+require "sys-filesystem"
+require "net/telnet"
+require "time"
+require "httmpc"
+
+$mpdhost = "localhost"
+$mpdport = 6600
+$music_dir = '/home/pi/radio'
+
+set :views, File.join(File.dirname(__FILE__), '../views')
+set :public_folder, File.join(File.dirname(__FILE__), '../public')
+#set :port, 80
+
+get '/' do
+	redirect '/listall'
+end
+
+
+# ディスク残量(GB)
+def available
+	stat = Sys::Filesystem.stat('/')
+	available = (stat.blocks_available * stat.block_size).to_f / 1024 / 1024 / 1024
+end
+
+
+# ディスク容量(GB)
+def total
+	stat = Sys::Filesystem.stat('/')
+	total = (stat.blocks * stat.block_size).to_f / 1024 / 1024 / 1024
+end
+
+
+def fetch_songs(cmd)
+	songs = []
+	info = []
+	res = term {|t| t.cmd(cmd)}
+	return [] unless res # 曲がない
+
+	infos = res.split(/\n/)
+	infos.pop
+	infos.each do |s|
+	 	if s =~ /^file:/ && info.size > 0
+	 		songs << Song.new(info)
+	 		info = []
+	 	end
+	 	info << s
+	end
+	songs << Song.new(info) if info.size > 0
+	songs
+end
+
+
+def term
+	term = Net::Telnet.new("Host" => $mpdhost, "Port" => $mpdport,
+				"Prompt"=>/OK/, "Telnetmode" => false, "Binmode" => true)
+	term.waitfor /^OK.*$/
+	res = yield term
+	term.close
+	res
+end
+
+post '/add/:file' do |file|
+	content_type :json
+	res = term {|t| t.cmd "add #{file}" }
+	res.force_encoding('utf-8') if res
+	{action: 'add', file: file, responce: res}.to_json
+end
+
+
+delete '/delete/:id' do |id|
+	content_type :json
+	res = term {|t| t.cmd "deleteid #{id}" }
+	{action: 'delete', id: id, responce: res}.to_json
+end
+
+
+post '/play/:id' do |id|
+	content_type :json
+	res = term {|t| t.cmd("playid #{id}") }
+	res.force_encoding('utf-8') if res
+	{action: 'play', id: id, responce: res}.to_json
+end
+
+post '/play' do
+	content_type :text
+	term {|t| t.cmd("play") }
+end
+
+
+post '/pause' do
+	content_type :text
+	term {|t| t.cmd("pause") }
+end
+
+
+post '/next' do
+	content_type :text
+	term {|t| t.cmd("next") }
+end
+
+post '/previous' do
+	content_type :text
+	term {|t| t.cmd("previous") }
+end
+
+
+post '/seekcur/:sec' do |sec|
+	content_type :text
+	res = term {|t| t.cmd("seekcur #{sec}") }
+	"#{res}: seekcur #{sec}"
+end
+
+
+get '/playlist' do
+	begin
+		@title = "PlayList"
+		@songs = fetch_songs 'playlistinfo'
+		erb :playlist, layout: :template
+
+	rescue Errno::ECONNREFUSED
+		"#{$mpdhost}:#{$mpdport} mpdホストへの接続失敗"
+	end
+end
+
+
+get '/listall' do
+	begin
+		@title = "AllList"
+		res = term {|t| t.cmd("update") }
+		@songs = fetch_songs 'listallinfo'
+		@songs = @songs.sort_by {|s| s.onair }.reverse
+
+		erb :listall, layout: :template
+
+	rescue Errno::ECONNREFUSED
+		"#{$mpdhost}:#{$mpdport} mpdホストへの接続失敗"
+
+	rescue Encoding::CompatibilityError
+		"listallinfoのエンコード失敗"
+	end
+end
+
+
+def stat2hash(res)
+	stats = res.split(/\n/)
+	stats.pop
+	hash = {}
+	stats.each do |s|
+		k,v = s.split(/: /)
+		hash[k] = v
+	end
+	hash
+end
+
+get '/playing' do
+	begin
+		res = term {|t| t.cmd('status') }
+		return {}.to_json unless res
+		status = stat2hash(res)
+
+		playing = {}
+		playing['state'] = status['state']
+
+		if playing['state'] == 'stop'
+			playing['title'] = 'stopping'
+			playing['elapsed'] = '--:--'
+			playing['time'] = '--:--'
+
+		else
+			playing['elapsed'] = status['elapsed'].to_f
+			songs = fetch_songs('currentsong')
+			song = songs[0]
+			playing['title'] = song.title
+			playing['onair'] = song.onair if song.has_key? 'onair'
+			playing['time'] = song.time.to_i
+		end
+
+		playing.to_json
+
+	rescue Errno::ECONNRESET, Errno::EPIPE
+		return {}.to_json
+	end
+
+end
+
+
+delete '/kill_file/:file' do |file|
+	content_type :json
+	begin
+		FileUtils.rm File.join($music_dir, file)
+		{action: 'delete', file: file, responce: 'done'}.to_json
+	rescue Errno::ENOENT
+		status 404
+		"#{file}が存在しません"
+	end
+end
+
+run Sinatra::Application.run!

data/httmpc.gemspec

@@ -0,0 +1,34 @@
+# coding: utf-8
+lib = File.expand_path("../lib", __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require "httmpc/version"
+
+Gem::Specification.new do |spec|
+  spec.name          = "httmpc"
+  spec.version       = Httmpc::VERSION
+  spec.authors       = ["ASAHI,Michiharu"]
+  spec.email         = ["fusuian@gmail.com"]
+
+  spec.summary       = %q{mpd client for browser}
+  spec.description   = %q{An mpd client that acts as a web server. You can operate the mpd server from any browser.}
+  spec.homepage      = "https://github.com/fusuian/httmpc"
+  spec.license       = "MIT"
+  spec.required_ruby_version = Gem::Requirement.new("~> 2.5")
+
+
+  spec.files         = `git ls-files -z`.split("\x0").reject do |f|
+    f.match(%r{^(test|spec|features)/})
+  end
+  spec.bindir        = "exe"
+  spec.executables   = %w(httmpc)
+  spec.require_paths = ["lib"]
+
+  spec.add_dependency "net-telnet", "~> 0.2"
+  spec.add_dependency "sys-filesystem", "~> 1.3"
+  spec.add_dependency "thin", "~> 1.7"
+  spec.add_dependency "sinatra", "~> 2.0"
+  spec.add_dependency "sinatra-contrib", "~> 2.0"
+
+  spec.add_development_dependency "bundler", "~> 2"
+  spec.add_development_dependency "rake", "~> 10.0"
+end

data/httmpc.service

@@ -0,0 +1,14 @@
+[Unit]
+Description=httmpc - run mpd Web frontend
+After=network.target
+
+[Service]
+Type = simple
+Environment=PORT=80
+ExecStart = /usr/local/bin/httmpc -e production
+#Restart = always
+Restart = no
+
+[Install]
+WantedBy=multi-user.target
+

data/lib/httmpc.rb

@@ -0,0 +1,2 @@
+require "httmpc/version"
+require "httmpc/song"

data/lib/httmpc/song.rb

@@ -0,0 +1,58 @@
+require "date"
+
+class Song < Hash
+	def initialize(args)
+		args.each do |s|
+			k,v = s.split(/: /)
+			k.downcase!
+			case k
+			when 'file'
+				Song.parse_file self, k, v
+			when /-modified/
+				self[k] = DateTime.parse v
+				self['onair'] = self[k] unless self.has_key? 'onair'
+			when 'time'
+				self[k] = v.to_f
+			when 'pos', 'id'
+				self[k] = v.to_i
+			when 'title'
+			else
+				v.force_encoding(Encoding::UTF_8) unless v.encoding == Encoding::UTF_8
+				self[k] = v
+			end
+		end
+	end
+
+
+	def playtime
+		if self.has_key? 'time'
+			(Time.parse("1/1") + time).strftime("%H:%M")
+		else
+			"?"
+		end
+	end
+
+	def self.parse_file(hash,k,v)
+		v.force_encoding('utf-8')
+		hash[k] = v
+		v =~ /\.(\d{4}-\d{2}-\d{2}(T\d{2}=\d{2})?)\./
+		if $1
+			onair = $1.sub(/=/, ":")
+			hash['onair'] = DateTime.parse onair
+			hash['title'] = v.split(/\./)[0]
+		else
+			hash['title'] = v
+		end
+	end
+
+
+	def method_missing(method_name)
+		method_key = method_name.to_s
+		if self.key? method_key
+			self[method_key]
+		else
+			super
+		end
+	end
+	
+end