Add EXE_FILES to Makefile.PL

[gruntmaster-data.git] / gruntmaster-problem

diff --git a/gruntmaster-problem b/gruntmaster-problem
index afcb1be7135e065fdc342d694a0297bd328f0f11..fa1403e71c3692a7900566a63e78b5eca50f9c39 100755 (executable)
--- a/gruntmaster-problem
+++ b/gruntmaster-problem
@@ -11,7 +11,8 @@ use Getopt::Long qw/:config require_order/;
 
 ##################################################
 
-my $db = Gruntmaster::Data->connect('dbi:Pg:');
+my $dsn = $ENV{GRUNTMASTER_DSN} // 'dbi:Pg:';
+my $db = Gruntmaster::Data->connect($dsn);
 
 sub cmd_help{
        exec perldoc => $0
@@ -23,6 +24,7 @@ sub cmd_add{
        my $private = prompt('Private?', '-yn') eq 'y';
        my $contest = prompt 'Contest';
        my $author = prompt 'Problem author (full name)';
+       my $writer = prompt 'Problem statement writer (full name)';
        my $owner = prompt 'Problem owner (username)';
        my $level = prompt 'Problem level', -menu => "beginner\neasy\nmedium\nhard";
        my $statement = read_file prompt 'File with problem statement', -complete => 'filenames';
@@ -59,6 +61,7 @@ sub cmd_add{
                level => $level,
                statement => $statement,
                author => $author,
+               writer => $writer,
                owner => $owner,
                generator => $generator,
                runner => $runner,