# NOTE: Derived from blib/lib/Net/SOCKS.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Net::SOCKS;

#line 507 "blib/lib/Net/SOCKS.pm (autosplit into blib/lib/auto/Net/SOCKS/_user_request5.al)"
# code to send username/password to socks5 server
sub _user_request5 {
  my ($self) = @_;

    # check to make sure the user passed in a user/pass field
    if (! defined ${*self}{user_id} || ! defined ${*self}{user_password} ||
	length(${*self}{user_id}) == 0 ||
	length(${*self}{user_password}) == 0) {
      return ${*self}{status_num} = SOCKS_INCOMPLETE_AUTH;
    }

  print { ${*self}{fh} } pack ('CC', 1, length(${*self}{user_id})),
    ${*self}{user_id}, pack ('C', length(${*self}{user_password})),
    ${*self}{user_password};

  return ${*self}{status_num} = SOCKS_OKAY;
}

# end of Net::SOCKS::_user_request5
1;