require "erb"
require "net/http"
require "pp"

class IrcGalleria
  HOST = "irc-galleria.net"
 
  def initialize
    ask_account

    login(@user, @pass)
   
    @nicks = []
   
    loop do
      begin
        random
       
        str = @nicks.size.to_s + " " + @nicks.last
        print "\r" + str.ljust(40)
        STDOUT.flush
      rescue => e
        puts e
      end
    end
  end
 
  def ask_account
    begin
      require 'termios'
 
      $stdin.extend Termios

      oldt = $stdin.tcgetattr
      newt = oldt.dup
      newt.lflag &= ~Termios::ECHO

      print "user: "
      @user = $stdin.gets.chomp
      $stdin.tcsetattr(Termios::TCSANOW, newt)
      print "pass: "
      @pass = $stdin.gets.chomp
      print "\n"

      $stdin.tcsetattr(Termios::TCSANOW, oldt)
    rescue LoadError => e
      puts e
      puts
      print "user: "
      @user = gets.chomp
      print "pass: "
      @pass = gets.chomp
    end
  end
   
  def login(username, password)
    @http = Net::HTTP.new(HOST)
    @headers = {}
    data = "login=#{ERB::Util.url_encode(username)}&passwd=#{ERB::Util.url_encode(password)}"
    resp = @http.request_post("/login.php", data)
   
    if resp.response['set-cookie'] =~ /PHPSESSID/
      @headers['Cookie'] = resp.response['set-cookie'].scan(/(PHPSESSID=.+);/).to_s
    else
      raise "Wrong username or password"
    end
  end
 
  def random
    rnd  = @http.request_get("/random.php", @headers)   
    nick = rnd["location"].scan(/=(.*)$/).to_s
    loc  = rnd["location"].gsub(/([^=]+)$/) { |m| ERB::Util.url_encode(m) }
    req  = @http.request_get("/#{loc}", @headers)
   
    @nicks << nick unless @nicks.include?(nick)
  end
end

IrcGalleria.new