OSDN Git Service

This commit was manufactured by cvs2svn to create branch 'Bb61'.
[gikonavigoeson/gikonavi.git] / res / ExternalBoardPlugIn / ShitarabaJBBSPlugIn.dpr
index 740d20e..ca8fb8f 100644 (file)
@@ -2,7 +2,7 @@ library ShitarabaJBBSPlugIn;
 
 {
        ShitarabaJBBSPlugIn
-       $Id: ShitarabaJBBSPlugIn.dpr,v 1.46 2008/12/20 04:02:40 h677 Exp $
+       $Id: ShitarabaJBBSPlugIn.dpr,v 1.47 2009/06/22 14:48:31 h677 Exp $
 }
 
 uses
@@ -83,7 +83,7 @@ const
        MAJOR_VERSION                   = 1;
        MINOR_VERSION                   = 1;
        RELEASE_VERSION         = 'alpha';
-       REVISION_VERSION        = 18;
+       REVISION_VERSION        = 19;
 
        SYNCRONIZE_MENU_CAPTION = '\82µ\82½\82ç\82ÎJBBS\94Â\8dX\90V';
 
@@ -1596,7 +1596,7 @@ begin
        uriList := TStringList.Create;
        try
                ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-
+        // http://jbbs.livedoor.jp/computer/23340/
                // http://jbbs.livedoor.com/bbs/write.cgi/game/1578/new/
                // http://jbbs.livedoor.com/game/1000/subject.txt
                postURL         :=
@@ -1607,8 +1607,8 @@ begin
                        '&NAME='                + HttpEncode( SJIStoEUC( inName ) ) +
                        '&MAIL='                + HttpEncode( SJIStoEUC( inMail ) ) +
                        '&MESSAGE='     + HttpEncode( SJIStoEUC( inMessage ) ) +
-                       '&BBS='                 + uriList[ 4 ] +
-                       '&DIR='                 + uriList[ 3 ] +
+                       '&BBS='                 + uriList[ 2 ] +
+                       '&DIR='                 + uriList[ 1 ] +
                        '&TIME='                + IntToStr( DateTimeToUnix( Now ) ) +
                        '&submit='      + HttpEncode( SJIStoEUC( '\90V\8bK\8f\91\82«\8d\9e\82Ý' ) );