X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=gruntmaster-problem;h=fa1403e71c3692a7900566a63e78b5eca50f9c39;hb=26d60269bc13d62a648cf4772f2b58f87bbcd2f3;hp=afcb1be7135e065fdc342d694a0297bd328f0f11;hpb=4af3660592d7b245e02e48b146d0a950b7f54ffc;p=gruntmaster-data.git

diff --git a/gruntmaster-problem b/gruntmaster-problem
index afcb1be..fa1403e 100755
--- 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,