"Update ERROR: Didn't recieve any data from Update URL"

[Spooky_]

On a fresh install, a forced update of anything results in something similar to:

MSI Updater: Local Version - "1" | Remote Version = "-1"
MSI Updater: Update File - "http://wizzup.org/static/srl/msi.tar.bz2"
MSI Updater: Downloading...
MSI Update ERROR: Didn't recieve any data from Update URL.My ISP requires that I use their proxy server, perhaps Simba is not taking this into account?
Before you suggest it, I have already tried manually downloading the files, but this only leads to further problems.

[Markus]

Simba does not talk to proxy servers currently. Somewhere in some place there is support for them, but it isn't implemented.
Downloading the files manually should work though, if you can extract them. In the case of SRL: be sure to move the plugins to the Simba plugins folder. Besides that there shouldn't relaly be any problems. Mind sharing your problems so we help you solve it?

edit: might try this. Replace extensions/updater.sei with this, be sure to fill in the relevant constants at top of the file

const ProxyHost = '';
const ProxyPort = 0;

function GetPage(url : string) : string;
var
c : integer;
begin
c := InitializeHTTPClient(true);
SetProxy(c, ProxyHost, ProxyPort);
result := GetHTTPPage(c, url);
FreeHTTPClient(c);
end;

const
ATTACH_HOOK = 0;
DETACH_HOOK = 1;
CHECK_FOR_UPDATE = 2;
BEFORE_UPDATE = 3;
SUCCESS_UPDATE = 4;
AFTER_UPDATE = 5;

type
THookFunc = function(Param1: string; Param2: integer): boolean;
THookArr = array[ATTACH_HOOK..AFTER_UPDATE] of THookFunc;
TUpdater = record
Name, URL, VersionURL, Folder: string;
CreateMenu, NoMenuTimer, Locked: boolean;
Hooks: THookArr;
ViewMenuItem: TMenuItem;
MainMenu, UpdateMenuItem, CheckMenuItem: TMenuItem;
AutoMenu, AUpdateMenuItem, ACheckMenuItem: TMenuItem;
SettingsMenu, TimerMenuItem, OverrideUpdateMenuItem: TMenuItem;
Timer: TTimer;
end;
TUpdaterArr = array of TUpdater;

var
UpdaterArr: TUpdaterArr;

function GetOVersion(Updater: TUpdater): integer;
begin
Result := StrToIntDef(ExtractFromStr(GetPage(Updater.Version URL), Numbers), -1);
end;

function GetLVersion(Updater: TUpdater): integer;
begin
Result := StrToIntDef(ExtractFromStr(Settings.GetKeyValueDef (Updater.Name + '_Version', '-1'), Numbers), -1);
end;

procedure SetLVersion(Updater: TUpdater; Version: integer);
begin
Settings.SetKeyValue(Updater.Name + '_Version', IntToStr(Version));
end;

procedure Update(const Sender: TObject; const I: integer);
var
Cont, ExCont: string;
begin
with UpdaterArr[I] do
begin
if (Locked) then
Exit;

if (Hooks[BEFORE_UPDATE] <> nil) then
if (not (Hooks[BEFORE_UPDATE]('', I))) then
Exit;

Locked := True;

WriteLn(Name + ' Updater: Local Version - "' + IntToStr(GetLVersion(UpdaterArr[I])) + '" | Remote Version = "' + IntToStr(GetOVersion(UpdaterArr[I])) + '"');
WriteLn(Name + ' Updater: Update File - "' + URL + '"');
WriteLn(Name + ' Updater: Downloading...');
Cont := GetPage(URL);
if (Cont <> '') then
begin
WriteLn(Name + ' Updater: Decompressing...');
if (DecompressBZip2(Cont, ExCont, 4096)) then
begin
WriteLn(Name + ' Updater: Extracting...');
if (UnTarEx(ExCont, Folder, True)) then
begin
if (Hooks[SUCCESS_UPDATE] <> nil) then
if (not (Hooks[SUCCESS_UPDATE](ExCont, I))) then
begin
WriteLn(Name + ' Update ERROR: Kill recieved from Updater.');
Exit;
end;
SetLVersion(UpdaterArr[I], GetOVersion(UpdaterArr[I]));
WriteLn(Name + ' Update Successful!');
if (CreateMenu) then
UpdateMenuItem.Enabled := OverrideUpdateMenuItem.Checked;
end else
WriteLn(Name + ' Update ERROR: Couldn''t extract the tar archive.');
end else
WriteLn(Name + ' Update ERROR: Couldn''t decompress the bzip archive.');
end else
WriteLn(Name + ' Update ERROR: Didn''t recieve any data from Update URL.');

