#!/usr/bin/ruby
require 'socket'
require "rexml/document"

if ARGV.length == 0 || ARGV.length > 1 then
  puts "Usage: numMembers <nameOfGroup>" 
  puts "       Where <nameOfGroup> == <group>[/<subGroup>]*" 
  puts
  puts "       Example: numMembers CU" 
  puts "       Example: numMembers CU/CS" 
  exit
end

if ARGV.length == 1 then
  groupName = ARGV[0]
  # if groupName does not end with a "/" character, add one
  if !(groupName =~ /\/$/) then
    groupName = groupName + "/"
  end
else
  groupName = ""
end

s = TCPSocket.new( 'infinite.local' , 80 )
s.puts("GET /~kena/addressBook/data/#{groupName}members.xml HTTP/1.0")
s.puts

line = s.gets
if line =~ /404/ then
  puts "0"
  s.close
  exit
end

#while line = s.gets
   #puts line
#end

doc    = REXML::Document.new s
puts doc.elements.to_a("//member").length