#define Use_MsgBase

#include <stdlib.h>
#include <string.h>
#include "proboard.hpp"

void
scan_msg(char *data)
{
 MsgArea ma;
 String param[10];
 int searchmethod = 0;
 int searchorder  = 0;
 char searchdata[80];
 long firstmsg=0;
 bool nonext = FALSE;
 int area;

 Message msg;
 MarkedMsgList marked = markedmsglist;

 parse_data(data,param);

 if(param[0][0]=='*') area = user.msgArea;
                 else area = atoi(param[0]);

 if(area)
   {
    if(!ma.read(area)) return;

    if(!check_access(ma.readLevel,ma.readFlags,ma.readFlagsNot) && !ma.sysopAccess())
      {
       io << "\n\n" << S_ACCESS_DENIED << "\n\n" << S_PRESS_ENTER_TO_CONTINUE;
       return;
      }

    long n = ma.msgBase->numMsgs(ma);

    if(n <= 0)
      {
         io << '\n' << S_THERE_ARE_NO_MESSAGES_IN_THIS_AREA <<
               "\n\n" << S_PRESS_ENTER_TO_CONTINUE;
       return;
      }

    msg.setArea(area);
   }


 if(param[1][0]=='/' && param[1][1]=='N')
    {
     searchmethod = READMSG_MARKED;
     searchorder  = +1;
    }
   else
    {
      String hotkeys = K_SCAN_MESSAGES_ORDER_SELECTION;
      hotkeys << '\r';
     //char *hotkeys="FRANSTM\r";
     char key;

     if(area)
       {
        io << '\n';
        key=io.send(S_SCAN_MESSAGES_ORDER_SELECTION,hotkeys);
       }
      else
       key = K_SCAN_MESSAGES_ORDER_SELECTION[3];

     if(!key) key=io.wait(hotkeys);

     key = hotkeys.find(String(char(key)));

     io << "\n\n";
     switch(key)
       {
       case 6  : return;
       case 1  : io << S_READMSG_FORWARD << '\n';
                 searchmethod = READMSG_ALL;
                 searchorder  = 1;
                 break;
       case 2  : io << S_READMSG_REVERSE << '\n';
                 searchmethod = READMSG_ALL;
                 searchorder  = -1;
                 break;
       case 0  : io << S_READMSG_ALL << '\n';
                 searchmethod = READMSG_ALL;
                 break;
       case 3  : io << S_READMSG_NEW << '\n';
                 searchmethod = READMSG_NEW;
                 searchorder  = 1;
                 break;
       case 4  : {
                 io << S_READMSG_SELECTED;
                 char k = wait_language_hotkeys(K_READMSG_SELECTED);

                 if(k == '\r') return;

                 io << K_READMSG_SELECTED[k];

                 switch(k)
                   {
                   case 0: k = 'F'; break;
                   case 1: k = 'T'; break;
                   case 2: k = 'S'; break;
                   case 3: k = 'E'; break;
                   }
                 searchdata[0] = k;
                 io << "\n\n" << S_READMSG_SELECTED_SEARCH_FOR;
                 io.read(&searchdata[1],60,READMODE_UPALL);
                 if(!searchdata[1]) return;
                 searchmethod = READMSG_SEL;
                 io << '\n';
                 } break;
       case 5  : io << S_READMSG_MARKED << '\n';
                 searchmethod = READMSG_MARKED;
                 break;
       }

     if(!searchorder)
       {
        io << S_READMSG_ALL_FORWARD_OR_REVERSE;
        key=wait_language_hotkeys(K_READMSG_ALL_FORWARD_OR_REVERSE);
        if(key==1)
          {
           searchorder = -1;
           io << S_READMSG_REVERSE << '\n';
          }
         else
          {
           searchorder = +1;
           io << S_READMSG_FORWARD << '\n';
          }
       }

     if(area)
       {
        long highnum = ma.msgBase->msgNum(ma,ma.msgBase->highMsg(ma));
        long lownum  = ma.msgBase->msgNum(ma,ma.msgBase->lowMsg(ma));

        if(searchorder<0) firstmsg = highnum;
                 else     firstmsg = lownum;

        if(searchmethod != READMSG_MARKED && searchmethod != READMSG_INDIV)
          {
           io << '\n' << S_READMSG_START_AT_MESSAGE;
           io.read(firstmsg);

           if(firstmsg > highnum && searchorder < 0) firstmsg = highnum;
           if(firstmsg < lownum  && searchorder > 0) firstmsg = lownum;

           firstmsg = ma.msgBase->msgId(ma,firstmsg);

           io << '\n';
          }
       }
    } // No "/N" parameter

  if(searchmethod == READMSG_NEW)
    {
     marked.clear();

     io << '\n' << S_READMSG_SEARCHING_NEW_MESSAGES;

     get_new_msgs(marked,area);

     if(!marked.numMarked())
       {
        io << "\n\n" << S_READMSG_NO_NEW_MESSAGES_FOUND <<
              "\n\n" << S_PRESS_ENTER_TO_CONTINUE;

        return;
       }

     io << S_READMSG_X_NEW_MESSAGES_FOUND(form("%d",marked.numMarked())) << '\n';

     searchmethod = READMSG_MARKED;
    }

  if(searchmethod != READMSG_MARKED)
    {
     if(!msg.readFirst(searchmethod,searchorder,firstmsg,searchdata))
       {
        io << '\n' << S_READMSG_NO_MESSAGES_FOUND
           << "\n\n" << S_PRESS_ENTER_TO_CONTINUE;
        return;
       }

     nonext = TRUE;
    }

 int markedmsg_index = 0;

 for(;;)
   {
   if(searchmethod == READMSG_MARKED)
     {
      if(markedmsg_index >= marked.numMarked()) break;

      MessageIndex mi = marked[markedmsg_index++];

      if(area) if(mi.area != area) continue;

      if(!msg.read(mi.num,mi.area)) continue;
     }

   if(searchmethod!=READMSG_MARKED && !nonext)
           if(!msg.readNext(searchmethod,searchorder,searchdata)) break;

   nonext = FALSE;

   ma = *msg.msgArea;

   if(!msg.readAccess()) continue;


     String hotkeys("MNS\r");
     io << "\n\n" << S_SCAN_MESSAGES_SHOWMSG(form("%ld",msg.num),ma.name,msg.from,msg.to,msg.subj) << "\n\n";

//     if(    ma.sysopAccess()
//        || (   ma.msgKind!=MSG_ECHO
//            && (   !strcmpl(msg.from,user.name)
//                || !strcmpl(msg.to,user.name)
//               )
//           )
//        || (   ma.msgKind == MSG_ECHO
//            && msg.attr & MSGATTR_UNSENT_ECHO
//            && !strcmpl(msg.from,user.name)
//           )
//       )
//         {
//         io << "\6[\3D\6]elete  ";
//         hotkeys << 'D';
//         }

     io << S_SCAN_MESSAGES_PROMPT;

     char k = wait_language_hotkeys(K_SCAN_MESSAGES_PROMPT);
     if(k==2) break;
     switch(k)
       {
       case '\r':
       case 1:  io << K_SCAN_MESSAGES_PROMPT[1];  break;
       case 0:  {
                  io << S_MESSAGE_MARKED;
                  markedmsglist.add(msg);
                  LOG(2,"Msg #%ld marked",msg.num);
                 } break;
//       case 'D': {
//                  io << "\7Deleted";
//                  //msg.remove();
//                  LOG(2,"Msg #%ld deleted",msg.num);
//                 } break;
       }
   }

   io << "\n\n" << S_END_OF_MESSAGES
      << "\n\n" << S_PRESS_ENTER_TO_CONTINUE;
}