/*
* send the damn thing
*/
char *
data(String *from, Biobuf *b)
{
char *buf, *cp;
int i, n, nbytes, bufsize, eof, r;
String *fromline;
char errmsg[Errlen];
char id[40];
/*
* input the header.
*/
buf = malloc(1);
if(buf == 0){
s_append(s_restart(reply), "out of memory");
return Retry;
}
n = 0;
eof = 0;
for(;;){
cp = Brdline(b, '\n');
if(cp == nil){
eof = 1;
break;
}
nbytes = Blinelen(b);
buf = realloc(buf, n+nbytes+1);
if(buf == 0){
s_append(s_restart(reply), "out of memory");
return Retry;
}
strncpy(buf+n, cp, nbytes);
n += nbytes;
if(nbytes == 1) /* end of header */
break;
}
buf[n] = 0;
bufsize = n;
/*
* parse the header, turn all addresses into @ format
*/
yyinit(buf, n);
yyparse();
/*
* print message observing '.' escapes and using \r\n for \n
*/
alarm(20*alarmscale);
if(!filter){
dBprint("DATA\r\n");
switch(getreply()){
case 3:
break;
case 5:
free(buf);
return Giveup;
default:
free(buf);
return Retry;
}
}
/*
* send header. add a message-id, a sender, and a date if there
* isn't one
*/
nbytes = 0;
fromline = convertheader(from);
uneaten = buf;
srand(truerand());
if(messageid == 0){
for(i=0; i<16; i++){
r = rand()&0xFF;
id[2*i] = hex[r&0xF];
id[2*i+1] = hex[(r>>4)&0xF];
}
id[2*i] = '\0';
nbytes += Bprint(&bout, "Message-ID: <%s@%s>\r\n", id, hostdomain);
if(debug)
Bprint(&berr, "Message-ID: <%s@%s>\r\n", id, hostdomain);
}
if(originator==0){
nbytes += Bprint(&bout, "From: %s\r\n", s_to_c(fromline));
if(debug)
Bprint(&berr, "From: %s\r\n", s_to_c(fromline));
}
s_free(fromline);
if(destination == 0 && toline)
if(*s_to_c(toline) == '@'){ /* route addr */
nbytes += Bprint(&bout, "To: <%s>\r\n", s_to_c(toline));
if(debug)
Bprint(&berr, "To: <%s>\r\n", s_to_c(toline));
} else {
nbytes += Bprint(&bout, "To: %s\r\n", s_to_c(toline));
if(debug)
Bprint(&berr, "To: %s\r\n", s_to_c(toline));
}
if(date==0 && udate)
nbytes += printdate(udate);
if (usys)
uneaten = usys->end + 1;
nbytes += printheader();
if (*uneaten != '\n')
putcrnl("\n", 1);
/*
* send body
*/
putcrnl(uneaten, buf+n - uneaten);
nbytes += buf+n - uneaten;
if(eof == 0){
for(;;){
n = Bread(b, buf, bufsize);
if(n < 0){
rerrstr(errmsg, sizeof(errmsg));
s_append(s_restart(reply), errmsg);
free(buf);
return Retry;
}
if(n == 0)
break;
alarm(10*alarmscale);
putcrnl(buf, n);
nbytes += n;
}
}
free(buf);
if(!filter){
if(last != '\n')
dBprint("\r\n.\r\n");
else
dBprint(".\r\n");
alarm(10*alarmscale);
switch(getreply()){
case 2:
break;
case 5:
return Giveup;
default:
return Retry;
}
syslog(0, "smtp", "%s sent %d bytes to %s", s_to_c(from),
nbytes, s_to_c(toline));/**/
}
return 0;
}
void godob::run(void)
{
static unsigned long tmin = 0, tenc=0;
unsigned long t0 = millis();
float lst,gmst;
starpos_s mount;
float errf;
if(t0-tmin>200){ /* update LCD every 200ms */
tmin = t0;
if(connect_time>5)Connected=false;
connect_time++;
switch(dstat){
case ds_time:
printtime();
printdate();
show_adjust(t_idx);
if(BTN->poll()){
handle_time_keys(BTN->lastkey());
}
break;
case ds_lst:
LCD->setCursor(0, 0);
LCD->print("LST ");
gmst = AST->get_GMST(now());
lst = gmst + AST->last_longitude();
show_hms(lst);
LCD->setCursor(0, 1);
LCD->print(" LT ");
show_hms( (AST->get_LT(gmst)%86400)*M_PI/43200 );
if(BTN->poll()){
handle_main_keys(BTN->lastkey());
}
break;
case ds_loc:
LCD->setCursor(0, 0);
LCD->print("Lat ");
show_dms(AST->last_latitude());
LCD->setCursor(0, 1);
LCD->print("Long ");
show_dms(AST->last_longitude());
if(BTN->poll()){
handle_main_keys(BTN->lastkey());
}
break;
case ds_horz:
show_altaz();
if(BTN->poll()){
handle_main_keys(BTN->lastkey());
}
break;
case ds_eq:
LCD->setCursor(0, 0);
mount.az = ItoRad(ENCAz->lastpos());
mount.alt = ItoRad(ENCAlt->lastpos());
mount.GMST = AST->get_GMST(now());
AST->horz_to_eq(mount);
LCD->print(" RA ");
show_hms(mount.RA);
LCD->setCursor(0, 1);
LCD->print("Dec");
show_dms(mount.dec);
if(BTN->poll()){
handle_main_keys(BTN->lastkey());
}
break;
case ds_targ:
LCD->setCursor(0, 0);
if(!reqPending){
LCD->print("Designate a star");
}
else{
star[0].GMST=AST->get_GMST(now());
AST->eq_to_horz(star[0]);
LCD->print("AltErr:");
errf = ItoRad(ENCAlt->lastpos()) - star[0].alt;
if(errf>M_PI)errf-=2*M_PI;
if(errf<-M_PI)errf+=2*M_PI;
show_rad(errf);
LCD->setCursor(0, 1);
LCD->print(" AzErr:");
errf = ItoRad(ENCAz->lastpos()) - star[0].az;
if(errf>M_PI)errf-=2*M_PI;
if(errf<-M_PI)errf+=2*M_PI;
show_rad(errf);
}
if(BTN->poll()){
handle_main_keys(BTN->lastkey());
}
break;
case ds_range:
mount.az = ItoRad(ENCAz->lastpos());
mount.alt = ItoRad(ENCAlt->lastpos());
mount.GMST = AST->get_GMST(now());
star[0].GMST = star[1].GMST = mount.GMST;
AST->eq_to_horz(star[1]);
LCD->setCursor(0, 0);
LCD->print("Targ r=");
show_rad(AST->eq_range(star[0], star[1]));
LCD->setCursor(0, 1);
LCD->print(" Now r=");
show_rad(AST->horz_range(mount, star[1]));
if(BTN->poll()){
handle_main_keys(BTN->lastkey());
}
break;
default:
dstat = ds_time;
break;
}/* switch */
}/*tmin*/
if(t0-tenc>1){ /* read encoders every ms */
tenc = 0;
ENCAlt->readpos();
ENCAz->readpos();
}
handle_serial();
}
void
bbsstart(void)
{
unsigned char stdinbuf[STDINBUFSIZ];
long uglastmsg; /* last msg seen in prev. rm */
long ugtemp = TWILIGHTZONE;
short prev_rm = TWILIGHTZONE;
char cit_cmd;
char bueller = 0;
room = &sroom;
setvbuf(stdin, (char *)stdinbuf, _IOFBF, STDINBUFSIZ);
setvbuf(stdout, (char *)stdoutbuf, _IOFBF, STDOUTBUFSIZ);
init_system();
/* Putty.exe is obstinate */
/* IAC WILL SGA */
putchar(IAC); putchar(WILL); putchar(TELOPT_SGA);
/* magic to set telnet into character mode */
/* IAC DO LINEMODE, IAC WILL ECHO */
write(1,"\377\375\042\377\373\001",6);
/* let window sizes come through */
/* IAC DO NAWS */
write(1,"\377\375\037",3);
reserve_slot();
do_login();
colorize("\n@G");
curr = LOBBY_RM_NBR;
inituser();
openroom();
storeug(&uglastmsg, &ugtemp);
/* The first thing we do is make the user read the lobby */
cit_cmd = 'N';
readroom(cit_cmd);
for(;;)
{
/*
* check if user has been kicked out of this room while they were in it,
* or if room was deleted
*/
if (ouruser->generation[curr] < 0 || !msg->room[curr].flags)
{
curr = LOBBY_RM_NBR;
openroom();
storeug(&uglastmsg, &ugtemp);
}
if (cit_cmd)
colorize("\n@Y%s>@G ", msg->room[curr].name);
checkx(0);
if (ouruser->f_prog)
cit_cmd = get_single_quiet("ABCD\005eEFGHIJKLNOpPqQRsSTUvVwWxX\027\030yYZ /?#%@-\"");
else if (ouruser->f_aide)
cit_cmd = get_single_quiet("ABC\005eEFGHIJKLNOpPqQRsSTUvVwWxX\027\030yYZ /?#%@-\"");
else if (ouruser->usernum == msg->room[curr].roomaide && !ouruser->f_twit)
cit_cmd = get_single_quiet("ABC\005eEFGHIJKLNOpPqQRsSTUwWxX\027\030yYZ /?#%-\"");
else
cit_cmd = get_single_quiet("BCeEFGHIJKLNOpPqQRsSTUwWxX\027\030yYZ /?#%-\"");
if (cit_cmd == SP)
cit_cmd = 'N';
if (guest && !strchr("BFGHIJKLNOpPRsSTUwWyY/?#-", cit_cmd))
{
colorize("\n\n@RThe Guest user cannot do that.@G\n");
continue;
}
if (curr == LOBBY_RM_NBR && strchr("DGNqsTU\027X\030Z% ", cit_cmd))
{
if (bueller++ >= 12)
flush_input(bueller / 25);
if (bueller >= 100)
{
colorize("@R\n\n\nGo away until you have something useful to do!\n\n\n@G");
my_exit(10);
}
}
else
bueller = 0;
if (strchr("AC\005eEHJpPQSvVx\030yYZ#-\"", cit_cmd))
mybtmp->nox = 1;
switch (cit_cmd)
{
case 'A':
printf("Sysop commands (%s)\n", msg->room[curr].name);
aide_menu();
break;
case 'R':
case 'B':
cit_cmd = 'R';
printf("Read Reverse\n");
readroom(cit_cmd);
break;
case 'C':
printf("Change config\n");
change_setup(NULL);
break;
case 'D':
printf("Debug\n");
debug();
break;
case '\005':
if (ouruser->usernum == msg->room[curr].roomaide)
{
printf("Enter Forum Moderator message\n\nAre you sure you want to enter a message as Forum Moderator? (Y/N) -> ");
if (!yesno(-1))
break;
sysopflags |= SYSOP_FROM_FM;
}
else if (ouruser->f_admin)
{
printf("Enter Sysop message\n\nNOTE: You are entering this message as Sysop!\n\n");
sysopflags |= SYSOP_FROM_SYSOP;
}
/* FALL THRU */
case 'e':
case 'E':
{
char work[20];
if (ouruser->f_newbie && (curr == MAIL_RM_NBR || curr > 4))
help("newuseraccess", NO);
else
{
if (cit_cmd == 'E')
printf("Upload message\n\n");
else if (cit_cmd == 'e')
printf("Enter message\n\n");
*work = 0;
(void)entermessage(curr, work, cit_cmd == 'e' ? 0 : 2);
sysopflags &= ~(SYSOP_FROM_SYSOP | SYSOP_FROM_FM);
}
}
break;
case 'F':
printf("Read Forward\n");
readroom(cit_cmd);
break;
case 'G':
printf("Goto ");
updatels(&prev_rm);
/* find next room with unread msgs and open it */
nextroom();
openroom();
storeug(&uglastmsg, &ugtemp);
break;
case 'H':
printf("Help!\n");
help("topics", YES);
break;
case 'q':
case 'Q':
get_syself_help(cit_cmd);
break;
case 'I':
printf("Forum Info\n");
readdesc();
break;
case 'J':
{
int old_rm;
printf("Jump to ");
old_rm = curr;
if (findroom() == YES)
{
int save_rm;
mybtmp->nox = 0;
save_rm = curr;
curr = old_rm;
updatels(&prev_rm);
curr = save_rm;
openroom();
storeug(&uglastmsg, &ugtemp);
}
}
break;
case 'K':
printf("Known forums and zapped list\n");
knrooms();
break;
case 'L':
dologout();
break;
case 'N':
if (ouruser->lastseen[curr] < room->num[MSGSPERRM - 1])
{
printf("Read New\n");
readroom(cit_cmd);
}
else
{ /* No new notes so just do a Goto now */
printf("Goto ");
updatels(&prev_rm);
/* find next room with unread msgs and open it */
nextroom();
openroom();
storeug(&uglastmsg, &ugtemp);
}
break;
case 'O':
printf("Read Old messages reverse\n");
readroom(cit_cmd);
break;
case 'p':
case 'P':
profile_user(cit_cmd == 'P');
break;
case 's': /* don't update lastseen, you're skipping the room */
printf("Skip %s\n", msg->room[curr].name);
skipping[curr >> 3] |= 1 << (curr & 7);
/* after skipping a room, find the next unread room (not a goto) */
nextroom();
openroom();
ugtemp = ouruser->lastseen[curr];
break;
case 'S':
{
int old_rm;
printf("Skip %s to ", msg->room[curr].name);
old_rm = curr;
if (findroom() == YES)
{
mybtmp->nox = 0;
skipping[old_rm >> 3] |= 1 << (old_rm & 7);
openroom();
ugtemp = ouruser->lastseen[curr];
}
}
break;
case 'T':
printdate("Time\n\n%s");
break;
case 'U':
printf("Ungoto\n");
ungoto(prev_rm, &uglastmsg, &ugtemp);
break;
case 'v':
cit_cmd = 0;
break;
case 'V':
printf("Validate new users\n");
validate_users(1);
break;
case '\027':
if (client)
clientwho();
else
cit_cmd = 0;
break;
case 'w': /* Short form of who's online */
show_online(3);
break;
case 'W': /* Who's online */
show_online(0);
break;
case 'x':
express();
break;
case 'X':
change_express(1);
break;
case CTRL_X:
old_express();
break;
case 'y':
case 'Y':
if (!wanttoyell(cit_cmd))
break;
(void)entermessage(-1, "", cit_cmd == 'y' ? 0 : 2);
break;
case 'Z':
printf("Zap forum\n");
if (forgetroom())
{
nextroom();
openroom();
ugtemp = ouruser->lastseen[curr];
}
break;
case '?':
case '/':
if (guest)
help("guestforumlevel", NO);
else
help("doccmd", NO);
break;
case '#':
readroom(cit_cmd);
break;
case '%':
if (ouruser->f_elf && !ouruser->f_restricted && !ouruser->f_twit)
if (mybtmp->xstat && !mybtmp->elf)
printf("\n\nYou can't enable yourself as a guide while your X's are disabled.\n");
else if ((mybtmp->elf = !mybtmp->elf))
printf("\n\nYou are now marked as being available to help others.\n");
else
printf("\n\nYou are no longer marked as being available to help others.\n");
else
cit_cmd = 0;
break;
case '-':
readroom(cit_cmd);
break;
case '@':
printf("Sysops, programmers, and forum moderators\n");
more(AIDELIST, 0);
break;
case '"':
{
char work[20];
printf("Quote X messages to Sysop\n");
*work = 0;
(void)entermessage(-1, work, -1);
}
break;
default:
break;
} /* switch */
}
static void __dead
promisc(void)
{
struct sadb_msg msg;
u_char rbuf[1024 * 32]; /* XXX: Enough ? Should I do MSG_PEEK ? */
ssize_t l;
msg.sadb_msg_version = PF_KEY_V2;
msg.sadb_msg_type = SADB_X_PROMISC;
msg.sadb_msg_errno = 0;
msg.sadb_msg_satype = 1;
msg.sadb_msg_len = PFKEY_UNIT64(sizeof(msg));
msg.sadb_msg_reserved = 0;
msg.sadb_msg_seq = 0;
msg.sadb_msg_pid = getpid();
if ((l = send(so, &msg, sizeof(msg), 0)) < 0) {
err(1, "send");
}
while (1) {
struct sadb_msg *base;
if ((l = recv(so, rbuf, sizeof(*base), MSG_PEEK)) < 0) {
err(1, "recv");
}
if (l != sizeof(*base))
continue;
base = (struct sadb_msg *)rbuf;
if ((l = recv(so, rbuf, PFKEY_UNUNIT64(base->sadb_msg_len),
0)) < 0) {
err(1, "recv");
}
printdate();
if (f_hexdump) {
int i;
for (i = 0; i < l; i++) {
if (i % 16 == 0)
printf("%08x: ", i);
printf("%02x ", rbuf[i] & 0xff);
if (i % 16 == 15)
printf("\n");
}
if (l % 16)
printf("\n");
}
/* adjust base pointer for promisc mode */
if (base->sadb_msg_type == SADB_X_PROMISC) {
if ((ssize_t)sizeof(*base) < l)
base++;
else
base = NULL;
}
if (base) {
kdebug_sadb(base);
printf("\n");
fflush(stdout);
}
}
}
