[LaToya Butler]

He installed it on the server level.  Can he use this exact package for the Cloverleaf level?

[LaToya Butler]

Here’s the perl script.

Code:

#!/usr/bin/perl

use strict;
use LWP::Simple;
use LWP::UserAgent;

if ( $#ARGV != 1 ) {
  print “usage: perl xtend.pl [pager#] [message]n”;
#   exit;
}

my $browser = LWP::UserAgent->new;

my $pager = $ARGV[0];
die “Invalid pager #: $pagern” unless $pager =~ /[0-9]{4}/;
my $message = trim($ARGV[1]);
die “Message is empty!n” unless $message;

print “Paging $pager thru Xtend …n”;

my $xtendURL = ‘http://test.edu;
my $query = ‘/test’;

my $response = $browser->get(”$xtendURL$query”);

my $content = $response->content; #get “$xtendURL$query”;
die “Couldn’t get $xtendURL” unless defined $content;

# parse the content to get session ID

if ( $content =~ m{new;

  my $response = $browser->post( “$xtendURL$1”,
    [ ‘cPageId’ => $pager,
      ‘stdMsgs’ => ‘ ‘,
      ‘cPageMsgQa’ => $message
    ]
  );
  die “$xtendURL error: “, $response->status_line unless $response->is_success;
  die “Invalid content type at $xtendURL — “, $response->content_type
   unless $response->content_type eq ‘text/html’;

#   print $response->content;

  # parse output from xtend
  if ( $response->content =~ m{sialo[0-9].gif align=center border=0 >(.+)} ) {
   
    my $reply = $1;

    if ( $reply =~ m{Your page is being sent to ([w, ]+)} ) {
       print “sent to: $1n”;
    }  
    else {
       print “result: $replyn”;
    }
  }

} else {
  print “Couldn’t find the match-stringn”;
}

sub trim($) {
  my $string = shift;
  $string =~ s/^s+//;
  $string =~ s/s+$//;
  return $string;
}  

[LaToya Butler]

When I run that command, I get this error:  

Can’t locate LWP/Simple.pm in @INC (@INC contains: /opt/quovadx/qdx5.7/integrator/lib/perl5/5.8.8/aix /opt/quovadx/qdx5.7/integrator

/lib/perl5/5.8.8/aix /opt/quovadx/qdx5.7/integrator/lib/perl5/5.8.8 /opt/quovadx/qdx5.7/integrator/lib/perl5/site_perl/5.8.8/aix /op

t/quovadx/qdx5.7/integrator/lib/perl5/site_perl/5.8.8/aix /opt/quovadx/qdx5.7/integrator/lib/perl5/site_perl/5.8.8 /opt/quovadx/qdx5

.7/integrator/lib/perl5/site_perl/5.8.8/aix /opt/quovadx/qdx5.7/integrator/lib/perl5/site_perl/5.8.8 /opt/quovadx/qdx5.7/integrator/

lib/perl5/site_perl . /work/quovadx_dev/qdx5.7P/integrator/lib/perl5/5.8.8/aix /work/quovadx_dev/qdx5.7P/integrator/lib/perl5/5.8.8

/work/quovadx_dev/qdx5.7P/integrator/lib/perl5/site_perl/5.8.8/aix /work/quovadx_dev/qdx5.7P/integrator/lib/perl5/site_perl/5.8.8 /w

ork/quovadx_dev/qdx5.7P/integrator/lib/perl5/site_perl .)

I think it’s because the Cloverleaf version is older than the Unix version.

[LaToya Butler]

It’s very basic right now.  I just wanted to see if I could execute the program.

# ‘run’ mode always has a MSGID; fetch and process it

keylget args MSGID mh

set msg [msgget $mh]

set null {}

set nursing_unit [getField “$msg” “PV1.3.0”]

set room [getField “$msg” “PV1.3.1”]

echo “HCISITEDIR=>$HciSiteDir<"

set test_dir “$HciSiteDir/data/perl_code”

echo ” TEST DIRECTORY IS ” $test_dir

cd $test_dir

exec /usr/bin/perl xtend.pl 5499 “TESTING FROM CLOVERLEAF “

lappend dispList “CONTINUE $mh”

[LaToya Butler]

I am checking for SQL_ERROR after each select to the table.

[LaToya Butler]

I’m using advance scheduling to run only once a day and I have a directory parse proc to only pull the file with the current date but the files were being deleted.  I did not want this.  With this, is there still a chance for the file being processed over and over.

[LaToya Butler]

Yes, could you please upload the tcl proc.

Jerry Tilsley wrote:

I actually have a tps proc that sets the outbound filename to the same as what the inbound filename was.

[Author]

Replies