Develop and Download Open Source Software

mybbs

Browse Subversion Repository

/[bbs-as-pbbs]/WebModuleUnit1.pas

Diff of /WebModuleUnit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5 by yamat0jp, Thu Sep 24 08:53:41 2015 UTC revision 6 by yamat0jp, Fri Sep 25 03:19:17 2015 UTC
# Line 90  procedure TWebModule1.AddCookie(day: int Line 90  procedure TWebModule1.AddCookie(day: int
90  begin  begin
91    with Response.Cookies.Add do    with Response.Cookies.Add do
92    begin    begin
93      path := ReplaceText(FDTable2.FieldByName('home').AsAnsiString + 'admin',      path := AnsiString('https://'+FDTable2.FieldByName('home').AsString + 'admin');
       'http', 'https');  
94      Expires := Now + day;      Expires := Now + day;
95      Name := 'psw';      Name := 'psw';
96      Value := AnsiString(pass);      Value := AnsiString(pass);
# Line 144  var Line 143  var
143  begin  begin
144    count := FDTable3.FieldByName('count').AsInteger;    count := FDTable3.FieldByName('count').AsInteger;
145    if path = 'admin' then    if path = 'admin' then
146      home := String(ReplaceText(FDTable2.FieldByName('home').AsAnsiString,      home := 'https://'+FDTable2.FieldByName('home').AsString
       'http', 'https'))  
147    else    else
148      home := FDTable2.FieldByName('home').AsString;      home := 'http://'+FDTable2.FieldByName('home').AsString;
149    if position <= -1 then    if position <= -1 then
150    begin    begin
151      s1 := '最新%d件の記事を表示<br><center>Pages : [<b>';      s1 := '最新%d件の記事を表示<br><center>Pages : [<b>';
# Line 191  begin Line 189  begin
189    begin    begin
190      if (uri = 'admin') or (uri = 'login') or (TagParams.Values['ssl'] = 'true')      if (uri = 'admin') or (uri = 'login') or (TagParams.Values['ssl'] = 'true')
191      then      then
192        ReplaceText := String(AnsiReplaceText(FDTable2.FieldByName('home')        ReplaceText := 'https://'+FDTable2.FieldByName('home').AsString
         .AsAnsiString, 'http', 'https'))  
193      else      else
194        ReplaceText := FDTable2.FieldByName('home').AsString;        ReplaceText := 'http://'+FDTable2.FieldByName('home').AsString;
195    end;    end;
196    if (TagString = 'title') or (TagString = 'title2') then    if (TagString = 'title') or (TagString = 'title2') then
197      ReplaceText := FDTable2.FieldByName(TagString).AsString;      ReplaceText := FDTable2.FieldByName(TagString).AsString;
# Line 306  begin Line 303  begin
303    if Request.Query = 'del' then    if Request.Query = 'del' then
304    begin    begin
305      AddCookie(-3, '');      AddCookie(-3, '');
306      Response.SendRedirect(FDTable2.FieldByName('home').AsAnsiString);      Response.SendRedirect('http://'+FDTable2.FieldByName('home').AsAnsiString);
307      Exit;      Exit;
308    end;    end;
309    x := True;    x := True;
# Line 322  begin Line 319  begin
319    then    then
320      something;      something;
321    if x = True then    if x = True then
322      Response.SendRedirect(ReplaceText(FDTable2.FieldByName('home').AsAnsiString,      Response.SendRedirect('https://'+FDTable2.FieldByName('home').AsAnsiString + 'login');
       'http', 'https') + 'login');  
323  end;  end;
324    
325  procedure TWebModule1.WebModule1admindelAction(Sender: TObject;  procedure TWebModule1.WebModule1admindelAction(Sender: TObject;
# Line 335  begin Line 331  begin
331      if FDTable1.Locate('no', Request.ContentFields.ValueFromIndex[i], []) = True      if FDTable1.Locate('no', Request.ContentFields.ValueFromIndex[i], []) = True
332      then      then
333        FDTable1.Delete;        FDTable1.Delete;
334    Response.SendRedirect(ReplaceText(FDTable2.FieldByName('home').AsAnsiString +    Response.SendRedirect('https://'+FDTable2.FieldByName('home').AsAnsiString + 'admin'))
     'admin', 'http', 'https'));  
335  end;  end;
336    
337  procedure TWebModule1.WebModule1adminsetAction(Sender: TObject;  procedure TWebModule1.WebModule1adminsetAction(Sender: TObject;
# Line 360  begin Line 355  begin
355      FDTable2.FieldByName('mente').AsBoolean := x;      FDTable2.FieldByName('mente').AsBoolean := x;
356      FDTable2.Post;      FDTable2.Post;
357    end;    end;
358    Response.SendRedirect(ReplaceText(FDTable2.FieldByName('home').AsAnsiString +    Response.SendRedirect('https://'+FDTable2.FieldByName('home').AsAnsiString + 'admin');
     'admin', 'http', 'https'));  
359  end;  end;
360    
361  procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;  procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
# Line 587  begin Line 581  begin
581        s := 'http://' + String(Request.Host) + ':' +        s := 'http://' + String(Request.Host) + ':' +
582        IntToStr(Request.ServerPort);        IntToStr(Request.ServerPort);
583      }      }
     s := 'http://' + String(Request.Host);  
584      if Request.ScriptName <> '' then      if Request.ScriptName <> '' then
585        s := s + String(Request.ScriptName) + '/'        s := String(Request.Host + Request.ScriptName) + '/'
586      else      else
587        s := s + '/';        s := String(Request.Host) + '/';
588      FDTable2.AppendRecord([s, 'pbbs clone',      FDTable2.AppendRecord([s, 'pbbs clone',
589        '<center><font size=5 face=Verdana color=gray><b>P-BBS CLONE</b></font></center>',        '<center><font size=5 face=Verdana color=gray><b>P-BBS CLONE</b></font></center>',
590        'admin', 'あほ,ばか,死ね', false]);        'admin', 'あほ,ばか,死ね', false]);
591      m := TResourceStream.Create(HInstance, 'setup', RT_RCDATA);      m := TResourceStream.Create(HInstance, 'setup', RT_RCDATA);
592      try      try
593        uri := 'setup';        uri := 'setup';
       PageProducer1.HTMLDoc.LoadFromStream(m);  
594        Response.ContentType := 'text/html; charset=utf-8;';        Response.ContentType := 'text/html; charset=utf-8;';
595        Response.Content := PageProducer1.Content;        Response.Content := PageProducer1.ContentFromStream(m);
596      finally      finally
597        m.Free;        m.Free;
598      end;      end;
# Line 618  begin Line 610  begin
610      FDTable3.Active := True;      FDTable3.Active := True;
611    words.DelimitedText := FDTable2.FieldByName('ngwords').AsString;    words.DelimitedText := FDTable2.FieldByName('ngwords').AsString;
612    FDTable1.Active := True;    FDTable1.Active := True;
   if FileExists('maintenance.htm') = True then  
   begin  
     PageProducer1.HTMLFile := 'maintenance.htm';  
     Response.ContentType := 'text/html; charset=utf-8;';  
     Response.Content := PageProducer1.Content;  
     Handled := True;  
   end;  
613    {    {
614      t:='';      t:='';
615      ssl:=TStringList.Create;      ssl:=TStringList.Create;
Legend:
Removed from v.5  
changed lines
  Added in v.6
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help