/*    Renegade Scripts.dll
    Spectate
    Copyright 2012 Goldy58
 
    This file is part of the Renegade scripts.dll
    The Renegade scripts.dll 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, or (at your option) any later
    version. See the file COPYING for more details.
    In addition, an exemption is given to allow Run Time Dynamic Linking of this code with any closed source module that does not contain code covered by this licence.

//using System.Web; 
 
//to return "http://www.samplepage.com/Egli/index.aspx"
string url = HttpContext.Current.Request.Url.AbsoluteUri;
 
//to return "/Egli/index.aspx"
string path = HttpContext.Current.Request.Url.AbsolutePath;
 
//to return "www.samplepage.com"
string host = HttpContext.Current.Request.Url.Host;

string hostingPage = Convert.ToString(HtmlPage.Document.GetProperty("referrer"));
string xapUrl = Current.Host.Source.AbsoluteUri;
string applicationRoot = xapUrl.Substring(0, xapUrl.LastIndexOf("ClientBin"));

*-- CLASS IasWebServer
 
*--  Some test code, demonstrating how the class works
*--  Make sure that webserver.vcx can be found by this program
*--  Also make sure that wwipstuff.dll can be found by this program
 
CLEAR
o = CREATEOBJECT("IasWebServer")
 
*-- Ask for the physical path of the virtual root for the default website:

public static string DumpEnvironmentPaths()
{
    var paths = Enum.GetValues(typeof(Environment.SpecialFolder))
        .Cast<Environment.SpecialFolder>()
        .Select(folder => folder + " = " + Environment.GetFolderPath(folder))
        .Aggregate((s1, s2) => s1 + Environment.NewLine + s2);
    return paths;
}

public static string GetFullApplicationPath()
{
    var url = HttpContext.Current.Request.Url.GetLeftPart(UriPartial.Authority);            
    return url + HttpContext.Current.Request.ApplicationPath.TrimEnd('/');
}