[ic] User Defined Tags - problem

[interchange-users@interchange.redhat.com (Kyle Cook)]

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