Locked := False;
if (Hooks[AFTER_UPDATE] <> nil) then
if (not (Hooks[AFTER_UPDATE]('', I))) then
Exit;
end;
end;

procedure Tick(const Sender: TObject);
var
I: integer;
Name: string;
begin
for I := 0 to High(UpdaterArr) + 1 do
if (not (I = High(UpdaterArr) + 1)) then
begin
case Sender of
UpdaterArr[I].Timer: Name := 'Timer';
UpdaterArr[I].CheckMenuItem: Name := 'Check';
end;
if (not (Name = '')) then
Break;
end else
Exit;

if (UpdaterArr[I].Locked) then
Exit;

if (UpdaterArr[I].Hooks[CHECK_FOR_UPDATE] <> nil) then
if (not (UpdaterArr[I].Hooks[CHECK_FOR_UPDATE](Name, I))) then
Exit;

if (GetLVersion(UpdaterArr[I]) < GetOVersion(UpdaterArr[I])) then
begin
WriteLn('You have a new update available for ' + UpdaterArr[I].Name + '!');

if (UpdaterArr[I].CreateMenu) then
begin
UpdaterArr[I].UpdateMenuItem.Enabled := True;
if (UpdaterArr[I].AUpdateMenuItem.Checked or (Sender = UpdaterArr[I].CheckMenuItem)) then
Update(Sender, I);
end else
Update(Sender, I);
end else
if (Sender = UpdaterArr[I].CheckMenuItem) then
WriteLn('No ' + UpdaterArr[I].Name + ' update available.');
end;

procedure Click(Sender: TObject);
var
I: integer;
Value: string;
begin
for I := 0 to High(UpdaterArr) do
with UpdaterArr[I] do
begin
case Sender of
ViewMenuItem: begin
ViewMenuItem.Checked := (not (ViewMenuItem.Checked));
Settings.SetKeyValue(Name + '_Visible', Lowercase(BoolToStr(ViewMenuItem.Checked)));
MainMenu.Visible := ViewMenuItem.Checked;
end;
UpdateMenuItem: Update(Sender, I);
CheckMenuItem: Tick(Sender);
AUpdateMenuItem, ACheckMenuItem, OverrideUpdateMenuItem: begin
TMenuItem(Sender).Checked := (not (TMenuItem(Sender).Checked));
Settings.SetKeyValue(UpdaterArr[I].Name + '_' + ExtractFromStr(TMenuItem(Sender).Caption, Letters), BoolToStr(TMenuItem(Sender).Checked));
case Sender of
OverrideUpdateMenuItem: UpdateMenuItem.Enabled := OverrideUpdateMenuItem.Checked;
ACheckMenuItem: Timer.Enabled := ACheckMenuItem.Checked;
end;
end;
TimerMenuItem: begin
if (InputQuery(Name + ' Updater', 'What would you like the Timer Interval to be? (1 - 100000 seconds)', Value)) then
begin
Value := ExtractFromStr(Value, Numbers);
if ((IntToStr(StrToIntDef(Value, -1)) = Value) and InRange(StrToIntDef(Value, -1), 1, 100000)) then
begin
Timer.Interval := StrToIntDef(Value, (Timer.Interval / 1000)) * 1000;
TimerMenuItem.Caption := 'Timer Interval: ' + IntToStr(Timer.Interval / 1000);
Settings.SetKeyValue(Name + '_TimerInterval', IntToStr(Timer.Interval));
end;
end;
end;
end;
end;
end;

function InMenu(const Name: string; const Menu: TMenuItem; out Item: TMenuItem): boolean;
var
I: integer;
begin
for I := 0 to Menu.Count - 1 do
if (Lowercase(Menu.Items[I].Caption) = Lowercase(Name)) then
begin
Result := True;
Item := Menu.Items[I];
Exit;
end;
end;

function GetMenuByName(const Name: string; Menu: TMenuItem): TMenuItem;
begin
if (not (InMenu(Name, Menu, Result))) then
begin
Result := TMenuItem.Create(Menu);
Result.Caption := Name;
Menu.Add(Result);
end;
end;

