6 use Date::Calc qw(Time_to_Date);
10 use FROGS::Config qw($conf);
14 my $d = DataBase->new();
18 # {'LOCATION' => '2_0',
19 # 'COMMAND' => 'BUILD_TEMPLE',
20 # 'ARGUMENTS' => 'MOBILE=1',
25 {'LOCATION' => '11_3',
26 'COMMAND' => 'PRODUCE',
27 'ARGUMENTS' => 'ROLE=-1',
34 # print Dumper $dbhash;
36 require "AymCommand.pm";
38 my $c = $dbhash->{'COMMAND'}->new($dbhash,$d);
40 # print "is valid\n" if $c->is_valid();
42 my $fp = $c->first_phase();
45 print "first phase correct. duration: $c->{-duration}\n";
47 print "second phase correct\n" if $c->second_phase();
49 print "no second phase\n";
54 # $d->{-dbh}->disconnect();