my $username = $self->query->param('username');
  my $password = $self->query->param('password');

  my @auth = LSRfm::Show->search(name => $username);
  my $id = pop(@auth);
  my @aut = LSRfm::Database::Show_Passwords->search(id => $id);
  my $pass = shift(@aut);
#  my $output;
my $ok = "n/a";
if ($password eq $pass)
  {$ok = "yes";}
else
  {$ok = "no";}

print Data::Dumper->Dump([$username, $password, $id, $pass, $ok]);

##</code><code>##

$VAR1 = 'Offline';
$VAR2 = 'password';
$VAR3 = bless( {
                 'id' => '1'
               }, 'LSRfm::Show' );
$VAR4 = bless( {
                 'id' => '1'
               }, 'LSRfm::Database::Show_Passwords' );
$VAR5 = 'no';
HTTP/1.1 200 OK
Date: Mon, 17 Apr 2006 20:48:13 GMT
Server: Apache/1.3.29 (Unix) mod_perl/1.29 mod_become/1.3 DAV/1.0.3 PHP/4.3.9 mod_fastcgi/2.4.2
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Transfer-Encoding: chunked
Content-Type: text/html; charset=ISO-8859-1

1  
1
0