# Task: determine which client specs use compression.
#
# num of calls to 'p4': 1
# status: tested on Win/2000 using P4Ruby API,
#         tested on Darwin Mac OS X using P4Ruby API
# room for optimization/improvement: add getopts call
#
# Copyright 2004 Perforce Corporation, Inc. All rights reserved.

require "P4"

p4 = P4.new
# p4.port = "localhost:1666"
p4.user = "arthur"
p4.client = "dent.development"
p4.tagged
p4.parse_forms
p4.connect

begin
  #-----------------------------------------------------------
  # only call to P4: 'p4 clients'
  #-----------------------------------------------------------
  clientList = p4.run_clients
  clientList.each {
    |c|
    optionList = c['Options']

    if optionList =~ /nocompress/
        puts "#{c['client']}: *no* compression of data"
    else
        puts "#{c['client']}: compression of data (default)"
    end
  }
  rescue P4Exception
    p4.errors.each { |e| $stderr.puts( e ) }
    raise
end
p4.disconnect