Help for this page

Select Code to Download


  1. or download this
    package Login;
use base 'CGI::Application';
...
}

1;
  2. or download this
    package Login::DBI;
use base "Class::DBI::mysql";

__PACKAGE__->connection( "dbi:mysql:db", "db_user", "db_password" );

1;
  3. or download this
    package Login::User;
use base 'Login::DBI';
...
Login::User->columns(All => qw(uid login password));

1;
  4. or download this
    #!/usr/bin/perl -w
use Login;
my $app = Login->new();
$app->run();
  5. or download this
    CREATE TABLE user (
  uid int(10) unsigned NOT NULL auto_increment,
...
  password char(16) default NULL,
  PRIMARY KEY  (uid)
) TYPE=MyISAM;