You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
123 lines
3.7 KiB
123 lines
3.7 KiB
/***************************************************************************
|
|
* Copyright (C) 2004-2007 by Georgy Yunaev, gyunaev@ulduzsoft.com *
|
|
* Please do not use email address above for bug reports; see *
|
|
* the README file *
|
|
* *
|
|
* 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., *
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
|
|
***************************************************************************/
|
|
|
|
#include <tqdir.h>
|
|
#include <tqstring.h>
|
|
#include <tqregexp.h>
|
|
|
|
namespace LCHMUrlFactory
|
|
{
|
|
|
|
static inline bool isRemoteURL( const TQString & url, TQString & protocol )
|
|
{
|
|
// Check whether the URL is external
|
|
TQRegExp uriregex ( "^(\\w+):\\/\\/" );
|
|
TQRegExp mailtoregex ( "^(mailto):" );
|
|
|
|
// mailto: can also have different format, so handle it
|
|
if ( url.startsWith( "mailto:" ) )
|
|
{
|
|
protocol = "mailto";
|
|
return true;
|
|
}
|
|
else if ( uriregex.search ( url ) != -1 )
|
|
{
|
|
TQString proto = TQString(uriregex.cap( 1 )).lower();
|
|
|
|
// Filter the URLs which need to be opened by a browser
|
|
if ( proto == "http"
|
|
|| proto == "ftp"
|
|
|| proto == "mailto"
|
|
|| proto == "news" )
|
|
{
|
|
protocol = proto;
|
|
return true;
|
|
}
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
// Some JS urls start with javascript://
|
|
static inline bool isJavascriptURL( const TQString & url )
|
|
{
|
|
return url.startsWith ("javascript://");
|
|
}
|
|
|
|
// Parse urls like "ms-its:file name.chm::/topic.htm"
|
|
static inline bool isNewChmURL( const TQString & url, TQString & chmfile, TQString & page )
|
|
{
|
|
TQRegExp uriregex ( "^ms-its:(.*)::(.*)$" );
|
|
|
|
if ( uriregex.search ( url ) != -1 )
|
|
{
|
|
chmfile = uriregex.cap ( 1 );
|
|
page = uriregex.cap ( 2 );
|
|
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
static inline TQString makeURLabsoluteIfNeeded( const TQString & url )
|
|
{
|
|
TQString p1, p2, newurl = url;
|
|
|
|
if ( !isRemoteURL (url, p1)
|
|
&& !isJavascriptURL (url)
|
|
&& !isNewChmURL (url, p1, p2) )
|
|
{
|
|
newurl = TQDir::cleanDirPath (url);
|
|
|
|
// Normalize url, so it becomes absolute
|
|
if ( newurl[0] != '/' )
|
|
newurl = "/" + newurl;
|
|
}
|
|
|
|
//tqDebug ("makeURLabsolute (%s) -> (%s)", url.ascii(), newurl.ascii());
|
|
return newurl;
|
|
}
|
|
|
|
|
|
// Returns a special string, which allows the tdeio-slave, or viewwindow-browser iteraction
|
|
// to regognize our own internal urls, which is necessary to show image-only pages.
|
|
static inline TQString getInternalUriExtension()
|
|
{
|
|
return ".KCHMVIEWER_SPECIAL_HANDLER";
|
|
}
|
|
|
|
|
|
static inline bool handleFileType( const TQString& link, TQString& generated )
|
|
{
|
|
TQString intext = getInternalUriExtension();
|
|
|
|
if ( !link.endsWith( intext ) )
|
|
return false;
|
|
|
|
TQString filelink = link.left( link.length() - strlen( intext ) );
|
|
generated = "<html><body><img src=\"" + filelink + "\"></body></html>";
|
|
return true;
|
|
}
|
|
|
|
|
|
};
|