function MoveMenuItem(Menu: TMenuItem; FromIndex, ToIndex: integer): TMenuItem;
var
TempMenuItem: TMenuItem;
begin
if (InRange(FromIndex, 0, Menu.Count - 1) and InRange(ToIndex, 0, Menu.Count - 1)) then
begin
TempMenuItem := Menu.Items[FromIndex];
Menu.Delete(FromIndex);
Menu.Insert(ToIndex, TempMenuItem);
Result := Menu.Items[ToIndex];
end;
end;

function GetIndex(Menu, MenuItem: TMenuItem): integer;
begin
for Result := 0 to Menu.Count - 1 do
if (Menu.Items[Result] = MenuItem) then
Exit;
Result := -1;
end;

function IsUpdateMenu(const Menu: TMenuItem): boolean;
var
I: integer;
begin
for I := 0 to Menu.Count - 1 do
if (Menu.Items[I].Caption = 'Update') then
Result := True;
end;

function AddUpdater(const IncludeName, UpdateURL, VerURL, ExFolder: string; const ShowMenu, TimerIfNoMenu: boolean; var ID: integer): boolean;
var
Seperator: array[0..1] of TMenuItem;
ViewMenu: TMenuItem;
begin
ID := Length(UpdaterArr);
SetLength(UpdaterArr, ID + 1);
with UpdaterArr[ID] do
begin
Name := IncludeName;
URL := UpdateURL;
VersionURL := VerURL;
Folder := ExFolder;
CreateMenu := ShowMenu;
NoMenuTimer := TimerIfNoMenu;

if (CreateMenu) then
begin
ViewMenu := GetMenuByName('&View', Simba_MainMenu.Items);
if (ViewMenu.Count = 4) then
begin
Seperator[0] := TMenuItem.Create(ViewMenu);
Seperator[0].Caption := '-';
ViewMenu.Add(Seperator[0])
end;

ViewMenuItem := GetMenuByName(Name + ' Menu', ViewMenu);
ViewMenuItem.OnClick := @Click;
ViewMenuItem.Checked := (LowerCase(Settings.GetKeyValueDef(Name + '_Visible', 'true')) = 'true');
ViewMenuItem.Visible := False;

MainMenu := GetMenuByName(Name, Simba_MainMenu.Items);
MainMenu.Visible := False;
if (IsUpdateMenu(MainMenu)) then
Exit;

if (MainMenu.Count > 0) then
begin
Seperator[1] := TMenuItem.Create(MainMenu);
Seperator[1].Caption := '-';
MainMenu.Add(Seperator[1])
end;

UpdateMenuItem := TMenuItem.Create(MainMenu);
UpdateMenuItem.Caption := 'Update';
UpdateMenuItem.OnClick := @Click;
UpdateMenuItem.Enabled := (LowerCase(Settings.GetKeyValueDef(Name + '_OverrideUpdate', 'false')) = 'true');
MainMenu.Add(UpdateMenuItem);

CheckMenuItem := TMenuItem.Create(MainMenu);
CheckMenuItem.Caption := 'Check for Update';
CheckMenuItem.OnClick := @Click;
MainMenu.Add(CheckMenuItem);

AutoMenu := TMenuItem.Create(MainMenu);
AutoMenu.Caption := 'Automatically ...';
MainMenu.Add(AutoMenu);

AUpdateMenuItem := TMenuItem.Create(AutoMenu);
AUpdateMenuItem.Caption := 'Update';
AUpdateMenuItem.OnClick := @Click;
AUpdateMenuItem.Checked := (LowerCase(Settings.GetKeyValueDef(Name + '_Update', 'true')) = 'true');
AutoMenu.Add(AUpdateMenuItem);

ACheckMenuItem := TMenuItem.Create(AutoMenu);
ACheckMenuItem.Caption := 'Check for Updates';
ACheckMenuItem.OnClick := @Click;
ACheckMenuItem.Checked := (LowerCase(Settings.GetKeyValueDef(Name + '_CheckforUpdates', 'true')) = 'true');
AutoMenu.Add(ACheckMenuItem);

SettingsMenu := TMenuItem.Create(MainMenu);
SettingsMenu.Caption := 'Settings';
MainMenu.Add(SettingsMenu);

TimerMenuItem := TMenuItem.Create(SettingsMenu);
TimerMenuItem.Caption := 'Timer Interval: ' + IntToStr(StrToIntDef(ExtractFromStr(Settings.GetKe yValueDef(Name + '_TimerInterval', '3600000'), Numbers), 3600000) / 1000);
TimerMenuItem.OnClick := @Click;
SettingsMenu.Add(TimerMenuItem);

