[Date Prev][Date Next][Thread Prev][Thread Next][Interchange by date
][Interchange by thread
]
[ic] User Defined Tags - problem
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 == ""){
Alma,
This should be :
if ($MappingLimit eq ""){
Kyle Cook