[network-manager-fortisslvpn] contrib: implement /remote/fortisslvpn for the server mockup

[Lubomir Rintel <lkundrak src gnome org>]

commit 5cd882848bd166bd654bdc1b53819696698109af
Author: Lubomir Rintel <lkundrak v3 sk>
Date:   Tue Sep 22 09:38:05 2015 +0200

    contrib: implement /remote/fortisslvpn for the server mockup
    
    Fixes functionality with the official client.

 contrib/fortiserve.pl |   11 ++++++++++-
 1 files changed, 10 insertions(+), 1 deletions(-)
---
diff --git a/contrib/fortiserve.pl b/contrib/fortiserve.pl
index ea982e4..3f6e1e2 100644
--- a/contrib/fortiserve.pl
+++ b/contrib/fortiserve.pl
@@ -251,7 +251,16 @@ sub serve_request
        } elsif ($request->uri eq '/remote/index') {
                $response = new HTTP::Response (200 => 'OK', [], 'something');
        } elsif ($request->uri eq '/remote/fortisslvpn') {
-               $response = new HTTP::Response (200 => 'OK', [], "\x00\x06\x50\x50\x00\x00");
+               $response = new HTTP::Response (200 => 'OK', [], join '', map { "$_\n" }
+                       '<!-- SSL-VPN protocol version:',
+                       'embed.FGTversion = 1;',
+                       'fortisslvpn.FGTversion = 1',
+                       '-->',
+                       '',
+                       '<input type="hidden" NAME="text6" 
VALUE="10.112.65.0/255.255.255.0,10.113.0.0/255.255.0.0,185.103.145.0/255.255.255.0,10.112.0.0/255.255.224.0">',
+                       '<input type="hidden" NAME="text3" value="0:1666">',
+                       '<input type="hidden" NAME="text7" value="0">',
+               );
        } elsif ($request->uri eq '/remote/sslvpn-tunnel') {
                do_ppp ($client);
                $response = new HTTP::Response (200 => 'OK', 'something');