OpenSolaris_b135/cmd/mailx/cmd1.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2001 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* University Copyright- Copyright (c) 1982, 1986, 1988
* The Regents of the University of California
* All Rights Reserved
*
* University Acknowledgment- Portions of this document are derived from
* software developed by the University of California, Berkeley, and its
* contributors.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include "rcv.h"
#include <locale.h>
/*
* mailx -- a modified version of a University of California at Berkeley
* mail program
*
* User commands.
*/
static char *dispname(char *hdr);
static void print(register struct message *mp, FILE *obuf, int doign);
static int type1(int *msgvec, int doign, int page);
static int topputs(const char *line, FILE *obuf);
void brokpipe(int sig);
jmp_buf pipestop;
/*
* Print the current active headings.
* Don't change dot if invoker didn't give an argument.
*/
static int curscreen = 0, oldscreensize = 0;
int
headers(int *msgvec)
{
register int n, mesg, flag;
register struct message *mp;
int size;
size = screensize();
n = msgvec[0];
if (n != 0)
curscreen = (n-1)/size;
if (curscreen < 0)
curscreen = 0;
mp = &message[curscreen * size];
if (mp >= &message[msgCount])
mp = &message[msgCount - size];
if (mp < &message[0])
mp = &message[0];
flag = 0;
mesg = mp - &message[0];
if (dot != &message[n-1])
dot = mp;
if (Hflag)
mp = message;
for (; mp < &message[msgCount]; mp++) {
mesg++;
if (mp->m_flag & MDELETED)
continue;
if (flag++ >= size && !Hflag)
break;
printhead(mesg);
sreset();
}
if (flag == 0) {
printf(gettext("No more mail.\n"));
return (1);
}
return (0);
}
/*
* Scroll to the next/previous screen
*/
int
scroll(char arg[])
{
register int s, size;
int cur[1];
cur[0] = 0;
size = screensize();
s = curscreen;
switch (*arg) {
case 0:
case '+':
s++;
if (s * size > msgCount) {
printf(gettext("On last screenful of messages\n"));
return (0);
}
curscreen = s;
break;
case '-':
if (--s < 0) {
printf(gettext("On first screenful of messages\n"));
return (0);
}
curscreen = s;
break;
default:
printf(gettext("Unrecognized scrolling command \"%s\"\n"), arg);
return (1);
}
return (headers(cur));
}
/*
* Compute what the screen size should be.
* We use the following algorithm:
* If user specifies with screen option, use that.
* If baud rate < 1200, use 5
* If baud rate = 1200, use 10
* If baud rate > 1200, use 20
*/
int
screensize(void)
{
register char *cp;
register int newscreensize, tmp;
#ifdef TIOCGWINSZ
struct winsize ws;
#endif
if ((cp = value("screen")) != NOSTR && (tmp = atoi(cp)) > 0)
newscreensize = tmp;
else if (baud < B1200)
newscreensize = 5;
else if (baud == B1200)
newscreensize = 10;
#ifdef TIOCGWINSZ
else if (ioctl(fileno(stdout), TIOCGWINSZ, &ws) == 0 && ws.ws_row > 4)
newscreensize = ws.ws_row - 4;
#endif
else
newscreensize = 20;
/* renormalize the value of curscreen */
if (newscreensize != oldscreensize) {
curscreen = curscreen * oldscreensize / newscreensize;
oldscreensize = newscreensize;
}
return (newscreensize);
}
/*
* Print out the headlines for each message
* in the passed message list.
*/
int
from(int *msgvec)
{
register int *ip;
for (ip = msgvec; *ip != NULL; ip++) {
printhead(*ip);
sreset();
}
if (--ip >= msgvec)
dot = &message[*ip - 1];
return (0);
}
/*
* Print out the header of a specific message.
* This is a slight improvement to the standard one.
*/
void
printhead(int mesg)
{
struct message *mp;
FILE *ibuf;
char headline[LINESIZE], *subjline, dispc, curind;
char *fromline;
char pbuf[LINESIZE];
char name[LINESIZE];
struct headline hl;
register char *cp;
int showto;
mp = &message[mesg-1];
ibuf = setinput(mp);
readline(ibuf, headline);
if ((subjline = hfield("subject", mp, addone)) == NOSTR &&
(subjline = hfield("subj", mp, addone)) == NOSTR &&
(subjline = hfield("message-status", mp, addone)) == NOSTR)
subjline = "";
curind = (!Hflag && dot == mp) ? '>' : ' ';
dispc = ' ';
showto = 0;
if ((mp->m_flag & (MREAD|MNEW)) == (MREAD|MNEW))
dispc = 'R';
if (!(int)value("bsdcompat") && (mp->m_flag & (MREAD|MNEW)) == MREAD)
dispc = 'O';
if ((mp->m_flag & (MREAD|MNEW)) == MNEW)
dispc = 'N';
if ((mp->m_flag & (MREAD|MNEW)) == 0)
dispc = 'U';
if (mp->m_flag & MSAVED)
if ((int)value("bsdcompat"))
dispc = '*';
else
dispc = 'S';
if (mp->m_flag & MPRESERVE)
if ((int)value("bsdcompat"))
dispc = 'P';
else
dispc = 'H';
if (mp->m_flag & MBOX)
dispc = 'M';
parse(headline, &hl, pbuf);
if (hl.l_date == NOSTR)
hl.l_date = "<Unknown date>";
/*
* Netnews interface?
*/
if (newsflg) {
if ((fromline = hfield("newsgroups", mp, addone)) == NOSTR &&
(fromline = hfield("article-id", mp, addone)) == NOSTR)
fromline = "<>";
else
for (cp = fromline; *cp; cp++) { /* limit length */
if (any(*cp, " ,\n")) {
*cp = '\0';
break;
}
}
/*
* else regular.
*/
} else {
fromline = nameof(mp);
if (value("showto") &&
samebody(myname, skin(fromline), FALSE) &&
(cp = hfield("to", mp, addto))) {
showto = 1;
yankword(cp, fromline = name, sizeof (name),
docomma(cp));
}
if (value("showname"))
fromline = dispname(fromline);
else
fromline = skin(fromline);
}
printf("%c%c%3d ", curind, dispc, mesg);
if ((int)value("showfull")) {
if (showto)
printf("To %-15s ", fromline);
else
printf("%-18s ", fromline);
} else {
if (showto)
printf("To %-15.15s ", fromline);
else
printf("%-18.18s ", fromline);
}
if (mp->m_text) {
printf("%16.16s %4ld/%-5ld %-.25s\n",
hl.l_date, mp->m_lines, mp->m_size, subjline);
} else {
printf("%16.16s binary/%-5ld %-.25s\n", hl.l_date, mp->m_size,
subjline);
}
}
/*
* Return the full name from an RFC-822 header line
* or the last two (or one) component of the address.
*/
static char *
dispname(char *hdr)
{
char *cp, *cp2;
if (hdr == 0)
return (0);
if (((cp = strchr(hdr, '<')) != 0) && (cp > hdr)) {
*cp = 0;
if ((*hdr == '"') && ((cp = strrchr(++hdr, '"')) != 0))
*cp = 0;
return (hdr);
} else if ((cp = strchr(hdr, '(')) != 0) {
hdr = ++cp;
if ((cp = strchr(hdr, '+')) != 0)
*cp = 0;
if ((cp = strrchr(hdr, ')')) != 0)
*cp = 0;
return (hdr);
}
cp = skin(hdr);
if ((cp2 = strrchr(cp, '!')) != 0) {
while (cp2 >= cp && *--cp2 != '!');
cp = ++cp2;
}
return (cp);
}
/*
* Print out the value of dot.
*/
int
pdot(void)
{
printf("%d\n", dot - &message[0] + 1);
return (0);
}
/*
* Print out all the possible commands.
*/
int
pcmdlist(void)
{
register const struct cmd *cp;
register int cc;
printf("Commands are:\n");
for (cc = 0, cp = cmdtab; cp->c_name != NULL; cp++) {
cc += strlen(cp->c_name) + 2;
if (cc > 72) {
printf("\n");
cc = strlen(cp->c_name) + 2;
}
if ((cp+1)->c_name != NOSTR)
printf("%s, ", cp->c_name);
else
printf("%s\n", cp->c_name);
}
return (0);
}
/*
* Paginate messages, honor ignored fields.
*/
int
more(int *msgvec)
{
return (type1(msgvec, 1, 1));
}
/*
* Paginate messages, even printing ignored fields.
*/
int
More(int *msgvec)
{
return (type1(msgvec, 0, 1));
}
/*
* Type out messages, honor ignored fields.
*/
int
type(int *msgvec)
{
return (type1(msgvec, 1, 0));
}
/*
* Type out messages, even printing ignored fields.
*/
int
Type(int *msgvec)
{
return (type1(msgvec, 0, 0));
}
/*
* Type out the messages requested.
*/
static int
type1(int *msgvec, int doign, int page)
{
int *ip;
register struct message *mp;
register int mesg;
register char *cp;
long nlines;
FILE *obuf;
void (*sigint)(int), (*sigpipe)(int);
int setsigs = 0;
obuf = stdout;
if (setjmp(pipestop)) {
if (obuf != stdout) {
pipef = NULL;
npclose(obuf);
}
goto ret0;
}
if (intty && outtty && (page || (cp = value("crt")) != NOSTR)) {
if (!page) {
nlines = 0;
for (ip = msgvec, nlines = 0;
*ip && ip-msgvec < msgCount; ip++)
nlines += message[*ip - 1].m_lines;
}
if (page ||
nlines > (*cp == '\0' ? screensize() - 2 : atoi(cp))) {
obuf = npopen(MORE, "w");
if (obuf == NULL) {
perror(MORE);
obuf = stdout;
} else {
pipef = obuf;
sigint = sigset(SIGINT, SIG_IGN);
sigpipe = sigset(SIGPIPE, brokpipe);
setsigs++;
}
}
}
for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
mesg = *ip;
touch(mesg);
mp = &message[mesg-1];
dot = mp;
print(mp, obuf, doign);
}
if (obuf != stdout) {
pipef = NULL;
npclose(obuf);
}
ret0:
if (setsigs) {
sigset(SIGPIPE, sigpipe);
sigset(SIGINT, sigint);
}
return (0);
}
/*
* Respond to a broken pipe signal --
* probably caused by user quitting more.
*/
void
#ifdef __cplusplus
brokpipe(int)
#else
/* ARGSUSED */
brokpipe(int s)
#endif
{
#ifdef OLD_BSD_SIGS
sigrelse(SIGPIPE);
#endif
longjmp(pipestop, 1);
}
/*
* Print the indicated message on standard output.
*/
static void
print(register struct message *mp, FILE *obuf, int doign)
{
if (value("quiet") == NOSTR && (!doign || !isign("message", 0)))
fprintf(obuf, "Message %2d:\n", mp - &message[0] + 1);
touch(mp - &message[0] + 1);
if (mp->m_text) {
(void) msend(mp, obuf, doign ? M_IGNORE : 0, fputs);
} else {
fprintf(obuf, "\n%s\n", gettext(binmsg));
}
}
/*
* Print the top so many lines of each desired message.
* The number of lines is taken from the variable "toplines"
* and defaults to 5.
*/
static long top_linecount, top_maxlines, top_lineb;
static jmp_buf top_buf;
int
top(int *msgvec)
{
register int *ip;
register struct message *mp;
register int mesg;
char *valtop;
top_maxlines = 5;
valtop = value("toplines");
if (valtop != NOSTR) {
top_maxlines = atoi(valtop);
if (top_maxlines < 0 || top_maxlines > 10000)
top_maxlines = 5;
}
top_lineb = 1;
for (ip = msgvec; *ip && ip-msgvec < msgCount; ip++) {
mesg = *ip;
touch(mesg);
mp = &message[mesg-1];
dot = mp;
if (value("quiet") == NOSTR)
printf("Message %2d:\n", mesg);
if (!top_lineb)
printf("\n");
top_linecount = 0;
if (setjmp(top_buf) == 0) {
if (mp->m_text) {
(void) msend(mp, stdout, M_IGNORE, topputs);
} else {
printf("\n%s\n", gettext(binmsg));
}
}
}
return (0);
}
int
topputs(const char *line, FILE *obuf)
{
if (top_linecount++ >= top_maxlines)
longjmp(top_buf, 1);
top_lineb = blankline(line);
return (fputs(line, obuf));
}
/*
* Touch all the given messages so that they will
* get mboxed.
*/
int
stouch(int msgvec[])
{
register int *ip;
for (ip = msgvec; *ip != 0; ip++) {
dot = &message[*ip-1];
dot->m_flag |= MTOUCH;
dot->m_flag &= ~MPRESERVE;
}
return (0);
}
/*
* Make sure all passed messages get mboxed.
*/
int
mboxit(int msgvec[])
{
register int *ip;
for (ip = msgvec; *ip != 0; ip++) {
dot = &message[*ip-1];
dot->m_flag |= MTOUCH|MBOX;
dot->m_flag &= ~MPRESERVE;
}
return (0);
}
/*
* List the folders the user currently has.
*/
int
folders(char **arglist)
{
char dirname[BUFSIZ], cmd[BUFSIZ];
if (getfold(dirname) < 0) {
printf(gettext("No value set for \"folder\"\n"));
return (-1);
}
if (*arglist) {
nstrcat(dirname, sizeof (dirname), "/");
nstrcat(dirname, sizeof (dirname), *arglist);
}
snprintf(cmd, sizeof (cmd), "%s %s", LS, dirname);
return (system(cmd));
}