Subversion Repositories VORC

Rev

Rev 237 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 237 Rev 238
Line 5... Line 5...
5 
use RollerCon;
 5 
use RollerCon;
6 
use DBI;
 6 
use DBI;
7 
use WebDB;
 7 
use WebDB;
8 
use REST::Client;
 8 
use REST::Client;
9 
use JSON;
 9 
use JSON;
- 
 
 10 
use Data::Dumper;
10 
my $DEBUG = 0;
 11 
my $DEBUG = 0;
Line 11... Line 12...
11 
 
 12 
 
Line 12... Line 13...
12 
my $dbh = WebDB::connect ();
 13 
my $dbh = WebDB::connect ();
Line 53... Line 54...
53 
  );
 54 
  );
54 
  my $response = from_json($client->responseContent());
 55 
  my $response = from_json($client->responseContent());
Line 55... Line 56...
55 
 
 56 
 
Line 56... Line 57...
56 
  warn Dumper $response if $DEBUG;
 57 
  warn Dumper $response if $DEBUG;
57 
 
 58