//Leency & SoUrcerer, LGPL //Hidnplayer #define LIST_INFO_H 59 int status_bar_h = 15; scroll_bar scroll1 = { 17,200,210, LIST_INFO_H-3,18,0,115,15,0,0xCCCccc,0xD2CED0,0x555555,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1}; char *listbuffer; char *listpointer; char *mailstart; char *mailend; int mailsize; enum { GET_MAIL = 20, SEND_MAIL, DELETE_LETTER, SAVE_LETTER, STOP_LOADING, EXIT_MAIL, CHANGE_CHARSET, CLOSE_CHANGE_CHARSET }; void MailBoxNetworkProcess() { int load_persent; if (aim) switch(aim) { case SEND_NSTAT: SetMailBoxStatus(NULL, "Counting mail, awaiting answer..."); request_len = GetRequest("STAT", NULL); Send(socketnum, #request, request_len, 0); if (EAX == 0xffffffff) { debugln("Error sending STAT. Retry..."w); break;} aim = GET_ANSWER_NSTAT; break; case GET_ANSWER_NSTAT: ticks = Receive(socketnum, #immbuffer, BUFFERSIZE, 0); if ((ticks == 0xffffff) || (ticks < 2)) break; if (immbuffer[ticks-2]=='\n') { debugln(#immbuffer); if (strstr(#immbuffer,"+OK")) { strcpyb(#immbuffer, #param, "+OK ", " "); mail_list.count = atoi(#param); free(listbuffer); listbuffer = mem_Alloc(30*mail_list.count); //24* original listpointer = listbuffer; aim = SEND_NLIST; debugln("Receiving mail list..."); } else { StopConnect("Sorry, can't recieve your mail"); } } break; case SEND_NLIST: WriteText(5, Form.cheight-11, 0x80, system.color.work_text, "Send LIST, awaiting answer..."); request_len = GetRequest("LIST", NULL); Send(socketnum, #request, request_len, 0); if (EAX == 0xffffffff) {debugln("Error while sending LIST. Retry..."); break;} else aim = GET_ANSWER_NLIST; break; case GET_ANSWER_NLIST: ticks = Receive(socketnum, listpointer, listbuffer + 30*mail_list.count - listpointer, MSG_DONTWAIT); if (ticks == 0xffffffff) break; listpointer = listpointer + ticks; if (listpointer - listbuffer < 5) break; if (strncmp(listpointer-5,"\n.\n",5)==0) // note that c-- assembles "\n.\n" to 0x0d, 0x0a, 0x2e, 0x0d, 0x0a { aim = SEND_RETR; debugln("goto SEND_RETR"); DrawMailBox(); *listpointer='\0'; atr.CreateArray(); atr.SetSizes(); } break; case SEND_RETR: from = to = date = subj = cur_charset = NULL; WB1.list.ClearList(); DrawMailBox(); request_len = GetRequest("RETR", itoa(mail_list.cur_y+1)); if (Send(socketnum, #request, request_len, 0) == 0xffffffff) { StopConnect("Error while trying to get letter from server"); break; } mailsize = atr.GetSize(mail_list.cur_y+1) + 1024; free(mailstart); mailstart = malloc(mailsize); mailend = mailstart; if (!mailstart) { debugln("alloc error!"); aim=NULL; break; } debug("mailsize: "); debugi(mailsize); aim = GET_ANSWER_RETR; debugln("goto GET_ANSWER_RETR"); break; case GET_ANSWER_RETR: debug("mailsize: "); debugi(mailsize); debug("mailstart: "); debugi(mailstart); debug("mailend: "); debugi(mailend); ticks = Receive(socketnum, mailend, mailsize + mailstart - mailend, MSG_DONTWAIT); if (ticks == 0xffffffff) break; mailend = mailend + ticks; if (mailsize + mailstart - mailend - 2 < 0) { debugln("Resizing buffer"); mailsize += 4096; mailstart = realloc(mailstart, mailsize); if (!mailstart) { StopConnect("Realloc error!"); break;} } /* if (mailsize>9000) { load_persent = mailend - mailstart * 100 ; load_persent /= mailsize - 1024; if (load_persent != cur_st_percent) SetMailBoxStatus( load_persent , NULL); } */ //ParseMail(); } } void MailBoxLoop() { int id; int panels_drag=0, clicked_list=0; dword line_col, text_col; mail_list.h = Form.cheight/4; mail_list.ClearList(); WB1.list.no_selection = true; SetMailBoxStatus( NULL , NULL); cur_charset = 0; aim = SEND_NSTAT; goto _MB_DRAW; loop() { WaitEventTimeout(2); switch(EAX & 0xFF) { case evMouse: mouse.get(); if (!mouse.lkm) panels_drag=0; if (mouse.lkm) && (mouse.y>mail_list.y+mail_list.h-1) && (mouse.yForm.cheight-60-status_bar_h-LIST_INFO_H) break; mail_list.h = mouse.y - mail_list.y-2; DrawMailBox(); break; } PageLinks.HoverAndProceed(mouse.x, mouse.y); if (!mail_list.count) break; if (!panels_drag) { scrollbar_v_mouse (#scroll1); scrollbar_v_mouse (#scroll_wv); } if (mail_list.first <> scroll1.position) { mail_list.first = scroll1.position; DrawMailList(); break; }; if (WB1.list.first <> scroll_wv.position) { WB1.list.first = scroll_wv.position; DrawLetter(); break; }; if (mail_list.y+mail_list.h + 10 > mouse.y) { if (mail_list.MouseScroll(mouse.vert)) DrawMailList(); } else { if (WB1.list.MouseScroll(mouse.vert)) DrawLetter(); } if (mouse.lkm) && (mail_list.MouseOver(mouse.x, mouse.y)) && (!clicked_list) clicked_list=1; if (!mouse.lkm) && (clicked_list) if (mail_list.ProcessMouse(mouse.x, mouse.y)) { clicked_list = 0; if (aim) break; DrawMailList(); aim = SEND_RETR; } break; case evButton: id = GetButtonID(); if (id==1) SaveAndExit(); if (id==GET_MAIL) aim = SEND_NSTAT; if (id==SAVE_LETTER) { if (!mailstart) break; CreateFile(strlen(mailstart), mailstart, "mail.txt"); pause(10); RunProgram("/sys/tinypad", "mail.txt"); } if (id==STOP_LOADING) { StopLoading(); DrawStatusBar(); DrawMailList(); } if (id==EXIT_MAIL) { StopLoading(); Close(socketnum); LoginBoxLoop(); } if (id==CHANGE_CHARSET) { DefineButton(0,0,Form.cwidth,Form.cheight, CLOSE_CHANGE_CHARSET+BT_HIDE+BT_NOFRAME); DrawRectangle(Form.cwidth-100, Form.cheight-status_bar_h- 70, 70, 82, system.color.work_graph); DrawRectangle3D(Form.cwidth-99, Form.cheight-status_bar_h- 69, 68, 80, 0xFFFfff, system.color.work); for (id=0; id<5; id++) { if (cur_charset==id+1) { line_col=system.color.work_button; text_col=system.color.work_button_text; } else { line_col=system.color.work; text_col=system.color.work_text; } DrawBar(Form.cwidth-98, id*16+Form.cheight-status_bar_h- 68, 67, 16, line_col); DrawCaptButton(Form.cwidth-100, id*16+Form.cheight-status_bar_h- 68, 70,16, 10+id+BT_HIDE, 0, text_col, charsets[id+1]); } } if (id==CLOSE_CHANGE_CHARSET) goto _MB_DRAW; break; case evKey: GetKeys(); if (!aim) && (mail_list.ProcessKey(key_scancode)) { DrawMailList(); aim = SEND_RETR; } break; case evReDraw: _MB_DRAW: if !(DefineWindow(MAILBOX_HEADER)) break; scroll1.bckg_col = scroll_wv.bckg_col = 0xBBBbbb; scroll1.frnt_col = scroll_wv.frnt_col = system.color.work; scroll1.line_col = scroll_wv.line_col = system.color.work_graph; DrawToolbar(); DrawMailBox(); break; default: MailBoxNetworkProcess(); } } } void DrawMailBox() { DrawMailList(); DrawLetterInfo(); InitTWB(); DrawLetter(); DrawStatusBar(); } void DrawToolbar() { #define BUT_Y 7 #define BUT_H 22 #define BUT_W 74 int toolbar_w = BUT_Y + BUT_H + BUT_Y + 3; mail_list.SetSizes(0, toolbar_w, Form.cwidth - scroll1.size_x - 1, mail_list.h, 18); DrawBar(0,0, Form.cwidth,toolbar_w-3, system.color.work); DrawCaptButton(10 , BUT_Y, BUT_W, BUT_H, GET_MAIL, system.color.work_button, system.color.work_button_text,"Get mail"); DrawCaptButton(BUT_W+ 20, BUT_Y, BUT_W+10, BUT_H, SAVE_LETTER, system.color.work_button, system.color.work_button_text,"Save letter"); DrawCaptButton(Form.cwidth-BUT_W - 10, BUT_Y, BUT_W, BUT_H, EXIT_MAIL, system.color.work_button, system.color.work_button_text,"< Exit"); DrawBar(0, mail_list.y-3, mail_list.w,1, system.color.work_graph); DrawBar(0, mail_list.y-2, mail_list.w,1, 0xdfdfdf); DrawBar(0, mail_list.y-1, mail_list.w,1, 0xf0f0f0); } void DrawMailList() { int i, on_y, on_x, direction; dword sel_col; mail_list.visible = mail_list.h / mail_list.item_h; for (i=30; i<150; i++) DeleteButton(i); for (i=0; (i