Framework BRL.Win32MaxGUI
Import BRL.EventQueue
Import BRL.Retro

AppTitle = "ProxyPlore"



Global ProxyUrl$ = "http://www.anxiety-clan.de/proxy/proxy.php?replacements=1&domain=%domain%&url=%url%"

Global Window_W   = 800
Global Window_H   = 600
Global Window_X   = (GadgetWidth(Desktop()) / 2) - (Window_W / 2)
Global Window_Y   = (GadgetHeight(Desktop()) / 2) - (Window_H / 2)

Global UrlField_H   = 20
Global UrlButton_W   = 100



Global Window:TGadget   = CreateWindow("ProxyPlore", Window_X, Window_Y, Window_W, Window_H, 0, WINDOW_TITLEBAR|WINDOW_RESIZABLE|WINDOW_STATUS)

Global HtmlView:TGadget   = CreateHTMLView(0, UrlField_H, ClientWidth(Window), ClientHeight(Window)-UrlField_H, Window, HTMLVIEW_NONAVIGATE)
Global UrlField:TGadget   = CreateTextField(0, 0, ClientWidth(Window)-UrlButton_W, UrlField_H, Window)
Global UrlButton:TGadget= CreateButton("Go", ClientWidth(Window)-UrlButton_W, 0, UrlButton_W, UrlField_H, Window, BUTTON_OK)

SetGadgetLayout(HtmlView, 1,1,1,1)
SetGadgetLayout(UrlField, 1,1,1,0)
SetGadgetLayout(UrlButton, 0,1,1,0)

'ActivateGadget UrlField


HtmlViewGo(HtmlView, "about:blank")


While Not AppTerminate()
   
   Select WaitEvent()
      Case EVENT_GADGETACTION
         Select EventSource()
            Case HtmlView
               HtmlGo(EventText())
               
            
            Case UrlButton
               HtmlGo(GadgetText(UrlField), "http://")
               
               
         End Select
         
         
         
      Case EVENT_WINDOWCLOSE
         End
         
   End Select
   
   
   
Wend
End


Function HtmlGo(url$, extra$="")
   
   Local domain$ = extra$ + GetDomain(url$)
   DebugLog "Domain: " + domain$
   
   url$ = extra$ + url$
   url$ = Replace(ProxyUrl$, "%url%", url$)
   url$ = Replace(url$, "%domain%", domain$)
   
   HtmlViewGo(HtmlView, url$)
   
End Function



Function GetDomain$(url$)
   Local txt$ = url$
   Local l, m
   
   While Not Instr(txt$, "/") = 0
      l = Instr(txt$, "/") + 1
      txt$ = Mid(txt$, l)
      DebugLog txt$
      DebugLog l
      DebugLog m
      m = m + l
   Wend
   
   Return Mid(url$, 1, m-3)
End Function