serbase.cpp added to the list of files

[wxWidgets.git] / src / common / url.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        url.cpp
// Purpose:     URL parser
// Author:      Guilhem Lavaux
// Modified by:
// Created:     20/07/1997
// RCS-ID:      $Id$
// Copyright:   (c) 1997, 1998 Guilhem Lavaux
// Licence:     wxWindows license
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "url.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#include <string.h>
#include <ctype.h>

#include <wx/string.h>
#include <wx/list.h>
#include <wx/utils.h>
#include <wx/url.h>

#if !USE_SHARED_LIBRARY
IMPLEMENT_CLASS(wxProtoInfo, wxObject)
IMPLEMENT_CLASS(wxURL, wxObject)
#endif

// Protocols list
wxProtoInfo *wxURL::g_protocols = NULL;

#if wxUSE_SOCKETS
wxHTTP *wxURL::g_proxy = NULL;
#endif

// --------------------------------------------------------------
// wxURL
// --------------------------------------------------------------

// --------------------------------------------------------------
// --------- wxURL CONSTRUCTOR DESTRUCTOR -----------------------
// --------------------------------------------------------------

wxURL::wxURL(const wxString& url)
{
  m_protocol = NULL;
  m_error = wxURL_NOERR;
  m_url = url;
#if wxUSE_SOCKETS
  m_useProxy = (g_proxy != NULL);
  m_proxy = g_proxy;
#endif
  ParseURL();
}

bool wxURL::ParseURL()
{
  wxString last_url = m_url;

 // If the URL was already parsed (so m_protocol != NULL), we pass this section.
  if (!m_protocol) {

    // Clean up
    CleanData();

    // Extract protocol name
    if (!PrepProto(last_url)) {
      m_error = wxURL_SNTXERR;
      return FALSE;
    }

    // Find and create the protocol object
    if (!FetchProtocol()) {
      m_error = wxURL_NOPROTO;
      return FALSE;
    }

    // Do we need a host name ?
    if (m_protoinfo->m_needhost) {
      // Extract it
      if (!PrepHost(last_url)) {
        m_error = wxURL_SNTXERR;
        return FALSE;
      }
    }

    // Extract full path
    if (!PrepPath(last_url)) {
      m_error = wxURL_NOPATH;
      return FALSE;
    }
  }
  // URL parse finished.

#if wxUSE_SOCKETS
  if (m_useProxy) {
    // We destroy the newly created protocol.
    CleanData();

    // Third, we rebuild the URL.
    m_url = m_protoname + _T(":");
    if (m_protoinfo->m_needhost)
      m_url = m_url + _T("//") + m_hostname;

    m_url += m_path;

    // We initialize specific variables.
    m_protocol = m_proxy; // FIXME: we should clone the protocol
  }
#endif

  m_error = wxURL_NOERR;
  return TRUE;
}

void wxURL::CleanData()
{
#if wxUSE_SOCKETS
  if (!m_useProxy)
#endif
    delete m_protocol;
}

wxURL::~wxURL()
{
  CleanData();
#if wxUSE_SOCKETS
  if (m_proxy && m_proxy != g_proxy)
    delete m_proxy;
#endif
}

// --------------------------------------------------------------
// --------- wxURL urls decoders --------------------------------
// --------------------------------------------------------------

bool wxURL::PrepProto(wxString& url)
{
  int pos;

  // Find end
  pos = url.Find(_T(':'));
  if (pos == -1)
    return FALSE;

  m_protoname = url(0, pos);

  url = url(pos+1, url.Length());

  return TRUE;
}

bool wxURL::PrepHost(wxString& url)
{
  wxString temp_url;
  int pos, pos2;

  if ((url.GetChar(0) != '/') || (url.GetChar(1) != '/'))
    return FALSE;

  url = url(2, url.Length());

  pos = url.Find(_T('/'));
  if (pos == -1)
    pos = url.Length();

  if (pos == 0)
    return FALSE;

  temp_url = url(0, pos);
  url = url(url.Find(_T('/')), url.Length());

  // Retrieve service number
  pos2 = temp_url.Find(_T(':'), TRUE);
  if (pos2 != -1 && pos2 < pos) {
    m_servname = temp_url(pos2+1, pos);
    if (!m_servname.IsNumber())
      return FALSE;
    temp_url = temp_url(0, pos2);
  }

  // Retrieve user and password.
  pos2 = temp_url.Find(_T('@'));
  // Even if pos2 equals -1, this code is right.
  m_hostname = temp_url(pos2+1, temp_url.Length());

  m_user = _T("");
  m_password = _T("");

  if (pos2 == -1)
    return TRUE;

  temp_url = temp_url(0, pos2);
  pos2 = temp_url.Find(_T(':'));

  if (pos2 == -1)
    return FALSE;

  m_user = temp_url(0, pos2);
  m_password = temp_url(pos2+1, url.Length());

  return TRUE;
}

bool wxURL::PrepPath(wxString& url)
{
  if (url.Length() != 0)
    m_path = ConvertToValidURI(url);
  else
    m_path = _T("/");
  return TRUE;
}

