ｵﾜﾀブラウザ

/*
* $Id$
*/

#include "pspdialogs.h"
#include <stdio.h>
#include <malloc.h>
#include <pspctrl.h>
#include "pg.h"
#include "utf8.h"

extern int running; //main.c
extern char cwDir[256]; //main.c
extern char* logDir; // psp2ch.c
extern SceCtrlData pad; // psp2ch.c
extern SceCtrlData oldPad; // psp2ch.c
extern MESSAGE_HELPER mh; // psp2ch.c
extern unsigned long pgCursorX, pgCursorY; // pg.c
extern void* framebuffer; // pg.c
extern S_2CH_FORM_COLOR formColor; // psp2ch.c
extern char cookie[128]; // psp2ch.c

/*********************
src文字列をURLエンコードしてdst文字列に格納　
dstの容量に注意(srcの3倍あればOK)
*********************/
void psp2chUrlEncode(char* dst, char* src)
{
    char buf[4];

    while (*src)
    {
        if ((*src >= 0x30 && *src <= 0x39) || // '0'-'9'
            (*src >= 0x41 && *src <= 0x59) || // 'A'-'Z'
            (*src >= 0x61 && *src <= 0x79) || // 'a'-'z'
            *src == '-' || *src == '.' || *src == '_')
        {
            *dst++ = *src++;
        }
        else if (*src == ' ')
        {
            *dst++ = '+';
            src++;
        }
        else
        {
            sprintf(buf, "%02X", *(unsigned char*)src++);
            *dst++ = '%';
            *dst++ = buf[0];
            *dst++ = buf[1];
        }
    }
    *dst = '\0';
}

