At 04:31 PM 4/29/02, you wrote:
>Hi list;
>
>I have my own defined tag that look like this:
>
>UserTag get-license Order email CompanyName CompanyAddress URLLimit
>HostIPAddr IssueDate ExpiryDate SerialNumber MappingLimit Evaluation
>UserTag get-license-temporary AddAttr
>UserTag get-license-temporary Documentation <<EOD
>
>usage: [get-license-temporary email CompanyName CompanyAddress
>URLLimit HostIPAddr IssueDate ExpiryDate SerialNumber MappingLimit
>Evaluation]
>
>Gets a license number from the license server
>EOD
>
>UserTag get-license-temporary Routine <<EOR
>use Socket;
>sub {
> my ( $email, $CompanyName, $CompanyAddress,
> $URLLimit, $HostIPAddr,
> $IssueDate, $ExpiryDate, $SerialNumber, $MappingLimit,
>$Evaluation,
> $opt ) = @_;
>
> my $licensehost = "licenseserver";
> my $licenseport = "2201";
>
>
>if ($MappingLimit == ""){
> my $licensestr = "\
> CONTACT-EMAIL=$email\
> COMPANY-NAME=$CompanyName\
> COMPANY-ADDRESS=$CompanyAddress\
> URL-LIMIT=$URLLimit\
> HOST-IP-ADDRESS=$HostIPAddr\
> ISSUE-DATE=$IssueDate\
> EXPIRY-DATE=$ExpiryDate\
> SERIAL-NUMBER=$SerialNumber\
> EVALUATION=$Evaluation\
> ";
>}
Alma,
You need to move the my declaration outside of the "if" block
so that you can use it outside the if block, simply have a line above
the if with:
my $licensestr;
Then it should not give you that error.
Kyle Cook