zsend-zwrite.vtc Source File

00001 /* -*- C -*- */
00021 func zsend_zwrite(zout) [args, pipe]
00022 {
00023   args = zout_std_args(zout);
00024   pipe = popen("zwrite -q -n" + args + ">/dev/null", "w");
00025   if (!pipe)
00026   {
00027     output("Pipe failed.\n");
00028     return;
00029   }
00030   fwrite(pipe, zout->body);
00031   if (fclose(pipe) != 0)
00032     printf("Error sending message\n");
00033 }