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