-- main is main file of main project written with Ada. -- Main is Copyright (C) 2026 Manuel De Girardi ; -- -- This program is free software; you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by -- the Free Software Foundation; either version 2 of the License, or -- (at your option) any later version. -- -- This program is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -- GNU General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program; if not, write to the Free Software -- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA -- -- Date := "2026-09-17 16:58:22" -- Version := "0.37.24a" with Gnat.Sockets; use Gnat.Sockets; with gnat.Directory_Operations.Iteration; use Gnat.Directory_Operations; with Gnat.CGI; with Gnat.CGI.Cookie; use Gnat; with Ada.Text_Io; use Ada.Text_Io; procedure Webspir is Add : Gnat.sockets.Sock_Addr_Type; Socket : Socket_Type; Channel : Gnat.sockets.Stream_Access; procedure Table_Action (Item : String; Index : Positive; Quit : in out Boolean) is begin Put_Line(" "); end Table_Action; procedure Iteration is new Iteration.Wildcard_Iterator(Table_Action); begin if not CGI.Ok then raise Program_Error; end if; if Cgi.Argument_Count = 0 then if Gnat.CGI.Cookie.Count = 1 and then Gnat.CGI.Cookie.Value("logname")'Length /= 0 then Cgi.Put_Header; Put_Line(""); Put_Line(""); Put_Line(" "); Put_Line(" "); Put_Line(" Audits"); Put_Line(" "); Put_Line(" "); Put_Line(" "); Put_Line(" "); Put_Line("
"); Put_Line("

Quality report

"); Put_Line("
"); Put_Line("

Name

"); Put_Line(" "); Put_Line("

Installation

"); Put_Line(" beginner"); Put_Line(" advanced"); Put_Line(" expert"); Put_Line("

Utilisation

"); Put_Line(" easy"); Put_Line(" difficult"); Put_Line("

Ergonomy

"); Put_Line(" simple"); Put_Line(" detailed"); Put_Line(" complex"); Put_Line("

Rank

"); Put_Line(" / 10 points"); Put_Line("
"); Put_Line("
"); Put_Line(" "); Put_Line(" "); Put_Line("
"); Put_Line(" return"); Put_Line("
"); Put_Line(" "); Put_Line(" "); else Put_Line(""); Put_Line(""); Put_Line(" "); Put_Line(" "); Put_Line(" Audits"); Put_Line(" "); Put_Line(" "); Put_Line(" You must be logged."); Put_Line(" "); Put_Line(" "); end if; elsif Cgi.Argument_Count = 5 then if Gnat.CGI.Cookie.Count = 1 and then Gnat.CGI.Cookie.Value("logname")'Length /= 0 then Add.Addr := Gnat.Sockets.Addresses (Gnat.Sockets.Get_Host_By_Name ("localhost"), 1); Add.Port := 1989; Gnat.sockets.Create_Socket (Socket); delay 0.1; Gnat.Sockets.Set_Socket_Option (Socket, Gnat.Sockets.Socket_Level, (Gnat.Sockets.Reuse_Address, True)); delay 0.1; Gnat.sockets.Connect_Socket (Socket, Add); delay 0.1; Channel := Gnat.sockets.Stream (Socket); String'Output (Channel, "Audits"); String'Output (Channel, Gnat.CGI.Cookie.Value("logname")); String'Output (Channel, Gnat.CGI.Value("element")); String'Output (Channel, Gnat.CGI.Value("installation")); String'Output (Channel, Gnat.CGI.Value("utilisation")); String'Output (Channel, Gnat.CGI.Value("ergonomy")); String'Output (Channel, Gnat.CGI.Value("point")); Gnat.Sockets.Close_Socket(Socket); Cgi.Put_Header; Put_Line(""); Put_Line(" "); Put_Line(" "); Put_Line(" Audits"); Put_Line(" "); Put_Line(" "); Put_Line(" "); Put_Line(" "); Put_Line("
"); Put_Line("

Quality report

"); Put_Line(" Thank you!"); Put_Line("

"); Put_Line(" return"); Put_Line("
"); Put_Line(" "); Put_Line(" "); else Put_Line(""); Put_Line(""); Put_Line(" "); Put_Line(" "); Put_Line(" Audits"); Put_Line(" "); Put_Line(" "); Put_Line(" You must be logged."); Put_Line(" "); Put_Line(" "); end if; else Cgi.Put_Header; Put_Line(""); Put_Line(" "); Put_Line(" "); Put_Line(" Audits"); Put_Line(" "); Put_Line(" "); Put_Line(" "); Put_Line(" "); Put_Line("
"); Put_Line("

Quality report

"); Put_Line(" Une erreur s'est produite lors du traitement."); Put_Line("

"); Put_Line(" return"); Put_Line("
"); Put_Line(" "); Put_Line(" "); end if; end Webspir ;