Fix content of demo http server

diff --git a/src/modules/rlm_rest/demo.pl b/src/modules/rlm_rest/demo.pl
index 805f7c3edd0d26454705de3cfbd6847e95c29fcc..d2501e94fd915b7500639d34bb3d0e15bd12d1d1 100755 (executable)
--- a/src/modules/rlm_rest/demo.pl
+++ b/src/modules/rlm_rest/demo.pl
@@ -15,14 +15,9 @@ while (my $c = $d->accept) {
                if ($r->method eq 'POST' and $r->url->path eq "/") {
                        my $resp = HTTP::Response->new( '200', 'OK' );
        
-                       #$resp->header("Content-Type" => "application/x-www-form-urlencoded");  
-                       #$resp->content("reply:User-Name=kittens&reply:Service-Type=Framed-User&reply:HP-Cos=0000&reply:HP-Bandwidth-Max-Ingress=999999999999999999999999999999999999&reply:User-Name=mittens");
+                       $resp->header("Content-Type" => "application/x-www-form-urlencoded");   
+                       $resp->content("control:Cleartext-Password=password&reply:Reply-Message=testing123");
                
-                       $resp->header("Content-Type" => "application/json");    
-                       $resp->content('{
-                               "reply|User-Name":"kittens %{User-Name}",
-                       }');
-
                        $c->send_response($resp);
                } else {
                        $c->send_error(RC_FORBIDDEN)