Re: submit button image

This worked ok for me.

#!c:/Perl/bin/Perl.exe

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;

my ($my_data, $data_length, $bytes_read);

if ($ENV{'REQUEST_METHOD'} eq "GET"){
  $my_data = $ENV{'QUERY_STRING'};
}
else {
  $data_length = $ENV{'CONTENT_LENGTH'};
  $bytes_read = read(STDIN, $my_data, $data_length);
}

my @name_value_array = split(/&/, $my_data);
my %form_data;

foreach my $name_value_pair (@name_value_array) {
  
  my ($name, $value) = split(/=/, $name_value_pair);
  $name =~ tr/+/ /;
  $value =~ tr/+/ /;
  $name =~ s/%(..)/pack("C",hex($1))/eg;
  $value =~ s/%(..)/pack("C",hex($1))/eg;

  if($form_data{$name}){
    $form_data{$name} .= "\t$value";
  }
  else{
    $form_data{$name} = $value;
  }

}

die Dumper \%form_data;

__DATA__
Software error:

$VAR1 = {
          'password' => '',
          'submit.y' => '58',
          'submit' => 'Login',
          'submit.x' => '36',
          'username' => 'test'
        };
[download]

But then again, so did this!

#!c:/Perl/bin/Perl.exe

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

my $q = CGI->new;
my $usr = $q->param('username');
my $pwd = $q->param('password');

die "usr: $usr -> pwd: $pwd";

__DATA__
Software error:

usr: test -> pwd:  at C:/www/local/test2.cgi line 12.
[download]

<html>
<head>
<title>test.cgi</title>
</head>
<body>
<form action="test2.cgi" method="post">
<fieldset>
<p><b>User Name:</b>
  <input 
    type="text" 
    name="username" 
    size="10" 
    maxlength="20" 
    value="test" 
  />
</p>

<p><b>Password:</b> 
  <input 
    type="password" 
    name="password" 
    size="20" 
    maxlength="20" 
  />
</p>

<div align="center">
  <input 
    type="image" 
    name="submit" 
    value="Login" 
    src="blue_login.gif" 
    border=0 
  />
</div>
</form>

</body>
</html>
[download]

Comment on Re: submit button image Select or Download Code

Replies are listed 'Best First'.
Re^2: submit button image by Anonymous Monk on Jan 16, 2006 at 17:14 UTC
thanks for those ideas. printing out the data dumper made me aware that the x and y of the image was sent. i didnt allow for this! thanks	[reply]