HP3000-L Archives

February 2001, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Andreas Schmidt <[log in to unmask]>
Reply To:
Date:
Tue, 20 Feb 2001 09:56:14 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (74 lines)
Yes, I do have several examples, e.g. to produce graphics out of
Performance data.

It's very simple (basically) and bases on the interpretation of the
QUERY_STRING. I use the construct

   # QUERY_STRING contains:systems=x&report=rep&starttime=hhtz&stoptime=hhtz&startd
   ay=-#&stopday=-#&interval=#[&noweekends=yes]

   SYSTEM=`uname -n`
   REPORT_x=`echo $QUERY_STRING|awk '{split($1,arr,"=");print arr[3]}'`
   REPORT=`echo $REPORT_x|awk '{split($1,arr,"&");print arr[1]}'`
   STARTTIME_x=`echo $QUERY_STRING|awk '{split($1,arr,"=");print arr[4]}'`
   STARTTIME=`echo $STARTTIME_x|awk '{split($1,arr,"&");print arr[1]}'`
   STOPTIME_x=`echo $QUERY_STRING|awk '{split($1,arr,"=");print arr[5]}'`
   STOPTIME=`echo $STOPTIME_x|awk '{split($1,arr,"&");print arr[1]}'`
   STARTDAY_x=`echo $QUERY_STRING|awk '{split($1,arr,"=");print arr[6]}'`
   STARTDAY=`echo $STARTDAY_x|awk '{split($1,arr,"&");print arr[1]}'`
   STOPDAY_x=`echo $QUERY_STRING|awk '{split($1,arr,"=");print arr[7]}'`
   STOPDAY=`echo $STOPDAY_x|awk '{split($1,arr,"&");print arr[1]}'`
   if [ $STOPDAY = 0 ]
      then
      STOPDAY="-0"
   fi
   INTERVAL_x=`echo $QUERY_STRING|awk '{split($1,arr,"=");print arr[8]}'`
   INTERVAL=`echo $INTERVAL_x|awk '{split($1,arr,"&");print arr[1]}'`
   if [ $INTERVAL = DETAIL ]
      then
      INTERVAL_TEXT="5 Minute Average"
      else
      INTERVAL_TEXT="hourly Average"
   fi
   NOWEEKENDS=`echo $QUERY_STRING|awk '{split($1,arr,"=");print arr[9]}'`

what looks a bit complicated but will work to get the parameters. These
will be used to produce a SCOPE report. This is finally parsed to MPE using

     callci "/SYS/SCOPE/EXTRACT < /APACHE/TMP/HTTPDIN" > /dev/null

If you want to get the whole script and the html form just let me know.

Best regards, Andreas Schmidt, CSC, Germany






Juan Pineiro <[log in to unmask]>@RAVEN.UTC.EDU> on 19/02/2001 05:36:29
PM

Please respond to Juan Pineiro <[log in to unmask]>

Sent by:  HP-3000 Systems Discussion <[log in to unmask]>


To:   [log in to unmask]
cc:
Subject:  [HP3000-L] dynamic CALLCI in Perl and/or Shell script


Hello HP3000 Listers:

Does anyone have or know where I might find a sample Perl or Shell script
they can share  which accepts a post from an html FORM and executes the
form contents on an MPE web server via CALLCI.

Thanks in advance. Please respond to me directly in addition to  reponding
to the list-server.

Jc Pineiro
AvMed Health Plan Miami
305-671-4920

ATOM RSS1 RSS2