The first bits of the contest GUI.

[moe.git] / submit / MO / Submit.pm

diff --git a/submit/MO/Submit.pm b/submit/MO/Submit.pm
index 0ae3f059d35c835c2be98e1e4e0f1e4e29a99b13..15e6d7c3584030291c0123b4d23045ac13a9ee64 100644 (file)
--- a/submit/MO/Submit.pm
+++ b/submit/MO/Submit.pm
@@ -16,6 +16,7 @@ sub new($) {
        my $mo = "$home/.mo";
        my $root = $ENV{"MO_ROOT"} or die "Environment variable MO_ROOT not set\n";
        my $self = {
+               "Contest" => "CPSPC 2007",
                "Server" => "localhost:8888",
                "Key" => "$mo/key.pem",
                "Cert" => "$mo/cert.pem",
@@ -35,7 +36,7 @@ sub DESTROY($) {
 
 sub log($$) {
        my ($self, $msg) = @_;
-       print STDERR "LOG: $msg\n" if $self->{"Trace"};
+       print STDERR "SUBMIT: $msg\n" if $self->{"Trace"};
 }
 
 sub err($$) {