cgi-about.adb


------------------------------------------------------------------------------
--
--  package CGI.About (body)
--
------------------------------------------------------------------------------
--  Update information:
--
--  1996.07.28 (Jacob Sparre Andersen)
--    Written.
--    Child of David A. Wheeler's CGI package.
--
--  (Insert additional update information above this line.)
------------------------------------------------------------------------------

with Ada.Command_Line;
with Ada.Text_IO;

package body CGI.About is

   ---------------------------------------------------------------------------
   --  procedure About_Box:
   --
   --  Shows an "About Box" with the "Ada inside" logo, link to HBAP, and
   --  credits to David A. Wheeler and Jacob Sparre Andersen.

   procedure About_Box is

      use Ada.Command_Line;
      use Ada.Text_IO;

   begin --  About_Box
      CGI.Put_CGI_Header;

      Put_Line ("<HTML>");
      Put_Line ("<Head>");
      Put_Line ("<Title>About " & Command_Name & "</Title>");
      Put_Line ("<Body Lang=en>");
      Put_Line ("<Img Src=""http://www.jacob-sparre.dk/" &
                  "Ada_inside.gif"" Align=Right Alt=""Ada inside"">");
      Put_Line ("[<A Href=""" & My_URL & """>Back</A>]");
      Put_Line ("<HR>");
      CGI.Put_HTML_Heading ("About '" & Command_Name & "'", 1);
      Put_Line ("<P>");
      Put_Line ("This program was developed in " &
                 "<A Href=""http://lglwww.epfl.ch/Ada/"">Ada</A>, using ");
      Put_Line ("David A. Wheeler's " &
                 "<A Href=""http://wuarchive.wustl.edu/languages/ada/swcomps/cgi/cgi.html"">package CGI</A>,");
      Put_Line ("and child packages written by Jacob Sparre Andersen,");
      Put_Line ("<A Href=""http://www.jacob-sparre.dk/"">Tofta");
      Put_Line ("Teld</A>.");
      Put_Line ("</HTML>");
   end About_Box;

   ---------------------------------------------------------------------------
   --  procedure About_Box:
   --
   --  Shows an "About Box" with the "Ada inside" logo, link to HBAP, and
   --  credits to David A. Wheeler and Jacob Sparre Andersen.

   procedure About_Box (Program_Name : in     String;
                        Author       : in     String) is

      use Ada.Text_IO;

   begin --  About_Box
      CGI.Put_CGI_Header;

      Put_Line ("<HTML>");
      Put_Line ("<Head>");
      Put_Line ("<Title>About '" & Program_Name & "'</Title>");
      Put_Line ("<Body Lang=en>");
      Put_Line ("<Img Src=""http://www.jacob-sparre.dk/" &
                  "Ada_inside.gif"" Align=Right Alt=""Ada inside"">");
      Put_Line ("[<A Href=""" & My_URL & """>Back</A>]");
      Put_Line ("<HR>");
      CGI.Put_HTML_Heading ("About '" & Program_Name & "'", 1);
      Put_Line ("<P>");
      Put_Line ("This program was developed in " &
                 "<A Href=""http://lglwww.epfl.ch/Ada/"">Ada</A>, using ");
      Put_Line ("David A. Wheeler's " &
                 "<A Href=""http://wuarchive.wustl.edu/languages/ada/swcomps/cgi/cgi.html"">package CGI</A>,");
      Put_Line ("and child packages written by Jacob Sparre Andersen,");
      Put_Line ("<A Href=""http://www.jacob-sparre.dk/"">Tofta");
      Put_Line ("Teld</A>.");
      Put_Line ("<P>");
      Put_Line ("<BR>");
      Put_Line ("Written by " & Author & ".");
      Put_Line ("</HTML>");
   end About_Box;

   ---------------------------------------------------------------------------

end CGI.About;

Typeset with Ada_To_HTML (Jacob and Jesper)