package cPanel::Bulletin_Boards::YaBB;

use strict;
use warnings;

our $VERSION = 0.1;
my $pkg = __PACKAGE__;

our $meta_info = {
    require_suexec      => 1, 
    admin_email         => 1, 
    installdir          => 'yabb',
    description         => 'Fast and efficient forum/BB system written in Perl. It is feature rich and does not have the security issues inherent to PHP based scripts.', # required
    version             => '2.1', # required
    security_rank       => 7, 
    website             => 'http://yabbforum.com/', 
    config_files        => [qw(Paths.pl Members/admin.vars Members/memberinfo.txt Members/memberlist.txt)],
    install_fields_hook => sub {
        my ($input_hr, $error_ref, $cpo) = @_;
        ${$error_ref} = 'Invalid password. Minimum 7 letters, numbers, or underscores'
            if $input_hr->{'password'} !~ m/^\w+$/ || length $input_hr->{'password'} < 7;

        $cpo->{'password_md5_base64'} = Digest::MD5::md5_base64 $input_hr->{'password'};
    },
    install_fields => {
        password => {
           label => 'Password for "admin"',
           value => '',
           attr  => '',
           type  => 'text'
        },
    },
};

#### action functions ##
sub install { shift->stdinstall(@_) }
sub upgrade { shift->stdupgrade(@_) }
sub uninstall { shift->stduninstall(@_) }

#### non action functions ##
sub installform { print shift->{installform} }
sub upgradeform { print shift->{upgradeform} }
sub uninstallform { print shift->{uninstallform} }

1;