src/test2.pl

   1 use strict;
   2 use FROGS::DataBase;
   3 use Data::Dumper;
   4 use Aymargeddon;
   5 use AymCommand;
   6 use FROGS::Command;
   7
   8 $| = 1;
   9
  10 use FROGS::Config qw($conf);
  11
  12 $::conf->{-DEBUG} = 2;
  13
  14 # $::conf->{-DEBUG} = 2;
  15
  16 my $db =  new DataBase();
  17
  18 my $dbhash = {
  19     "PLAYER" => 5,
  20     "GAME" => 1,
  21     "ID" => 2,
  22     "LOCATION" => "2_0",
  23 };
  24
  25 my $command = BUILD_ARK->new($dbhash,$db);
  26
  27 print $command->first_phase_ajax()."\n";
  28
  29
  30
  31
  32
  33 #$db->update_hash('MOBILE',
  34 #                "LOCATION=0_1",
  35 #                {'COUNT' => 'COUNT + 1'},'noquote');
  36
  37 #$db->commit();
  38
  39 # print $db->relative("2004-05-13 03:40:37") ."\n";
  40
  41 #my $aym = new Aymargeddon(1,3,$db,'DE');
  42
  43 #print $aym->show_statistic();
  44
  45 # print $aym->read_single_relation(1,2). "\n";
  46
  47 #print "place is: $place.\n";
  48
  49 # print Dumper $::conf;
  50 # exit;
  51
  52 #my $d = DataBase->new();
  53 #$d->nowrite();
  54