view release on metacpan or  search on metacpan

scripts/chronosadmin  view on Meta::CPAN

    printf $text->{chronosadmin_usage}, $0;
}

{
    my $dbh;

    sub dbh {
        if ( not $dbh ) {
            $dbh =
              DBI->connect(
                "dbi:mysql:$db;mysql_read_default_file=$ENV{HOME}/.my.cnf",
                $db_user, $db_pass, { RaiseError => 1, PrintError => 0 } );
        }
        return $dbh;
    }
}

sub new_user {
    my $username = get( $text->{chronosadmin_username} );
    my $password = get( $text->{chronosadmin_pass}, { Password => 1 } );
    my $email    = get( $text->{chronosadmin_email} );