8 use FROGS::Config qw($conf);
10 $::conf->{-DEBUG} = 2;
12 # $::conf->{-DEBUG} = 2;
14 my $db = new DataBase();
16 $db->update_hash('MOBILE',
18 {'COUNT' => 'COUNT + 1'},'noquote');
22 # print $db->relative("2004-05-13 03:40:37") ."\n";
24 #my $aym = new Aymargeddon(1,3,$db,'DE');
26 #print $aym->show_statistic();
28 # print $aym->read_single_relation(1,2). "\n";
30 #print "place is: $place.\n";
32 # print Dumper $::conf;
35 #my $d = DataBase->new();