#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'tk'


STDERR.print("firefoxについて: roy を起動=r  sip を起動=s  マナバの起動=m:")
case STDIN.gets
when /^r/i
  STDERR.puts "roy を起動します"
  cmd = ARGV[0] || "firefox http://roy" ||"line"
  if (pid = fork()) then

  elsif
    # 子プロセスのみの処理はここ
    exec(cmd)
  end

  STDERR.printf("roy について: roy を終了=k ")
  case STDIN.gets
  when /^k/i
    Process.kill(:KILL,pid)
  end


when /^s/i
  STDERR.puts "sip を起動します"
  cmd = ARGV[0] || "firefox http://sip"
  if (pid = fork()) then
    # TkLabel.new("text"=>"sip 注意点","bg"=>"cyan").pack("side"=>"top")

  elsif
    # 子プロセスのみの処理はここ
    exec(cmd)
  end

  # TkLabel.new("text"=>"sip 注意点","bg"=>"cyan").pack("side"=>"top")

  TkLabel.new(){
    text("User ID は大文字の C から続けて学籍番号全てです。"); bg("pink")}.grid("row"=>0, "column"=>0)
  # TkLabel.new(){
  #   text("ex) C118****"); bg("pink")}.grid("row"=>1, "column"=>0)
  # TkLabel.new(){
  #   text("Password は忘れたら教務課へ。"); bg("bule")}.grid("row"=>2, "column"=>0)
  # TkButton.new("text"=>"push で終わります。",
  #              "command"=>proc{puts "ok"; exit(0)}).pack
  Tk.mainloop



  STDERR.printf("sip について: sip を終了=k ")
  case STDIN.gets
  when /^k/i
    Process.kill(:KILL,pid)
  end

when /^m/i
  STDERR.puts "マナバを起動します"
  #system'firefox http://'
  cmd = ARGV[0] || "firefox http://lin.koeki-u.ac.jp"
  if (pid = fork()) then

  elsif
    # 子プロセスのみの処理はここ
    exec(cmd)
  end

  STDERR.printf("マナバ について: マナバ を終了=k ")
  case STDIN.gets
  when /^k/i
    Process.kill(:KILL,pid)
  end
else
end