/**************************************************************************** * NCSA Mosaic for the X Window System * * Software Development Group * * National Center for Supercomputing Applications * * University of Illinois at Urbana-Champaign * * 605 E. Springfield, Champaign IL 61820 * * mosaic@ncsa.uiuc.edu * * * * Copyright (C) 1993, Board of Trustees of the University of Illinois * * * * NCSA Mosaic software, both binary and source (hereafter, Software) is * * copyrighted by The Board of Trustees of the University of Illinois * * (UI), and ownership remains with the UI. * * * * The UI grants you (hereafter, Licensee) a license to use the Software * * for academic, research and internal business purposes only, without a * * fee. Licensee may distribute the binary and source code (if released) * * to third parties provided that the copyright notice and this statement * * appears on all copies and that no charge is associated with such * * copies. * * * * Licensee may make derivative works. However, if Licensee distributes * * any derivative work based on or derived from the Software, then * * Licensee will (1) notify NCSA regarding its distribution of the * * derivative work, and (2) clearly notify users that such derivative * * work is a modified version and not the original NCSA Mosaic * * distributed by the UI. * * * * Any Licensee wishing to make commercial use of the Software should * * contact the UI, c/o NCSA, to negotiate an appropriate license for such * * commercial use. Commercial use includes (1) integration of all or * * part of the source code into a product for sale or license by or on * * behalf of Licensee to third parties, or (2) distribution of the binary * * code or source code to third parties that need it to utilize a * * commercial product sold or licensed by or on behalf of Licensee. * * * * UI MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THIS SOFTWARE FOR * * ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED * * WARRANTY. THE UI SHALL NOT BE LIABLE FOR ANY DAMAGES SUFFERED BY THE * * USERS OF THIS SOFTWARE. * * * * By using or copying this Software, Licensee agrees to abide by the * * copyright law and all other applicable laws of the U.S. including, but * * not limited to, export control laws, and the terms of this license. * * UI shall have the right to terminate this license immediately by * * written notice upon Licensee's breach of, or non-compliance with, any * * of its terms. Licensee may be held legally responsible for any * * copyright infringement that is caused or encouraged by Licensee's * * failure to abide by the terms of this license. * * * * Comments and questions are welcome and can be sent to * * mosaic-x@ncsa.uiuc.edu. * ****************************************************************************/ #include "mosaic.h" #include #include #include #include #include #include #include #include #include "libhtmlw/HTML.h" /*swp -- header*/ extern int HTML_Print_Header; extern int HTML_Print_Header_Top; extern int HTML_Print_Header_Left; /*swp -- for ~ expansion*/ #include extern int sys_nerr; #if !defined(__FreeBSD__) && !defined(__NetBSD__) extern char *sys_errlist[]; #endif extern int errno; #define __MAX_HOME_LEN__ 256 int pathEval(char *dest, char *src); extern Widget tolevel; extern mo_window *current_win; typedef enum { mo_plaintext = 0, mo_formatted_text, mo_html, mo_latex, mo_postscript, mo_mif } mo_format_token; static XmxOptionMenuStruct format_opts[] = { { "Plain Text", mo_plaintext, XmxSet }, { "Formatted Text", mo_formatted_text, XmxNotSet }, { "PostScript", mo_postscript, XmxNotSet }, { "HTML", mo_html, XmxNotSet }, { NULL }, }; static XmxCallback (save_print_header_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); return; } static XmxCallback (mail_print_header_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); return; } static XmxCallback (print_print_header_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); return; } /* ------------------------------------------------------------------------ */ /* ----------------------------- SAVE WINDOW ------------------------------ */ /* ------------------------------------------------------------------------ */ /* ------------------------- mo_post_save_window -------------------------- */ static XmxCallback (save_win_cb) { char *fname = (char *)malloc (sizeof (char) * 128); char *efname = (char *)malloc (sizeof (char) * (__MAX_HOME_LEN__ * 2)); FILE *fp; mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); mo_busy (); XtUnmanageChild (win->save_win); XmStringGetLtoR (((XmFileSelectionBoxCallbackStruct *)call_data)->value, XmSTRING_DEFAULT_CHARSET, &fname); if (pathEval(efname, fname)<0) { #ifdef DEBUG printf("Error in evaluating the path. (gui-dialogs.c)\n"); #endif } fp = fopen (efname, "w"); if (!fp) { char *buf, *final, tmpbuf[80]; int final_len; buf=my_strerror(errno); if (!buf || !*buf || !strcmp(buf,"Error 0")) { sprintf(tmpbuf,"Unknown Error"); buf=tmpbuf; } final_len=30+((!efname || !*efname?3:strlen(efname))+13)+15+(strlen(buf)+3); final=(char *)calloc(final_len,sizeof(char)); strcpy(final,"\nUnable to save document:\n"); sprintf(final+strlen(final)," %s\n",(!efname || !*efname?" ":efname)); sprintf(final+strlen(final),"\nSave Error:\n"); sprintf(final+strlen(final)," %s\n",buf); XmxMakeErrorDialog (win->save_win, final, "Save Error"); XtManageChild (Xmx_w); if (final) { free(final); final=NULL; } } else { HTML_Print_Header=XmToggleButtonGetState(win->print_header_toggle_save); HTML_Print_Header_Top=1; HTML_Print_Header_Left=Rdata.print_header_left; if (win->save_format == mo_plaintext) { char *text = HTMLGetText (win->scrolled_win, 0, win->current_node->url); if (text) { fputs (text, fp); free (text); } } else if (win->save_format == mo_formatted_text) { char *text = HTMLGetText (win->scrolled_win, 1, win->current_node->url); if (text) { fputs (text, fp); free (text); } } else if (win->save_format == mo_postscript) { char *text = HTMLGetText (win->scrolled_win, 2 + win->font_family, win->current_node->url); if (text) { fputs (text, fp); free (text); } } else if (win->current_node && win->current_node->text) { /* HTML source */ fputs (win->current_node->text, fp); } fclose (fp); } mo_not_busy (); free (fname); free (efname); return; } void format_sensitive(mo_window *win, int format) { Arg args[2]; int n; if (format==mo_plaintext) { /*PLAIN*/ XmxSetToggleButton(win->print_header_toggle_save,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_save,args,n); } else if (format==mo_formatted_text) { /*FORMATTED*/ XmxSetToggleButton(win->print_header_toggle_save,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_save,args,n); } else if (format==mo_postscript) { /*POSTSCRIPT*/ XmxSetToggleButton(win->print_header_toggle_save,Rdata.print_header); n=0; XtSetArg(args[n],XmNsensitive,TRUE); n++; XtSetValues(win->print_header_toggle_save,args,n); } /* else if (win->current_node && win->current_node->text) { /*HTML*/ else if (format==mo_html) { /*HTML*/ XmxSetToggleButton(win->print_header_toggle_save,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_save,args,n); } else { /*Boom...Bam...Error...*/ #ifdef DEBUG printf("ERROR! Format callback has no format!\n"); #endif XmxSetToggleButton(win->print_header_toggle_save,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_save,args,n); } return; } static XmxCallback (format_optmenu_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); win->save_format = XmxExtractToken ((int)client_data); format_sensitive(win,win->save_format); return; } mo_status mo_post_save_window (mo_window *win) { XmxSetUniqid (win->id); if (!win->save_win) { Widget frame, workarea, format_label; #if !defined(IXIMOTIF1_2) && defined(MOTIF_I18N) XmxSetArg (XmNwidth, 400); #endif /* !IXIMOTIF1_2 && MOTIF_I18N */ win->save_win = XmxMakeFileSBDialog (win->base, "NCSA Mosaic: Save Document", "Name for saved document:", save_win_cb, 0); /* This makes a frame as a work area for the dialog box. */ XmxSetArg (XmNmarginWidth, 5); XmxSetArg (XmNmarginHeight, 5); frame = XmxMakeFrame (win->save_win, XmxShadowEtchedIn); workarea = XmxMakeForm (frame); /*swp*/ win->print_header_toggle_save=XmxMakeToggleButton(workarea, "Include URL/Page Number",save_print_header_cb,0); XmxSetToggleButton(win->print_header_toggle_save,Rdata.print_header); format_label = XmxMakeLabel (workarea, "Format for saved document:"); /* XmxSetArg (XmNwidth, 210); */ win->format_optmenu = XmxRMakeOptionMenu (workarea, "", format_optmenu_cb, format_opts); XmxSetArg(XmNtopOffset,7); XmxSetConstraints (format_label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetConstraints (win->format_optmenu->base, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, format_label, NULL); /*swp*/ XmxSetArg(XmNtopOffset, 15); XmxSetConstraints (win->print_header_toggle_save, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, format_label,NULL,NULL,NULL); format_sensitive(win,mo_plaintext); } else { XmFileSelectionDoSearch (win->save_win, NULL); } XmxManageRemanage (win->save_win); return mo_succeed; } /* ------------------------------------------------------------------------ */ /* -------------------------- SAVEBINARY WINDOW --------------------------- */ /* ------------------------------------------------------------------------ */ /* This is used by libwww/HTFormat.c to present a user interface for retrieving files in binary transfer mode. Obviously a redesign of the interface between the GUI and the commo library really needs to happen -- hopefully libwww2 will make this easy. HA!!! */ /* Thanks to Martha Weinberg (lyonsm@hpwcsvp.mayfield.hp.com) for idea and code starting point. */ static char *temp_binary_fnam; static XmxCallback (savebinary_cancel_cb) { /* char *cmd;*/ mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); /* geez this is embarassing....who put this code in here? cmd = (char *)malloc ((strlen (temp_binary_fnam) + 32)); sprintf (cmd, "/bin/rm -f %s &", temp_binary_fnam); if ((system (cmd)) != 0) */ if (unlink(temp_binary_fnam)<0) { char *buf, *final, tmpbuf[80]; int final_len; buf=my_strerror(errno); if (!buf || !*buf || !strcmp(buf,"Error 0")) { sprintf(tmpbuf,"Unknown Error"); buf=tmpbuf; } final_len=30+((!temp_binary_fnam || !*temp_binary_fnam?3:strlen(temp_binary_fnam))+13)+15+(strlen(buf)+13); final=(char *)calloc(final_len,sizeof(char)); strcpy(final,"\nUnable to Remove Local File:\n"); sprintf(final+strlen(final)," %s\n",(!temp_binary_fnam || !*temp_binary_fnam?" ":temp_binary_fnam)); sprintf(final+strlen(final),"\nRemove Error:\n"); sprintf(final+strlen(final)," %s\n",buf); XmxMakeErrorDialog (win->base, final, "Remove Error"); XtManageChild (Xmx_w); if (final) { free(final); final=NULL; } } /* This was dup'd down below... */ free (temp_binary_fnam); /* free (cmd); */ return; } static XmxCallback (savebinary_win_cb) { char *fname = (char *)malloc (sizeof (char) * 128); char *cmd; int retValue; mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); mo_busy (); XtUnmanageChild (win->savebinary_win); XmStringGetLtoR (((XmFileSelectionBoxCallbackStruct *)call_data)->value, XmSTRING_DEFAULT_CHARSET, &fname); /* cannot be changed to rename() because rename doesn't work across partitions */ cmd = (char *)malloc ((strlen (temp_binary_fnam) + strlen (fname) + 16)); sprintf (cmd, "/bin/mv %s %s", temp_binary_fnam, fname); retValue = system(cmd); retValue = (retValue & 0x0000FF00) >> 8; #if !defined(sun) && !defined(ultrix) if (retValue != 0) { char *buf, *final, tmpbuf[80]; int final_len; buf=my_strerror(errno); if (!buf || !*buf || !strcmp(buf,"Error 0")) { sprintf(tmpbuf,"Unknown Error"); buf=tmpbuf; } final_len=30+((!temp_binary_fnam || !*temp_binary_fnam?3:strlen(temp_binary_fnam))+13)+((!fname || !*fname?3:strlen(fname))+13)+15+(strlen(buf)+13); final=(char *)calloc(final_len,sizeof(char)); strcpy(final,"\nUnable to Save Local File:\n"); sprintf(final+strlen(final)," From: %s\n",(!temp_binary_fnam || !*temp_binary_fnam?" ":temp_binary_fnam)); sprintf(final+strlen(final)," To: %s\n",(!fname || !*fname?" ":fname)); sprintf(final+strlen(final),"\nSave Error:\n"); sprintf(final+strlen(final)," %s\n",buf); XmxMakeErrorDialog (win->base, final, "Save Error"); XtManageChild (Xmx_w); if (final) { free(final); final=NULL; } } #endif /* This was dup'd down below... */ free (temp_binary_fnam); free (cmd); free (fname); mo_not_busy (); return; } static mo_status mo_post_savebinary_window (mo_window *win) { XmxSetUniqid (win->id); if (!win->savebinary_win) { XmxSetArg (XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL); win->savebinary_win = XmxMakeFileSBDialog (win->base, "NCSA Mosaic: Save Binary File To Local Disk", "Name for binary file on local disk:", savebinary_win_cb, 0); XmxAddCallback (win->savebinary_win, XmNcancelCallback, savebinary_cancel_cb, 0); } else { XmFileSelectionDoSearch (win->savebinary_win, NULL); } XmxManageRemanage (win->savebinary_win); return mo_succeed; } void rename_binary_file (char *fnam) { mo_window *win = current_win; temp_binary_fnam = strdup (fnam); mo_post_savebinary_window (win); } /* ---------------------- mo_post_open_local_window ----------------------- */ static XmxCallback (open_local_win_cb) { char *fname = NULL; char *url; mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); XtUnmanageChild (win->open_local_win); XmStringGetLtoR (((XmFileSelectionBoxCallbackStruct *)call_data)->value, XmSTRING_DEFAULT_CHARSET, &fname); url = mo_url_canonicalize_local (fname); if (url[strlen(url)-1] == '/') url[strlen(url)-1] = '\0'; mo_load_window_text (win, url, NULL); free (fname); return; } mo_status mo_post_open_local_window (mo_window *win) { XmxSetUniqid (win->id); if (!win->open_local_win) { /* Widget frame, workarea, format_label;*/ win->open_local_win = XmxMakeFileSBDialog (win->base, "NCSA Mosaic: Open Local Document", "Name of local document to open:", open_local_win_cb, 0); } else { XmFileSelectionDoSearch (win->open_local_win, NULL); } XmxManageRemanage (win->open_local_win); return mo_succeed; } /* ----------------------- mo_post_open_window ------------------------ */ static XmxCallback (open_win_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); char *url; switch (XmxExtractToken ((int)client_data)) { case 0: XtUnmanageChild (win->open_win); url = XmxTextGetString (win->open_text); if (!url || (!strlen(url))) { /* nothing here so do nothing */ return; } mo_convert_newlines_to_spaces (url); if (!strstr (url, ":")) { char *freeme = url; url = mo_url_canonicalize_local (url); free (freeme); } /* if URL is enclosed inside then extract it */ if ( strstr(url, "<") ) url = strtok(url, "<>"); mo_load_window_text (win, url, NULL); /* The following free breaks things under the following conditions: Start Mosaic with home page something that can't be fetched. Interrupt, hit 'open', enter a URL, fetch document. Follow relative link. */ /* free (url); */ break; case 1: XtUnmanageChild (win->open_win); /* Do nothing. */ break; case 2: mo_open_another_window (win, mo_assemble_help_url ("docview-menubar-file.html"), NULL, NULL); break; case 3: XmxTextSetString (win->open_text, ""); break; } return; } mo_status mo_post_open_window (mo_window *win) { if (!win->open_win) { Widget dialog_frame; Widget dialog_sep, buttons_form; Widget open_form, label; /* Create it for the first time. */ XmxSetUniqid (win->id); win->open_win = XmxMakeFormDialog (win->base, "NCSA Mosaic: Open Document"); dialog_frame = XmxMakeFrame (win->open_win, XmxShadowOut); /* Constraints for base. */ XmxSetConstraints (dialog_frame, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); /* Main form. */ open_form = XmxMakeForm (dialog_frame); label = XmxMakeLabel (open_form, "URL To Open: "); XmxSetArg (XmNwidth, 310); win->open_text = XmxMakeTextField (open_form); XmxAddCallbackToText (win->open_text, open_win_cb, 0); dialog_sep = XmxMakeHorizontalSeparator (open_form); buttons_form = XmxMakeFormAndFourButtons (open_form, open_win_cb, "Open", "Clear", "Dismiss", "Help...", 0, 3, 1, 2); /* Constraints for open_form. */ XmxSetOffsets (label, 14, 0, 10, 0); XmxSetConstraints (label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetOffsets (win->open_text, 10, 0, 5, 10); XmxSetConstraints (win->open_text, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, label, NULL); XmxSetArg (XmNtopOffset, 10); XmxSetConstraints (dialog_sep, XmATTACH_WIDGET, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, win->open_text, buttons_form, NULL, NULL); XmxSetConstraints (buttons_form, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } XmxManageRemanage (win->open_win); return mo_succeed; } #ifdef HAVE_DTM /* ---------------------- mo_send_document_over_dtm ----------------------- */ mo_status mo_send_document_over_dtm (mo_window *win) { /* Always pass across pretty-formatted text for the moment. */ char *text; if (!win->current_node) return mo_fail; text = HTMLGetText (win->scrolled_win, 1, win->current_node->url); mo_dtm_send_text (win, win->current_node->title, text); free (text); return mo_succeed; } /* ----------------------- mo_post_dtmout_window ------------------------ */ static XmxCallback (dtmout_win_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); char *port; switch (XmxExtractToken ((int)client_data)) { case 0: XtUnmanageChild (win->dtmout_win); mo_busy (); port = XmxTextGetString (win->dtmout_text); if (port && *port) { mo_dtm_out (port); /* Now we can't open another outport, but we can send documents... */ { mo_window *w = NULL; while (w = mo_next_window (w)) { mo_set_dtm_menubar_functions (w); } } } mo_not_busy (); break; case 1: XtUnmanageChild (win->dtmout_win); /* Do nothing. */ break; case 2: mo_open_another_window (win, mo_assemble_help_url ("docview-menubar-file.html"), NULL, NULL); break; } return; } mo_status mo_post_dtmout_window (mo_window *win) { if (!win->dtmout_win) { Widget dialog_frame; Widget dialog_sep, buttons_form; Widget dtmout_form, label; /* Create it for the first time. */ XmxSetUniqid (win->id); win->dtmout_win = XmxMakeFormDialog (win->base, "NCSA Mosaic: Open DTM Outport"); dialog_frame = XmxMakeFrame (win->dtmout_win, XmxShadowOut); /* Constraints for base. */ XmxSetConstraints (dialog_frame, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); /* Main form. */ dtmout_form = XmxMakeForm (dialog_frame); label = XmxMakeLabel (dtmout_form, "DTM Output Port: "); XmxSetArg (XmNwidth, 240); win->dtmout_text = XmxMakeTextField (dtmout_form); XmxAddCallbackToText (win->dtmout_text, dtmout_win_cb, 0); dialog_sep = XmxMakeHorizontalSeparator (dtmout_form); buttons_form = XmxMakeFormAndThreeButtons (dtmout_form, dtmout_win_cb, "Open", "Dismiss", "Help...", 0, 1, 2); /* Constraints for dtmout_form. */ XmxSetOffsets (label, 14, 0, 10, 0); XmxSetConstraints (label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetOffsets (win->dtmout_text, 10, 0, 5, 10); XmxSetConstraints (win->dtmout_text, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, label, NULL); XmxSetArg (XmNtopOffset, 10); XmxSetConstraints (dialog_sep, XmATTACH_WIDGET, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, win->dtmout_text, buttons_form, NULL, NULL); XmxSetConstraints (buttons_form, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } XmxManageRemanage (win->dtmout_win); return mo_succeed; } #endif /* HAVE_DTM */ /* ------------------------- mo_post_mail_window -------------------------- */ static XmxCallback (mail_win_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); char *to, *subj, *text = '\0', *content_type = '\0'; int free_text = 0; switch (XmxExtractToken ((int)client_data)) { case 0: XtUnmanageChild (win->mail_win); mo_busy (); HTML_Print_Header=XmToggleButtonGetState(win->print_header_toggle_mail); HTML_Print_Header_Top=1; HTML_Print_Header_Left=Rdata.print_header_left; to = XmxTextGetString (win->mail_to_text); if (!to) return; if (to[0] == '\0') return; subj = XmxTextGetString (win->mail_subj_text); if (!subj) subj = strdup ("\0"); if (win->mail_format == mo_plaintext) { text = HTMLGetText (win->scrolled_win, 0, win->current_node->url); content_type = "text/plain"; free_text = 1; } else if (win->mail_format == mo_formatted_text) { text = HTMLGetText (win->scrolled_win, 1, win->current_node->url); content_type = "text/plain"; free_text = 1; } else if (win->mail_format == mo_postscript) { text = HTMLGetText (win->scrolled_win, 2 + win->font_family, win->current_node->url); content_type = "application/postscript"; free_text = 1; } else if (win->current_node && win->current_node->text) { /* HTML source. */ text = win->current_node->text; content_type = "text/x-html"; free_text = 0; } if (text) mo_send_mail_message (text, to, subj, content_type, win->current_node ? win->current_node->url : NULL); if (free_text && text) free (text); free (to); free (subj); mo_not_busy (); break; case 1: XtUnmanageChild (win->mail_win); /* Do nothing. */ break; case 2: mo_open_another_window (win, mo_assemble_help_url ("docview-menubar-file.html"), NULL, NULL); break; } return; } void mail_sensitive(mo_window *win, int format) { Arg args[2]; int n; if (format==mo_plaintext) { /*PLAIN*/ XmxSetToggleButton(win->print_header_toggle_mail,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_mail,args,n); } else if (format==mo_formatted_text) { /*FORMATTED*/ XmxSetToggleButton(win->print_header_toggle_mail,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_mail,args,n); } else if (format==mo_postscript) { /*POSTSCRIPT*/ XmxSetToggleButton(win->print_header_toggle_mail,Rdata.print_header); n=0; XtSetArg(args[n],XmNsensitive,TRUE); n++; XtSetValues(win->print_header_toggle_mail,args,n); } /* else if (win->current_node && win->current_node->text) { /*HTML*/ else if (format==mo_html) { /*HTML*/ XmxSetToggleButton(win->print_header_toggle_mail,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_mail,args,n); } else { /*Boom...Bam...Error...*/ #ifdef DEBUG printf("ERROR! Format callback has no format!\n"); #endif XmxSetToggleButton(win->print_header_toggle_mail,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_mail,args,n); } return; } static XmxCallback (mail_fmtmenu_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); win->mail_format = XmxExtractToken ((int)client_data); mail_sensitive(win,win->mail_format); return; } mo_status mo_post_mail_window (mo_window *win) { if (!win->mail_win) { Widget dialog_frame; Widget dialog_sep, buttons_form; Widget mail_form, to_label, subj_label; Widget frame, workarea, format_label; /* Create it for the first time. */ XmxSetUniqid (win->id); win->mail_win = XmxMakeFormDialog (win->base, "NCSA Mosaic: Mail Document"); dialog_frame = XmxMakeFrame (win->mail_win, XmxShadowOut); /* Constraints for base. */ XmxSetConstraints (dialog_frame, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); /* Main form. */ mail_form = XmxMakeForm (dialog_frame); to_label = XmxMakeLabel (mail_form, "Mail To: "); XmxSetArg (XmNwidth, 335); win->mail_to_text = XmxMakeTextField (mail_form); subj_label = XmxMakeLabel (mail_form, "Subject: "); win->mail_subj_text = XmxMakeTextField (mail_form); { XmxSetArg (XmNmarginWidth, 5); XmxSetArg (XmNmarginHeight, 5); frame = XmxMakeFrame (mail_form, XmxShadowEtchedIn); workarea = XmxMakeForm (frame); /*swp*/ win->print_header_toggle_mail=XmxMakeToggleButton(workarea, "Include URL/Page Number",mail_print_header_cb,0); XmxSetToggleButton(win->print_header_toggle_mail,Rdata.print_header); format_label = XmxMakeLabel (workarea, "Format for mailed document:"); win->mail_fmtmenu = XmxRMakeOptionMenu (workarea, "", mail_fmtmenu_cb, format_opts); XmxSetArg(XmNtopOffset,7); XmxSetConstraints (format_label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetConstraints (win->mail_fmtmenu->base, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, format_label, NULL); /*swp*/ XmxSetArg(XmNtopOffset, 15); XmxSetConstraints (win->print_header_toggle_mail, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, format_label,NULL,NULL,NULL); mail_sensitive(win,mo_plaintext); } dialog_sep = XmxMakeHorizontalSeparator (mail_form); buttons_form = XmxMakeFormAndThreeButtons (mail_form, mail_win_cb, "Mail", "Dismiss", "Help...", 0, 1, 2); /* Constraints for mail_form. */ XmxSetOffsets (to_label, 14, 0, 10, 0); XmxSetConstraints (to_label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetOffsets (win->mail_to_text, 10, 0, 5, 10); XmxSetConstraints (win->mail_to_text, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, to_label, NULL); XmxSetOffsets (subj_label, 14, 0, 10, 0); XmxSetConstraints (subj_label, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, win->mail_to_text, NULL, NULL, NULL); XmxSetOffsets (win->mail_subj_text, 10, 0, 5, 10); XmxSetConstraints (win->mail_subj_text, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, win->mail_to_text, NULL, subj_label, NULL); XmxSetOffsets (frame, 10, 0, 10, 10); XmxSetConstraints (frame, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, win->mail_subj_text, NULL, NULL, NULL); XmxSetArg (XmNtopOffset, 10); XmxSetConstraints (dialog_sep, XmATTACH_WIDGET, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, frame, buttons_form, NULL, NULL); XmxSetConstraints (buttons_form, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } XmxManageRemanage (win->mail_win); return mo_succeed; } /* ----------------------- mo_post_print_window ------------------------ */ static XmxCallback (print_win_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); char *lpr, *fnam, *cmd; FILE *fp; int retValue; switch (XmxExtractToken ((int)client_data)) { case 0: XtUnmanageChild (win->print_win); mo_busy (); lpr = XmxTextGetString (win->print_text); if (!lpr) return; if (lpr[0] == '\0') return; fnam = mo_tmpnam(); HTML_Print_Header=XmToggleButtonGetState(win->print_header_toggle_print); HTML_Print_Header_Top=1; HTML_Print_Header_Left=Rdata.print_header_left; fp = fopen (fnam, "w"); if (!fp) goto oops; if (win->print_format == mo_plaintext) { char *text = HTMLGetText (win->scrolled_win, 0, win->current_node->url); if (text) { fputs (text, fp); free (text); } } else if (win->print_format == mo_formatted_text) { char *text = HTMLGetText (win->scrolled_win, 1, win->current_node->url); if (text) { fputs (text, fp); free (text); } } else if (win->print_format == mo_postscript) { char *text = HTMLGetText (win->scrolled_win, 2 + win->font_family, win->current_node->url); if (text) { fputs (text, fp); free (text); } } else if (win->current_node && win->current_node->text) { /* HTML source */ fputs (win->current_node->text, fp); } fclose (fp); cmd = (char *)malloc ((strlen (lpr) + strlen (fnam) + 24)); sprintf (cmd, "%s %s", lpr, fnam); retValue = system(cmd); retValue = (retValue & 0x0000FF00) >> 8; #if !defined(sun) && !defined(ultrix) /* we're getting bad values from system() on suns */ if (retValue != 0) { XmxMakeErrorDialog (win->base, "Unable to print document;\nplease check the value of X resource\nprintCommand.", "Print Error"); XtManageChild (Xmx_w); } #endif free (cmd); oops: free (lpr); /* cmd = (char *)malloc ((strlen (fnam) + 32) * sizeof (char)); sprintf (cmd, "/bin/rm -f %s &", fnam); system (cmd); */ unlink(fnam); free (fnam); /* free (cmd);*/ /*swp*/ mo_not_busy (); break; case 1: XtUnmanageChild (win->print_win); /* Do nothing. */ break; case 2: mo_open_another_window (win, mo_assemble_help_url ("docview-menubar-file.html"), NULL, NULL); break; } return; } void print_sensitive(mo_window *win, int format) { Arg args[2]; int n; if (format==mo_plaintext) { /*PLAIN*/ XmxSetToggleButton(win->print_header_toggle_print,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_print,args,n); } else if (format==mo_formatted_text) { /*FORMATTED*/ XmxSetToggleButton(win->print_header_toggle_print,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_print,args,n); } else if (format==mo_postscript) { /*POSTSCRIPT*/ XmxSetToggleButton(win->print_header_toggle_print,Rdata.print_header); n=0; XtSetArg(args[n],XmNsensitive,TRUE); n++; XtSetValues(win->print_header_toggle_print,args,n); } /* else if (win->current_node && win->current_node->text) { /*HTML*/ else if (format==mo_html) { /*HTML*/ XmxSetToggleButton(win->print_header_toggle_print,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_print,args,n); } else { /*Boom...Bam...Error...*/ #ifdef DEBUG printf("ERROR! Format callback has no format!\n"); #endif XmxSetToggleButton(win->print_header_toggle_print,XmxNotSet); n=0; XtSetArg(args[n],XmNsensitive,FALSE); n++; XtSetValues(win->print_header_toggle_print,args,n); } return; } static XmxCallback (print_fmtmenu_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); win->print_format = XmxExtractToken ((int)client_data); print_sensitive(win,win->print_format); return; } mo_status mo_post_print_window (mo_window *win) { if (!win->print_win) { Widget dialog_frame; Widget dialog_sep, buttons_form; Widget print_form, print_label; Widget frame, workarea, format_label; /* Create it for the first time. */ XmxSetUniqid (win->id); win->print_win = XmxMakeFormDialog (win->base, "NCSA Mosaic: Print Document"); dialog_frame = XmxMakeFrame (win->print_win, XmxShadowOut); /* Constraints for base. */ XmxSetConstraints (dialog_frame, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); /* Main form. */ print_form = XmxMakeForm (dialog_frame); print_label = XmxMakeLabel (print_form, "Print Command: "); XmxSetArg (XmNwidth, 270); win->print_text = XmxMakeTextField (print_form); XmxTextSetString (win->print_text, Rdata.print_command); { XmxSetArg (XmNmarginWidth, 5); XmxSetArg (XmNmarginHeight, 5); frame = XmxMakeFrame (print_form, XmxShadowEtchedIn); workarea = XmxMakeForm (frame); /*swp*/ win->print_header_toggle_print=XmxMakeToggleButton(workarea, "Include URL/Page Number",print_print_header_cb,0); XmxSetToggleButton(win->print_header_toggle_print,Rdata.print_header); format_label = XmxMakeLabel (workarea, "Format for printed document:"); win->print_fmtmenu = XmxRMakeOptionMenu (workarea, "", print_fmtmenu_cb, format_opts); XmxSetArg(XmNtopOffset, 7); XmxSetConstraints (format_label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetConstraints (win->print_fmtmenu->base, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_NONE, XmATTACH_FORM, NULL, NULL, NULL, NULL); /*swp*/ XmxSetArg(XmNtopOffset, 15); XmxSetConstraints (win->print_header_toggle_print, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, format_label,NULL,NULL,NULL); print_sensitive(win,mo_plaintext); } dialog_sep = XmxMakeHorizontalSeparator (print_form); buttons_form = XmxMakeFormAndThreeButtons (print_form, print_win_cb, "Print", "Dismiss", "Help...", 0, 1, 2); /* Constraints for print_form. */ XmxSetOffsets (print_label, 14, 0, 10, 0); XmxSetConstraints (print_label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetOffsets (win->print_text, 10, 0, 5, 10); XmxSetConstraints (win->print_text, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, print_label, NULL); XmxSetOffsets (frame, 10, 0, 10, 10); XmxSetConstraints (frame, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, win->print_text, NULL, NULL, NULL); XmxSetArg (XmNtopOffset, 10); XmxSetConstraints (dialog_sep, XmATTACH_WIDGET, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, frame, buttons_form, NULL, NULL); XmxSetConstraints (buttons_form, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } XmxManageRemanage (win->print_win); return mo_succeed; } /* ----------------------- mo_post_source_window ------------------------ */ static XmxCallback (source_win_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); switch (XmxExtractToken ((int)client_data)) { case 0: XtUnmanageChild (win->source_win); break; case 1: mo_open_another_window (win, mo_assemble_help_url ("docview-menubar-file.html"), NULL, NULL); break; } return; } mo_status mo_post_source_window (mo_window *win) { if (!win->source_win) { Widget dialog_frame; Widget dialog_sep, buttons_form; Widget source_form, label; /* Create it for the first time. */ XmxSetUniqid (win->id); win->source_win = XmxMakeFormDialog (win->base, "NCSA Mosaic: Document Source"); dialog_frame = XmxMakeFrame (win->source_win, XmxShadowOut); /* Constraints for base. */ XmxSetConstraints (dialog_frame, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); /* Main form. */ source_form = XmxMakeForm (dialog_frame); label = XmxMakeLabel (source_form, "Uniform Resource Locator: "); XmxSetArg (XmNcursorPositionVisible, False); XmxSetArg (XmNeditable, False); win->source_url_text = XmxMakeText (source_form); /* Info window: text widget, not editable. */ XmxSetArg (XmNscrolledWindowMarginWidth, 10); XmxSetArg (XmNscrolledWindowMarginHeight, 10); XmxSetArg (XmNcursorPositionVisible, False); XmxSetArg (XmNeditable, False); XmxSetArg (XmNeditMode, XmMULTI_LINE_EDIT); XmxSetArg (XmNrows, 15); #ifdef L10N #ifdef MOTIF_I18N if (Rdata.half_sized_textfield) XmxSetArg (XmNcolumns, 40); else #endif /* MOTIF_I18N */ #endif /* L10N */ XmxSetArg (XmNcolumns, 80); #ifdef L10N #if defined(IXIMOTIF1_2) || !defined(MOTIF_I18N) XmxSetArg (XmNfontList, (XtArgVal)win->font_list); #endif /* IXIMOTIF1_2 || !MOTIF_I18N */ #endif /* L10N */ win->source_text = XmxMakeScrolledText (source_form); dialog_sep = XmxMakeHorizontalSeparator (source_form); buttons_form = XmxMakeFormAndTwoButtonsSqueezed (source_form, source_win_cb, "Dismiss", "Help...", 0, 1); /* Constraints for source_form. */ XmxSetOffsets (label, 13, 0, 10, 0); XmxSetConstraints (label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetOffsets (win->source_url_text, 10, 0, 5, 10); XmxSetConstraints (win->source_url_text, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, label, NULL); XmxSetConstraints (XtParent (win->source_text), XmATTACH_WIDGET, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, win->source_url_text, dialog_sep, NULL, NULL); XmxSetArg (XmNtopOffset, 10); XmxSetConstraints (dialog_sep, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, NULL, buttons_form, NULL, NULL); XmxSetConstraints (buttons_form, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } XmxManageRemanage (win->source_win); if (win->current_node) { XmxTextSetString (win->source_text, win->current_node->text); XmxTextSetString (win->source_url_text, win->current_node->url); } return mo_succeed; } /* ----------------------- mo_post_search_window ------------------------ */ static XmxCallback (search_win_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); switch (XmxExtractToken ((int)client_data)) { case 0: /* search */ { char *str = XmxTextGetString (win->search_win_text); if (str && *str) { int backward = XmToggleButtonGetState (win->search_backwards_toggle); int caseless = XmToggleButtonGetState (win->search_caseless_toggle); int rc; if (!backward) { /* Either win->search_start->id is 0, in which case the search should start from the beginning, or it's non-0, in which case at least one search step has already been taken. If the latter, it should be incremented so as to start the search after the last hit. Right? */ if (((ElementRef *)win->search_start)->id) { ((ElementRef *)win->search_start)->id = ((ElementRef *)win->search_end)->id; ((ElementRef *)win->search_start)->pos = ((ElementRef *)win->search_end)->pos; } } rc = HTMLSearchText (win->scrolled_win, str, (ElementRef *)win->search_start, (ElementRef *)win->search_end, backward, caseless); if (rc == -1) { /* No match was found. */ if (((ElementRef *)win->search_start)->id) XmxMakeInfoDialog (win->search_win, "Sorry, no more matches in this document.", "NCSA Mosaic: Find Result"); else XmxMakeInfoDialog (win->search_win, "Sorry, no matches in this document.", "NCSA Mosaic: Find Result"); XmxManageRemanage (Xmx_w); } else { /* Now search_start and search_end are starting and ending points of the match. */ HTMLGotoId(win->scrolled_win, ((ElementRef *)win->search_start)->id); /* Set the selection. */ HTMLSetSelection (win->scrolled_win, (ElementRef *)win->search_start, (ElementRef *)win->search_end); } /* found a target */ } /* if str && *str */ } /* case */ break; case 1: /* reset */ /* Clear out the search text. */ XmxTextSetString (win->search_win_text, ""); /* Subsequent searches start at the beginning. */ ((ElementRef *)win->search_start)->id = 0; /* Reposition document at top of screen. */ HTMLGotoId(win->scrolled_win, 0); break; case 2: /* dismiss */ XtUnmanageChild (win->search_win); break; case 3: /* help */ mo_open_another_window (win, mo_assemble_help_url ("docview-menubar-file.html"), NULL, NULL); break; } return; } mo_status mo_post_search_window (mo_window *win) { if (!win->search_win) { Widget dialog_frame; Widget dialog_sep, buttons_form; Widget search_form, label; /* Create it for the first time. */ XmxSetUniqid (win->id); win->search_win = XmxMakeFormDialog (win->base, "NCSA Mosaic: Find In Document"); dialog_frame = XmxMakeFrame (win->search_win, XmxShadowOut); /* Constraints for base. */ XmxSetConstraints (dialog_frame, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); /* Main form. */ search_form = XmxMakeForm (dialog_frame); label = XmxMakeLabel (search_form, "Find string in document: "); #ifdef L10N #ifdef MOTIF_I18N if (Rdata.half_sized_textfield) XmxSetArg (XmNcolumns, 13); else #endif /* MOTIF_I18N */ #endif /* L10N */ XmxSetArg (XmNcolumns, 25); #ifdef L10N #if defined(IXIMOTIF1_2) || !defined(MOTIF_I18N) XmxSetArg (XmNfontList, (XtArgVal)win->font_list); #endif /* IXIMOTIF1_2 || !MOTIF_I18N */ #endif /* L10N */ win->search_win_text = XmxMakeText (search_form); XmxAddCallbackToText (win->search_win_text, search_win_cb, 0); win->search_caseless_toggle = XmxMakeToggleButton (search_form, "Caseless Search", NULL, 0); #ifdef L10N XmxSetToggleButton (win->search_caseless_toggle, XmxUnset); #else /* L10N */ XmxSetToggleButton (win->search_caseless_toggle, XmxSet); #endif /* L10N */ win->search_backwards_toggle = XmxMakeToggleButton (search_form, "Backwards Search", NULL, 0); dialog_sep = XmxMakeHorizontalSeparator (search_form); buttons_form = XmxMakeFormAndFourButtons (search_form, search_win_cb, "Find", "Reset", "Dismiss", "Help...", 0, 1, 2, 3); /* Constraints for search_form. */ XmxSetOffsets (label, 13, 0, 10, 0); /* Label attaches top to form, bottom to nothing, left to form, right to nothing. */ XmxSetConstraints (label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetOffsets (win->search_win_text, 10, 0, 5, 8); /* search_win_text attaches top to form, bottom to nothing, left to label, right to form. */ XmxSetConstraints (win->search_win_text, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, label, NULL); /* search_caseless_toggle attaches top to search_win_text, bottom to nothing, left to position, right to position. */ XmxSetConstraints (win->search_caseless_toggle, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_NONE, win->search_win_text, NULL, label, NULL); XmxSetOffsets (win->search_caseless_toggle, 8, 0, 2, 0); /* search_backwards_toggle attaches top to search_caseless_toggle, bottom to nothing, left to position, right to position. */ XmxSetConstraints (win->search_backwards_toggle, XmATTACH_WIDGET, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_NONE, win->search_caseless_toggle, NULL, label, NULL); XmxSetOffsets (win->search_backwards_toggle, 8, 0, 2, 0); XmxSetOffsets (dialog_sep, 8, 0, 0, 0); /* dialog_sep attaches top to search_backwards_toggle, bottom to buttons_form, left to form, right to form */ XmxSetConstraints (dialog_sep, XmATTACH_WIDGET, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, win->search_backwards_toggle, buttons_form, NULL, NULL); XmxSetConstraints (buttons_form, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } XmxManageRemanage (win->search_win); return mo_succeed; } #ifdef L10N /* ----------------------- mo_post_accept_languages ------------------------ */ static XmxCallback (acpt_langs_win_cb) { mo_window *win = mo_fetch_window_by_id (XmxExtractUniqid ((int)client_data)); switch (XmxExtractToken ((int)client_data)) { case 0: /* Accept */ XtUnmanageChild (win->acpt_langs_win); win->accept_languages = XmxTextGetString (win->acpt_langs_text); mo_convert_newlines_to_spaces (win->accept_languages); break; case 1: /* Clear */ XmxTextSetString (win->acpt_langs_text, ""); break; case 2: /* Default */ XmxTextSetString (win->acpt_langs_text, Rdata.default_accept_languages); break; case 3: /* Dismiss */ XtUnmanageChild (win->acpt_langs_win); /* Do nothing. */ break; } return; } mo_status mo_post_accept_languages (mo_window *win) { if (!win->acpt_langs_win) { Widget dialog_frame; Widget dialog_sep, buttons_form; Widget acpt_langs_form, label; /* Create it for the first time. */ XmxSetUniqid (win->id); win->acpt_langs_win = XmxMakeFormDialog (win->base, "NCSA Mosaic: Accept Languages"); dialog_frame = XmxMakeFrame (win->acpt_langs_win, XmxShadowOut); /* Constraints for base. */ XmxSetConstraints (dialog_frame, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); /* Main form. */ acpt_langs_form = XmxMakeForm (dialog_frame); label = XmxMakeLabel (acpt_langs_form, "Accept Languages: "); XmxSetArg (XmNwidth, 310); XmxSetArg (XmNvalue, (XtArgVal)Rdata.default_accept_languages); win->acpt_langs_text = XmxMakeTextField (acpt_langs_form); XmxAddCallbackToText (win->acpt_langs_text, acpt_langs_win_cb, 0); dialog_sep = XmxMakeHorizontalSeparator (acpt_langs_form); buttons_form = XmxMakeFormAndFourButtons (acpt_langs_form, acpt_langs_win_cb, "Accept", "Clear", "Default", "Dismiss", 0, 1, 2, 3); /* Constraints for acpt_langs_form. */ XmxSetOffsets (label, 14, 0, 10, 0); XmxSetConstraints (label, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_NONE, NULL, NULL, NULL, NULL); XmxSetOffsets (win->acpt_langs_text, 10, 0, 5, 10); XmxSetConstraints (win->acpt_langs_text, XmATTACH_FORM, XmATTACH_NONE, XmATTACH_WIDGET, XmATTACH_FORM, NULL, NULL, label, NULL); XmxSetArg (XmNtopOffset, 10); XmxSetConstraints (dialog_sep, XmATTACH_WIDGET, XmATTACH_WIDGET, XmATTACH_FORM, XmATTACH_FORM, win->acpt_langs_text, buttons_form, NULL, NULL); XmxSetConstraints (buttons_form, XmATTACH_NONE, XmATTACH_FORM, XmATTACH_FORM, XmATTACH_FORM, NULL, NULL, NULL, NULL); } XtManageChild (win->acpt_langs_win); return mo_succeed; } /* Exported to libwww2. */ char *mo_get_accept_languages() { return(current_win->accept_languages); } #endif /* L10N */ /*------------------------------------------------------------*/ typedef struct { mo_window *win; char *fileName; char *url; } EditFile; void mo_done_editing(EditFile *e, int pid) { char *url; /****** Check to see if e->win still exists */ #ifdef DEBUG printf("Done Editing: pid = %d, file %s, url=%s\n", pid,e->fileName,e->url); #endif url = mo_url_canonicalize_local(e->fileName); /* url = mo_url_canonicalize_keep_anchor(e->fileName,e->url);*/ if (url[strlen(url)-1] == '/') { url[strlen(url)-1] = '\0'; } mo_load_window_text(e->win, url, e->url); /* should I stay or should I go...du du dun da dun da da */ /*unlink(e->fileName); */ free(e->fileName); free(e->url); free(e); } mo_status mo_edit_source(mo_window *win) { char *sourceFileName; FILE *fp; int length; char *editorName; char execString[1024]; char editorTitle[1024]; char editorCommand[1024]; char *execArg[20]; int argCount; int pid; EditFile *e; extern void AddChildProcessHandler(int, void (*)(), void *); if (!win->current_node) { return mo_fail; } if (!win->current_node->text) { return mo_fail; } /* get editor */ if ((Rdata.edit_command) && (strlen(Rdata.edit_command))) { editorName = Rdata.edit_command; } else { editorName = getenv("EDITOR"); if ((!editorName) || (!strlen(editorName))) { /* XmxMakeErrorDialog (win->save_win, "Unable to get EDITOR environment variable.", "Edit Source Error"); return mo_fail; */ editorName="vi"; /* default to vi */ } } /* write out source to tmp file with .html extension */ sourceFileName = malloc(255); strcpy(sourceFileName, tmpnam(NULL)); strcat(sourceFileName, ".html"); if (!(fp = fopen(sourceFileName,"w"))) { char *buf, *final, tmpbuf[80]; int final_len; buf=my_strerror(errno); if (!buf || !*buf || !strcmp(buf,"Error 0")) { sprintf(tmpbuf,"Unknown Error"); buf=tmpbuf; } final_len=30+((!sourceFileName || !*sourceFileName?3:strlen(sourceFileName))+13)+15+(strlen(buf)+3); final=(char *)calloc(final_len,sizeof(char)); strcpy(final,"\nUnable to Open Editor Temp File:\n"); sprintf(final+strlen(final)," %s\n",(!sourceFileName || !*sourceFileName?" ":sourceFileName)); sprintf(final+strlen(final),"\nOpen Error:\n"); sprintf(final+strlen(final)," %s\n",buf); XmxMakeErrorDialog (win->save_win, final, "Edit Source Error"); if (final) { free(final); final=NULL; } return mo_fail; } length = strlen(win->current_node->text); if (length != fwrite(win->current_node->text,sizeof(char),length,fp)) { fclose(fp); { char *buf, *final, tmpbuf[80]; int final_len; buf=my_strerror(errno); if (!buf || !*buf || !strcmp(buf,"Error 0")) { sprintf(tmpbuf,"Unknown Error"); buf=tmpbuf; } final_len=30+((!sourceFileName || !*sourceFileName?3:strlen(sourceFileName))+13)+15+(strlen(buf)+3); final=(char *)calloc(final_len,sizeof(char)); strcpy(final,"\nUnable to Write Editor Temp File:\n"); sprintf(final+strlen(final)," %s\n",(!sourceFileName || !*sourceFileName?" ":sourceFileName)); sprintf(final+strlen(final),"\nWrite Error:\n"); sprintf(final+strlen(final)," %s\n",buf); XmxMakeErrorDialog (win->save_win, final, "Edit Source Error"); if (final) { free(final); final=NULL; } } return mo_fail; } fclose(fp); sprintf(editorCommand,"%s %s",editorName,sourceFileName); sprintf(editorTitle,"(NCSA Mosaic) Editing Copy of: %s", win->current_node->url); argCount=0; if (Rdata.edit_command_use_xterm) { sprintf(execString,"%s -T %s -e %s", Rdata.xterm_command, editorTitle, editorCommand); execArg[argCount++] = Rdata.xterm_command; execArg[argCount++] = "-T"; execArg[argCount++] = editorTitle; execArg[argCount++] = "-e"; } else { sprintf(execString,"%s %s\n",editorName,sourceFileName); } execArg[argCount++] = editorName; /* problem if there are spaces in this edit command....will have to parse and break up */ execArg[argCount++] = sourceFileName; execArg[argCount++] = NULL; #if defined(__sgi) || (defined(SCO) && defined(NECODT)) pid = fork(); #else /* __sgi || (SCO && NECODT) */ pid = vfork(); #endif /* __sgi || (SCO && NECODT) */ if (!pid) { /* I'm the child */ execvp(execArg[0], execArg); fprintf(stderr,"Couldn't execute:\n%s\n",execString); _exit(-1); /*don't use regular exit() or mom's I/O channels will close */ } /* need to save file name and pid for later reading of source*/ if (!(e = (EditFile *) malloc(sizeof(EditFile)))) { fprintf(stderr,"Out of Memory!\n"); return mo_fail; } e->fileName = sourceFileName; e->url = strdup(win->current_node->url); e->win = win; AddChildProcessHandler(pid, mo_done_editing, e); return mo_succeed; } /*---------------------------Utility Functions-----------------------------*/ /* * DA FORMAT: * "src" is the pathname to check for ~ expansion. If a tilda is the * first character, I expand it, store it in "dest", and return a 1. * If the frist character is not a tilda, I return a 0. If "dest" does * not exist, I return a -1. * * DA RULES: * 1) If the tilda is alone, expand it. * Ex: '~' * 2) If the tilda is first, followed by an alphanumeric, * stick the "path" to the home directory in front of * it. * Ex: '~spowers' * 3) Otherwise, leave it alone. * * DA FORMULA: * 1) If there is a HOME variable, use it. * 2) If there is a password entry, use the dir from it. * 3) Else...use /tmp. * */ int pathEval(char *dest, char *src) { int i; char *sptr, *hptr, home[__MAX_HOME_LEN__]; struct passwd *pwdent; /* * There is no place to store the result...punt. */ if (!dest) { #ifdef DEBUG printf("No place to put the Evaluated Path!\n"); #endif return(-1); } /* * There's nothing to expand */ if (!src || !*src) { *dest='\0'; return(0); } if (*src!='~') { strcpy(dest,src); return(0); } /* * Once here, we are gonna need to know what the expansion is... * * Try the HOME environment variable, then the password file, and * finally give up and use /tmp. */ if (!(hptr=getenv("HOME"))) { if (!(pwdent=getpwuid(getuid()))) { strcpy(home,"/tmp"); } else { strcpy(home,pwdent->pw_dir); } } else { strcpy(home,hptr); } sptr=src; sptr++; /* * Nothing after the tilda, just give dest a value and return... */ if (!sptr || !*sptr) { strcpy(dest,home); return(1); } /* * The next character is a slash...so prepend home to the rest of * src and return. */ if (*sptr=='/') { strcpy(dest,home); strcat(dest,sptr); return(1); } /* * Make the assumption that they want whatever comes after to be * appended to the "HOME" path, sans the last directory (e.g. * HOME=/opt/home/spowers, we would use /opt/home) */ /* * Search backwards through home for a "/" on the conditions that * this is not the slash that could possibly be at the _very_ end * of home, home[i] is not a slash, and i is >= 0. * * If a slash is not found (i<0), then we assume that HOME is a * directory off of the root directory, or something strange like * that...so we simply ignore "home" and return the src without * the ~. * * If we do find a slash, we set the position of the slash + 1 to * NULL and store that in dest, then cat the rest of src onto * dest and return. */ for (i=strlen(home); (i>=0 && home[i]!='/') || i==strlen(home); i--); if (i<0) { strcpy(dest,sptr); } else { home[i+1]='\0'; strcpy(dest,home); strcat(dest,sptr); } return(1); } /*swp*/ char *my_strerror(int errornum) { if (errornum