int main()
{
while(scanf("%d", &n) == 1 && n)
{
char op[10]; scanf("%s", op);
if(op[0] == 'S')
{
scanf("%s", tmp);
memset(a, '.', sizeof(a));
for(int i = 0; i < n; i++) getans(tmp[i] - '0', i*2);
for(int i = 1; i <= 3; i++)
{
for(int j = 0; j < 2*n; j++)
{
printf("%c", a[i][j]);
if((j&1) && j != 2*n-1) putchar(' ');
}
puts("");
}
}
else if(op[0] == 'B')
{
for(int i = 1; i <= 3; i++)
for(int j = 0; j < 2 * n; j++)
{
scanf(" %c", &a[i][j]);
}
for(int j = 0; j < n; j++) printf("%d", getnumber(j*2));
puts("");
}
}
return 0;
}
int main(int argc, char *argv[])
{
setIO("sample");
scanf("%d%s",&n,str);
if(str[0] == 'E') ok = 1;
int siz = 1;
for(int i = 1,x,y,z,w;i<=n;++i)
{
scanf("%s",str);
if(str[0] == 'A')
{
scanf("%d%d",&x,&y);
if(!ok){
x = decode(x,lastans),y = decode(y,lastans);
}
a[siz]= MP(x,y);
add(CON,siz);++siz;
}
if(str[0] == 'Q')
{
scanf("%d%d%d%d",&x,&y,&z,&w);
if(!ok){
x = decode(x,lastans),y = decode(y,lastans);
z = decode(z,lastans),w = decode(w,lastans);
}
printf("%I64d\n",lastans=getans(CON,z,w,MP(x,y)));
}
}
closeIO();
return EXIT_SUCCESS;
}
void Question::askQues2(int k)
{
clrscr();
int i;
cout<<"\n\n";
cout<<k<<". ";
cout<<q;
cout<<"\n";
int x;
int big=0;
char c;
for(i=0; i<4; i++)
if(strlen(opt[i])>27) big=1;
for(i=0, c='A'; i<4; i++, c++)
{
if(!big)
{
x=i%2;
if(!x)
cout<<"\t";
cout<<c<<") ";
cout.setf(ios::left);
cout<<setw(30)<<opt[i];
if(x)
cout<<"\n";
}
else
{
cout<<"\t"<<c<<") "<<opt[i]<<"\n";
}
}
cout<<"\n";
getans();
}
int main()
{
int _T;
scanf("%d",&_T);
for(int CAS = 1; CAS <= _T; CAS++)
{
printf("Case #%d: %d\n", CAS, getans());
}
}
void getans() {
dep[0]=0;
dfs(1,1);
int Q,a,b;
scanf("%d",&Q);
while(Q--) {
scanf("%d %d",&a,&b);
if(belong[a]!=belong[b]) coubridge-=getans(belong[a],belong[b]);
printf("%d\n",coubridge);
}
}
main ()
{
int T;
scanf("%d",&T);
while(T--)
{
input();
printf("%d\n",getans());
}
return 0;
}
void build(int n)
{
void turn(int),cut(int,int,int),buildheap(int),getans();
int i;
turn(n);
num=0;
h[0][0][0]=0;
cut(1,sum,1);
head=0;
for (i=1;i<=num;i++)
buildheap(i);
memset(color,0,sizeof(color));
color[0]=n;
getans();
}
void
instructions(void)
{
const char *pager;
pid_t pid;
int status;
int input;
int fd;
if (getans("Would you like instructions (y or n)? ") == 0)
return;
if ((fd = open(_PATH_INSTR, O_RDONLY)) == -1)
(void)printf("No instruction file found!\n");
else {
switch (pid = fork()) {
case 0: /* child */
if (!isatty(1))
pager = "/bin/cat";
else {
if (!(pager = getenv("PAGER")) || (*pager == 0))
pager = _PATH_MORE;
}
if (dup2(fd, 0) == -1)
err(1, "dup2");
(void)execl(_PATH_BSHELL, "sh", "-c", pager, (char *)NULL);
err(1, "exec sh -c %s", pager);
/* NOT REACHED */
case -1:
err(1, "fork");
/* NOT REACHED */
default:
(void)waitpid(pid, &status, 0);
close(fd);
break;
}
}
(void)printf("Hit return to continue...\n");
while ((input = getchar()) != EOF && input != '\n');
}
int main()
{
int s,n,i,p,j,dest,weight,src,ans,r;
char name[11];
char source[11],destination[11];
scanf("%d",&s);
while(s--)
{
scanf("%d",&n);
graph = createGraph(n);
cities = createCityList(n);
dist = (int*)malloc(n*sizeof(int));
visited = (int*)malloc(n*sizeof(int));
for(i = 0; i < n; i++)
{
scanf("%s", name);
scanf("%d",&p);
strcpy(cities->array[i].name,name);
cities->array[i].p = p;
for(j = 0; j < p; j++)
{
scanf("%d %d",&dest,&weight);
addEdge(graph,i,dest-1,weight);
}
}
scanf("%d",&r);
while(r--)
{
scanf("%s",source);
scanf("%s",destination);
for(i = 0, src = -1, dest = -1; i < n && (src == -1|| dest == -1); i++)
{
if(strcmp(cities->array[i].name,source) == 0) src = i;
else if(strcmp(cities->array[i].name,destination) == 0) dest = i;
}
ans = getans(src,dest);
printf("%d\n",ans);
}
}
return 0;
}
int main(){
#ifdef QWERTIER
freopen("in.txt","r",stdin);
#endif
init();
int T;
scanf("%d", &T);
while(T--){
int n;
scanf("%d", &n);
int lo = 0, hi = 1000000;
while(lo < hi){
int mi = (lo + hi + 1) / 2;
if(cnt2[mi] < n)
lo = mi;
else
hi = mi - 1;
}
printf("%d\n", getans(lo, n));
}
return 0;
}
int
main(int argc, char *argv[])
{
int c;
#ifdef DEBUG
while ((c = getopt(argc, argv, "a:b:hop:r:t:d")) != -1)
#else
while ((c = getopt(argc, argv, "a:b:hop:r:t:")) != -1)
#endif
switch (c) {
case 'a':
arrow_num = atoi(optarg);
break;
case 'b':
bat_num = atoi(optarg);
break;
#ifdef DEBUG
case 'd':
debug = 1;
break;
#endif
case 'h':
level = HARD;
break;
case 'o':
oldstyle = 1;
break;
case 'p':
pit_num = atoi(optarg);
break;
case 'r':
room_num = atoi(optarg);
if (room_num < MIN_ROOMS_IN_CAVE)
errx(1,
"no self-respecting wumpus would live in such a small cave!");
if (room_num > MAX_ROOMS_IN_CAVE)
errx(1,
"even wumpii can't furnish caves that large!");
break;
case 't':
link_num = atoi(optarg);
if (link_num < 2)
errx(1,
"wumpii like extra doors in their caves!");
break;
case '?':
default:
usage();
}
if (oldstyle) {
room_num = 20;
link_num = 3;
/* Original game had exactly 2 bats and 2 pits */
if (bat_num < 0)
bat_num = 2;
if (pit_num < 0)
pit_num = 2;
} else {
if (bat_num < 0)
bat_num = BAT_COUNT;
if (pit_num < 0)
pit_num = PIT_COUNT;
}
if (link_num > MAX_LINKS_IN_ROOM ||
link_num > room_num - (room_num / 4))
errx(1,
"too many tunnels! The cave collapsed!\n(Fortunately, the wumpus escaped!)");
if (level == HARD) {
if (room_num / 2 - bat_num)
bat_num += arc4random_uniform(room_num / 2 - bat_num);
if (room_num / 2 - pit_num)
pit_num += arc4random_uniform(room_num / 2 - pit_num);
}
/* Leave at least two rooms free--one for the player to start in, and
* potentially one for the wumpus.
*/
if (bat_num > room_num / 2 - 1)
errx(1,
"the wumpus refused to enter the cave, claiming it was too crowded!");
if (pit_num > room_num / 2 - 1)
errx(1,
"the wumpus refused to enter the cave, claiming it was too dangerous!");
instructions();
if (oldstyle)
dodecahedral_cave_init();
else
cave_init();
/* and we're OFF! da dum, da dum, da dum, da dum... */
(void)printf(
"\nYou're in a cave with %d rooms and %d tunnels leading from each room.\n\
There are %d bat%s and %d pit%s scattered throughout the cave, and your\n\
quiver holds %d custom super anti-evil Wumpus arrows. Good luck.\n",
room_num, link_num, bat_num, plural(bat_num), pit_num,
plural(pit_num), arrow_num);
for (;;) {
initialize_things_in_cave();
arrows_left = arrow_num;
do {
display_room_stats();
(void)printf("Move or shoot? (m-s) ");
(void)fflush(stdout);
(void)fpurge(stdin);
if (!fgets(answer, sizeof(answer), stdin))
break;
} while (!take_action());
(void)fpurge(stdin);
if (!getans("\nCare to play another game? (y-n) ")) {
(void)printf("\n");
exit(0);
}
clear_things_in_cave();
if (!getans("In the same cave? (y-n) ")) {
if (oldstyle)
dodecahedral_cave_init();
else
cave_init();
}
}
/* NOTREACHED */
}
void askQues(int k)
{
printQues(k);
getans();
}
int
main (int argc, char **argv)
{
int anot = 0, inplace = 1, nedit = 0;
int nwhat = 0, i, in, isdf = 0, out;
char *cp, *cwd, *maildir, *msgnam, *dfolder = NULL;
char *dmsg = NULL, *ed = NULL, *file = NULL, *folder = NULL;
char *form = NULL, *msg = NULL, buf[BUFSIZ], drft[BUFSIZ];
char **argp, **arguments;
struct msgs *mp = NULL;
struct stat st;
#ifdef LOCALE
setlocale(LC_ALL, "");
#endif
invo_name = r1bindex (argv[0], '/');
/* read user profile/context */
context_read();
arguments = getarguments (invo_name, argc, argv, 1);
argp = arguments;
while ((cp = *argp++)) {
if (*cp == '-') {
switch (smatch (++cp, switches)) {
case AMBIGSW:
ambigsw (cp, switches);
done (1);
case UNKWNSW:
adios (NULL, "-%s unknown", cp);
case HELPSW:
snprintf (buf, sizeof(buf), "%s [+folder] [msg] [switches]",
invo_name);
print_help (buf, switches, 1);
done (1);
case VERSIONSW:
print_version(invo_name);
done (1);
case ANNOSW:
anot++;
continue;
case NANNOSW:
anot = 0;
continue;
case EDITRSW:
if (!(ed = *argp++) || *ed == '-')
adios (NULL, "missing argument to %s", argp[-2]);
nedit = 0;
continue;
case NEDITSW:
nedit++;
continue;
case WHATSW:
if (!(whatnowproc = *argp++) || *whatnowproc == '-')
adios (NULL, "missing argument to %s", argp[-2]);
nwhat = 0;
continue;
case NWHATSW:
nwhat++;
continue;
case FILESW:
if (file)
adios (NULL, "only one file at a time!");
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
file = path (cp, TFILE);
continue;
case FORMSW:
if (!(form = *argp++) || *form == '-')
adios (NULL, "missing argument to %s", argp[-2]);
continue;
case INPLSW:
inplace++;
continue;
case NINPLSW:
inplace = 0;
continue;
case DFOLDSW:
if (dfolder)
adios (NULL, "only one draft folder at a time!");
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
*cp != '@' ? TFOLDER : TSUBCWF);
continue;
case DMSGSW:
if (dmsg)
adios (NULL, "only one draft message at a time!");
if (!(dmsg = *argp++) || *dmsg == '-')
adios (NULL, "missing argument to %s", argp[-2]);
continue;
case NDFLDSW:
dfolder = NULL;
isdf = NOTOK;
continue;
}
}
if (*cp == '+' || *cp == '@') {
if (folder)
adios (NULL, "only one folder at a time!");
else
folder = pluspath (cp);
} else {
if (msg)
adios (NULL, "only one message at a time!");
else
msg = cp;
}
}
cwd = getcpy (pwd ());
if (!context_find ("path"))
free (path ("./", TFOLDER));
if (file && (msg || folder))
adios (NULL, "can't mix files and folders/msgs");
in = open_form(&form, distcomps);
try_it_again:
strncpy (drft, m_draft (dfolder, dmsg, NOUSE, &isdf), sizeof(drft));
/* Check if draft already exists */
if (stat (drft, &st) != NOTOK) {
printf ("Draft \"%s\" exists (%ld bytes).", drft, (long) st.st_size);
for (i = LISTDSW; i != YESW;) {
if (!(argp = getans ("\nDisposition? ", isdf ? aqrnl : aqrl)))
done (1);
switch (i = smatch (*argp, isdf ? aqrnl : aqrl)) {
case NOSW:
done (0);
case NEWSW:
dmsg = NULL;
goto try_it_again;
case YESW:
break;
case LISTDSW:
showfile (++argp, drft);
break;
case REFILSW:
if (refile (++argp, drft) == 0)
i = YESW;
break;
default:
advise (NULL, "say what?");
break;
}
}
}
if ((out = creat (drft, m_gmprot ())) == NOTOK)
adios (drft, "unable to create");
cpydata (in, out, form, drft);
close (in);
close (out);
if (file) {
/*
* Dist a file
*/
anot = 0; /* don't want to annotate a file */
} else {
/*
* Dist a message
*/
if (!msg)
msg = "cur";
if (!folder)
folder = getfolder (1);
maildir = m_maildir (folder);
if (chdir (maildir) == NOTOK)
adios (maildir, "unable to change directory to");
/* read folder and create message structure */
if (!(mp = folder_read (folder)))
adios (NULL, "unable to read folder %s", folder);
/* check for empty folder */
if (mp->nummsg == 0)
adios (NULL, "no messages in %s", folder);
/* parse the message range/sequence/name and set SELECTED */
if (!m_convert (mp, msg))
done (1);
seq_setprev (mp); /* set the previous-sequence */
if (mp->numsel > 1)
adios (NULL, "only one message at a time!");
}
msgnam = file ? file : getcpy (m_name (mp->lowsel));
if ((in = open (msgnam, O_RDONLY)) == NOTOK)
adios (msgnam, "unable to open message");
if (!file) {
context_replace (pfolder, folder);/* update current folder */
seq_setcur (mp, mp->lowsel); /* update current message */
seq_save (mp); /* synchronize sequences */
context_save (); /* save the context file */
}
if (nwhat)
done (0);
what_now (ed, nedit, NOUSE, drft, msgnam, 1, mp,
anot ? "Resent" : NULL, inplace, cwd);
done (1);
return 1;
}
int
main(int argc, char **argv)
{
int c;
/* Revoke setgid privileges */
setgid(getgid());
#ifdef DEBUG
while ((c = getopt(argc, argv, "a:b:hp:r:t:d")) != -1)
#else
while ((c = getopt(argc, argv, "a:b:hp:r:t:")) != -1)
#endif
switch (c) {
case 'a':
arrow_num = atoi(optarg);
break;
case 'b':
bat_num = atoi(optarg);
break;
#ifdef DEBUG
case 'd':
debug = 1;
break;
#endif
case 'h':
level = HARD;
break;
case 'p':
pit_num = atoi(optarg);
break;
case 'r':
room_num = atoi(optarg);
if (room_num < MIN_ROOMS_IN_CAVE) {
(void)fprintf(stderr,
"No self-respecting wumpus would live in such a small cave!\n");
exit(1);
}
if (room_num > MAX_ROOMS_IN_CAVE) {
(void)fprintf(stderr,
"Even wumpii can't furnish caves that large!\n");
exit(1);
}
break;
case 't':
link_num = atoi(optarg);
if (link_num < 2) {
(void)fprintf(stderr,
"Wumpii like extra doors in their caves!\n");
exit(1);
}
break;
case '?':
default:
usage();
}
if (link_num > MAX_LINKS_IN_ROOM ||
link_num > room_num - (room_num / 4)) {
(void)fprintf(stderr,
"Too many tunnels! The cave collapsed!\n(Fortunately, the wumpus escaped!)\n");
exit(1);
}
if (level == HARD) {
bat_num += ((random() % (room_num / 2)) + 1);
pit_num += ((random() % (room_num / 2)) + 1);
}
if (bat_num > room_num / 2) {
(void)fprintf(stderr,
"The wumpus refused to enter the cave, claiming it was too crowded!\n");
exit(1);
}
if (pit_num > room_num / 2) {
(void)fprintf(stderr,
"The wumpus refused to enter the cave, claiming it was too dangerous!\n");
exit(1);
}
instructions();
cave_init();
/* and we're OFF! da dum, da dum, da dum, da dum... */
(void)printf(
"\nYou're in a cave with %d rooms and %d tunnels leading from each room.\n\
There are %d bat%s and %d pit%s scattered throughout the cave, and your\n\
quiver holds %d custom super anti-evil Wumpus arrows. Good luck.\n",
room_num, link_num, bat_num, plural(bat_num), pit_num,
plural(pit_num), arrow_num);
for (;;) {
initialize_things_in_cave();
arrows_left = arrow_num;
do {
display_room_stats();
(void)printf("Move or shoot? (m-s) ");
(void)fflush(stdout);
if (!fgets(answer, sizeof(answer), stdin))
break;
} while (!take_action());
if (!getans("\nCare to play another game? (y-n) "))
exit(0);
if (getans("In the same cave? (y-n) "))
clear_things_in_cave();
else
cave_init();
}
/* NOTREACHED */
return (0);
}
int
main (int argc, char **argv)
{
int msgp = 0, distsw = 0, vecp;
int isdf = 0, mime = 0;
int msgnum, status;
char *cp, *dfolder = NULL, *maildir = NULL;
char buf[BUFSIZ], **ap, **argp, **arguments, *program;
char *msgs[MAXARGS], **vec;
struct msgs *mp;
struct stat st;
if (nmh_init(argv[0], 1)) { return 1; }
arguments = getarguments (invo_name, argc, argv, 1);
argp = arguments;
vec = argsplit(postproc, &program, &vecp);
vec[vecp++] = "-library";
vec[vecp++] = getcpy (m_maildir (""));
if ((cp = context_find ("fileproc"))) {
vec[vecp++] = "-fileproc";
vec[vecp++] = cp;
}
if ((cp = context_find ("mhlproc"))) {
vec[vecp++] = "-mhlproc";
vec[vecp++] = cp;
}
if ((cp = context_find ("credentials"))) {
/* post doesn't read context so need to pass credentials. */
vec[vecp++] = "-credentials";
vec[vecp++] = cp;
}
while ((cp = *argp++)) {
if (*cp == '-') {
switch (smatch (++cp, switches)) {
case AMBIGSW:
ambigsw (cp, switches);
done (1);
case UNKWNSW:
adios (NULL, "-%s unknown\n", cp);
case HELPSW:
snprintf (buf, sizeof(buf), "%s [file] [switches]", invo_name);
print_help (buf, switches, 1);
done (0);
case VERSIONSW:
print_version(invo_name);
done (0);
case DRAFTSW:
msgs[msgp++] = draft;
continue;
case DFOLDSW:
if (dfolder)
adios (NULL, "only one draft folder at a time!");
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
*cp != '@' ? TFOLDER : TSUBCWF);
continue;
case DMSGSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
msgs[msgp++] = cp;
continue;
case NDFLDSW:
dfolder = NULL;
isdf = NOTOK;
continue;
case PUSHSW:
pushsw++;
continue;
case NPUSHSW:
pushsw = 0;
continue;
case SPLITSW:
if (!(cp = *argp++) || sscanf (cp, "%d", &splitsw) != 1)
adios (NULL, "missing argument to %s", argp[-2]);
continue;
case UNIQSW:
unique++;
continue;
case NUNIQSW:
unique = 0;
continue;
case FORWSW:
forwsw++;
continue;
case NFORWSW:
forwsw = 0;
continue;
case VERBSW:
verbsw++;
vec[vecp++] = --cp;
continue;
case NVERBSW:
verbsw = 0;
vec[vecp++] = --cp;
continue;
case MIMESW:
mime++;
vec[vecp++] = --cp;
continue;
case NMIMESW:
mime = 0;
vec[vecp++] = --cp;
continue;
case DEBUGSW:
debugsw++; /* fall */
case NFILTSW:
case FRMTSW:
case NFRMTSW:
case BITSTUFFSW:
case NBITSTUFFSW:
case MSGDSW:
case NMSGDSW:
case WATCSW:
case NWATCSW:
case SNOOPSW:
case SASLSW:
case NOSASLSW:
case TLSSW:
case INITTLSSW:
case NTLSSW:
vec[vecp++] = --cp;
continue;
case ALIASW:
case FILTSW:
case WIDTHSW:
case CLIESW:
case SERVSW:
case SASLMECHSW:
case SASLMXSSFSW:
case USERSW:
case PORTSW:
case MTSSW:
case MESSAGEIDSW:
vec[vecp++] = --cp;
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
vec[vecp++] = cp;
continue;
case ATTACHSW:
advise(NULL, "The -attach switch is deprecated");
continue;
case NOATTACHSW:
advise(NULL, "The -noattach switch is deprecated");
continue;
case ATTACHFORMATSW:
advise(NULL, "The -attachformat switch is deprecated");
continue;
}
} else {
msgs[msgp++] = cp;
}
}
/*
* check for "Aliasfile:" profile entry
*/
if ((cp = context_find ("Aliasfile"))) {
char *dp = NULL;
for (ap = brkstring(dp = getcpy(cp), " ", "\n"); ap && *ap; ap++) {
vec[vecp++] = "-alias";
vec[vecp++] = *ap;
}
}
if (dfolder == NULL) {
if (msgp == 0) {
msgs[msgp++] = getcpy (m_draft (NULL, NULL, 1, &isdf));
if (stat (msgs[0], &st) == NOTOK)
adios (msgs[0], "unable to stat draft file");
cp = concat ("Use \"", msgs[0], "\"? ", NULL);
for (status = LISTDSW; status != YESW;) {
if (!(argp = getans (cp, anyl)))
done (1);
switch (status = smatch (*argp, anyl)) {
case NOSW:
done (0);
case YESW:
break;
case LISTDSW:
showfile (++argp, msgs[0]);
break;
default:
advise (NULL, "say what?");
break;
}
}
} else {
for (msgnum = 0; msgnum < msgp; msgnum++)
msgs[msgnum] = getcpy (m_maildir (msgs[msgnum]));
}
} else {
if (!context_find ("path"))
free (path ("./", TFOLDER));
if (!msgp)
msgs[msgp++] = "cur";
maildir = m_maildir (dfolder);
if (chdir (maildir) == NOTOK)
adios (maildir, "unable to change directory to");
/* read folder and create message structure */
if (!(mp = folder_read (dfolder, 1)))
adios (NULL, "unable to read folder %s", dfolder);
/* check for empty folder */
if (mp->nummsg == 0)
adios (NULL, "no messages in %s", dfolder);
/* parse all the message ranges/sequences and set SELECTED */
for (msgnum = 0; msgnum < msgp; msgnum++)
if (!m_convert (mp, msgs[msgnum]))
done (1);
seq_setprev (mp); /* set the previous-sequence */
for (msgp = 0, msgnum = mp->lowsel; msgnum <= mp->hghsel; msgnum++) {
if (is_selected (mp, msgnum)) {
msgs[msgp++] = getcpy (m_name (msgnum));
unset_exists (mp, msgnum);
}
}
mp->msgflags |= SEQMOD;
seq_save (mp);
}
#ifdef WHATNOW
go_to_it:
#endif /* WHATNOW */
if ((cp = getenv ("SIGNATURE")) == NULL || *cp == 0)
if ((cp = context_find ("signature")) && *cp)
m_putenv ("SIGNATURE", cp);
for (msgnum = 0; msgnum < msgp; msgnum++)
if (stat (msgs[msgnum], &st) == NOTOK)
adios (msgs[msgnum], "unable to stat draft file");
if ((annotext = getenv ("mhannotate")) == NULL || *annotext == 0)
annotext = NULL;
if (annotext && ((cp = getenv ("mhinplace")) != NULL && *cp != 0))
inplace = atoi (cp);
if ((altmsg = getenv ("mhaltmsg")) == NULL || *altmsg == 0)
altmsg = NULL; /* used by dist interface - see below */
if ((cp = getenv ("mhdist"))
&& *cp
&& (distsw = atoi (cp))
&& altmsg) {
vec[vecp++] = "-dist";
if ((cp = m_mktemp2(altmsg, invo_name, NULL, NULL)) == NULL) {
adios(NULL, "unable to create temporary file in %s",
get_temp_dir());
}
distfile = getcpy (cp);
(void) m_unlink(distfile);
if (link (altmsg, distfile) == NOTOK) {
/* Cygwin with FAT32 filesystem produces EPERM. */
if (errno != EXDEV && errno != EPERM
#ifdef EISREMOTE
&& errno != EISREMOTE
#endif /* EISREMOTE */
)
adios (distfile, "unable to link %s to", altmsg);
free (distfile);
if ((cp = m_mktemp2(NULL, invo_name, NULL, NULL)) == NULL) {
adios(NULL, "unable to create temporary file in %s",
get_temp_dir());
}
distfile = getcpy (cp);
{
int in, out;
struct stat st;
if ((in = open (altmsg, O_RDONLY)) == NOTOK)
adios (altmsg, "unable to open");
fstat(in, &st);
if ((out = creat (distfile, (int) st.st_mode & 0777)) == NOTOK)
adios (distfile, "unable to write");
cpydata (in, out, altmsg, distfile);
close (in);
close (out);
}
}
} else {
distfile = NULL;
}
if (altmsg == NULL || stat (altmsg, &st) == NOTOK) {
st.st_mtime = 0;
st.st_dev = 0;
st.st_ino = 0;
}
if (pushsw)
push ();
status = 0;
closefds (3);
for (msgnum = 0; msgnum < msgp; msgnum++) {
switch (sendsbr (vec, vecp, program, msgs[msgnum], &st, 1)) {
case DONE:
done (++status);
case NOTOK:
status++; /* fall */
case OK:
break;
}
}
context_save (); /* save the context file */
done (status);
return 1;
}
int
m_sob(void)
{
char genbuf[256], buf[256], userid[25], passbuf[24], msg[2048]="";
int count=0, i, isimported=0, corrected;
FILE *fp;
sobuserec man;
time4_t d;
clear();
move(1,0);
outs(
" 請注意 這是只給陽光沙灘使用者!\n"
" 讓沙灘的使用者轉移個人資產以及重要信用資料, 享有平等安全的環境.\n"
" 如果您不需要, 請直離開.\n"
" -----------------------------------------------------------------\n"
" 特別叮嚀:\n"
" 為了帳號安全,您只有連續十次密碼錯誤的機會,請小心輸入.\n"
" 連續次錯誤您的變身功\能就會被開罰單並直接通知站長.\n"
" 請不要在變身過程中不正常斷線, 刻意斷線變半獸人站長不救唷.\n"
);
if(getkey("是否要繼續?(y/N)")!='y') return 0;
if(search_ulistn(usernum,2))
{vmsg("請登出其他視窗, 以免變身失敗"); return 0;}
do
{
if(!getdata(10,0, " 沙灘的ID [大小寫要完全正確]:", userid, 20,
DOECHO)) return 0;
if(bad_user_id(userid)) continue;
sprintf(genbuf, "sob/passwd/%c/%s.inf",userid[0], userid);
if(!(fp=fopen(genbuf, "r")))
{
isimported = 1;
strcat(genbuf, ".done");
if(!(fp=fopen(genbuf, "r")))
{
vmsg("查無此人或已經匯入過..請注意大小寫 ");
isimported = 0;
continue;
}
}
count = fread(&man, sizeof(man), 1, fp);
fclose(fp);
}while(!count);
count = 0;
do{
if(!getdata(11,0, " 沙灘的密碼:", passbuf, sizeof(passbuf),
NOECHO)) return 0;
if(++count>=10)
{
cuser.userlevel |= PERM_VIOLATELAW;
cuser.vl_count++;
passwd_update(usernum, &cuser);
post_violatelaw(cuser.userid, "[PTT警察]", "測試帳號錯誤十次",
"違法觀察");
mail_violatelaw(cuser.userid, "[PTT警察]", "測試帳號錯誤十次",
"違法觀察");
return 0;
}
if(!(corrected = checkpasswd(man.passwd, passbuf)))
vmsg("密碼錯誤");
} while(!corrected);
move(12,0);
clrtobot();
if(!isimported)
{
if(!dashf(genbuf)) // avoid multi-login
{
vmsg("請不要嘗試多重id踹匯入");
return 0;
}
sprintf(buf,"%s.done",genbuf);
rename(genbuf,buf);
#ifdef MERGEMONEY
reload_money();
sprintf(buf,
"您的沙灘鸚鵡螺 %10d 換算成 " MONEYNAME " 幣為 %9d (匯率 22:1), \n"
" 沙灘貝殼有 %10d 換算為 " MONEYNAME " 幣為 %9d (匯率 222105:1), \n"
" 原有 %10d 匯入後共有 %d\n",
(int)man.goldmoney, (int)man.goldmoney/22,
(int)man.silvermoney, (int)man.silvermoney/222105,
cuser.money,
(int)(cuser.money + man.goldmoney/22 + man.silvermoney/222105));
demoney(man.goldmoney/22 + man.silvermoney/222105 );
strcat(msg, buf);
#endif
i = cuser.exmailbox + man.exmailbox + man.exmailboxk/2000;
if (i > MAX_EXKEEPMAIL) i = MAX_EXKEEPMAIL;
sprintf(buf, "您的沙灘信箱有 %d (%dk), 原有 %d 匯入後共有 %d\n",
man.exmailbox, man.exmailboxk, cuser.exmailbox, i);
strcat(msg, buf);
cuser.exmailbox = i;
if(man.userlevel & PERM_MAILLIMIT)
{
sprintf(buf, "開啟信箱無上限\n");
strcat(msg, buf);
cuser.userlevel |= PERM_MAILLIMIT;
}
if (cuser.firstlogin > man.firstlogin)
d = man.firstlogin;
else
d = cuser.firstlogin;
cuser.firstlogin = d;
if (cuser.numlogins < man.numlogins)
i = man.numlogins;
else
i = cuser.numlogins;
sprintf(buf, "沙灘進站次數 %d 此帳號 %d 將取 %d \n", man.numlogins,
cuser.numlogins, i);
strcat(msg,buf);
cuser.numlogins = i;
if (cuser.numposts < man.numposts )
i = man.numposts;
else
i = cuser.numposts;
sprintf(buf, "沙灘文章次數 %d 此帳號 %d 將取 %d\n",
man.numposts,cuser.numposts,i);
strcat(msg,buf);
cuser.numposts = i;
outs(msg);
while (search_ulistn(usernum,2))
{vmsg("請將重覆上站其他線關閉! 再繼續");}
passwd_update(usernum, &cuser);
}
sethomeman(genbuf, cuser.userid);
mkdir(genbuf, 0755);
sprintf(buf, "tar zxvf %c/%s.tar.gz>/dev/null",
userid[0], userid);
chdir("sob/home");
system(buf);
chdir(BBSHOME);
if (getans("是否匯入個人信箱? (Y/n)")!='n')
{
sethomedir(buf, cuser.userid);
sprintf(genbuf, "sob/home/%c/%s/.DIR",
userid[0], userid);
merge_dir(buf, genbuf, 1);
strcat(msg, "匯入個人信箱\n");
}
if(getans("是否匯入個人信箱精華區(個人作品集)? (會覆蓋\現有設定) (y/N)")=='y')
{
fileheader_t fh;
sprintf(buf,
"rm -rd home/%c/%s/man>/dev/null ; "
"mv sob/home/%c/%s/man home/%c/%s>/dev/null;"
"mv sob/home/%c/%s/gem home/%c/%s/man>/dev/null",
cuser.userid[0], cuser.userid,
userid[0], userid,
cuser.userid[0], cuser.userid,
userid[0], userid,
cuser.userid[0], cuser.userid);
system(buf);
strcat(msg, "匯入個人信箱精華區(個人作品集)\n");
sprintf(buf,"home/%c/%s/man/gem", cuser.userid[0], cuser.userid);
if(dashd(buf))
{
strcat(fh.title, "◆ 個人作品集");
strcat(fh.filename, "gem");
sprintf(fh.owner, cuser.userid);
sprintf(buf, "home/%c/%s/man/.DIR", cuser.userid[0], cuser.userid);
append_record(buf, &fh, sizeof(fh));
}
}
int
main (int argc, char **argv)
{
int anot = 0, inplace = 1, mime = 0;
int issue = 0, volume = 0, dashstuff = 0;
int nedit = 0, nwhat = 0, i, in;
int out, isdf = 0, msgnum = 0;
int outputlinelen = OUTPUTLINELEN;
int dat[5];
char *cp, *cwd, *maildir, *dfolder = NULL;
char *dmsg = NULL, *digest = NULL, *ed = NULL;
char *file = NULL, *filter = NULL, *folder = NULL, *fwdmsg = NULL;
char *from = NULL, *to = NULL, *cc = NULL, *subject = NULL, *fcc = NULL;
char *form = NULL, buf[BUFSIZ], value[10];
char **argp, **arguments;
struct stat st;
struct msgs_array msgs = { 0, 0, NULL };
int buildsw = 0;
if (nmh_init(argv[0], 1)) { return 1; }
arguments = getarguments (invo_name, argc, argv, 1);
argp = arguments;
while ((cp = *argp++)) {
if (*cp == '-') {
switch (smatch (++cp, switches)) {
case AMBIGSW:
ambigsw (cp, switches);
done (1);
case UNKWNSW:
adios (NULL, "-%s unknown", cp);
case HELPSW:
snprintf (buf, sizeof(buf), "%s [+folder] [msgs] [switches]",
invo_name);
print_help (buf, switches, 1);
done (0);
case VERSIONSW:
print_version(invo_name);
done (0);
case ANNOSW:
anot++;
continue;
case NANNOSW:
anot = 0;
continue;
case EDITRSW:
if (!(ed = *argp++) || *ed == '-')
adios (NULL, "missing argument to %s", argp[-2]);
nedit = 0;
continue;
case NEDITSW:
nedit++;
continue;
case WHATSW:
if (!(whatnowproc = *argp++) || *whatnowproc == '-')
adios (NULL, "missing argument to %s", argp[-2]);
nwhat = 0;
continue;
case BILDSW:
buildsw++; /* fall... */
case NWHATSW:
nwhat++;
continue;
case FILESW:
if (file)
adios (NULL, "only one file at a time!");
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
file = path (cp, TFILE);
continue;
case FILTSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
filter = getcpy (etcpath (cp));
mime = 0;
continue;
case FORMSW:
if (!(form = *argp++) || *form == '-')
adios (NULL, "missing argument to %s", argp[-2]);
continue;
case FRMTSW:
filter = getcpy (etcpath (mhlforward));
continue;
case NFRMTSW:
filter = NULL;
continue;
case INPLSW:
inplace++;
continue;
case NINPLSW:
inplace = 0;
continue;
case MIMESW:
mime++;
filter = NULL;
continue;
case NMIMESW:
mime = 0;
continue;
case DGSTSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
digest = getcpy(cp);
mime = 0;
continue;
case ISSUESW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
if ((issue = atoi (cp)) < 1)
adios (NULL, "bad argument %s %s", argp[-2], cp);
continue;
case VOLUMSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
if ((volume = atoi (cp)) < 1)
adios (NULL, "bad argument %s %s", argp[-2], cp);
continue;
case DFOLDSW:
if (dfolder)
adios (NULL, "only one draft folder at a time!");
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp,
*cp != '@' ? TFOLDER : TSUBCWF);
continue;
case DMSGSW:
if (dmsg)
adios (NULL, "only one draft message at a time!");
if (!(dmsg = *argp++) || *dmsg == '-')
adios (NULL, "missing argument to %s", argp[-2]);
continue;
case NDFLDSW:
dfolder = NULL;
isdf = NOTOK;
continue;
case BITSTUFFSW:
dashstuff = 1; /* trinary logic */
continue;
case NBITSTUFFSW:
dashstuff = -1; /* trinary logic */
continue;
case FROMSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
from = addlist(from, cp);
continue;
case TOSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
to = addlist(to, cp);
continue;
case CCSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
cc = addlist(cc, cp);
continue;
case FCCSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
fcc = addlist(fcc, cp);
continue;
case SUBJECTSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
subject = getcpy(cp);
continue;
case WIDTHSW:
if (!(cp = *argp++) || *cp == '-')
adios (NULL, "missing argument to %s", argp[-2]);
if ((outputlinelen = atoi(cp)) < 10)
adios (NULL, "impossible width %d", outputlinelen);
continue;
}
}
if (*cp == '+' || *cp == '@') {
if (folder)
adios (NULL, "only one folder at a time!");
else
folder = pluspath (cp);
} else {
app_msgarg(&msgs, cp);
}
}
cwd = getcpy (pwd ());
if (!context_find ("path"))
free (path ("./", TFOLDER));
if (file && (msgs.size || folder))
adios (NULL, "can't mix files and folders/msgs");
try_it_again:
strncpy (drft, buildsw ? m_maildir ("draft")
: m_draft (dfolder, NULL, NOUSE, &isdf), sizeof(drft));
/* Check if a draft already exists */
if (!buildsw && stat (drft, &st) != NOTOK) {
printf ("Draft \"%s\" exists (%ld bytes).", drft, (long) st.st_size);
for (i = LISTDSW; i != YESW;) {
if (!(argp = getans ("\nDisposition? ", isdf ? aqrnl : aqrl)))
done (1);
switch (i = smatch (*argp, isdf ? aqrnl : aqrl)) {
case NOSW:
done (0);
case NEWSW:
dmsg = NULL;
goto try_it_again;
case YESW:
break;
case LISTDSW:
showfile (++argp, drft);
break;
case REFILSW:
if (refile (++argp, drft) == 0)
i = YESW;
break;
default:
advise (NULL, "say what?");
break;
}
}
}
if (file) {
/*
* Forwarding a file.
*/
anot = 0; /* don't want to annotate a file */
} else {
/*
* Forwarding a message.
*/
if (!msgs.size)
app_msgarg(&msgs, "cur");
if (!folder)
folder = getfolder (1);
maildir = m_maildir (folder);
if (chdir (maildir) == NOTOK)
adios (maildir, "unable to change directory to");
/* read folder and create message structure */
if (!(mp = folder_read (folder, 1)))
adios (NULL, "unable to read folder %s", folder);
/* check for empty folder */
if (mp->nummsg == 0)
adios (NULL, "no messages in %s", folder);
/* parse all the message ranges/sequences and set SELECTED */
for (msgnum = 0; msgnum < msgs.size; msgnum++)
if (!m_convert (mp, msgs.msgs[msgnum]))
done (1);
seq_setprev (mp); /* set the previous sequence */
/*
* Find the first message in our set and use it as the input
* for the component scanner
*/
for (msgnum = mp->lowsel; msgnum <= mp->hghsel; msgnum++)
if (is_selected (mp, msgnum)) {
fwdmsg = strdup(m_name(msgnum));
break;
}
if (! fwdmsg)
adios (NULL, "Unable to find input message");
}
if (filter && access (filter, R_OK) == NOTOK)
adios (filter, "unable to read");
/*
* Open form (component) file.
*/
if (digest) {
if (issue == 0) {
snprintf (buf, sizeof(buf), IFORMAT, digest);
if (volume == 0
&& (cp = context_find (buf))
&& ((issue = atoi (cp)) < 0))
issue = 0;
issue++;
}
if (volume == 0) {
snprintf (buf, sizeof(buf), VFORMAT, digest);
if ((cp = context_find (buf)) == NULL || (volume = atoi (cp)) <= 0)
volume = 1;
}
if (!form)
form = digestcomps;
} else {
if (!form)
form = forwcomps;
}
dat[0] = digest ? issue : msgnum;
dat[1] = volume;
dat[2] = 0;
dat[3] = outputlinelen;
dat[4] = 0;
in = build_form (form, digest, dat, from, to, cc, fcc, subject,
file ? file : fwdmsg);
if ((out = creat (drft, m_gmprot ())) == NOTOK)
adios (drft, "unable to create");
/*
* copy the components into the draft
*/
cpydata (in, out, form, drft);
close (in);
if (file) {
/* just copy the file into the draft */
if ((in = open (file, O_RDONLY)) == NOTOK)
adios (file, "unable to open");
cpydata (in, out, file, drft);
close (in);
close (out);
} else {
/*
* If filter file is defined, then format the
* messages into the draft using mhlproc.
*/
if (filter)
mhl_draft (out, digest, volume, issue, drft, filter, dashstuff);
else if (mime)
copy_mime_draft (out);
else
copy_draft (out, digest, drft, volume, issue, dashstuff);
close (out);
if (digest) {
snprintf (buf, sizeof(buf), IFORMAT, digest);
snprintf (value, sizeof(value), "%d", issue);
context_replace (buf, getcpy (value));
snprintf (buf, sizeof(buf), VFORMAT, digest);
snprintf (value, sizeof(value), "%d", volume);
context_replace (buf, getcpy (value));
}
context_replace (pfolder, folder); /* update current folder */
seq_setcur (mp, mp->lowsel); /* update current message */
seq_save (mp); /* synchronize sequences */
context_save (); /* save the context file */
}
if (nwhat)
done (0);
what_now (ed, nedit, NOUSE, drft, NULL, 0, mp,
anot ? "Forwarded" : NULL, inplace, cwd, 0);
done (1);
return 1;
}
