shogi-server

Fork

• shogi-server
• htdocs

## $Id$

## Copyright (C) 2004 NABEYA Kenichi (aka nanami@2ch)
## Copyright (C) 2007-2012 Daigo Moriwaki (daigo at debian dot org)
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

require 'shogi_server/handicapped_boards'

module ShogiServer # for a namespace

######################################################
# Processes the LOGIN command.
#
class Login
  def Login.good_login?(str)
    tokens = str.split
    if (((tokens.length == 3) || 
        ((tokens.length == 4) && tokens[3] == "x1")) &&
        (tokens[0] == "LOGIN") &&
        (good_identifier?(tokens[1])))
      return true
    else
      return false
    end
  end

  def Login.good_game_name?(str)
    if ((str =~ /^(.+)-\d+-\d+F?$/) && (good_identifier?($1)))
      return true
    else
      return false
    end
  end

  # Check if a game name str is a handicapped game.
  # @return a subclass of Board coresponding to the handicapped game; false,
  # otherwise.
  #
  def Login.handicapped_game_name?(str)
    return false unless good_game_name?(str)
    ret = nil
    
    case str
    when %r!^hclance_!
      ret = HCKYBoard
    when %r!^hcbishop_!
      ret = HCKABoard
    when %r!^hcrook_!
      ret = HCHIBoard
    when %r!^hcrooklance_!
      ret = HCHIKYBoard
    when %r!^hc2p_!
      ret = HC2PBoard
    when %r!^hc4p_!
      ret = HC4PBoard
    when %r!^hc6p_!
      ret = HC6PBoard
    when %r!^hc8p_!
      ret = HC8PBoard
    when %r!^hc10p_!
      ret = HC10PBoard
    else
      ret = false
    end
    return ret
  end

  def Login.good_identifier?(str)
    max = $options["max-identifier"]
    if str =~ /\A[\w@\-\.]{1,#{max}}\z/
      return true
    else
      return false
    end
  end

  def Login.factory(str, player)
    (_, player.name, password, ext) = str.chomp.split
    if ext
      return Loginx1.new(player, password)
    else
      return LoginCSA.new(player, password)
    end
  end

  attr_reader :player
  
  # the first command that will be executed just after LOGIN.
  # If it is nil, the default process will be started.
  attr_reader :csa_1st_str

  def initialize(player, password)
    @player = player
    @csa_1st_str = nil
    parse_password(password)
  end

  def process
    @player.write_safe(sprintf("LOGIN:%s OK\n", @player.name))
    log_message("user %s run in %s mode" % [(@player.rated? ? @player.player_id : @player.name),
                                            @player.protocol])
  end

  def incorrect_duplicated_player(str)
    @player.write_safe("LOGIN:incorrect\n")
    @player.write_safe(sprintf("username %s is already connected\n", @player.name)) if (str.split.length >= 4)
    sleep 3 # wait for sending the above messages.
    @player.name = "%s [duplicated]" % [@player.name]
    @player.finish
  end
end

######################################################
# Processes LOGIN for the CSA standard mode.
#
class LoginCSA < Login
  PROTOCOL = "CSA"

  attr_reader :gamename

  # A turn preference string: "+", "-" or default "*"
  attr_reader :turn_preference

  def initialize(player, password)
    @gamename = nil
    @turn_preference = "*"
    super
    @player.protocol = PROTOCOL
  end

  # Parse a gamename str and see if it includes an optional turn 
  # preference. 
  # ex. foo-1500-0-B for black
  # ex. foo-1500-0-W for white
  #
  # Return an array of a valid gamename without an turn preference and a
  # turn character "+" or "-"; false otherwise
  #
  def parse_gamename_turn(str)
    if str =~ /^(.+)-\d+-\d+F?-(\w)$/
      case $2
      when "b","B"
        return [str[0, str.length-2], "+"]
      when "w","W"
        return [str[0, str.length-2], "-"]
      end
    end
    return false
  end

  def parse_password(password)
    if Login.good_game_name?(password) || parse_gamename_turn(password)
      @gamename = password
      @player.set_password(nil)
    elsif password.split(",").size > 1
      @gamename, *trip = password.split(",")
      @player.set_password(trip.join(","))
    else
      @player.set_password(password)
      @gamename = Default_Game_Name
    end
    array = parse_gamename_turn(@gamename)
    if array
      @gamename = array.first
      @turn_preference = array.last
    end
    @gamename = Login.good_game_name?(@gamename) ? @gamename : Default_Game_Name
  end

  def process
    super
    @csa_1st_str = "%%GAME #{@gamename} #{@turn_preference}"
  end
end

######################################################
# Processes LOGIN for the extented mode.
#
class Loginx1 < Login
  PROTOCOL = "x1"

  def initialize(player, password)
    super
    @player.protocol = PROTOCOL
  end
  
  def parse_password(password)
    @player.set_password(password)
  end

  def process
    super
    @player.write_safe(sprintf("##[LOGIN] +OK %s\n", PROTOCOL))
  end
end

end # ShogiServer