int psp2chForm(char* host, char* dir, int dat, char* subject, char* message)
{
    static char name[64] = {0};
    static char mail[64] = {0};
    SceUID fd;
    HTTP_HEADERS resHeader;
    int focus, sage, ret, mySocket, sendOk = 0;
    char buf[256];
    char *encode, *buffer, *str, *p;

    encode = (char*)malloc(2048*4);
    if (encode == NULL)
    {
        memset(&mh,0,sizeof(MESSAGE_HELPER));
        sprintf(mh.message, "memorry error\n");
        pspShowMessageDialog(&mh, DIALOG_LANGUAGE_AUTO);
        sceCtrlPeekBufferPositive(&oldPad, 1);
        return -1;
    }
    buffer = (char*)malloc(2048*2);
    if (buffer == NULL)
    {
        free(encode);
        memset(&mh,0,sizeof(MESSAGE_HELPER));
        sprintf(mh.message, "memorry error\n");
        pspShowMessageDialog(&mh, DIALOG_LANGUAGE_AUTO);
        sceCtrlPeekBufferPositive(&oldPad, 1);
        return -1;
    }
    focus = 0;
    if (mail[0] == '\0' && name[0] == '\0')
    {
        sprintf(buf, "%s/%s/form.ini", cwDir, logDir);
        fd = sceIoOpen(buf, PSP_O_RDONLY, 0777);
        if (fd >= 0)
        {
            sceIoRead(fd, buf, 256);
            sceIoClose(fd);
            str = strchr(buf, '\n');
            *str = '\0';
            strcpy(name, buf);
            str++;
            p = strchr(str, '\n');
            *p = '\0';
            strcpy(mail, str);
        }
    }
    if (mail[0])
    {
        sage = 0;
    }
    else
    {
        sage = 1;
    }
    while (running)
    {
        if(sceCtrlPeekBufferPositive(&pad, 1))
        {
            if (pad.Buttons != oldPad.Buttons)
            {
                oldPad = pad;
                if(pad.Buttons & PSP_CTRL_UP)
                {
                    focus--;
                    if (focus < 0)
                    {
                        focus = 0;
                    }
                }
                if(pad.Buttons & PSP_CTRL_DOWN)
                {
                    focus++;
                    if (focus > 2)
                    {
                        focus = 2;
                    }
                }
                if(pad.Buttons & PSP_CTRL_LEFT)
                {
                    if (focus == 1)
                    {
                        sage = sage ? 0 : 1;
                    }
                }
                if(pad.Buttons & PSP_CTRL_RIGHT)
                {
                    if (focus == 1)
                    {
                        sage = sage ? 0 : 1;
                    }
                }
                if(pad.Buttons & PSP_CTRL_CIRCLE)
                {
                    switch (focus)
                    {
                    case 0:
                        psp2chGets("名前", name, 64, 1);
                        break;
                    case 1:
                        psp2chGets("mail", mail, 64, 1);
                        break;
                    case 2:
                        psp2chGets(NULL, message, 2048, 32);
                        break;
                    }
                }
                else if(pad.Buttons & PSP_CTRL_CROSS)
                {
                    break;
                }
                else if(pad.Buttons & PSP_CTRL_TRIANGLE)
                {
                    memset(&mh,0,sizeof(MESSAGE_HELPER));
                    mh.options = PSP_UTILITY_MSGDIALOG_OPTION_TEXT |
                        PSP_UTILITY_MSGDIALOG_OPTION_YESNO_BUTTONS | PSP_UTILITY_MSGDIALOG_OPTION_DEFAULT_NO;
                    strcpy(mh.message, TEXT_6);
                    pspShowMessageDialog(&mh, DIALOG_LANGUAGE_AUTO);
                    sceCtrlPeekBufferPositive(&oldPad, 1);
                    if (mh.buttonPressed == PSP_UTILITY_MSGDIALOG_RESULT_YES)
                    {
                        sendOk = 1;
                    }
                }
                else if(pad.Buttons & PSP_CTRL_SQUARE)
                {
                }
            }
            if (sage)
            {
                strcpy(mail, "sage");
            }
            pgFillvram(RGB(0xCC, 0xFF, 0xCC), 0, 0, SCR_WIDTH, SCR_HEIGHT);
            pgFillvram(formColor.title_bg, 0, 0, SCR_WIDTH, 15);
            pgCursorX = 10;
            pgCursorY = 1;
            pgPrint(subject, formColor.title, formColor.title_bg, SCR_WIDTH);
            pgCursorX = 10;
            pgCursorY = 30;
            pgPrint("　名前：", GRAY, RGB(0xCC, 0xFF, 0xCC), 58);
            pgCursorX = 60;
            pgEditBox(GRAY, 58, 28, 400, 44);
            pgPrint(name, BLACK, GRAY, 400);
            pgCursorX = 10;
            pgCursorY = 60;
            pgPrint("メール：", GRAY, RGB(0xCC, 0xFF, 0xCC), 58);
            pgCursorX = 60;
            pgEditBox(GRAY, 58, 58, 300, 74);
            pgPrint(mail, BLACK, GRAY, 400);
            pgCursorX = 310;
            pgCursorY = 60;
            if (sage)
            {
                pgPrint("●", GRAY, RGB(0xCC, 0xFF, 0xCC), SCR_WIDTH);
            }
            else
            {
                pgPrint("○", GRAY, RGB(0xCC, 0xFF, 0xCC), SCR_WIDTH);
            }
            pgPrint("sage (← →キーで切替)", GRAY, RGB(0xCC, 0xFF, 0xCC), SCR_WIDTH);
            pgCursorX = 10;
            pgCursorY = 90;
            pgEditBox(GRAY, 8, 88, 470, 250);
            str = message;
            while ((str = pgPrint(str, BLACK, GRAY, 470)))
            {
                pgCursorX = 10;
                pgCursorY += LINE_PITCH;
                if (pgCursorY >= 250)
                {
                    break;
                }
            }
            switch (focus)
            {
            case 0:
                pgCursorX = 10;
                pgCursorY = 30;
                pgPrint("　名前：", BLACK, RGB(0xCC, 0xFF, 0xCC), 58);
                pgCursorX = 60;
                pgEditBox(WHITE, 58, 28, 400, 44);
                pgPrint(name, BLACK, WHITE, 400);
                break;
            case 1:
                pgCursorX = 10;
                pgCursorY = 60;
                pgPrint("メール：", BLACK, RGB(0xCC, 0xFF, 0xCC), 58);
                pgCursorX = 60;
                pgEditBox(WHITE, 58, 58, 300, 74);
                pgPrint(mail, BLACK, WHITE, 300);
                pgCursorX = 310;
                pgCursorY = 60;
                if (sage)
                {
                    pgPrint("●", BLACK, RGB(0xCC, 0xFF, 0xCC), SCR_WIDTH);
                }
                else
                {
                    pgPrint("○", BLACK, RGB(0xCC, 0xFF, 0xCC), SCR_WIDTH);
                }
                pgPrint("sage (← →キーで切替)", BLACK, RGB(0xCC, 0xFF, 0xCC), SCR_WIDTH);
                break;
            case 2:
                pgCursorX = 10;
                pgCursorY = 90;
                pgEditBox(WHITE, 8, 88, 470, 250);
                str = message;
                while ((str = pgPrint(str, BLACK, WHITE, 470)))
                {
                    pgCursorX = 10;
                    pgCursorY += LINE_PITCH;
                    if (pgCursorY >= 250)
                    {
                        break;
                    }
                }
                break;
            }
        }
        pgCopy(0, 0);
        pgMenuBar("　○ : 入力　　　× : 戻る　　　△ : 送信");
        sceDisplayWaitVblankStart();
        framebuffer = sceGuSwapBuffers();
        if (sendOk)
        {
            pgCopy(0, 0);
            sceDisplayWaitVblankStart();
            framebuffer = sceGuSwapBuffers();
            strcpy(encode, "submit=%8F%91%82%AB%8D%9E%82%DE&FROM=");
            psp2chUrlEncode(buffer, name);
            strcat(encode, buffer);
            strcat(encode, "&mail=");
            psp2chUrlEncode(buffer, mail);
            strcat(encode, buffer);
            strcat(encode, "&MESSAGE=");
            psp2chUrlEncode(buffer, message);
            strcat(encode, buffer);
            sprintf(buffer, "&bbs=%s&key=%d&time=1", dir, dat);
            strcat(encode, buffer);
            /* 仮送信して2ちゃんからSet-CookieのPON HAP 取得 */
            if (cookie[0] == 0)
            {
                mySocket = psp2chPost(host, dir, dat, cookie, encode);
                if (mySocket < 0)
                {
                    free(buffer);
                    free(encode);
                    memset(&mh,0,sizeof(MESSAGE_HELPER));
                    sprintf(mh.message, "POST error");
                    pspShowMessageDialog(&mh, DIALOG_LANGUAGE_AUTO);
                    sceCtrlPeekBufferPositive(&oldPad, 1);
                    return mySocket;
                }
                ret = psp2chGetStatusLine(mySocket);
                switch(ret)
                {
                    case 200: // OK
                        break;
                    default:
                        free(buffer);
                        free(encode);
                        memset(&mh,0,sizeof(MESSAGE_HELPER));
                        sprintf(mh.message, "Status code %d", ret);
                        pspShowMessageDialog(&mh, DIALOG_LANGUAGE_AUTO);
                        sceCtrlPeekBufferPositive(&oldPad, 1);
                        psp2chCloseSocket(mySocket);
                        return -1;
                }
                psp2chGetHttpHeaders(mySocket, &resHeader);
                strcat(cookie, "; NAME=\"\"; MAIL=\"\"; hana=mogera");
                psp2chCloseSocket(mySocket);
            }
            /* Cookieをセットして本送信 */
            mySocket = psp2chPost(host, dir, dat, cookie, encode);
            if (mySocket < 0)
            {
                free(buffer);
                free(encode);
                memset(&mh,0,sizeof(MESSAGE_HELPER));
                sprintf(mh.message, "POST error");
                pspShowMessageDialog(&mh, DIALOG_LANGUAGE_AUTO);
                sceCtrlPeekBufferPositive(&oldPad, 1);
                return -1;
            }
            ret = psp2chGetStatusLine(mySocket);
            switch(ret)
            {
                case 200: // OK
                    break;
                default:
                    free(buffer);
                    free(encode);
                    memset(&mh,0,sizeof(MESSAGE_HELPER));
                    sprintf(mh.message, "Status code %d", ret);
                    pspShowMessageDialog(&mh, DIALOG_LANGUAGE_AUTO);
                    sceCtrlPeekBufferPositive(&oldPad, 1);
                    psp2chCloseSocket(mySocket);
                    return -1;
            }
            psp2chGetHttpHeaders(mySocket, &resHeader);
            str = message;
            while((ret = recv(mySocket, buf, sizeof(buf), 0)) > 0)
            {
                memcpy(str, buf, ret);
                str += ret;
            }
            *str = '\0';
            psp2chCloseSocket(mySocket);
#ifdef DEBUG
            fd = sceIoOpen("log.txt", PSP_O_WRONLY | PSP_O_CREAT | PSP_O_TRUNC, 0777);
            if (fd >= 0)
            {
                sceIoWrite(fd, message, strlen(message));
                sceIoClose(fd);
            }
            S_2CH_RES_COLOR c;
            c.text = BLACK;
            c.bg = WHITE;
            c.link = BLUE;
            pgFillvram(WHITE, 0, 0, SCR_WIDTH, SCR_HEIGHT);
            pgCursorX = 0;
            pgCursorY = 0;
            while (1)
            {
                str = strstr(message, "</html");
                if (str) *str = 0;
                str = strstr(message, "<html");
                while ((str = pgPrintHtml(str, c, 0, SCR_WIDTH)))
                {
                    pgCursorX = 0;
                    pgCursorY += LINE_PITCH;
                    if (pgCursorY >= 260)
                    {
                        break;
                    }
                }
                pgMenuBar("　× : 戻る");
                sceDisplayWaitVblankStart();
                framebuffer = sceGuSwapBuffers();
                sceCtrlPeekBufferPositive(&pad, 1);
                if (pad.Buttons != oldPad.Buttons)
                {
                    oldPad = pad;
                    if(pad.Buttons & PSP_CTRL_CROSS)
                    {
                        break;
                    }
                }
            }
#endif
            free(buffer);
            free(encode);
            sprintf(buf, "%s/%s/form.ini", cwDir, logDir);
            fd = sceIoOpen(buf, PSP_O_WRONLY | PSP_O_CREAT | PSP_O_TRUNC, 0777);
            if (fd >= 0)
            {
                sprintf(buf, "%s\n%s\n", name, mail);
                sceIoWrite(fd, buf, strlen(buf));
                sceIoClose(fd);
            }
            return 1;
        }
    }
    free(buffer);
    free(encode);
    return 0;
}