erste vorarbeiten für JSON
[aymargeddon/current.git] / src / test2.pl
1 use strict;
2 use FROGS::DataBase;
3 use Data::Dumper;
4 use Aymargeddon;
5
6 $| = 1;
7
8 use FROGS::Config qw($conf);
9
10 $::conf->{-DEBUG} = 2;
11
12 # $::conf->{-DEBUG} = 2;
13
14 my $db =  new DataBase();
15
16 $db->update_hash('MOBILE',
17                  "LOCATION=0_1",
18                  {'COUNT' => 'COUNT + 1'},'noquote');
19
20 $db->commit();
21
22 # print $db->relative("2004-05-13 03:40:37") ."\n";
23
24 #my $aym = new Aymargeddon(1,3,$db,'DE');
25
26 #print $aym->show_statistic();
27
28 # print $aym->read_single_relation(1,2). "\n";
29
30 #print "place is: $place.\n";
31
32 # print Dumper $::conf;
33 # exit;
34
35 #my $d = DataBase->new();
36 #$d->nowrite();
37