#1
  1. No Profile Picture
    Junior Member
    Devshed Newbie (0 - 499 posts)

    Join Date
    Oct 2000
    Posts
    0
    Rep Power
    0
    Hi friends, I have a problem with a WAP Perl CGI and I have spent a LOT of time without any conclusion.... can anybody helpme ??

    this is the CGI:


    #!/usr/bin/perl -w

    use CGI qw(:standard);
    $query = new CGI;
    $message=$query->param('message');
    &init;
    &header;

    #$user = param('user');
    #$password = param('password');
    #$host = param('host');
    $fr = param('fr');
    $t = param('t');
    $sub = param('sub');
    $cgi = param('cgi');
    #$message = param('message');
    print "<card id="card1" title="Correo $user" newcontext="true">";
    print "n";
    print "<p align="left">n";

    print "Mensage:<br/>";
    print "<input name="message" type="text" size="20" value=""/>";
    print "<br/>";

    $men = $message;

    $ENVI =
    "http://echelon.eupvg.upc.es/~santana/emailfor2.cgi?message=${men}&amp;to=${fr}&amp;subject=${sub}&amp;from=${t}";

    print "<anchor title="Enviar">Enviar Respuesta<go
    href="$ENVI"></go>";
    print "</anchor><br/>n";
    print "<br/>";

    $POP39MC6 =
    "http://echelon.eupvg.upc.es/~santana/POP39MC6.cgi?host=${host}&amp;user=${user}&amp;password=${password}&amp;cgi=${cgi}";
    print "<anchor title="Volver">Volver $i<go href="$POP39MC6"></go>";
    print "</anchor><br/>n";


    &footer;
    exit;

    #*******************************************************#
    # SUB ROUTINES #
    #*******************************************************#
    sub init{
    print "Content-type: text/vnd.wap.wmlnn";
    }

    sub header{
    print '<?xml version="1.0"?>';
    print "n";
    print '<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">';
    print "n";
    print "<wml>n";
    }

    sub footer{
    print "</p>n</card>n</wml>n";
    }


    BUT it doesn´t work!!

    When I enter a text in the message input field, all seems perfect, BUT when I do
    $ENVI =
    "http://echelon.eupvg.upc.es/~santana/emailfor2.cgi?message=${men}&amp;to=${fr}&amp;subject=${sub}&amp;from=${t}";

    the message variable is sent ALLWAYS whit nothing inside. This variable must carry the text that I input, but it send nothing !!!

    Can anybody help me pleeeeease !!!!!

    I will really apreciatre this help because I have spent more than 2 days thinking about..


    Javi


  2. #2
  3. No Profile Picture
    freebsd
    Guest
    Devshed Newbie (0 - 499 posts)
    >>http://echelon.eupvg.upc.es/~santana/emailfor2.cgi?message=${men}&to=${fr}&subject=${sub}&from=${t}

    Just remove all those {}.

IMN logo majestic logo threadwatch logo seochat tools logo