bool wxURL::FetchProtocol()
{
  wxProtoInfo *info = g_protocols;

  while (info) {
    if (m_protoname == info->m_protoname) {
      if (m_servname.IsNull())
        m_servname = info->m_servname;

      m_protoinfo = info;
      m_protocol = (wxProtocol *)m_protoinfo->m_cinfo->CreateObject();
      return TRUE;
    }
    info = info->next;
  }
  return FALSE;
}

// --------------------------------------------------------------
// --------- wxURL get ------------------------------------------
// --------------------------------------------------------------

wxInputStream *wxURL::GetInputStream(void)
{
  wxInputStream *the_i_stream = NULL;

  if (!m_protocol) {
    m_error = wxURL_NOPROTO;
    return NULL;
  }

  m_error = wxURL_NOERR;
  if (m_user != _T("")) {
    m_protocol->SetUser(m_user);
    m_protocol->SetPassword(m_password);
  }

#if wxUSE_SOCKETS
    wxIPV4address addr;

  // m_protoinfo is NULL when we use a proxy
  if (!m_useProxy && m_protoinfo->m_needhost) {
    if (!addr.Hostname(m_hostname)) {
      m_error = wxURL_NOHOST;
      return NULL;
    }

    addr.Service(m_servname);

    if (!m_protocol->Connect(addr, TRUE)) // Watcom needs the 2nd arg for some reason
    {
      m_error = wxURL_CONNERR;
      return NULL;
    }
  }
#endif

  // When we use a proxy, we have to pass the whole URL to it.
  if (m_useProxy)
    the_i_stream = m_protocol->GetInputStream(m_url);
  else
    the_i_stream = m_protocol->GetInputStream(m_path);

  if (!the_i_stream) {
    m_error = wxURL_PROTOERR;
    return NULL;
  }

  return the_i_stream;
}

#if wxUSE_SOCKETS
void wxURL::SetDefaultProxy(const wxString& url_proxy)
{
  if (url_proxy.IsNull()) {
    g_proxy->Close();
    delete g_proxy;
    g_proxy = NULL;
    return;
  }

  wxString tmp_str = url_proxy;
  int pos = tmp_str.Find(_T(':'));
  if (pos == -1)
    return;

  wxString hostname = tmp_str(0, pos),
           port = tmp_str(pos+1, tmp_str.Length()-pos);
  wxIPV4address addr;

  if (!addr.Hostname(hostname))
    return;
  if (!addr.Service(port))
    return;

  if (g_proxy)
  // Finally, when all is right, we connect the new proxy.
    g_proxy->Close();
  else
    g_proxy = new wxHTTP();
  g_proxy->Connect(addr, TRUE); // Watcom needs the 2nd arg for some reason
}

void wxURL::SetProxy(const wxString& url_proxy)
{
  if (url_proxy.IsNull()) {
    if (m_proxy) {
      m_proxy->Close();
      delete m_proxy;
    }
    m_useProxy = FALSE;
    return;
  }

  wxString tmp_str;
  wxString hostname, port;
  int pos;
  wxIPV4address addr;

  tmp_str = url_proxy;
  pos = tmp_str.Find(_T(':'));
  // This is an invalid proxy name.
  if (pos == -1)
    return;

  hostname = tmp_str(0, pos);
  port = tmp_str(pos, tmp_str.Length()-pos);

  addr.Hostname(hostname);
  addr.Service(port);

  // Finally, create the whole stuff.
  if (m_proxy && m_proxy != g_proxy)
    delete m_proxy;
  m_proxy = new wxHTTP();
  m_proxy->Connect(addr, TRUE); // Watcom needs the 2nd arg for some reason

  CleanData();
  // Reparse url.
  m_useProxy = TRUE;
  ParseURL();
}
#endif

wxString wxURL::ConvertToValidURI(const wxString& uri)
{
  wxString out_str;
  wxString hexa_code;
  size_t i;

  for (i=0;i<uri.Len();i++) {
    wxChar c = uri.GetChar(i);

    if (c == _T(' '))
      out_str += _T('+');
    else {
      if (!isalpha(c) && c != _T('.') && c != _T('+') && c != _T('/')) {
        hexa_code.Printf(_T("%%%02X"), c);
        out_str += hexa_code;
      } else
        out_str += c;
    }
  }

  return out_str;
}

wxString wxURL::ConvertFromURI(const wxString& uri)
{
  int code;
  int i;
  wxString new_uri;

  new_uri.Empty();
  
  i = 0;
  while (i<uri.Len()) {
    if (uri[i] == _T('%')) {
      i++;
      if (uri[i] >= _T('A') && uri[i] <= _T('F'))
        code = (uri[i] - _T('A') + 10) * 16;
      else
        code = (uri[i] - _T('0')) * 16;
      i++;
      if (uri[i] >= _T('A') && uri[i] <= _T('F'))
        code += (uri[i] - _T('A')) + 10;
      else
        code += (uri[i] - _T('0'));
      i++;
      new_uri += (wxChar)code;
      continue;
    }
    new_uri += uri[i];
    i++;
  }
  return new_uri;
}