Jeb, 

I sounds like you should be able to incorporate the "HIDDEN"
object/variable method I mentioned in my previous email.
I use this technique all of the time to ensure I "keep my data around"
between submissions...

Example:

      #!/usr/bin/perl
      
      use strict;
      use CGI qw(:standard);
      
      my $cgi_dir="http://kcfinp04b/dsscgi/dave";;
      my $query = new CGI;
      
      my $h_var1 = $query->param('h_var1');
      
      print <<"EOF";
      Content-type: text/html\n\n
      <HTML>
      <FORM NAME=dave ACTION="$cgi_dir/dave.cgi" METHOD=POST>
      <INPUT TYPE=HIDDEN NAME=h_var1 VALUE="$h_var1">
      <INPUT TYPE=SUBMIT>
      </FORM>
              <SCRIPT LANGUAGE='JavaScript'>
              document.dave.h_var1.value = "jeb";
              </SCRIPT>
      </HTML>
      EOF
      
      exit(0);

In the above example, the first time the script is executed $h_var1 will
be empty (You can see this when you 'view the source' and see that the
VALUE section of the HIDDEN line is 'VALUE=""'
When you submit however, $h_var1 will be 'jeb' since the JavaScript
section initialized it's value. (You can verify this by 'viewing the
source' again and now 'VALUE="jeb"')

Now I know this is a very simple example, but this concept can be
carried forward.
Say you change the ACTION to another script then your HIDDEN values will
be passed on that script, etc, etc, ...

Anyway, you can use this concept to communicate between your two
frames...

Regards,
Dave.

-----Original Message-----
From: jaouad.jeb [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 27, 2001 1:10 PM
To: david.b.deline
Cc: perl-unix-users
Subject: RE: [Perl-unix-users] Frameset



thanks david for your answer, but what i want to do is a repetitive 
submision (unlimited) from The QUERY frame to the RESPONSE Frame.

What I am doing is:

drawing a structure in the Query frame, and then send it to the RESPONSE
by 
the button ADD that is equal to a submit, so the structure get processed
and 
some other calculation are done, and finally printed in the RESPONSE
frame, 
but know the i wnat to send another structure and see the results and
copare 
them with the first calculations, so i need to append the new result to
the 
old one, right? and so on so i can have unlimeted number of structure to

compare, thought the need of appending to the RESPONSE frame.


so it's possible to append directly to the RESPONSE frame?
I know the answer is no, because when i submit the second structure and 
submit it my script is called again so i loose all my old variables,
hashes, 
arays, etc.... is that right?  or am i wrong?
how can i remediate to that?

if i did understand well your java proposition, these can work only for
one 
or two submission, is that right?

thanks

jeb


From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED], [EMAIL PROTECTED]
Subject: RE: [Perl-unix-users] Frameset
Date: Thu, 27 Sep 2001 10:35:03 -0500
MIME-Version: 1.0
Received: from [209.17.183.249] by hotmail.com (3.2) with ESMTP id 
MHotMailBD7C927000B24004374AD111B7F9F9100; Thu, 27 Sep 2001 08:36:16
-0700
Received: (qmail 12033 invoked from network); 27 Sep 2001 15:36:02 -0000
Received: from localhost (HELO shot.ActiveState.com) (127.0.0.1)  by 
localhost with SMTP; 27 Sep 2001 15:36:02 -0000
Received: (qmail 11960 invoked from network); 27 Sep 2001 15:35:44 -0000
Received: from espresso.activestate.com (HELO smtp1.ActiveState.com) 
(192.168.2.150)  by listserv1.activestate.com with SMTP; 27 Sep 2001 
15:35:44 -0000
Received: from damgwp01.corp.sprint.com (parker2.sprint.com 
[199.14.91.106])by smtp1.ActiveState.com (8.11.6/8.11.6) with ESMTP id 
f8RFZhl31927for <[EMAIL PROTECTED]>; Thu, 27 Sep
2001 
08:35:43 -0700
Received: from kcmgwp02.corp.sprint.com (kcmgwp02 [10.185.6.93])by 
damgwp01.corp.sprint.com (Switch-2.1.3/Switch-2.1.0) with ESMTP id 
f8RFbd317885;Thu, 27 Sep 2001 10:37:39 -0500 (CDT)
Received: from kcopmp06.corp.sprint.com (KCOPMP06.corp.sprint.com 
[10.74.0.81])by kcmgwp02.corp.sprint.com (Switch-2.1.3/Switch-2.1.0)
with 
ESMTP id f8RFZbq10542;Thu, 27 Sep 2001 10:35:37 -0500 (CDT)
Received: from localhost (root@localhost)by kcopmp06.corp.sprint.com
(8.8.6 
(PHNE_17190)/8.8.6) with ESMTP id KAA22880;Thu, 27 Sep 2001 10:35:36
-0500 
(CDT)
>From [EMAIL PROTECTED] Thu, 27 Sep 2001 
08:37:54 -0700
Return-Path: <[EMAIL PROTECTED]>
Delivered-To: [EMAIL PROTECTED]
X-OpenMail-Hops: 1
Message-Id: <H0000c140d6f5b7c.1001604902.kcopmp06@MHS>
X-Filtered-By: PerlMx makes it fast and easy.  See 
http://www.ActiveState.com/Products/PerlMx/Header
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: [EMAIL PROTECTED]
X-Mailman-Version: 2.0.5
Precedence: bulk
List-Help: 
<mailto:[EMAIL PROTECTED]?subject=help>
List-Post: <mailto:[EMAIL PROTECTED]>
List-Subscribe: 
<http://listserv.ActiveState.com/mailman/listinfo/perl-unix-users>,<mail
to:[EMAIL PROTECTED]?subject=subscribe>
List-Id: <perl-unix-users.listserv.ActiveState.com>
List-Unsubscribe: 
<http://listserv.ActiveState.com/mailman/listinfo/perl-unix-users>,<mail
to:[EMAIL PROTECTED]?subject=unsubscribe>
List-Archive:
<http://mailarchive.activestate.com/browse/perl-unix-users/>

Well Jeb,

(If I understand your question correctly...)

You can accomplish this by imbedding JavaScript in your query & response
HTML.
You will need to have named FORMs in each of your FRAMEs to use the
following JavaScript examples:

Say you have a text object in your query frame.
You can update the text object in your query frame from your response
frame by using the following JavaScript code:
       parent.query.document.form_name.text_object_name.value = "updated
text";
or you could append to the query's text object with the following
JavaScript code:
       parent.query.document.form_name.text_object_name.value += "append
text";

Please note that in the above examples "form_name" should be replaced
with the actual FORM NAME <FORM NAME=? ...> in your HTML &
"text_object_name" should be replaced with the actual NAME given to the
<INPUT TYPE=TEXT NAME=? ...> object.

You can also obtain similar results through hidden objects and forcing a
submit on the frame.  This would work very similarly to the above
examples...
Example: In your FORM on your query frame you would include a hidden
object <INPUT TYPE=HIDDEN NAME=h_text>
You could then access this hidden object from the response frame through
the following JavaScript code:
       parent.query.document.form_name.h_text.value = "updated text";
Then cause the FORM on your query frame submit and refresh according to
the value in your hidden "h_text" object:
       parent.query.document.form_name.submit();

Hope this helps...

Regards,
Dave

-----Original Message-----
From: jaouad.jeb [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 26, 2001 6:13 PM
To: perl-unix-users
Subject: [Perl-unix-users] Frameset


Hi Folks,

I am using the Frame.cgi script from activeperl, here a copy of it:

sub print_frameset {
     $script_name = $query->script_name;
     print <<EOF;
<html><head><title>$TITLE</title></head>
<frameset cols="40,60" frameborder="0">
<frame src="$script_name/query" name="query">
<frame src="$script_name/response" name="response">
</frameset>
EOF
     ;
     exit 0;
}


The problem I have is the following:

I do want to append result to the RESPONSE frame and not only show the
last
result submited, how can I do that? I do have two different submition
Buttons in the query part one to submit just the last Calculation done
and
the second one to ADD the result to the precious one, can some one help
in
this topic? if you do have other alternative please share with me, I am
new
to perl and programming.

thanks

jeb

_________________________________________________________________
Get your FREE download of MSN Explorer at
http://explorer.msn.com/intl.asp

_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users


_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to 
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users


_________________________________________________________________
Get your FREE download of MSN Explorer at
http://explorer.msn.com/intl.asp



_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to 
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users

Reply via email to