OverrideUpdateMenuItem := TMenuItem.Create(SettingsMenu);
OverrideUpdateMenuItem.Caption := 'Override Update';
OverrideUpdateMenuItem.OnClick := @Click;
OverrideUpdateMenuItem.Checked := (LowerCase(Settings.GetKeyValueDef(Name + '_OverrideUpdate', 'false')) = 'true');
SettingsMenu.Add(OverrideUpdateMenuItem);
end;

Timer := TTimer.Create(nil);
Timer.Interval := StrToIntDef(ExtractFromStr(Settings.GetKeyValueDef (Name + '_TimerInterval', '3600000'), Numbers), 3600000);
if (ShowMenu) then
Timer.Enabled := ACheckMenuItem.Checked
else
Timer.Enabled := NoMenuTimer;
Timer.OnTimer := @Tick;
end;

Result := True;
end;

{ procedure Free; //Doesn't Work
var
I: integer;
begin
for I := 0 to High(UpdaterArr) do
with UpdaterArr[I] do
if (Timer <> nil) then
Timer.Free;
end; }

procedure Attach;
var
I: integer;
begin
for I := 0 to High(UpdaterArr) do
begin
if (UpdaterArr[I].Hooks[ATTACH_HOOK] <> nil) then
UpdaterArr[I].Hooks[ATTACH_HOOK]('', I);

if (UpdaterArr[I].CreateMenu) then
begin
UpdaterArr[I].ViewMenuItem.Visible := True;
UpdaterArr[I].MainMenu.Visible := UpdaterArr[I].ViewMenuItem.Checked;
UpdaterArr[I].Timer.Enabled := UpdaterArr[I].ACheckMenuItem.Checked;
end else
UpdaterArr[I].Timer.Enabled := UpdaterArr[I].NoMenuTimer;
WriteLn(UpdaterArr[I].Name + ' Updater Enabled!');
end;
end;

procedure Detach;
var
I: integer;
begin
for I := High(UpdaterArr) downto 0 do
begin
if (UpdaterArr[I].Hooks[DETACH_HOOK] <> nil) then
UpdaterArr[I].Hooks[DETACH_HOOK]('', I);

if (UpdaterArr[I].CreateMenu) then
begin
UpdaterArr[I].ViewMenuItem.Visible := False;
UpdaterArr[I].MainMenu.Visible := False;
end;
UpdaterArr[I].Timer.Enabled := False;
WriteLn(UpdaterArr[I].Name + ' Updater Disabled.');
end;
end;

[Spooky_]

Well some of the update URLs are quite obvious, as they are added to the console when it attempts to update, but I know I'm missing out on some important files.
Here is what I see when I attempt to open MSI:

Current Simba version: 982
Latest Simba Version: -1
Script name will be: RunMe
formWriteln: Exception in Script: Plugin(libsmart32) has not been foundSo it seems I'm missing a plugin, infact, my plugin directory is empty...
Read through some of the sources at C:\Simba\Extensions\srl.sex and I downloaded the plugins, fixed my SPS' path and now the MSI window is displayed.
You could call this "resolved", but it doesn't feel right; I know I could have missed something :l

E: Trying your suggestion now.

E2: Did you get this to compile/work? As I am receiving the following errors:

Loading extension C:\Simba\Extensions\extension.sex
Extension Disabled - Did not compile
[Error] C:\Simba\Includes\..\Extensions\Updater.sei(8:8): Unknown identifier 'InitializeHTTPClient' at line 8
Loading extension C:\Simba\Extensions\srl.sex
Extension Disabled - Did not compile
[Error] C:\Simba\Includes\..\Extensions\Updater.sei(8:8): Unknown identifier 'InitializeHTTPClient' at line 8

[Markus]

As I said, you need to move the plugins ;)
http://wizzup.org/static/srl/simba_plugins.tar.bz2

[Spooky_]

My apologies, that part of your post was added with your edit, and wasn't made clear, so I missed it. I will attempt this now.

[Markus]

Na didn't test it at all. Looks like those functions aren't exported to plugins (they are to scripts). I'm sorry for the inconvenience.

[Spooky_]

I give up; I downloaded a program to force applications to use a proxy, and Simba crashses and throws an error.

I'll just get a friend to install and update it in a sandbox, but I wish there was a better method :/