#!/usr/bin/perl -w

use CGI qw /:standard/;
use DBI;
use DBITT;

{
  my $Form = new CGI;
  my $Vars = $Form->Vars();

  my $hDB = DBI->connect (
    $DBITT::DatabasePath, $DBITT::UserName, $DBITT::Password ) ||
    die "DBI failed: $DBI::errstr";

  DBI->trace ( 0 );
  my $UserID   = $hDB->quote ( $Vars->{ userid } );
  my $Password = $hDB->quote ( $Vars->{ password } );
  DBI->trace ( 0 );

  print $UserID . ":" . $Password . "\n";
  $hDB->disconnect;
}