hyung-hwan/codepot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed the wrong variable name in the start-commit script

Browse Source
This commit is contained in:
hyung-hwan
2014-05-16 03:28:28 +00:00
parent 811a7cbee9
commit df0a6fba2c
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
codepot/etc/start-commit.in
View File

@ -83,18 +83,21 @@ sub is_project_commitable
return (((scalar(@row) > 0 && $row[0] eq 'Y')? 1: 0), undef);
}
my $res;
#------------------------------------------------------------
# MAIN
#------------------------------------------------------------
my $cfg = get_config ();
if (!defined($cfg))
{
print "Cannot load codepot configuration file\n";
print (STDERR "Cannot load codepot configuration file\n");
exit (1);
}
my $dbh = open_database ($cfg);
if (!defined($dbh))
{
print ("Cannot open database\n");
print (STDERR "Cannot open database\n");
exit (1);
}
@ -106,7 +109,7 @@ my $errstr;
$dbh, $cfg->{database_prefix}, $REPOBASE, $USER);
if ($member <= -1)
{
print ("Cannot check membership - $errstr\n");
print (STDERR "Cannot check membership - $errstr\n");
close_database ($dbh);
exit (1);
}
@ -115,7 +118,7 @@ if ($member <= -1)
$dbh, $cfg->{database_prefix}, $REPOBASE);
if ($commitable <= -1)
{
print ("Cannot check commitability - $errstr\n");
print (STDERR "Cannot check commitability - $errstr\n");
close_database ($dbh);
exit (1);
}
@ -124,13 +127,13 @@ close_database ($dbh);
if ($member == 0)
{
print ("$USER doesn't belong to the $REPOBASE project\n");
print (STDERR "$USER doesn't belong to the $REPOBASE project\n");
exit (1);
}
if ($member == 0)
if ($commitable == 0)
{
print ("The $REPOBASE project is not commitable\n");
print (STDERR "The $REPOBASE project is not commitable\n");
exit (1);
}