开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > IP电话/视频会议 > 查看源码
httpsvc.cxx
资源名称：pwlib_1.1pl17.zip　[点击查看]
上传用户：hzhsqp
上传日期：2007-01-06
资源大小：1600k
文件大小：46k
源码类别：

IP电话/视频会议

开发平台：

Visual C++

httpsvc.cxx：源码内容
  1. /*
  2.  * httpsvc.cxx
  3.  *
  4.  * Classes for service applications using HTTP as the user interface.
  5.  *
  6.  * Portable Windows Library
  7.  *
  8.  * Copyright (c) 1993-1998 Equivalence Pty. Ltd.
  9.  *
  10.  * The contents of this file are subject to the Mozilla Public License
  11.  * Version 1.0 (the "License"); you may not use this file except in
  12.  * compliance with the License. You may obtain a copy of the License at
  13.  * http://www.mozilla.org/MPL/
  14.  *
  15.  * Software distributed under the License is distributed on an "AS IS"
  16.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  17.  * the License for the specific language governing rights and limitations
  18.  * under the License.
  19.  *
  20.  * The Original Code is Portable Windows Library.
  21.  *
  22.  * The Initial Developer of the Original Code is Equivalence Pty. Ltd.
  23.  *
  24.  * Portions are Copyright (C) 1993 Free Software Foundation, Inc.
  25.  * All Rights Reserved.
  26.  *
  27.  * Contributor(s): ______________________________________.
  28.  *
  29.  * $Log: httpsvc.cxx,v $
  30.  * Revision 1.54  2000/05/02 02:58:49  robertj
  31.  * Fixed MSVC warning about unused parameters.
  32.  *
  33.  * Revision 1.53  2000/05/02 02:01:18  craigs
  34.  * Changed stricmp and added implementation of PServiceMacro::Translate
  35.  *
  36.  * Revision 1.52  2000/05/02 01:50:37  robertj
  37.  * Rewrite of PServiceMacro so does not use malloc (indirectly).
  38.  *
  39.  * Revision 1.51  2000/01/27 00:35:52  robertj
  40.  * Fixed benign warning about uninitialised variables in MSVC optimised compile.
  41.  *
  42.  * Revision 1.50  1999/08/07 06:50:52  robertj
  43.  * Removed silly (and incorrect) warning.
  44.  *
  45.  * Revision 1.49  1999/04/24 05:16:26  robertj
  46.  * Fixed incorrect date in copyright notice.
  47.  *
  48.  * Revision 1.48  1998/11/30 05:37:46  robertj
  49.  * New directory structure
  50.  *
  51.  * Revision 1.47  1998/11/24 23:05:14  robertj
  52.  * Fixed extra *** in demo message
  53.  *
  54.  * Revision 1.46  1998/11/16 07:23:15  robertj
  55.  * More PPC GNU compatibility.
  56.  *
  57.  * Revision 1.45  1998/11/16 06:50:40  robertj
  58.  * Fixed PPC GNU compiler compatibility.
  59.  *
  60.  * Revision 1.44  1998/10/31 12:49:25  robertj
  61.  * Added read/write mutex to the HTTP space variable to avoid thread crashes.
  62.  *
  63.  * Revision 1.43  1998/10/29 11:58:52  robertj
  64.  * Added ability to configure the HTTP threads stack size.
  65.  *
  66.  * Revision 1.42  1998/10/29 11:31:57  robertj
  67.  * Fixed default URL to have lower case and spaceless product name.
  68.  * Increased HTTP stack size.
  69.  *
  70.  * Revision 1.41  1998/10/15 01:53:35  robertj
  71.  * GNU compatibility.
  72.  *
  73.  * Revision 1.40  1998/10/13 14:06:24  robertj
  74.  * Complete rewrite of memory leak detection code.
  75.  *
  76.  * Revision 1.39  1998/09/23 06:22:15  robertj
  77.  * Added open source copyright license.
  78.  *
  79.  * Revision 1.38  1998/09/18 01:47:23  robertj
  80.  * Fixed bug that made files with signature on first line fail on unix systems.
  81.  *
  82.  * Revision 1.37  1998/08/20 06:01:02  robertj
  83.  * Improved internationalisation, registrationpage override.
  84.  *
  85.  * Revision 1.36  1998/04/21 02:43:40  robertj
  86.  * Fixed conditional around wrong way for requiring signature on HTML files.
  87.  *
  88.  * Revision 1.35  1998/04/01 01:55:41  robertj
  89.  * Fixed bug for automatically including GIF file in HTTP name space.
  90.  *
  91.  * Revision 1.34  1998/03/23 03:21:40  robertj
  92.  * Fixed missing invalid case in register page.
  93.  *
  94.  * Revision 1.33  1998/03/20 03:18:15  robertj
  95.  * Added special classes for specific sepahores, PMutex and PSyncPoint.
  96.  *
  97.  * Revision 1.32  1998/03/17 10:14:39  robertj
  98.  * Rewrite of registration page to allow for HTML file override.
  99.  *
  100.  * Revision 1.31  1998/03/09 07:17:48  robertj
  101.  * Added IP peer/local number macros.
  102.  * Set GetPageGraphic reference to GIF file to be at lop level directory.
  103.  *
  104.  * Revision 1.30  1998/02/16 00:14:09  robertj
  105.  * Added ProductName and BuildDate macros.
  106.  * Major rewrite of application info passed in PHTTPServiceProcess constructor.
  107.  *
  108.  * Revision 1.29  1998/02/03 06:22:45  robertj
  109.  * Allowed PHTTPServiceString to be overridden by html file after ';'.
  110.  *
  111.  * Revision 1.28  1998/01/26 02:49:19  robertj
  112.  * GNU support.
  113.  *
  114.  * Revision 1.27  1998/01/26 02:12:14  robertj
  115.  * GNU warnings.
  116.  *
  117.  * Revision 1.26  1998/01/26 00:45:44  robertj
  118.  * Added option flags to ProcessMacros to automatically load from file etc.
  119.  * Assured that all service HTTP resources are overidable with file, using ; URL field.
  120.  * Added a number of extra #equival macros.
  121.  * Added "Pty. Ltd." to company name.
  122.  *
  123.  * Revision 1.25  1997/11/10 12:40:05  robertj
  124.  * Changed SustituteEquivalSequence so can override standard macros.
  125.  *
  126.  * Revision 1.24  1997/11/04 06:02:46  robertj
  127.  * Allowed help gif file name to overridable in PServiceHTML, so can be in subdirectory.
  128.  *
  129.  * Revision 1.23  1997/10/30 10:21:26  robertj
  130.  * Added ability to customise regisration text by application.
  131.  *
  132.  * Revision 1.22  1997/08/28 14:19:40  robertj
  133.  * Fixed bug where HTTP directory was not processed for macros.
  134.  *
  135.  * Revision 1.20  1997/08/20 08:59:58  craigs
  136.  * Changed macro handling to commonise #equival sequence
  137.  *
  138.  * Revision 1.19  1997/07/26 11:38:22  robertj
  139.  * Support for overridable pages in HTTP service applications.
  140.  *
  141.  * Revision 1.18  1997/07/08 13:11:44  robertj
  142.  * Added standard header and copyright macros to service HTML.
  143.  *
  144.  * Revision 1.17  1997/06/16 13:20:15  robertj
  145.  * Fixed bug where PHTTPThread crashes on exit.
  146.  *
  147.  * Revision 1.16  1997/05/16 12:07:21  robertj
  148.  * Added operating system and version to hidden fields on registration form.
  149.  *
  150.  * Revision 1.15  1997/03/02 03:40:59  robertj
  151.  * Added error logging to standard HTTP Service HTTP Server.
  152.  *
  153.  * Revision 1.14  1997/02/05 11:54:54  robertj
  154.  * Added support for order form page overridiing.
  155.  *
  156.  * Revision 1.13  1997/01/28 11:45:19  robertj
  157.  * .
  158.  *
  159.  * Revision 1.13  1997/01/27 10:22:37  robertj
  160.  * Numerous changes to support OEM versions of products.
  161.  *
  162.  * Revision 1.12  1997/01/03 06:33:23  robertj
  163.  * Removed slash from operating system version string, so says Windows NT rather than Windows/NT
  164.  *
  165.  * Revision 1.11  1996/11/16 10:50:26  robertj
  166.  * ??
  167.  *
  168.  * Revision 1.10  1996/11/04 03:58:23  robertj
  169.  * Changed to accept separate copyright and manufacturer strings.
  170.  *
  171.  * Revision 1.8  1996/10/08 13:08:29  robertj
  172.  * Changed standard graphic to use PHTML class.
  173.  *
  174.  * Revision 1.7  1996/09/14 13:09:33  robertj
  175.  * Major upgrade:
  176.  *   rearranged sockets to help support IPX.
  177.  *   added indirect channel class and moved all protocols to descend from it,
  178.  *   separating the protocol from the low level byte transport.
  179.  *
  180.  * Revision 1.6  1996/08/25 09:39:00  robertj
  181.  * Prevented registration if no user etc entered.
  182.  *
  183.  * Revision 1.5  1996/08/19 13:39:55  robertj
  184.  * Fixed race condition in system restart logic.
  185.  *
  186.  * Revision 1.4  1996/08/08 13:36:39  robertj
  187.  * Fixed Registation page so no longer has static link, ie can be DLLed.
  188.  *
  189.  * Revision 1.3  1996/07/15 10:36:48  robertj
  190.  * Added registration info to bottom of order form so can be faxed to us.
  191.  *
  192.  * Revision 1.2  1996/06/28 13:21:30  robertj
  193.  * Fixed nesting problem in tables.
  194.  * Fixed PConfig page always restarting.
  195.  *
  196.  * Revision 1.1  1996/06/13 13:33:34  robertj
  197.  * Initial revision
  198.  *
  199.  */
  201. #ifdef __GNUC__
  202. #pragma implementation "httpsvc.h"
  203. #endif
  205. #include <ptlib.h>
  206. #include <ptclib/httpsvc.h>
  207. #include <ptlib/sockets.h>
  210. #define new PNEW
  213. #define HOME_PAGE  "http://www.equival.com"
  214. #define EMAIL      "equival@equival.com.au"
  215. #define EQUIVALENCE "Equivalence Pty. Ltd."
  218. PHTTPServiceProcess::PHTTPServiceProcess(const Info & inf)
  219.   : PServiceProcess(inf.manufacturerName, inf.productName,
  220.                     inf.majorVersion, inf.minorVersion, inf.buildStatus, inf.buildNumber),
  221.     productKey(inf.productKey),
  222.     securedKeys(inf.securedKeyCount, inf.securedKeys),
  223.     signatureKey(inf.signatureKey),
  224.     compilationDate(inf.compilationDate),
  225.     manufacturersHomePage(inf.manufHomePage != NULL ? inf.manufHomePage : HOME_PAGE),
  226.     manufacturersEmail(inf.email != NULL ? inf.email : EMAIL),
  227.     productNameHTML(inf.productHTML != NULL ? inf.productHTML : inf.productName)
  228. {
  229.   if (inf.gifHTML != NULL)
  230.     gifHTML = inf.gifHTML;
  231.   else {
  232.     gifHTML = psprintf("<img src="/%s" alt="%s!"", inf.gifFilename, inf.productName);
  233.     if (inf.gifWidth != 0 && inf.gifHeight != 0)
  234.       gifHTML += psprintf(" width=%i height=%i", inf.gifWidth, inf.gifHeight);
  235.     gifHTML += " align=absmiddle>";
  236.   }
  238.   if (inf.gifFilename != NULL)
  239.     httpNameSpace.AddResource(new PServiceHTTPFile(inf.gifFilename, GetFile().GetDirectory()+inf.gifFilename));
  241.   restartThread = NULL;
  242.   httpListeningSocket = NULL;
  243. }
  246. PHTTPServiceProcess::~PHTTPServiceProcess()
  247. {
  248.   ShutdownListener();
  249. }
  252. PHTTPServiceProcess & PHTTPServiceProcess::Current() 
  253. {
  254.   PHTTPServiceProcess & process = (PHTTPServiceProcess &)PProcess::Current();
  255.   PAssert(process.IsDescendant(PHTTPServiceProcess::Class()), "Not a HTTP service!");
  256.   return process;
  257. }
  260. BOOL PHTTPServiceProcess::ListenForHTTP(WORD port, PINDEX stackSize)
  261. {
  262.   if (httpListeningSocket != NULL &&
  263.       httpListeningSocket->GetPort() == port &&
  264.       httpListeningSocket->IsOpen())
  265.     return TRUE;
  267.   return ListenForHTTP(new PTCPSocket(port), stackSize);
  268. }
  271. BOOL PHTTPServiceProcess::ListenForHTTP(PSocket * listener, PINDEX stackSize)
  272. {
  273.   if (httpListeningSocket != NULL)
  274.     ShutdownListener();
  276.   httpListeningSocket = PAssertNULL(listener);
  277.   if (!httpListeningSocket->Listen())
  278.     return FALSE;
  280.   if (stackSize > 1000)
  281.     new PHTTPServiceThread(stackSize, *this, *httpListeningSocket, httpNameSpace);
  283.   return TRUE;
  284. }
  287. void PHTTPServiceProcess::ShutdownListener()
  288. {
  289.   if (httpListeningSocket == NULL)
  290.     return;
  292.   if (!httpListeningSocket->IsOpen())
  293.     return;
  295.   httpListeningSocket->Close();
  296.   httpThreadClosed.Wait();
  297.   delete httpListeningSocket;
  298.   httpListeningSocket = NULL;
  299. }
  302. PString PHTTPServiceProcess::GetCopyrightText()
  303. {
  304.   PHTML html(PHTML::InBody);
  305.   html << "Copyright &copy;"
  306.        << compilationDate.AsString("yyyy") << " by "
  307.        << PHTML::HotLink(HOME_PAGE)
  308.        << EQUIVALENCE
  309.        << PHTML::HotLink()
  310.        << ", "
  311.        << PHTML::HotLink("mailto:" EMAIL)
  312.        << EMAIL
  313.        << PHTML::HotLink();
  314.   return html;
  315. }
  318. PString PHTTPServiceProcess::GetPageGraphic()
  319. {
  320.   PHTML html(PHTML::InBody);
  321.   html << PHTML::TableStart()
  322.        << PHTML::TableRow()
  323.        << PHTML::TableData()
  324.        << gifHTML
  325.        << PHTML::TableData()
  326.        << GetOSClass() << ' ' << GetOSName()
  327.        << " Version " << GetVersion(TRUE)
  328.        << PHTML::BreakLine()
  329.        << "By "
  330.        << PHTML::HotLink(manufacturersHomePage) << GetManufacturer() << PHTML::HotLink()
  331.        << ", "
  332.        << PHTML::HotLink("mailto:" + manufacturersEmail) << manufacturersEmail << PHTML::HotLink()
  333.        << PHTML::TableEnd();
  335.   return html;
  336. }
  339. void PHTTPServiceProcess::GetPageHeader(PHTML & html)
  340. {
  341.   GetPageHeader(html, GetName());
  342. }
  345. void PHTTPServiceProcess::GetPageHeader(PHTML & html, const PString & title)
  346. {
  347.   html << PHTML::Title(title) 
  348.        << PHTML::Body()
  349.        << GetPageGraphic();
  350. }
  353. void PHTTPServiceProcess::BeginRestartSystem()
  354. {
  355.   if (restartThread == NULL) {
  356.     restartThread = PThread::Current();
  357.     OnConfigChanged();
  358.   }
  359. }
  362. void PHTTPServiceProcess::CompleteRestartSystem()
  363. {
  364.   if (restartThread == NULL)
  365.     return;
  366.   
  367.   if (restartThread != PThread::Current())
  368.     return;
  370.   httpNameSpace.StartWrite();
  372.   if (Initialise("RestarttInitialisation"))
  373.     restartThread = NULL;
  375.   httpNameSpace.EndWrite();
  377.   if (restartThread != NULL)
  378.     Terminate();
  379. }
  382. void PHTTPServiceProcess::AddRegisteredText(PHTML &)
  383. {
  384. }
  387. void PHTTPServiceProcess::AddUnregisteredText(PHTML &)
  388. {
  389. }
  392. BOOL PHTTPServiceProcess::SubstituteEquivalSequence(PHTTPRequest &, const PString &, PString &)
  393. {
  394.   return FALSE;
  395. }
  398. //////////////////////////////////////////////////////////////
  400. PHTTPServiceThread::PHTTPServiceThread(PINDEX stackSize,
  401.                                        PHTTPServiceProcess & app,
  402.                                        PSocket & listeningSocket,
  403.                                        PHTTPSpace & http)
  404.   : PThread(stackSize, AutoDeleteThread),
  405.     process(app),
  406.     listener(listeningSocket),
  407.     httpNameSpace(http)
  408. {
  409.   myStackSize = stackSize;
  410.   Resume();
  411. }
  414. void PHTTPServiceThread::Main()
  415. {
  416.   if (!listener.IsOpen()) {
  417.     process.httpThreadClosed.Signal();
  418.     return;
  419.   }
  421.   // get a socket when a client connects
  422.   PHTTPServer server(httpNameSpace);
  423.   if (!server.Accept(listener)) {
  424.     if (server.GetErrorCode() != PChannel::Interrupted)
  425.       PSYSTEMLOG(Error, "Accept failed for HTTP: " << server.GetErrorText());
  426.     if (listener.IsOpen())
  427.       new PHTTPServiceThread(myStackSize, process, listener, httpNameSpace);
  428.     else
  429.       process.httpThreadClosed.Signal();
  430.     return;
  431.   }
  433.   new PHTTPServiceThread(myStackSize, process, listener, httpNameSpace);
  435.   // process requests
  436.   while (server.ProcessCommand())
  437.     ;
  439.   // always close after the response has been sent
  440.   server.Close();
  442.   // if a restart was requested, then do it
  443.   process.CompleteRestartSystem();
  444. }
  447. //////////////////////////////////////////////////////////////
  449. PConfigPage::PConfigPage(PHTTPServiceProcess & app,
  450.                          const PString & title,
  451.                          const PString & section,
  452.                          const PHTTPAuthority & auth)
  453.   : PHTTPConfig(title, section, auth),
  454.     process(app)
  455. {
  456. }
  459. PConfigPage::PConfigPage(PHTTPServiceProcess & app,
  460.                          const PString & section,
  461.                          const PHTTPAuthority & auth)
  462.   : PHTTPConfig(section.ToLower() + ".html", section, auth),
  463.     process(app)
  464. {
  465. }
  468. void PConfigPage::OnLoadedText(PHTTPRequest & request, PString & text)
  469. {
  470.   PServiceHTML::ProcessMacros(request, text,
  471.                               baseURL.AsString(PURL::PathOnly).Mid(1),
  472.                               PServiceHTML::LoadFromFile);
  473.   PHTTPConfig::OnLoadedText(request, text);
  474.   PServiceHTML::ProcessMacros(request, text, "", PServiceHTML::NoOptions);
  475. }
  478. BOOL PConfigPage::OnPOST(PHTTPServer & server,
  479.                          const PURL & url,
  480.                          const PMIMEInfo & info,
  481.                          const PStringToString & data,
  482.                          const PHTTPConnectionInfo & connectInfo)
  483. {
  484.   PHTTPConfig::OnPOST(server, url, info, data, connectInfo);
  485.   return FALSE;    // Make sure we break any persistent connections
  486. }
  489. BOOL PConfigPage::Post(PHTTPRequest & request,
  490.                        const PStringToString & data,
  491.                        PHTML & reply)
  492. {
  493.   PServiceHTML::ProcessMacros(request, reply,
  494.                               baseURL.AsString(PURL::PathOnly).Mid(1),
  495.                               PServiceHTML::LoadFromFile);
  497.   PSYSTEMLOG(Debug3, "Post to " << request.url << 'n' << data);
  498.   BOOL retval = PHTTPConfig::Post(request, data, reply);
  500.   OnLoadedText(request, reply);
  502.   if (request.code == PHTTP::OK)
  503.     process.BeginRestartSystem();
  504.   return retval;
  505. }
  508. BOOL PConfigPage::GetExpirationDate(PTime & when)
  509. {
  510.   // Well and truly before now....
  511.   when = PTime(0, 0, 0, 1, 1, 1980);
  512.   return TRUE;
  513. }
  516. //////////////////////////////////////////////////////////////
  518. PConfigSectionsPage::PConfigSectionsPage(PHTTPServiceProcess & app,
  519.                                          const PURL & url,
  520.                                          const PHTTPAuthority & auth,
  521.                                          const PString & prefix,
  522.                                          const PString & valueName,
  523.                                          const PURL & editSection,
  524.                                          const PURL & newSection,
  525.                                          const PString & newTitle,
  526.                                          PHTML & heading)
  527.   : PHTTPConfigSectionList(url, auth, prefix, valueName,
  528.                            editSection, newSection, newTitle, heading),
  529.     process(app)
  530. {
  531. }
  534. void PConfigSectionsPage::OnLoadedText(PHTTPRequest & request, PString & text)
  535. {
  536.   PServiceHTML::ProcessMacros(request, text,
  537.                               baseURL.AsString(PURL::PathOnly).Mid(1),
  538.                               PServiceHTML::LoadFromFile);
  539.   PHTTPConfigSectionList::OnLoadedText(request, text);
  540. }
  543. BOOL PConfigSectionsPage::OnPOST(PHTTPServer & server,
  544.                                  const PURL & url,
  545.                                  const PMIMEInfo & info,
  546.                                  const PStringToString & data,
  547.                                  const PHTTPConnectionInfo & connectInfo)
  548. {
  549.   PHTTPConfigSectionList::OnPOST(server, url, info, data, connectInfo);
  550.   return FALSE;    // Make sure we break any persistent connections
  551. }
  554. BOOL PConfigSectionsPage::Post(PHTTPRequest & request,
  555.                                const PStringToString & data,
  556.                                PHTML & reply)
  557. {
  558.   BOOL retval = PHTTPConfigSectionList::Post(request, data, reply);
  559.   if (request.code == PHTTP::OK)
  560.     process.BeginRestartSystem();
  561.   return retval;
  562. }
  565. BOOL PConfigSectionsPage::GetExpirationDate(PTime & when)
  566. {
  567.   // Well and truly before now....
  568.   when = PTime(0, 0, 0, 1, 1, 1980);
  569.   return TRUE;
  570. }
  573. //////////////////////////////////////////////////////////////
  575. PRegisterPage::PRegisterPage(PHTTPServiceProcess & app,
  576.                              const PHTTPAuthority & auth)
  577.   : PConfigPage(app, "register.html", "Secured Options", auth),
  578.     process(app)
  579. {
  580. }
  583. PString PRegisterPage::LoadText(PHTTPRequest & request)
  584. {
  585.   if (fields.GetSize() > 0)
  586.     return PConfigPage::LoadText(request);
  588.   PString mailURL = "mailto:" + process.GetEMailAddress();
  589.   PString orderURL = mailURL;
  590.   PString tempURL = mailURL;
  591.   if (process.GetHomePage() == HOME_PAGE) {
  592.     orderURL = "https://home.equival.com.au/purchase.html";
  593.     tempURL = "http://www.equival.com/" + process.GetName().ToLower() + "/register.html";
  594.     tempURL.Replace(" ", "", TRUE);
  595.   }
  597.   PServiceHTML regPage(process.GetName() & "Registration", NULL);
  598.   regPage << "<!--#registration start Permanent-->"
  599.              "Your registration key is permanent.<p>"
  600.              "Do not change your registration details or your key will not "
  601.              "operate correctly.<p>"
  602.              "If you need to "
  603.           << PHTML::HotLink(orderURL)
  604.           << "upgrade"
  605.           << PHTML::HotLink()
  606.           << " or "
  607.           << PHTML::HotLink(mailURL)
  608.           << "change"
  609.           << PHTML::HotLink()
  610.           << " your registration, then you may enter the new values sent "
  611.           << " to you from "
  612.           << process.GetManufacturer()
  613.           << " into the fields "
  614.              "below, and then press the Accept button.<p>"
  615.           << PHTML::HRule()
  616.           << "<!--#registration end Permanent-->"
  617.              "<!--#registration start Temporary-->"
  618.              "Your registration key is temporary and will expire on "
  619.              "<!--#registration ExpiryDate-->.<p>"
  620.              "Do not change your registration details or your key will not "
  621.              "operate correctly.<p>"
  622.              "You may "
  623.           << PHTML::HotLink(orderURL)
  624.           << "order a permanent key"
  625.           << PHTML::HotLink()
  626.           << " and enter the new values sent to you from "
  627.           << process.GetManufacturer()
  628.           << " into the fields below, and then press the Accept button.<p>"
  629.           << PHTML::HRule()
  630.           << "<!--#registration end Temporary-->"
  631.              "<!--#registration start Expired-->"
  632.              "Your temporary registration key has expired.<p>"
  633.              "You may "
  634.           << PHTML::HotLink(orderURL)
  635.           << "order a permanent key"
  636.           << PHTML::HotLink()
  637.           << " and enter the new values sent to you from "
  638.           << process.GetManufacturer()
  639.           << " into the fields below, and then press the Accept button.<P>"
  640.           << PHTML::HRule()
  641.           << "<!--#registration end Expired-->";
  643.   PSecureConfig securedConf(process.GetProductKey(), process.GetSecuredKeys());
  644.   PString prefix;
  645.   if (securedConf.GetValidation() != PSecureConfig::IsValid) 
  646.     prefix = securedConf.GetPendingPrefix();
  648.   AddFields(prefix);
  650.   Add(new PHTTPStringField("Validation", 40));
  651.   BuildHTML(regPage, InsertIntoHTML);
  653.   regPage << "<!--#registration start Invalid-->"
  654.              "You have entered the values sent to you from "
  655.           << process.GetManufacturer()
  656.           << " incorrectly. Please enter them again. Note, "
  657.           << PHTML::Emphasis() << PHTML::Strong() << "all" << PHTML::Strong() << PHTML::Emphasis()
  658.           << "the fields must be entered "
  659.           << PHTML::Emphasis() << PHTML::Strong() << "exactly" << PHTML::Strong() << PHTML::Emphasis()
  660.           << " as they appear in the e-mail from "
  661.           << process.GetManufacturer()
  662.           << ". We strongly recommend using copy and paste of all the fields, and then "
  663.              "press the Accept button."
  664.              "<!--#registration end Invalid-->"
  665.              "<!--#registration start Default-->"
  666.              "You may "
  667.           << PHTML::HotLink(orderURL)
  668.           << "order a permanent key"
  669.           << PHTML::HotLink()
  670.           << " or "
  671.           << PHTML::HotLink(tempURL)
  672.           << "obtain a temporary key"
  673.           << PHTML::HotLink()
  674.           << " and enter the values sent to you from "
  675.           << process.GetManufacturer()
  676.           << " into the fields above, and then press the Accept button.<p>"
  677.              "<!--#registration end Default-->"
  678.           << PHTML::HRule()
  679.           << PHTML::Heading(3) << "Disclaimer" << PHTML::Heading(3)
  680.           << PHTML::Paragraph() << PHTML::Bold()
  681.           << "The information and code herein is provided "as is" "
  682.              "without warranty of any kind, either expressed or implied, "
  683.              "including but not limited to the implied warrenties of "
  684.              "merchantability and fitness for a particular purpose. In "
  685.              "no event shall " << process.GetManufacturer() << " be liable "
  686.              "for any damages whatsoever including direct, indirect, "
  687.              "incidental, consequential, loss of business profits or special "
  688.              "damages, even if " << process.GetManufacturer() << " has been "
  689.              "advised of the possibility of such damages."
  690.           << PHTML::Bold() << PHTML::Paragraph()
  691.           << process.GetCopyrightText()
  692.           << PHTML::Body();
  694.   SetString(regPage);
  695.   return PConfigPage::LoadText(request);
  696. }
  699. static BOOL FindSpliceBlock(const PRegularExpression & regex,
  700.                             const PString & text,
  701.                             PINDEX & pos,
  702.                             PINDEX & len,
  703.                             PINDEX & start,
  704.                             PINDEX & finish)
  705. {
  706.   if (!text.FindRegEx(regex, pos, len, 0))
  707.     return FALSE;
  709.   PINDEX endpos, endlen;
  710.   static PRegularExpression EndBlock("<?!--#registration[ tn]*end[ tn]*[a-z]*[ tn]*-->?",
  711.                                      PRegularExpression::Extended|PRegularExpression::IgnoreCase);
  712.   if (text.FindRegEx(EndBlock, endpos, endlen, pos)) {
  713.     start = pos+len;
  714.     finish = endpos-1;
  715.     len = endpos - pos + endlen;
  716.   }
  718.   return TRUE;
  719. }
  723. void PRegisterPage::OnLoadedText(PHTTPRequest & request, PString & text)
  724. {
  725.   PString block;
  726.   PINDEX pos, len, start = 0, finish = 0;
  727.   PSecureConfig securedConf(process.GetProductKey(), process.GetSecuredKeys());
  728.   PTime expiry = securedConf.GetTime(securedConf.GetExpiryDateKey());
  730.   static PRegularExpression Default("<?!--#registration[ tn]*start[ tn]*Default[ tn]*-->?",
  731.                                     PRegularExpression::Extended|PRegularExpression::IgnoreCase);
  732.   static PRegularExpression Permanent("<?!--#registration[ tn]*start[ tn]*Permanent[ tn]*-->?",
  733.                                       PRegularExpression::Extended|PRegularExpression::IgnoreCase);
  734.   static PRegularExpression Temporary("<?!--#registration[ tn]*start[ tn]*Temporary[ tn]*-->?",
  735.                                       PRegularExpression::Extended|PRegularExpression::IgnoreCase);
  736.   static PRegularExpression Expired("<?!--#registration[ tn]*start[ tn]*Expired[ tn]*-->?",
  737.                                     PRegularExpression::Extended|PRegularExpression::IgnoreCase);
  738.   static PRegularExpression Invalid("<?!--#registration[ tn]*start[ tn]*Invalid[ tn]*-->?",
  739.                                     PRegularExpression::Extended|PRegularExpression::IgnoreCase);
  740.   static PRegularExpression Pending("name[ tn]*=[ tn]*"" +
  741.                                     securedConf.GetPendingPrefix() +
  742.                                     "[^"]+"",
  743.                                     PRegularExpression::Extended|PRegularExpression::IgnoreCase);
  745.   PServiceHTML::ProcessMacros(request, text,
  746.                               baseURL.AsString(PURL::PathOnly).Mid(1),
  747.                               PServiceHTML::LoadFromFile);
  749.   switch (securedConf.GetValidation()) {
  750.     case PSecureConfig::Defaults :
  751.       while (FindSpliceBlock(Default, text, pos, len, start, finish))
  752.         text.Splice(text(start, finish), pos, len);
  753.       while (FindSpliceBlock(Permanent, text, pos, len, start, finish))
  754.         text.Delete(pos, len);
  755.       while (FindSpliceBlock(Temporary, text, pos, len, start, finish))
  756.         text.Delete(pos, len);
  757.       while (FindSpliceBlock(Expired, text, pos, len, start, finish))
  758.         text.Delete(pos, len);
  759.       while (FindSpliceBlock(Invalid, text, pos, len, start, finish))
  760.         text.Delete(pos, len);
  761.       break;
  763.     case PSecureConfig::Invalid :
  764.     case PSecureConfig::Pending :
  765.       while (FindSpliceBlock(Default, text, pos, len, start, finish))
  766.         text.Delete(pos, len);
  767.       while (FindSpliceBlock(Permanent, text, pos, len, start, finish))
  768.         text.Delete(pos, len);
  769.       while (FindSpliceBlock(Temporary, text, pos, len, start, finish))
  770.         text.Delete(pos, len);
  771.       while (FindSpliceBlock(Expired, text, pos, len, start, finish))
  772.         text.Delete(pos, len);
  773.       while (FindSpliceBlock(Invalid, text, pos, len, start, finish))
  774.         text.Splice(text(start, finish), pos, len);
  775.       break;
  777.     case PSecureConfig::Expired :
  778.       while (FindSpliceBlock(Default, text, pos, len, start, finish))
  779.         text.Delete(pos, len);
  780.       while (FindSpliceBlock(Permanent, text, pos, len, start, finish))
  781.         text.Delete(pos, len);
  782.       while (FindSpliceBlock(Temporary, text, pos, len, start, finish))
  783.         text.Delete(pos, len);
  784.       while (FindSpliceBlock(Expired, text, pos, len, start, finish))
  785.         text.Splice(text(start, finish), pos, len);
  786.       while (FindSpliceBlock(Invalid, text, pos, len, start, finish))
  787.         text.Delete(pos, len);
  788.       break;
  790.     case PSecureConfig::IsValid :
  791.       while (text.FindRegEx(Pending, pos, len)) {
  792.         static PINDEX pendingLength = securedConf.GetPendingPrefix().GetLength();
  793.         text.Delete(text.Find('"', pos)+1, pendingLength);
  794.         start = pos + len - pendingLength;
  795.       }
  796.       if (expiry.GetYear() < 2011) {
  797.         while (FindSpliceBlock(Default, text, pos, len, start, finish))
  798.           text.Delete(pos, len);
  799.         while (FindSpliceBlock(Permanent, text, pos, len, start, finish))
  800.           text.Delete(pos, len);
  801.         while (FindSpliceBlock(Temporary, text, pos, len, start, finish))
  802.           text.Splice(text(start, finish), pos, len);
  803.         while (FindSpliceBlock(Expired, text, pos, len, start, finish))
  804.           text.Delete(pos, len);
  805.         while (FindSpliceBlock(Invalid, text, pos, len, start, finish))
  806.           text.Delete(pos, len);
  807.       }
  808.       else {
  809.         while (FindSpliceBlock(Default, text, pos, len, start, finish))
  810.           text.Delete(pos, len);
  811.         while (FindSpliceBlock(Permanent, text, pos, len, start, finish))
  812.           text.Splice(text(start, finish), pos, len);
  813.         while (FindSpliceBlock(Temporary, text, pos, len, start, finish))
  814.           text.Delete(pos, len);
  815.         while (FindSpliceBlock(Expired, text, pos, len, start, finish))
  816.           text.Delete(pos, len);
  817.         while (FindSpliceBlock(Invalid, text, pos, len, start, finish))
  818.           text.Delete(pos, len);
  819.       }
  820.   }
  822.   static PRegularExpression ExpiryDate("<?!--#registration[ tn]*ExpiryDate[ tn]*-->?",
  823.                                        PRegularExpression::Extended|PRegularExpression::IgnoreCase);
  824.   while (text.FindRegEx(ExpiryDate, pos, len, 0))
  825.     text.Splice(expiry.AsString(PTime::LongDate), pos, len);
  827.   PHTTPConfig::OnLoadedText(request, text);
  828.   PServiceHTML::ProcessMacros(request, text, "", PServiceHTML::NoOptions);
  829. }
  832. BOOL PRegisterPage::Post(PHTTPRequest & request,
  833.                          const PStringToString & data,
  834.                          PHTML & reply)
  835. {
  836.   if (fields.GetSize() == 0)
  837.     LoadText(request);
  839.   BOOL retval = PHTTPConfig::Post(request, data, reply);
  840.   if (request.code != PHTTP::OK)
  841.     return FALSE;
  843.   PSecureConfig sconf(process.GetProductKey(), process.GetSecuredKeys());
  844.   switch (sconf.GetValidation()) {
  845.     case PSecureConfig::Defaults :
  846.       sconf.ResetPending();
  847.       break;
  849.     case PSecureConfig::IsValid :
  850.       break;
  852.     case PSecureConfig::Pending :
  853.       sconf.ValidatePending();
  854.       break;
  856.     default :
  857.       sconf.ResetPending();
  858.   }
  860.   RemoveAllFields();
  861.   LoadText(request);
  862.   OnLoadedText(request, reply);
  864.   return retval;
  865. }
  868. ///////////////////////////////////////////////////////////////////
  870. static void DigestSecuredKeys(PHTTPServiceProcess & process,
  871.                               PString & reginfo,
  872.                               PHTML * html)
  873. {
  874.   const PStringArray & securedKeys = process.GetSecuredKeys();
  875.   PSecureConfig sconf(process.GetProductKey(), securedKeys);
  877.   PString prefix;
  878.   if (sconf.GetValidation() != PSecureConfig::IsValid) 
  879.     prefix = sconf.GetPendingPrefix();
  881.   PMessageDigest5 digestor;
  883.   PStringStream info;
  884.   info << '"' << process.GetName() << "" ===";
  886.   PINDEX i;
  887.   for (i = 0; i < securedKeys.GetSize(); i++) {
  888.     PString val = sconf.GetString(prefix + securedKeys[i]).Trim();
  889.     info << " "" << val << '"';
  890.     if (html != NULL)
  891.       *html << PHTML::HiddenField(securedKeys[i], val);
  892.     digestor.Process(val);
  893.   }
  895.   PString digest = digestor.Complete();
  896.   if (html != NULL)
  897.     *html << PHTML::HiddenField("digest", digest);
  899.   info.Replace("===", digest);
  900.   reginfo = info;
  901. }
  904. ///////////////////////////////////////////////////////////////////
  906. PServiceHTML::PServiceHTML(const char * title, const char * help, const char * helpGif)
  907. {
  908.   PHTTPServiceProcess::Current().GetPageHeader(*this, title);
  910.   *this << PHTML::Heading(1) << title;
  911.   
  912.   if (help != NULL)
  913.     *this << "&nbsp;"
  914.           << PHTML::HotLink(help)
  915.           << PHTML::Image(helpGif, "Help", 48, 23, "align=absmiddle")
  916.           << PHTML::HotLink();
  918.   *this << PHTML::Heading(1) << PHTML::Paragraph();
  919. }
  922. PString PServiceHTML::ExtractSignature(PString & out)
  923. {
  924.   return ExtractSignature(*this, out);
  925. }
  928. PString PServiceHTML::ExtractSignature(const PString & html,
  929.                                        PString & out,
  930.                                        const char * keyword)
  931. {
  932.   PString signature;
  933.   out = PString();
  935.   // search for all comment blocks
  936.   PINDEX  lastPos = 0, endPos = 0;
  937.   PINDEX  pos;
  938.   while ((pos    = html.Find("<!--", lastPos)) != P_MAX_INDEX &&
  939.          (endPos = html.Find("-->", pos))      != P_MAX_INDEX) {
  941.     // add in the text before the comment and move the ptr to the end of
  942.     // the comment
  943.     if (pos > lastPos)
  944.       out += html(lastPos, pos-1);
  945.     lastPos = endPos+3;
  947.     // tokenise the text inside the comment
  948.     PStringArray tokens = html(pos+4, endPos-1).Trim().Tokenise(" n", FALSE);
  950.     // if this is a signature, then retreive it
  951.     if (tokens[0] *= keyword) {
  952.       PINDEX len = tokens.GetSize();
  953.       if (tokens[1] != "signature" || len != 3)
  954.         out += html(pos, endPos+2);
  955.       else
  956.         signature = tokens[2];
  957.     }
  958.   }
  960.   out += html(lastPos, P_MAX_INDEX);
  961.   return signature;
  962. }
  965. PString PServiceHTML::CalculateSignature()
  966. {
  967.   return CalculateSignature(*this);
  968. }
  971. PString PServiceHTML::CalculateSignature(const PString & out)
  972. {
  973.   return CalculateSignature(out, PHTTPServiceProcess::Current().GetSignatureKey());
  974. }
  977. PString PServiceHTML::CalculateSignature(const PString & out,
  978.                                          const PTEACypher::Key & sig)
  979. {
  980.   // calculate the MD5 digest of the HTML data
  981.   PMessageDigest5 digestor;
  983.   PINDEX p1 = 0;
  984.   PINDEX p2;
  985.   while ((p2 = out.FindOneOf("rn", p1)) != P_MAX_INDEX) {
  986.     if (p2 > p1)
  987.       digestor.Process(out(p1, p2-1));
  988.     digestor.Process("rn", 2);
  989.     p1 = p2 + 1;
  990.     if (out[p2] == 'r' && out[p1] == 'n') // CR LF pair
  991.       p1++;
  992.   }
  993.   digestor.Process(out(p1, P_MAX_INDEX));
  995.   PMessageDigest5::Code md5;
  996.   digestor.Complete(md5);
  998.   // encode it
  999.   PTEACypher cypher(sig);
  1000.   return cypher.Encode(&md5, sizeof(md5));
  1001. }
  1004. BOOL PServiceHTML::CheckSignature()
  1005. {
  1006.   return CheckSignature(*this);
  1007. }
  1010. BOOL PServiceHTML::CheckSignature(const PString & html)
  1011. {
  1012.   // extract the signature from the file
  1013.   PString out;
  1014.   PString signature = ExtractSignature(html, out);
  1016.   // calculate the signature on the data
  1017.   PString checkSignature = CalculateSignature(out);
  1019.   // return TRUE or FALSE
  1020.   return checkSignature == signature;
  1021. }
  1024. static BOOL FindBrackets(const PString & args, PINDEX & open, PINDEX & close)
  1025. {
  1026.   open = args.FindOneOf("[{(", close);
  1027.   if (open == P_MAX_INDEX)
  1028.     return FALSE;
  1030.   switch (args[open]) {
  1031.     case '[' :
  1032.       close = args.Find(']', open+1);
  1033.       break;
  1034.     case '{' :
  1035.       close = args.Find('}', open+1);
  1036.       break;
  1037.     case '(' :
  1038.       close = args.Find(')', open+1);
  1039.       break;
  1040.   }
  1041.   return close != P_MAX_INDEX;
  1042. }
  1045. static BOOL ExtractVariables(const PString & args,
  1046.                              PString & variable,
  1047.                              PString & value)
  1048. {
  1049.   PINDEX open;
  1050.   PINDEX close = 0;
  1051.   if (FindBrackets(args, open, close))
  1052.     variable = args(open+1, close-1);
  1053.   else {
  1054.     variable = args.Trim();
  1055.     close = P_MAX_INDEX-1;
  1056.   }
  1057.   if (variable.IsEmpty())
  1058.     return FALSE;
  1060.   if (FindBrackets(args, open, close))
  1061.     value = args(open+1, close-1);
  1063.   return TRUE;
  1064. }
  1067. ///////////////////////////////////////////////////////////////////////////////
  1069. #undef new
  1071. class PServiceMacro : public PObject
  1072. {
  1073.   public:
  1074.     PServiceMacro(const char * name);
  1075.     PServiceMacro(const PCaselessString & name);
  1076.     Comparison Compare(const PObject & obj) const;
  1077.     virtual PString Translate(PHTTPRequest & request, const PString & args) const;
  1078.   protected:
  1079.     const char * macroName;
  1080.     PServiceMacro * link;
  1081.     static PServiceMacro * list;
  1082.   friend class PServiceMacros_list;
  1083. };
  1085. PServiceMacro * PServiceMacro::list;
  1088. PServiceMacro::PServiceMacro(const char * name)
  1089. {
  1090.   macroName = name;
  1091.   link = list;
  1092.   list = this;
  1093. }
  1096. PServiceMacro::PServiceMacro(const PCaselessString & name)
  1097. {
  1098.   macroName = name;
  1099. }
  1102. PObject::Comparison PServiceMacro::Compare(const PObject & obj) const
  1103. {
  1104.   PAssert(obj.IsDescendant(PServiceMacro::Class()), PInvalidCast);
  1105.   return (Comparison)strcasecmp(macroName, ((const PServiceMacro &)obj).macroName);
  1106. }
  1109. PString PServiceMacro::Translate(PHTTPRequest &, const PString &) const
  1110. {
  1111.   return PString();
  1112. };
  1116. PSORTED_LIST(PServiceMacros_base, PServiceMacro);
  1118. class PServiceMacros_list : public PServiceMacros_base
  1119. {
  1120.   public:
  1121.     PServiceMacros_list();
  1122. };
  1125. PServiceMacros_list::PServiceMacros_list()
  1126. {
  1127.   DisallowDeleteObjects();
  1128.   PServiceMacro * macro = PServiceMacro::list;
  1129.   while (macro != NULL) {
  1130.     Append(macro);
  1131.     macro = macro->link;
  1132.   }
  1133. }
  1136. #define EMPTY
  1138. #define CREATE_MACRO(name, request, args) 
  1139.   class PServiceMacro_##name : public PServiceMacro { 
  1140.     public: 
  1141.       PServiceMacro_##name() : PServiceMacro(#name) { } 
  1142.       PString Translate(PHTTPRequest & request, const PString & args) const; 
  1143.   }; 
  1144.   static const PServiceMacro_##name serviceMacro_##name; 
  1145.   PString PServiceMacro_##name::Translate(PHTTPRequest & request, const PString & args) const
  1148. CREATE_MACRO(Header,request,EMPTY)
  1149. {
  1150.   PString hdr = PHTTPServiceProcess::Current().GetPageGraphic();
  1151.   PServiceHTML::ProcessMacros(request, hdr, "header.html",
  1152.                 PServiceHTML::LoadFromFile|PServiceHTML::NoURLOverride);
  1153.   return hdr;
  1154. }
  1157. CREATE_MACRO(Copyright,EMPTY,EMPTY)
  1158. {
  1159.   return PHTTPServiceProcess::Current().GetCopyrightText();
  1160. }
  1163. CREATE_MACRO(ProductName,EMPTY,EMPTY)
  1164. {
  1165.   return PHTTPServiceProcess::Current().GetProductName();
  1166. }
  1169. CREATE_MACRO(Manufacturer,EMPTY,EMPTY)
  1170. {
  1171.   return PHTTPServiceProcess::Current().GetManufacturer();
  1172. }
  1175. CREATE_MACRO(Version,EMPTY,EMPTY)
  1176. {
  1177.   return PHTTPServiceProcess::Current().GetVersion(TRUE);
  1178. }
  1181. CREATE_MACRO(BuildDate,EMPTY,args)
  1182. {
  1183.   const PTime & date = PHTTPServiceProcess::Current().GetCompilationDate();
  1184.   if (args.IsEmpty())
  1185.     return date.AsString("d MMMM yyyy");
  1187.   return date.AsString(args);
  1188. }
  1191. CREATE_MACRO(OS,EMPTY,EMPTY)
  1192. {
  1193.   return PHTTPServiceProcess::Current().GetOSClass() &
  1194.          PHTTPServiceProcess::Current().GetOSName();
  1195. }
  1198. CREATE_MACRO(LongDateTime,EMPTY,EMPTY)
  1199. {
  1200.   return PTime().AsString(PTime::LongDateTime);
  1201. }
  1204. CREATE_MACRO(LongDate,EMPTY,EMPTY)
  1205. {
  1206.   return PTime().AsString(PTime::LongDate);
  1207. }
  1210. CREATE_MACRO(LongTime,EMPTY,EMPTY)
  1211. {
  1212.   return PTime().AsString(PTime::LongTime);
  1213. }
  1216. CREATE_MACRO(MediumDateTime,EMPTY,EMPTY)
  1217. {
  1218.   return PTime().AsString(PTime::MediumDateTime);
  1219. }
  1222. CREATE_MACRO(MediumDate,EMPTY,EMPTY)
  1223. {
  1224.   return PTime().AsString(PTime::MediumDate);
  1225. }
  1228. CREATE_MACRO(ShortDateTime,EMPTY,EMPTY)
  1229. {
  1230.   return PTime().AsString(PTime::ShortDateTime);
  1231. }
  1234. CREATE_MACRO(ShortDate,EMPTY,EMPTY)
  1235. {
  1236.   return PTime().AsString(PTime::ShortDate);
  1237. }
  1240. CREATE_MACRO(ShortTime,EMPTY,EMPTY)
  1241. {
  1242.   return PTime().AsString(PTime::ShortTime);
  1243. }
  1246. CREATE_MACRO(Time,EMPTY,args)
  1247. {
  1248.   PTime now;
  1249.   if (args.IsEmpty())
  1250.     return now.AsString();
  1252.   return now.AsString(args);
  1253. }
  1256. CREATE_MACRO(LocalHost,request,EMPTY)
  1257. {
  1258.   if (request.localAddr != 0)
  1259.     return PIPSocket::GetHostName(request.localAddr);
  1260.   else
  1261.     return PIPSocket::GetHostName();
  1262. }
  1265. CREATE_MACRO(LocalIP,request,EMPTY)
  1266. {
  1267.   if (request.localAddr != 0)
  1268.     return request.localAddr;
  1269.   else
  1270.     return "127.0.0.1";
  1271. }
  1274. CREATE_MACRO(LocalPort,request,EMPTY)
  1275. {
  1276.   if (request.localPort != 0)
  1277.     return psprintf("%u", request.localPort);
  1278.   else
  1279.     return "80";
  1280. }
  1283. CREATE_MACRO(PeerHost,request,EMPTY)
  1284. {
  1285.   if (request.origin != 0)
  1286.     return PIPSocket::GetHostName(request.origin);
  1287.   else
  1288.     return "N/A";
  1289. }
  1292. CREATE_MACRO(PeerIP,request,EMPTY)
  1293. {
  1294.   if (request.origin != 0)
  1295.     return request.origin;
  1296.   else
  1297.     return "N/A";
  1298. }
  1301. CREATE_MACRO(RegInfo,EMPTY,EMPTY)
  1302. {
  1303.   PString subs;
  1304.   DigestSecuredKeys(PHTTPServiceProcess::Current(), subs, NULL);
  1305.   return subs;
  1306. }
  1309. static PString GetRegInfo(const char * info)
  1310. {
  1311.   PHTTPServiceProcess & process = PHTTPServiceProcess::Current();
  1312.   PSecureConfig sconf(process.GetProductKey(), process.GetSecuredKeys());
  1313.   PString pending = sconf.GetPendingPrefix();
  1314.   return sconf.GetString(info, sconf.GetString(pending+info));
  1315. }
  1317. CREATE_MACRO(RegUser,EMPTY,EMPTY)
  1318. {
  1319.   return GetRegInfo("Name");
  1320. }
  1323. CREATE_MACRO(RegCompany,EMPTY,EMPTY)
  1324. {
  1325.   return GetRegInfo("Company");
  1326. }
  1329. CREATE_MACRO(RegEmail,EMPTY,EMPTY)
  1330. {
  1331.   return GetRegInfo("EMail");
  1332. }
  1335. CREATE_MACRO(Registration,EMPTY,args)
  1336. {
  1337.   PHTTPServiceProcess & process = PHTTPServiceProcess::Current();
  1338.   PSecureConfig sconf(process.GetProductKey(), process.GetSecuredKeys());
  1339.   PString pending = sconf.GetPendingPrefix();
  1341.   PString regNow = "Register Now!";
  1342.   PString viewReg = "View Registration";
  1343.   PString demoCopy = "Unregistered Demonstration Copy";
  1344.   PINDEX open;
  1345.   PINDEX close = 0;
  1346.   if (FindBrackets(args, open, close)) {
  1347.     regNow = args(open+1, close-1);
  1348.     if (FindBrackets(args, open, close)) {
  1349.       viewReg = args(open+1, close-1);
  1350.       if (FindBrackets(args, open, close))
  1351.         demoCopy = args(open+1, close-1);
  1352.     }
  1353.   }
  1355.   PHTML out(PHTML::InBody);
  1356.   out << "<font size=5>"
  1357.       << sconf.GetString("Name", sconf.GetString(pending+"Name", "*** "+demoCopy+" ***"))
  1358.       << PHTML::BreakLine()
  1359.       << "<font size=4>"
  1360.       << sconf.GetString("Company", sconf.GetString(pending+"Company"))
  1361.       << PHTML::BreakLine()
  1362.       << PHTML::BreakLine()
  1363.       << "<font size=3>";
  1365.   if (sconf.GetString("Name").IsEmpty())
  1366.     process.AddUnregisteredText(out);
  1367.   else
  1368.     process.AddRegisteredText(out);
  1370.   out << PHTML::HotLink("/register.html")
  1371.       << (sconf.GetString("Name").IsEmpty() ? regNow : viewReg)
  1372.       << PHTML::HotLink();
  1373.   return out;
  1374. }
  1377. CREATE_MACRO(InputsFromQuery,request,EMPTY)
  1378. {
  1379.   PStringToString vars = request.url.GetQueryVars();
  1380.   PStringStream subs;
  1381.   for (PINDEX i = 0; i < vars.GetSize(); i++)
  1382.     subs << "<INPUT TYPE=hidden NAME="" << vars.GetKeyAt(i)
  1383.          << "" VALUE="" << vars.GetDataAt(i) << "">rn";
  1384.   return subs;
  1385. }
  1388. CREATE_MACRO(Query,request,args)
  1389. {
  1390.   if (args.IsEmpty())
  1391.     return request.url.GetQuery();
  1393.   PString variable, value;
  1394.   if (ExtractVariables(args, variable, value)) {
  1395.     value = request.url.GetQueryVars()(variable, value);
  1396.     if (!value)
  1397.       return value;
  1398.   }
  1399.   return PString();
  1400. }
  1403. CREATE_MACRO(Get,request,args)
  1404. {
  1405.   PString variable, value;
  1406.   if (ExtractVariables(args, variable, value)) {
  1407.     PString section = request.url.GetQueryVars()("section");
  1408.     PINDEX slash = variable.FindLast('\');
  1409.     if (slash != P_MAX_INDEX) {
  1410.       section += variable.Left(slash);
  1411.       variable = variable.Mid(slash+1);
  1412.     }
  1413.     if (!section && !variable) {
  1414.       PConfig config(section);
  1415.       return config.GetString(variable, value);
  1416.     }
  1417.   }
  1418.   return PString();
  1419. }
  1422. CREATE_MACRO(URL,request,EMPTY)
  1423. {
  1424.   return request.url.AsString();
  1425. }
  1428. BOOL PServiceHTML::ProcessMacros(PHTTPRequest & request,
  1429.                                  PString & text,
  1430.                                  const PString & defaultFile,
  1431.                                  unsigned options)
  1432. {
  1433.   PINDEX alreadyLoadedPrefixLength = 0;
  1435.   PString filename = defaultFile;
  1436.   if ((options&LoadFromFile) != 0) {
  1437.     if ((options&NoURLOverride) == 0) {
  1438.       filename = request.url.GetParameters();
  1439.       if (filename.IsEmpty())
  1440.         filename = defaultFile;
  1441.     }
  1443.     if (!filename) {
  1444.       PString alreadyLoaded = "<!--#loadedfrom " + filename + "-->rn";
  1445.       alreadyLoadedPrefixLength = alreadyLoaded.GetLength();
  1447.       if (text.Find(alreadyLoaded) != 0) {
  1448.         PFile file;
  1449.         if (file.Open(filename, PFile::ReadOnly)) {
  1450.           text = alreadyLoaded + file.ReadString(file.GetLength());
  1451.           if ((options&NoSignatureForFile) == 0)
  1452.             options |= NeedSignature;
  1453.         }
  1454.       }
  1455.     }
  1456.   }
  1458.   if ((options&NeedSignature) != 0) {
  1459.     if (!CheckSignature(text.Mid(alreadyLoadedPrefixLength))) {
  1460.       PHTTPServiceProcess & process = PHTTPServiceProcess::Current();
  1461.       PHTML html("Invalid OEM Signature");
  1462.       html << "The HTML file ""
  1463.            << filename
  1464.            << "" contains an invalid signature for ""
  1465.            << process.GetName()
  1466.            << "" by ""
  1467.            << process.GetManufacturer()
  1468.            << '"'
  1469.            << PHTML::Body();
  1470.       text = html;
  1471.       return FALSE;
  1472.     }
  1473.   }
  1475.   PINDEX pos = 0;
  1476.   for (;;) {
  1477.     pos = text.Find("!--#equival", pos);
  1478.     if (pos == P_MAX_INDEX)
  1479.       break;
  1480.     PINDEX end = text.Find("--", pos+3);
  1481.     if (end == P_MAX_INDEX)
  1482.       break;
  1484.     PString include = text(pos+12, end-1).Trim();
  1486.     if (text[pos-1] == '<')
  1487.       pos--;
  1488.     end += 2;
  1489.     if (text[end] == '>')
  1490.       end++;
  1492.     PString subs;
  1493.     if (!PHTTPServiceProcess::Current().SubstituteEquivalSequence(request, include, subs)) {
  1494.       PCaselessString cmd = include.Left(include.Find(' '));
  1495.       static PServiceMacros_list ServiceMacros;
  1496.       PINDEX idx = ServiceMacros.GetValuesIndex(PServiceMacro(cmd));
  1497.       if (idx != P_MAX_INDEX)
  1498.         subs = ServiceMacros[idx].Translate(request, include.Mid(cmd.GetLength()).LeftTrim());
  1499.     }
  1501.     text.Splice(subs, pos, end-pos);
  1502.   }
  1504.   return TRUE;
  1505. }
  1508. ///////////////////////////////////////////////////////////////////
  1510. static void ServiceOnLoadedText(PString & text)
  1511. {
  1512.   PHTTPServiceProcess & process = PHTTPServiceProcess::Current();
  1514.   PString manuf = "<!--Standard_" + process.GetManufacturer() + "_Header-->";
  1515.   if (text.Find(manuf) != P_MAX_INDEX)
  1516.     text.Replace(manuf, process.GetPageGraphic(), TRUE);
  1518.   static const char equiv[] = "<!--Standard_Equivalence_Header-->";
  1519.   if (text.Find(equiv) != P_MAX_INDEX)
  1520.     text.Replace(equiv, process.GetPageGraphic(), TRUE);
  1522.   static const char copy[] = "<!--Standard_Copyright_Header-->";
  1523.   if (text.Find(copy) != P_MAX_INDEX)
  1524.     text.Replace(copy, process.GetCopyrightText(), TRUE);
  1525. }
  1527. PString PServiceHTTPString::LoadText(PHTTPRequest & request)
  1528. {
  1529.   PString text = PHTTPString::LoadText(request);
  1530.   ServiceOnLoadedText(text);
  1531.   PServiceHTML::ProcessMacros(request, text, "", PServiceHTML::LoadFromFile);
  1533.   return text;
  1534. }
  1536. void PServiceHTTPFile::OnLoadedText(PHTTPRequest & request, PString & text)
  1537. {
  1538.   ServiceOnLoadedText(text);
  1539.   PServiceHTML::ProcessMacros(request, text, baseURL.AsString(PURL::PathOnly),
  1540.           needSignature ? PServiceHTML::NeedSignature : PServiceHTML::NoOptions);
  1541. }
  1543. void PServiceHTTPDirectory::OnLoadedText(PHTTPRequest & request, PString & text)
  1544. {
  1545.   ServiceOnLoadedText(text);
  1546.   PServiceHTML::ProcessMacros(request, text, baseURL.AsString(PURL::PathOnly),
  1547.           needSignature ? PServiceHTML::NeedSignature : PServiceHTML::NoOptions);
  1548. }
  1551. ///////////////////////////////////////////////////////////////////