passing js var to perl parma()

Discussion in 'Software' started by rwcherry, Aug 2, 2013.

  1. rwcherry

    rwcherry

    Joined:
    Aug 2, 2013
    Messages:
    2
    Likes Received:
    0
    #!/usr/bin/perl -w
    use CGI ':standard';
    print "Content-type: text/html\n\n";

    my $passp=100;

    print <<"pureHTML";

    <!DOCTYPE html>
    <HTML>
    <HEAD>
    <SCRIPT type="text/javascript" language="javascript">

    var passj=100;
    function passing(pp,pj) {
    window.location.assign(...passee.cgi?pssp='pp'&pssj='pj' );
    }
    passing($passp,passj);

    </SCRIPT>
    <title>passage</title>
    </HEAD>
    <BODY BGCOLOR="#fff" MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN="0" LEFTMARGIN="0">
    <p>&nbsp;&nbsp;</p>
    </BODY>
    </HTML>

    pureHTML

    1 ;

    This doesnt work, why not? Please!

    to look at results: passee.cgi
    #!/usr/bin/perl -w
    use CGI ':standard';
    print "Content-type: text/html\n\n";

    my $passp=param('pssp');
    my $passj=param('pssj');

    print 'passp=' . $passp;
    print ' passj=' . $passj \n;

    my $pp='$passp';
    my $pj='$passj';

    print ' pp=' . $pp;
    print ' pj=' . $pj;

    1;
     
    rwcherry, Aug 2, 2013
    #1

    1. Advertisements

  2. rwcherry

    MsMillie55

    Joined:
    Nov 2, 2013
    Messages:
    1
    Likes Received:
    0
    Really appreciate this post. It’s hard to sort the good from the bad sometimes, but I think you’ve nailed it!
     
    MsMillie55, Nov 2, 2013
    #2

    1. Advertisements

  3. rwcherry

    Sowell11

    Joined:
    Dec 11, 2013
    Messages:
    1
    Likes Received:
    0
    Eventually i am come here and want to say you that thanks for sharing your concept regarding the post. I am also feeling that this is one of the good posts.
     
    Sowell11, Dec 11, 2013
    #3

    1. Advertisements

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads
  1. Rick Frink

    Perl access to TACACS: Key mismatch issue

    Rick Frink, Aug 6, 2004, in forum: Cisco
    Replies:
    0
    Views:
    2,194
    Rick Frink
    Aug 6, 2004
  2. FreedomFireCom

    Looking For Cisco Var's

    FreedomFireCom, Nov 8, 2006, in forum: Cisco
    Replies:
    2
    Views:
    578
    FreedomFireCom
    Nov 17, 2006
  3. aung.naingoo@gmail.com

    Perl script to issue IOS commands and save to local files from a given IP list

    aung.naingoo@gmail.com, May 5, 2007, in forum: Cisco
    Replies:
    1
    Views:
    12,174
    Phillip Remaker
    May 9, 2007
  4. J.Cottingim

    Perl Script to copy running config

    J.Cottingim, Jul 11, 2007, in forum: Cisco
    Replies:
    2
    Views:
    1,233
    J.Cottingim
    Jul 16, 2007
  5. business one way

    Is it a Perl program or a Perl script?

    business one way, Jan 5, 2008, in forum: Digital Photography
    Replies:
    0
    Views:
    1,239
    business one way
    Jan 5, 2008
  6. Lodi

    /var/tmp in kubuntu

    Lodi, Oct 20, 2007, in forum: NZ Computing
    Replies:
    3
    Views:
    723
    Lawrence D'Oliveiro
    Oct 21, 2007
  7. Lawrence D'Oliveiro

    Perl moves to Git

    Lawrence D'Oliveiro, Dec 24, 2008, in forum: NZ Computing
    Replies:
    1
    Views:
    529
    Enkidu
    Dec 25, 2008
  8. rwcherry

    passing javascript var to perl cgi scalar

    rwcherry, Aug 2, 2013, in forum: Software
    Replies:
    0
    Views:
    1,067
    rwcherry
    Aug 2, 2013
Loading...