RE: [MacPerl] OpenSRS anyone??

[Bill Doucet]

Hi Robin ( and everyone else on the list) Thanks for the advice and the offer to help.I will check out the cgi list as well. I am sending you clips from two files. The first is the cgi I am trying to make work. I added my ($PATH_LIB)="::lib:"; and the message saying # Global symbol "PATH_LIB" requires explicit package name. disappeared. Now I am getting # Can't locate OpenSRS/XML_Client.pm in @INC. Here is the beginning of the cgi called reg_system.cgi After that is teh beginning of the config file _______________________beginning of cgi___________________________ #!:Macintosh HD:*NETWORK SOFTWARE:webstar:cgi-bin:macperl A:macperl # .Copyright (C) 1999-2000 TUCOWS.com Inc. # .Created: 01/13/2000 # .Contactid: <[EMAIL PROTECTED]> # .Url: http://www.opensrs.org # .Originally Developed by: # VPOP Technologies, Inc. for Tucows/OpenSRS # .Authors: Joe McDonald, Tom McDonald, Matt Reimer, Brad Hilton, # Daniel Manley # # # 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., 675 Mass Ave, Cambridge, MA 02139, USA. use strict; use vars qw($shell $cipher); ( $shell, $cipher ) = (); # pull in conf file with defined values # XXX NOTE XXX Update this configuration file BEGIN { do "::etc:OpenSRS.conf"; } my ($PATH_LIB)="::lib:"; use lib $PATH_LIB; use OpenSRS::XML_Client; use OPS; use Config; use IO::Socket; # global defines $shell = 0; $cipher = ""; start_up(); check_modules(); check_login(); shut_down(); exit; ____________________beginning of config file________________________ #!:macintosh hd:*network software:webstar:cgi-bin:macperl A:macperl # opensrs client conf file use vars qw($ADMIN_EMAIL $PATH_SOURCE $PATH_LIB $PATH_TEMPLATES %OPENSRS %REG_SYSTEM %REGISTER %MANAGE $MAIL_TYPE $OPENSRS_TLDS_REGEX $MAILPROG $LOCALHOST $SMTP_SERVER $SMTP_PORT $TEST_SERVER $CA_PREREG_PERIOD %MLDNS %CANT_SUPPORT %CA_LEGAL_TYPES %CA_LANGUAGE_TYPES %CA_NATIONALITIES @CA_EXTRA_FIELDS %RENEW); my $USERNAME = "our_USername"; # XXX insert username here my $PRIVATE_KEY = "our_key"; # XXX insert DES key here $ADMIN_EMAIL = '[EMAIL PROTECTED]'; # This is used by the cgi's to qualify the name of the browser # cookie to avoid conflicts between the live and rite environments. # Set it to 1 if this installation goes to the horizon/rite environment. $TEST_SERVER = 1; # Set this to 0 (zero) once the .ca pre-registration period is over $CA_PREREG_PERIOD = 0; # # Uncomment the Multi-Lingual domains you are authorized to purchase. # NOTE: Standard English is left blank on purpose. # %MLDNS = ( "" => "Standard English", #"big5" => "Traditional Chinese", #"gb2312" => "Simplified Chinese", #"shift-jis" => "Japanese", #"ksc5601-1992" => "Korean", ); $PATH_SOURCE = ":Macintosh HD:*NETWORK SOFTWARE:webstar:cgi-bin:opensrs:"; # e.g., "/home/username/opensrs/" $PATH_LIB = "::etc:lib:"; $PATH_TEMPLATES = "::templates:"; %CANT_SUPPORT = (); %OPENSRS = ( username => $USERNAME, private_key => $PRIVATE_KEY, REMOTE_PORT => 55000, REMOTE_HOST => "horizon.opensrs.net", crypt_type => '', # Blowfish, DES, or Blowfish_PP (slow!)