/* PIKA - Photo and Image Kooker Application
* a rebranding of The GNU Image Manipulation Program (created with heckimp)
* A derived work which may be trivial. However, any changes may be (C)2023 by Aldercone Studio
*
* Original copyright, applying to most contents (license remains unchanged):
* Copyright (C) 1995 Spencer Kimball and Peter Mattis
* Copyright (C) 1997 Daniel Risacher
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see .
*/
/*
* GUMP - Pika Useless Mail Plugin
* (or Gump Useless Mail Plugin if you prefer)
*
* by Adrian Likins
* MIME encapsulation by Reagan Blundell
*
* As always: The utility of this plugin is left as an exercise for
* the reader
*
*/
#include "config.h"
#include
#ifdef SENDMAIL
#include
#include
#endif
#include
#include
#include
#include "libpika/stdplugins-intl.h"
#define BUFFER_SIZE 256
#define PLUG_IN_PROC "plug-in-mail-image"
#define PLUG_IN_BINARY "mail"
#define PLUG_IN_ROLE "pika-mail"
typedef struct _Mail Mail;
typedef struct _MailClass MailClass;
struct _Mail
{
PikaPlugIn parent_instance;
};
struct _MailClass
{
PikaPlugInClass parent_class;
};
#define MAIL_TYPE (mail_get_type ())
#define MAIL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MAIL_TYPE, Mail))
GType mail_get_type (void) G_GNUC_CONST;
static GList * mail_init_procedures (PikaPlugIn *plug_in);
static PikaProcedure * mail_create_procedure (PikaPlugIn *plug_in,
const gchar *name);
static PikaValueArray * mail_run (PikaProcedure *procedure,
PikaRunMode run_mode,
PikaImage *image,
gint n_drawables,
PikaDrawable **drawables,
PikaProcedureConfig *config,
gpointer run_data);
static PikaPDBStatusType send_image (GObject *config,
PikaImage *image,
gint n_drawables,
PikaDrawable **drawables,
gint32 run_mode);
static gboolean send_dialog (PikaProcedure *procedure,
GObject *config);
static gboolean valid_file (GFile *file);
static gchar * find_extension (const gchar *filename);
#ifdef SENDMAIL
static gchar * sendmail_content_type (const gchar *filename);
static void sendmail_create_headers (FILE *mailpipe,
GObject *config);
static gboolean sendmail_to64 (const gchar *filename,
FILE *outfile,
GError **error);
static FILE * sendmail_pipe (gchar **cmd,
GPid *pid);
#endif
G_DEFINE_TYPE (Mail, mail, PIKA_TYPE_PLUG_IN)
PIKA_MAIN (MAIL_TYPE)
DEFINE_STD_SET_I18N
#ifdef SENDMAIL
static gchar *mesg_body = NULL;
#endif
static void
mail_class_init (MailClass *klass)
{
PikaPlugInClass *plug_in_class = PIKA_PLUG_IN_CLASS (klass);
plug_in_class->init_procedures = mail_init_procedures;
plug_in_class->create_procedure = mail_create_procedure;
plug_in_class->set_i18n = STD_SET_I18N;
}
static void
mail_init (Mail *mail)
{
}
static GList *
mail_init_procedures (PikaPlugIn *plug_in)
{
GList *list = NULL;
gchar *email_bin;
/* Check if xdg-email or sendmail is installed.
* TODO: allow setting the location of the executable in preferences.
*/
#ifdef SENDMAIL
if (strlen (SENDMAIL) == 0)
{
email_bin = g_find_program_in_path ("sendmail");
}
else
{
/* If a directory has been set at build time, we assume that sendmail
* can only be in this directory. */
email_bin = g_build_filename (SENDMAIL, "sendmail", NULL);
if (! g_file_test (email_bin, G_FILE_TEST_IS_EXECUTABLE))
{
g_free (email_bin);
email_bin = NULL;
}
}
#else
email_bin = g_find_program_in_path ("xdg-email");
#endif
if (email_bin)
list = g_list_append (list, g_strdup (PLUG_IN_PROC));
return list;
}
static PikaProcedure *
mail_create_procedure (PikaPlugIn *plug_in,
const gchar *name)
{
PikaProcedure *procedure = NULL;
if (! strcmp (name, PLUG_IN_PROC))
{
procedure = pika_image_procedure_new (plug_in, name,
PIKA_PDB_PROC_TYPE_PLUGIN,
mail_run, NULL, NULL);
pika_procedure_set_image_types (procedure, "*");
pika_procedure_set_sensitivity_mask (procedure,
PIKA_PROCEDURE_SENSITIVE_DRAWABLE |
PIKA_PROCEDURE_SENSITIVE_DRAWABLES |
PIKA_PROCEDURE_SENSITIVE_NO_DRAWABLES);
pika_procedure_set_menu_label (procedure, _("Send by E_mail..."));
pika_procedure_set_icon_name (procedure, PIKA_ICON_EDIT);
pika_procedure_add_menu_path (procedure, "/File/[Send]");
pika_procedure_set_documentation (procedure,
_("Send the image by email"),
#ifdef SENDMAIL
_("Sendmail is used to send emails "
"and must be properly configured."),
#else /* xdg-email */
_("The preferred email composer is "
"used to send emails and must be "
"properly configured."),
#endif
name);
pika_procedure_set_attribution (procedure,
"Adrian Likins, Reagan Blundell",
"Adrian Likins, Reagan Blundell, "
"Daniel Risacher, "
"Spencer Kimball and Peter Mattis",
"1995-1997");
PIKA_PROC_ARG_STRING (procedure, "filename",
_("File_name"),
_("The name of the file to save the image in"),
NULL,
G_PARAM_READWRITE);
PIKA_PROC_ARG_STRING (procedure, "to-address",
_("_To"),
_("The email address to send to"),
"",
G_PARAM_READWRITE);
PIKA_PROC_ARG_STRING (procedure, "from-address",
_("_From"),
_("The email address for the From: field"),
"",
G_PARAM_READWRITE);
PIKA_PROC_ARG_STRING (procedure, "subject",
_("Su_bject"),
_("The subject"),
"",
G_PARAM_READWRITE);
PIKA_PROC_ARG_STRING (procedure, "comment",
_("Co_mment"),
_("The comment"),
NULL,
G_PARAM_READWRITE);
}
return procedure;
}
static PikaValueArray *
mail_run (PikaProcedure *procedure,
PikaRunMode run_mode,
PikaImage *image,
gint n_drawables,
PikaDrawable **drawables,
PikaProcedureConfig *config,
gpointer run_data)
{
PikaPDBStatusType status = PIKA_PDB_SUCCESS;
if (run_mode == PIKA_RUN_INTERACTIVE)
{
gchar *filename = g_file_get_path (pika_image_get_file (image));
if (filename)
{
gchar *basename = g_filename_display_basename (filename);
gchar buffername[BUFFER_SIZE];
g_strlcpy (buffername, basename, BUFFER_SIZE);
g_object_set (config,
"filename", buffername,
NULL);
g_free (basename);
g_free (filename);
}
if (! send_dialog (procedure, G_OBJECT (config)))
return pika_procedure_new_return_values (procedure, PIKA_PDB_CANCEL, NULL);
}
status = send_image (G_OBJECT (config),
image,
n_drawables, drawables,
run_mode);
return pika_procedure_new_return_values (procedure, status, NULL);
}
static PikaPDBStatusType
send_image (GObject *config,
PikaImage *image,
gint n_drawables,
PikaDrawable **drawables,
gint32 run_mode)
{
PikaPDBStatusType status = PIKA_PDB_SUCCESS;
gchar *ext;
GFile *tmpfile;
gchar *tmpname;
#ifndef SENDMAIL /* xdg-email */
gchar *mailcmd[9];
gchar *filepath = NULL;
GFile *tmp_dir = NULL;
GFileEnumerator *enumerator;
gint i;
#else /* SENDMAIL */
gchar *mailcmd[3];
GPid mailpid;
FILE *mailpipe = NULL;
#endif
GError *error = NULL;
gchar *filename = NULL;
gchar *receipt = NULL;
gchar *from = NULL;
gchar *subject = NULL;
gchar *comment = NULL;
g_object_get (config,
"filename", &filename,
"to-address", &receipt,
"from-address", &from,
"subject", &subject,
"comment", &comment,
NULL);
ext = find_extension (filename);
if (ext == NULL)
return PIKA_PDB_CALLING_ERROR;
/* get a temp name with the right extension and save into it. */
tmpfile = pika_temp_file (ext + 1);
tmpname = g_file_get_path (tmpfile);
if (! (pika_file_save (run_mode, image, n_drawables,
(const PikaItem **) drawables,
tmpfile) &&
valid_file (tmpfile)))
{
goto error;
}
#ifndef SENDMAIL /* xdg-email */
/* From xdg-email doc:
* "Some e-mail applications require the file to remain present
* after xdg-email returns."
* As a consequence, the file cannot be removed at the end of the
* function. We actually have no way to ever know *when* the file can
* be removed since the caller could leave the email window opened for
* hours. Yet we still want to clean sometimes and not have temporary
* images piling up.
* So I use a known directory that we control under $PIKA_DIRECTORY/tmp/,
* and clean it out each time the plugin runs. This means that *if* you
* are in the above case (your email client requires the file to stay
* alive), you cannot run twice the plugin at the same time.
*/
tmp_dir = pika_directory_file ("tmp", PLUG_IN_PROC, NULL);
if (g_mkdir_with_parents (pika_file_get_utf8_name (tmp_dir),
S_IRUSR | S_IWUSR | S_IXUSR) == -1)
{
g_message ("Temporary directory %s could not be created.",
pika_file_get_utf8_name (tmp_dir));
g_error_free (error);
goto error;
}
enumerator = g_file_enumerate_children (tmp_dir,
G_FILE_ATTRIBUTE_STANDARD_TYPE,
G_FILE_QUERY_INFO_NOFOLLOW_SYMLINKS,
NULL, NULL);
if (enumerator)
{
GFileInfo *info;
while ((info = g_file_enumerator_next_file (enumerator,
NULL, NULL)))
{
if (g_file_info_get_attribute_uint32 (info, G_FILE_ATTRIBUTE_STANDARD_TYPE) == G_FILE_TYPE_REGULAR)
{
GFile *file = g_file_enumerator_get_child (enumerator, info);
g_file_delete (file, NULL, NULL);
g_object_unref (file);
}
g_object_unref (info);
}
g_object_unref (enumerator);
}
filepath = g_build_filename (pika_file_get_utf8_name (tmp_dir), filename,
NULL);
if (g_rename (tmpname, filepath) == -1)
{
/* But on some system, I got an 'Invalid cross-device link' errno
* with g_rename().
* On the other hand, g_file_move() seems to be more robust.
*/
GFile *source = tmpfile;
GFile *target = g_file_new_for_path (filepath);
if (! g_file_move (source, target, G_FILE_COPY_NONE, NULL, NULL, NULL, &error))
{
g_message ("%s", error->message);
g_clear_error (&error);
g_object_unref (target);
goto error;
}
g_object_unref (target);
}
mailcmd[0] = g_strdup ("xdg-email");
mailcmd[1] = "--attach";
mailcmd[2] = filepath;
i = 3;
if (subject != NULL && strlen (subject) > 0)
{
mailcmd[i++] = "--subject";
mailcmd[i++] = subject;
}
if (comment != NULL && strlen (comment) > 0)
{
mailcmd[i++] = "--body";
mailcmd[i++] = comment;
}
if (receipt != NULL && strlen (receipt) > 0)
{
mailcmd[i++] = receipt;
}
mailcmd[i] = NULL;
if (! g_spawn_async (NULL, mailcmd, NULL,
G_SPAWN_SEARCH_PATH,
NULL, NULL, NULL, &error))
{
g_message ("%s", error->message);
g_error_free (error);
goto error;
}
#else /* SENDMAIL */
/* construct the "sendmail user@location" line */
if (strlen (SENDMAIL) == 0)
mailcmd[0] = g_strdup ("sendmail");
else
mailcmd[0] = g_build_filename (SENDMAIL, "sendmail", NULL);
mailcmd[1] = receipt;
mailcmd[2] = NULL;
/* create a pipe to sendmail */
mailpipe = sendmail_pipe (mailcmd, &mailpid);
if (mailpipe == NULL)
return PIKA_PDB_EXECUTION_ERROR;
sendmail_create_headers (mailpipe, config);
fflush (mailpipe);
if (! sendmail_to64 (tmpname, mailpipe, &error))
{
g_message ("%s", error->message);
g_error_free (error);
goto error;
}
fprintf (mailpipe, "\n--GUMP-MIME-boundary--\n");
#endif
goto cleanup;
error:
/* stop sendmail from doing anything */
#ifdef SENDMAIL
kill (mailpid, SIGINT);
#endif
status = PIKA_PDB_EXECUTION_ERROR;
cleanup:
/* close out the sendmail process */
#ifdef SENDMAIL
if (mailpipe)
{
fclose (mailpipe);
waitpid (mailpid, NULL, 0);
g_spawn_close_pid (mailpid);
}
/* delete the tmpfile that was generated */
g_unlink (tmpname);
#else
if (tmp_dir)
g_object_unref (tmp_dir);
if (filepath)
g_free (filepath);
#endif
g_free (filename);
g_free (receipt);
g_free (from);
g_free (subject);
g_free (comment);
g_free (mailcmd[0]);
g_free (tmpname);
g_object_unref (tmpfile);
return status;
}
static gboolean
send_dialog (PikaProcedure *procedure,
GObject *config)
{
GtkWidget *dlg;
GtkWidget *main_vbox;
GtkWidget *entry;
GtkWidget *real_entry;
GtkWidget *grid;
GtkWidget *button;
#ifdef SENDMAIL
GtkWidget *scrolled_window;
GtkWidget *text_view;
#endif
gchar *gump_from;
gboolean run;
pika_ui_init (PLUG_IN_BINARY);
/* check pikarc for a preferred "From:" address */
gump_from = pika_pikarc_query ("gump-from");
if (gump_from)
{
g_object_set (config,
"from-address", gump_from,
NULL);
g_free (gump_from);
}
dlg = pika_procedure_dialog_new (procedure,
PIKA_PROCEDURE_CONFIG (config),
_("Send by Email"));
/* Change "Ok" button to "Send" */
button = gtk_dialog_get_widget_for_response (GTK_DIALOG (dlg),
GTK_RESPONSE_OK);
gtk_button_set_label (GTK_BUTTON (button), _("Send"));
pika_dialog_set_alternative_button_order (GTK_DIALOG (dlg),
GTK_RESPONSE_OK,
GTK_RESPONSE_CANCEL,
-1);
pika_window_set_transient (GTK_WINDOW (dlg));
main_vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 12);
gtk_container_set_border_width (GTK_CONTAINER (main_vbox), 12);
gtk_box_pack_start (GTK_BOX (gtk_dialog_get_content_area (GTK_DIALOG (dlg))),
main_vbox, TRUE, TRUE, 0);
gtk_widget_show (main_vbox);
/* grid */
grid = gtk_grid_new ();
gtk_box_pack_start (GTK_BOX (main_vbox), grid, FALSE, FALSE, 0);
gtk_widget_show (grid);
gtk_grid_set_row_spacing (GTK_GRID (grid), 6);
gtk_grid_set_column_spacing (GTK_GRID (grid), 6);
/* Filename entry */
entry = pika_procedure_dialog_get_widget (PIKA_PROCEDURE_DIALOG (dlg),
"filename", PIKA_TYPE_LABEL_ENTRY);
real_entry = pika_label_entry_get_entry (PIKA_LABEL_ENTRY (entry));
gtk_widget_set_size_request (real_entry, 200, -1);
gtk_entry_set_activates_default (GTK_ENTRY (real_entry), TRUE);
pika_procedure_dialog_fill (PIKA_PROCEDURE_DIALOG (dlg),
"filename",
NULL);
gtk_entry_set_max_length (GTK_ENTRY (real_entry),
BUFFER_SIZE - 1);
#ifdef SENDMAIL
/* To entry */
entry = pika_procedure_dialog_get_widget (PIKA_PROCEDURE_DIALOG (dlg),
"to-address",
PIKA_TYPE_LABEL_ENTRY);
real_entry = pika_label_entry_get_entry (PIKA_LABEL_ENTRY (entry));
gtk_widget_set_size_request (real_entry, 200, -1);
gtk_entry_set_max_length (GTK_ENTRY (real_entry), BUFFER_SIZE - 1);
pika_procedure_dialog_fill (PIKA_PROCEDURE_DIALOG (dlg),
"to-address",
NULL);
gtk_entry_set_max_length (GTK_ENTRY (real_entry),
BUFFER_SIZE - 1);
gtk_widget_grab_focus (real_entry);
/* From entry */
entry = pika_procedure_dialog_get_widget (PIKA_PROCEDURE_DIALOG (dlg),
"from-address",
PIKA_TYPE_LABEL_ENTRY);
real_entry = pika_label_entry_get_entry (PIKA_LABEL_ENTRY (entry));
gtk_widget_set_size_request (real_entry, 200, -1);
gtk_entry_set_max_length (GTK_ENTRY (real_entry), BUFFER_SIZE - 1);
pika_procedure_dialog_fill (PIKA_PROCEDURE_DIALOG (dlg),
"from-address",
NULL);
gtk_entry_set_max_length (GTK_ENTRY (real_entry),
BUFFER_SIZE - 1);
/* Subject entry */
entry = pika_procedure_dialog_get_widget (PIKA_PROCEDURE_DIALOG (dlg),
"subject",
PIKA_TYPE_LABEL_ENTRY);
real_entry = pika_label_entry_get_entry (PIKA_LABEL_ENTRY (entry));
gtk_widget_set_size_request (real_entry, 200, -1);
gtk_entry_set_max_length (GTK_ENTRY (real_entry), BUFFER_SIZE - 1);
pika_procedure_dialog_fill (PIKA_PROCEDURE_DIALOG (dlg),
"subject",
NULL);
gtk_entry_set_max_length (GTK_ENTRY (real_entry),
BUFFER_SIZE - 1);
/* Body */
text_view = pika_procedure_dialog_get_widget (PIKA_PROCEDURE_DIALOG (dlg),
"comment",
GTK_TYPE_TEXT_VIEW);
gtk_text_view_set_wrap_mode (GTK_TEXT_VIEW (text_view), GTK_WRAP_WORD);
scrolled_window =
pika_procedure_dialog_fill_scrolled_window (PIKA_PROCEDURE_DIALOG (dlg),
"comment-scrolled",
"comment");
gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (scrolled_window),
GTK_SHADOW_IN);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_window),
GTK_POLICY_AUTOMATIC,
GTK_POLICY_AUTOMATIC);
pika_procedure_dialog_fill (PIKA_PROCEDURE_DIALOG (dlg),
"comment-scrolled",
NULL);
#endif
gtk_widget_show (dlg);
run = pika_procedure_dialog_run (PIKA_PROCEDURE_DIALOG (dlg));
gtk_widget_destroy (dlg);
return run;
}
static gboolean
valid_file (GFile *file)
{
GStatBuf buf;
gboolean valid;
valid = g_stat (g_file_peek_path (file), &buf) == 0 && buf.st_size > 0;
return valid;
}
static gchar *
find_extension (const gchar *filename)
{
gchar *filename_copy;
gchar *ext;
/* we never free this copy - aren't we evil! */
filename_copy = g_strdup (filename);
/* find the extension, boy! */
ext = strrchr (filename_copy, '.');
while (TRUE)
{
if (!ext || ext[1] == '\0' || strchr (ext, G_DIR_SEPARATOR))
{
g_message (_("some sort of error with the file extension "
"or lack thereof"));
return NULL;
}
if (0 != g_ascii_strcasecmp (ext, ".gz") &&
0 != g_ascii_strcasecmp (ext, ".bz2"))
{
return ext;
}
else
{
/* we found something, loop back, and look again */
*ext = 0;
ext = strrchr (filename_copy, '.');
}
}
g_free (filename_copy);
return ext;
}
#ifdef SENDMAIL
static gchar *
sendmail_content_type (const gchar *filename)
{
/* This function returns a MIME Content-type: value based on the
filename it is given. */
const gchar *type_mappings[20] =
{
"gif" , "image/gif",
"jpg" , "image/jpeg",
"jpeg", "image/jpeg",
"tif" , "image/tiff",
"tiff", "image/tiff",
"png" , "image/png",
"g3" , "image/g3fax",
"ps" , "application/postscript",
"eps" , "application/postscript",
NULL, NULL
};
gchar *ext;
gint i;
ext = find_extension (filename);
if (!ext)
{
return g_strdup ("application/octet-stream");
}
i = 0;
ext += 1;
while (type_mappings[i])
{
if (g_ascii_strcasecmp (ext, type_mappings[i]) == 0)
{
return g_strdup (type_mappings[i + 1]);
}
i += 2;
}
return g_strdup_printf ("image/x-%s", ext);
}
static void
sendmail_create_headers (FILE *mailpipe,
GObject *config)
{
gchar *filename = NULL;
gchar *receipt = NULL;
gchar *from = NULL;
gchar *subject = NULL;
gchar *comment = NULL;
g_object_get (config,
"filename", &filename,
"to-address", &receipt,
"from-address", &from,
"subject", &subject,
"comment", &comment,
NULL);
/* create all the mail header stuff. Feel free to add your own */
/* It is advisable to leave the X-Mailer header though, as */
/* there is a possibility of a Pika mail scanner/reader in the */
/* future. It will probably need that header. */
fprintf (mailpipe, "To: %s \n", receipt);
fprintf (mailpipe, "Subject: %s \n", subject);
if (from != NULL && strlen (from) > 0)
fprintf (mailpipe, "From: %s \n", from);
fprintf (mailpipe, "X-Mailer: PIKA Useless Mail plug-in %s\n", PIKA_VERSION);
fprintf (mailpipe, "MIME-Version: 1.0\n");
fprintf (mailpipe, "Content-type: multipart/mixed; "
"boundary=GUMP-MIME-boundary\n");
fprintf (mailpipe, "\n\n");
fprintf (mailpipe, "--GUMP-MIME-boundary\n");
fprintf (mailpipe, "Content-type: text/plain; charset=UTF-8\n\n");
if (mesg_body)
fprintf (mailpipe, "%s", mesg_body);
fprintf (mailpipe, "\n\n");
{
gchar *content = sendmail_content_type (filename);
fprintf (mailpipe, "--GUMP-MIME-boundary\n");
fprintf (mailpipe, "Content-type: %s\n", content);
fprintf (mailpipe, "Content-transfer-encoding: base64\n");
fprintf (mailpipe, "Content-disposition: attachment; filename=\"%s\"\n",
filename);
fprintf (mailpipe, "Content-description: %s\n\n", filename);
g_free (content);
}
g_free (filename);
g_free (receipt);
g_free (from);
g_free (subject);
g_free (comment);
}
static gboolean
sendmail_to64 (const gchar *filename,
FILE *outfile,
GError **error)
{
GMappedFile *infile;
const guchar *in;
gchar out[2048];
gint state = 0;
gint save = 0;
gsize len;
gsize bytes;
gsize c;
infile = g_mapped_file_new (filename, FALSE, error);
if (! infile)
return FALSE;
in = (const guchar *) g_mapped_file_get_contents (infile);
len = g_mapped_file_get_length (infile);
for (c = 0; c < len;)
{
gsize step = MIN (1024, len - c);
bytes = g_base64_encode_step (in + c, step, TRUE, out, &state, &save);
fwrite (out, 1, bytes, outfile);
c += step;
}
bytes = g_base64_encode_close (TRUE, out, &state, &save);
fwrite (out, 1, bytes, outfile);
g_mapped_file_unref (infile);
return TRUE;
}
static FILE *
sendmail_pipe (gchar **cmd,
GPid *pid)
{
gint fd;
GError *err = NULL;
if (! g_spawn_async_with_pipes (NULL, cmd, NULL,
G_SPAWN_DO_NOT_REAP_CHILD |
G_SPAWN_SEARCH_PATH,
NULL, NULL, pid, &fd, NULL, NULL, &err))
{
g_message (_("Could not start sendmail (%s)"), err->message);
g_error_free (err);
*pid = -1;
return NULL;
}
return fdopen (fd, "wb");
}
#endif