src/utils/test_list_x11.c

   1 #define  _BSD_SOURCE
   2
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5 #include <string.h>
   6 #include <unistd.h>
   7 #include <dirent.h>
   8 #include <errno.h>
   9 #include <fcntl.h>
  10
  11 #include <sys/types.h>
  12 #include <sys/stat.h>
  13
  14 #include <X11/Intrinsic.h>
  15 #include <X11/StringDefs.h>
  16 #include <X11/Shell.h>
  17
  18 #include <X11/Xaw/Form.h>
  19 #include <X11/Xaw/Viewport.h>
  20 #include <X11/Xaw/Command.h>
  21
  22 #include <X11/Xaw/Label.h>
  23 #include <X11/Xaw/Box.h>
  24
  25 #include "md5_utils.h"
  26 #include "string_utils.h"
  27 #include "file_utils.h"
  28 #include "rfc5322.h"
  29 #include "icons_utils.h"
  30
  31 #include "iv_widget.h"
  32
  33 #include "list.h"
  34
  35 struct applet {
  36         XtAppContext    ctx;    /* Application context */
  37         Widget          shell;  /* Application shell widget */
  38         Widget          form;   /* Application top Form widget */
  39 };
  40
  41 static struct mail_list *mlist;
  42
  43 #define FROM_ADDRESS_VALID      (1 << 0)
  44 #define REPLY_TO_VALID          (1 << 1)
  45 #define SUBJECT_VALID           (1 << 2)
  46
  47 void list_add_from_file(const char *filename)
  48 {
  49         FILE *fh;
  50         int done = 0;
  51         char buf[1024]; /* 998 + CR + LF + PADDING */
  52         struct mail_entry entry;
  53
  54         /* Check if is a regular file */
  55         if (file_type(filename)) {
  56                 return;
  57         }
  58
  59         fh = fopen(filename, "r");
  60         if (!fh)
  61                 return;
  62
  63         while (fgets(buf, sizeof(buf), fh)) {
  64                 if (!strncmp(buf, "From:", 5)) {
  65                         if (!rfc5322_extract_address(entry.addr, buf, 1024)) {
  66                                 done |= FROM_ADDRESS_VALID;
  67                         }
  68                 } else if (!strncmp(buf, "Reply-to:", 9)) {
  69                         if (done & FROM_ADDRESS_VALID)
  70                                 continue;
  71
  72                         if (!rfc5322_extract_address(entry.addr, buf, 1024)) {
  73                                 done |= REPLY_TO_VALID;
  74                         }
  75                 } else if (!strncmp(buf, "Subject:", 8)) {
  76                         rfc5322_extract_subject(entry.subj, buf, 1024);
  77                         done |= SUBJECT_VALID;
  78                 } else {
  79 #if 0
  80                         printf("[SKIP] ------- %s", buf);
  81 #endif
  82                 }
  83
  84                 /* Exits loop if all fields are valid */
  85                 if (((done & FROM_ADDRESS_VALID) || (done & REPLY_TO_VALID)) &&
  86                      (done & SUBJECT_VALID)) {
  87                         break;
  88                 }
  89         }
  90         fclose(fh);
  91
  92         if (done && mlist) {
  93                 strncpy(entry.name, filename, 1024);
  94                 md5_calc_sum(entry.addr, entry.addr_md5);
  95
  96                 /* Update List */
  97                 if (list_add_entry(mlist, &entry)) {
  98                         fprintf(stderr, "%s - No free slot for %s\n", __func__, filename);
  99                 } else {
 100                         /*fprintf(stderr, "%s - File %s added to list\n", __func__, filename);*/
 101                 }
 102         }
 103 }
 104
 105
 106 /*======================================================================*/
 107 /*      X11 CODE                                                        */
 108 /*======================================================================*/
 109
 110 /* The callback function for the quit button. */
 111 void quit_callback(Widget w,
 112                    __attribute__((unused)) XtPointer client_data,
 113                    __attribute__((unused)) XtPointer call_data)
 114 {
 115         list_free(mlist);
 116
 117         XtDestroyApplicationContext(XtWidgetToApplicationContext(w));
 118
 119         exit(0);
 120 }
 121
 122 static void fix_scrollbar_translations(Widget w, String name)
 123 {
 124         Widget sb = NULL; /* scrollbar widget */
 125
 126         /* New scrollbar translation */
 127         String trans = "#override "
 128         "<Btn1Down>: StartScroll(Forward)\n"            /* Left button */
 129         "<Btn2Down>: \n"                                /* Middle button */
 130         "<Btn3Down>: StartScroll(Backward)\n"           /* Right button */
 131         "<Btn4Down>: StartScroll(Backward)\n"           /* Wheel down */
 132         "<Btn5Down>: StartScroll(Forward)\n"            /* Wheel up */
 133         "<Btn1Motion>: MoveThumb() NotifyThumb()\n"
 134         "<BtnUp>: NotifyScroll(Proportional) EndScroll()";
 135
 136         if (!name)
 137                 return;
 138
 139         sb = XtNameToWidget(w, name);
 140         if (sb)
 141                 XtOverrideTranslations(sb, XtParseTranslationTable(trans));
 142         else
 143                 printf("%s: WARNING cannon set %s translation!\n", __func__, name);
 144 }
 145
 146
 147 static int create_applet(struct applet *app, int argc, char **argv)
 148 {
 149         XtSetLanguageProc(NULL, (XtLanguageProc) NULL, NULL);
 150
 151         /* Open Xt application shell widget */
 152         app->shell = XtVaOpenApplication(&app->ctx, "Applet_X11_List_Mail", NULL, 0,
 153                                         &argc, argv, NULL,
 154                                         applicationShellWidgetClass,
 155                                         NULL);
 156
 157         /* Create top form widget */
 158         app->form = XtVaCreateManagedWidget("AppForm", formWidgetClass,
 159                                         app->shell, NULL);
 160         return 0;
 161 }
 162
 163 /* The callback function for the quit button. */
 164 void item_callback(__attribute__((unused)) Widget w,
 165                   XtPointer item_string,
 166                   __attribute__((unused)) XtPointer call_data)
 167 {
 168         fprintf(stderr, "%s\n", (char *) item_string);
 169 }
 170
 171 static int list_add_item(Widget parent, const struct mail_entry *item)
 172 {
 173         Display *d;
 174         Visual  *visual;
 175         int screen;
 176
 177         /* Depth of the root window */
 178         int depth;
 179
 180         char   *icon = NULL;
 181         XImage *pix = NULL;
 182
 183         Widget box_v;
 184         Widget box_h;
 185         Widget addr;
 186         Widget subj;
 187         Widget iv;
 188
 189         d = XtDisplay(parent);
 190
 191         screen = DefaultScreen(d);
 192         depth  = DisplayPlanes(d, screen);
 193         visual = XDefaultVisual(d, screen);
 194
 195         icon = icon_get_path((char *) item->addr_md5);
 196
 197         box_h = XtVaCreateManagedWidget("box_h", boxWidgetClass, parent,
 198                                         XtNorientation, XtorientHorizontal,
 199                                         NULL);
 200
 201         pix = create_ximage_from_PNG(d, visual, depth, icon, NULL);
 202         iv = XtVaCreateManagedWidget("IV", imageViewWidgetClass, box_h,
 203                                              XtNximage,    pix,
 204                                              XtNimageType, 0,
 205                                              NULL);
 206
 207         box_v = XtVaCreateManagedWidget("box_v", boxWidgetClass, box_h,
 208                                         XtNorientation, XtorientVertical,
 209                                         NULL);
 210
 211         addr = XtVaCreateManagedWidget("from", labelWidgetClass, box_v,
 212                                         XtNborderWidth, 0,
 213                                         XtNwidth,       400,
 214                                         XtNlabel,       item->addr,
 215                                         XtNjustify,     XtJustifyLeft,
 216                                         NULL);
 217
 218         subj = XtVaCreateManagedWidget("subj", labelWidgetClass, box_v,
 219                                         XtNborderWidth, 0,
 220                                         XtNwidth,       400,
 221                                         XtNlabel,       item->subj,
 222                                         XtNjustify,     XtJustifyLeft,
 223                                         NULL);
 224
 225         /* Set handler for mouse button press on widgets
 226          * Pass the file to the callbacks
 227          * Button1Mask
 228          * Button2Mask
 229          * Button3Mask
 230          * Button4Mask
 231          * Button5Mask
 232          * All the above ButtonPressMask
 233          */
 234         XtAddEventHandler(addr, Button1Mask, False, (XtEventHandler) item_callback, (XtPointer) item->name);
 235         XtAddEventHandler(subj, Button1Mask, False, (XtEventHandler) item_callback, (XtPointer) item->name);
 236         XtAddEventHandler(iv,   Button1Mask, False, (XtEventHandler) item_callback, (XtPointer) item->name);
 237
 238         /* Free allocated icon pathname with 'icon_get_path()' */
 239         icon_free_path(icon);
 240
 241         return 0;
 242 }
 243
 244 int xutil_main(struct mail_list *lst, int argc, char **argv)
 245 {
 246         size_t n;
 247         int rc;
 248         struct applet app;
 249
 250         Widget vport;           /* ViewPort (list container) */
 251         Widget button;
 252         Widget box;
 253
 254         rc = create_applet(&app, argc, argv);
 255
 256         vport = XtVaCreateManagedWidget("vport", viewportWidgetClass,
 257                                         app.form,
 258                                         XtNresizable,   False,
 259                                         XtNwidth,       450,
 260                                         XtNheight,      400,
 261                                         XtNallowVert,   True,   /* Display Vertical scrollbar */
 262                                         XtNallowHoriz,  True,   /* Display Horizontal scrollbar */
 263                                         XtNuseBottom,   True,   /* Horizontal scrollbar at bottom */
 264                                         XtNtop,         XtChainTop,
 265                                         NULL);
 266         if (vport == NULL)
 267                 return -1;
 268
 269         box = XtVaCreateManagedWidget("box", boxWidgetClass, vport,
 270                                         XtNorientation, XtorientVertical,
 271                                         NULL);
 272
 273         if (lst) {
 274                 for (n = 0; n < lst->n; n++) {
 275                         list_add_item(box, &lst->list[n]);
 276                 }
 277         }
 278
 279         button = XtVaCreateManagedWidget("quit", commandWidgetClass,
 280                                         app.form,
 281                                         XtNfromVert,  vport,
 282                                         XtNleft,      XtChainLeft,
 283                                         XtNright,     XtChainLeft,
 284                                         XtNtop,       XtChainBottom,
 285                                         XtNbottom,    XtChainBottom,
 286                                         XtNresizable, False,
 287                                         NULL);
 288
 289         XtAddCallback(button, XtNcallback, quit_callback, NULL);
 290
 291         XtRealizeWidget(app.shell);
 292
 293         /* Override default translations (A.k.a. bind actions to widgets) */
 294         fix_scrollbar_translations(vport, "horizontal");
 295         fix_scrollbar_translations(vport, "vertical");
 296
 297         XtAppMainLoop(app.ctx);
 298
 299         return 0;
 300 }
 301
 302 /*======================================================================*/
 303 /* END X11 CODE                                                         */
 304 /*======================================================================*/
 305
 306 int main(int argc, char **argv)
 307 {
 308         int rc;
 309         char old_path[PATH_MAX];
 310
 311         const char *path;
 312
 313         size_t n;
 314
 315         if (argc < 2) {
 316                 path  = "/home/roberto/Maildir/cur/";
 317         } else {
 318                 path = argv[1];
 319         }
 320
 321         if (!getcwd(old_path, PATH_MAX)) {
 322                 fprintf(stderr, "%s - GETCWD: %s\n", __func__, strerror(errno));
 323                 return -1;
 324         }
 325
 326         if (chdir(path) < 0) {
 327                 fprintf(stderr, "%s - CHDIR: %s\n", __func__, strerror(errno));
 328                 return -1;
 329         }
 330
 331         n = dir_entries(path);
 332         if (n < 1) {
 333                 fprintf(stderr, "%s is empty!\n", path);
 334                 rc = -1;
 335                 goto out_1;
 336         }
 337
 338         /* Init mail list */
 339         mlist = list_create(n, MESSAGE_LIMIT);
 340         if (!mlist) {
 341                 rc = -1;
 342                 goto out_1;
 343         }
 344
 345         fprintf(stderr, "Try to process %lu files\n", (unsigned long) mlist->n);
 346
 347         rc = scan_dir(path, list_add_from_file);
 348
 349         /*int*/ xutil_main(mlist, argc, argv);
 350
 351         list_free(mlist);
 352
 353 out_1:
 354         if (chdir(old_path) < 0) {
 355                 fprintf(stderr, "%s - Cannot restore path %s!\n", __func__, strerror(errno));
 356         }
 357
 358         return rc;
 359 }