Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 25e96f0c04
Fetching contributors…

Cannot retrieve contributors at this time

25 lines (16 sloc) 0.495 kb
#!perl
use strict;
use warnings;
use opts;
use SampleBBS::Model;
use Digest::SHA qw(sha256_hex);
opts my $login_id => { isa => 'Str', required => 1, comment => 'admin login_id ex. -l demo' },
my $password => { isa => 'Str', required => 1, comment => 'admin password ex. -l demo' };
my $password_hash = sha256_hex('SampleBBS' . $password);
my $db = SampleBBS::Model->new;
$db->insert('admin', {
login_id => $login_id,
password => $password_hash
});
$db->disconnect;
exit(0);
Jump to Line
Something went wrong with that request. Please try again.