From ff0dc53738fa602bb11566b760a672b835359390 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Tue, 3 Sep 2013 15:11:41 +0200
Subject: [PATCH] Add debug log when request API

---
 ACU/API/Base.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/ACU/API/Base.pm b/ACU/API/Base.pm
index f1a4721..ce059f2 100644
--- a/ACU/API/Base.pm
+++ b/ACU/API/Base.pm
@@ -10,6 +10,11 @@ use LWP::UserAgent;
 use XML::LibXML;
 use XML::SAX::ParserFactory;
 
+use constant API_URL => "https://noyce.acu.epita.fr/api/";
+#use constant API_URL => "https://rasmus.acu.epita.fr/intra/api/";
+
+use ACU::Log;
+
 sub make_response($$)
 {
     my $doc = XML::LibXML::Document->new('1.0');
@@ -50,7 +55,9 @@ sub get($$)
     my $next = shift;
     my $url = shift;
     my $ua = LWP::UserAgent->new;
-    my $req = GET 'https://lerdorf.acu.epita.fr/intra/api/' . $url;
+
+    ACU::Log::do_debug ('GET Request to ' . API_URL . $url);
+    my $req = GET API_URL . $url;
  
     return parse($next, $ua->request($req)->content);
 }
@@ -60,7 +67,9 @@ sub send($$@)
     my $next = shift;
     my $url = shift;
     my $ua = LWP::UserAgent->new;
-    my $req = POST 'https://lerdorf.acu.epita.fr/intra/api/' . $url, @_;
+
+    ACU::Log::do_debug ('POST Request to ' . API_URL . $url);
+    my $req = POST API_URL . $url, @_;
  
     return parse($next, $ua->request($req)->content);
 }