Removed glog function

diff --git a/bottleclient/MainForm.dfm b/bottleclient/MainForm.dfm
index a82ee65..1636e17 100755 (executable)
--- a/bottleclient/MainForm.dfm
+++ b/bottleclient/MainForm.dfm
@@ -1,6 +1,6 @@
 object frmSender: TfrmSender
-  Left = 540
-  Top = 431
+  Left = 301
+  Top = 289
   Width = 534
   Height = 306
   Caption = 'SSTP Bottle Client'
@@ -27,7 +27,7 @@ object frmSender: TfrmSender
   TextHeight = 12
   object StatusBar: TStatusBar
     Left = 0
-    Top = 236
+    Top = 233
     Width = 526
     Height = 19
     Panels = <
@@ -170,14 +170,14 @@ object frmSender: TfrmSender
     Left = 0
     Top = 46
     Width = 526
-    Height = 165
+    Height = 162
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 2
     TabOrder = 4
     object tabChannel: TTabControl
       Left = 2
-      Top = 137
+      Top = 134
       Width = 522
       Height = 26
       Align = alBottom
@@ -201,7 +201,7 @@ object frmSender: TfrmSender
       Left = 2
       Top = 2
       Width = 522
-      Height = 135
+      Height = 132
       Cursor = crIBeam
       Align = alClient
       Caret.AutoCursor = True
@@ -338,7 +338,7 @@ object frmSender: TfrmSender
   end
   object pnlPanel: TPanel
     Left = 0
-    Top = 211
+    Top = 208
     Width = 526
     Height = 25
     Align = alBottom
@@ -564,10 +564,6 @@ object frmSender: TfrmSender
         Caption = #25237#31080#12521#12531#12461#12531#12464#12506#12540#12472'(&R)'
         OnClick = mnGotoVoteClick
       end
-      object mnGotoGLog: TMenuItem
-        Caption = #12468#12540#12473#12488#22269#21218#35519#26619#12506#12540#12472'(&G)'
-        OnClick = mnGotoGLogClick
-      end
       object N4: TMenuItem
         Caption = '-'
       end

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 00c026a..6a6ed12 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -122,7 +122,6 @@ type
     mnLeaveThisChannel: TMenuItem;
     N4: TMenuItem;
     mnGotoVote: TMenuItem;
-    mnGotoGLog: TMenuItem;
     mnGoToHelp: TMenuItem;
     btnSend: TButton;
     btnConfirm: TButton;
@@ -223,7 +222,6 @@ type
       var Handled: Boolean);
     procedure mnLeaveThisChannelClick(Sender: TObject);
     procedure mnGotoVoteClick(Sender: TObject);
-    procedure mnGotoGLogClick(Sender: TObject);
     procedure tabChannelMouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
     procedure mnGoToHelpClick(Sender: TObject);
@@ -306,10 +304,6 @@ type
     //
     FScriptBuffer: TObjectList;  //\83X\83N\83\8a\83v\83g\83N\83\8a\83A\83o\83b\83t\83@
     //
-    //\88È\89º\81A\8d\91\90¨\92²\8d¸\82ð\89ß\93x\82É\91\97\90M\82µ\82È\82¢\82½\82ß\82Ì\95Ï\90\94
-    FLastGhostList: String;    //\83S\81[\83X\83g\83\8a\83X\83g\82Ì\95¶\8e\9a\97ñ
-    FLastGhostListSend: Int64; //\8d\91\90¨\92²\8d¸\82ð\8dÅ\8cã\82É\91\97\90M\82µ\82½\8e\9e\8d\8f
-    //
     FWM_TaskBarCreated: WORD; // \83^\83X\83N\83o\81[\93o\98^\97p\83E\83B\83\93\83h\83E\83\81\83b\83Z\81[\83WID
     //
     procedure SetStatusText(const Value: String);
@@ -584,7 +578,6 @@ begin
 
   // URL\83W\83\83\83\93\83v\90æ\82ð\83q\83\93\83g\95¶\8e\9a\97ñ\82Æ\82µ\82Ä\90Ý\92è
   mnGoToHP.Hint := Pref.HomePage;
-  mnGotoGlog.Hint := Pref.GLogPage;
   mnGotoVote.Hint := Pref.VotePage;
   mnGotoHelp.Hint := Pref.HelpPage;
 
@@ -1556,42 +1549,8 @@ begin
 end;
 
 procedure TfrmSender.SakuraSeekerDetectResultChanged(Sender: TObject);
-var i: integer;
-    GhostList: String;
-    Http: THTTPDownloadThread;
-    SendOk: boolean;
 begin
   UpdateIfGhostBox; // \83h\83\8d\83b\83v\83_\83E\83\93\82Ì\92\86\90g\82ð\8f\91\82«\8a·\82¦\82é
-
-  if (FLastGhostListSend <> 0) and
-    (GetTickCount < FLastGhostListSend + 1000*60) then
-  begin
-    Exit;
-  end;
-  FLastGhostListSend := GetTickCount;
-
-  //\8d\91\90¨\92²\8d¸\82É\8eQ\89Á
-  if FBooted and not Pref.NoSendGhostList and (SakuraSeeker.Count > 0) then begin
-    GhostList := 'CCC=' + ParamsEncode('\88¤');
-    GhostList := GhostList + '&LUID=' + Pref.LUID;
-    SendOk := false;
-    for i := 0 to SakuraSeeker.Count-1 do begin
-      if SakuraSeeker[i].Name <> '' then begin//\82±\82ê\82ª\82È\82¢\82Æ\82½\82Ü\82ÉFMO\89ó\82ê\82Å\8bó\82Ì\83S\81[\83X\83g\82ð\91\97\82Á\82Ä\82µ\82Ü\82¤
-        GhostList := GhostList + '&GHOST=' + ParamsEncode(SakuraSeeker[i].SetName);
-        SendOk := true;
-      end;
-    end;
-    if SendOk and (FLastGhostList <> GhostList) then begin
-      FLastGhostList := GhostList;
-      Http := THTTPDownloadThread.Create(BottleServer, Pref.CgiNameGhost, GhostList);
-      if Pref.UseHttpProxy then begin
-        Http.ProxyServer := Pref.ProxyAddress;
-        Http.ProxyPort   := Pref.ProxyPort;
-      end;
-      Http.FreeOnTerminate := true;
-      Http.Resume;
-    end;
-  end;
 end;
 
 procedure TfrmSender.UpdateChannelInfo(Dat: THeadValue);
@@ -2056,11 +2015,6 @@ begin
   ShellExecute(Handle, 'open', PChar(Pref.VotePage), nil, nil, SW_SHOW);
 end;
 
-procedure TfrmSender.mnGotoGLogClick(Sender: TObject);
-begin
-  ShellExecute(Handle, 'open', PChar(Pref.GLogPage), nil, nil, SW_SHOW);
-end;
-
 procedure TfrmSender.tabChannelMouseMove(Sender: TObject;
   Shift: TShiftState; X, Y: Integer);
 var Index: integer;