Return to print_recs.c CVS log

Up to [MW Coherent from dump] / coherent / d / support / bbsadmin

Annotation of coherent/d/support/bbsadmin/print_recs.c, revision 1.1.1.1

1.1       root        1: 
                      2: /* print_(mail_)recs.c
                      3:  *
                      4:  * This will take the 'statename' passed form the calling function,
                      5:  * open the maillist file and print the records that match the statename
                      6:  * to a window in formatted columns, If there are more records that lines
                      7:  * permitted on the window, the user will be prompted to press <return> to 
                      8:  * continue on with any following screens of info.
                      9: /*
                     10: 
                     11: void print_mail_recs(win2,statename)
                     12: WINDOW *win2;
                     13: char statename[20];
                     14: 
                     15: {
                     16: struct mail record;
                     17: FILE *infp;
                     18: int x=2;
                     19: 
                     20: 
                     21:        if ((infp=fopen(MAILFILE,"r")) == NULL)
                     22:                {
                     23:                noraw();
                     24:                endwin();
                     25:                printf("Error opening file for input!\n");
                     26:                exit(1);
                     27:                }
                     28: 
                     29: 
                     30:        /* print column titles */
                     31: 
                     32:        wclear(win2);
                     33:        wmove(win2,0,0);
                     34:        wstandout(win2);
                     35:        waddstr(win2,"Sitename");
                     36:        wmove(win2,0,15);
                     37:        waddstr(win2,"Login:");
                     38:        wmove(win2,0,24);
                     39:        waddstr(win2,"State/Country:");
                     40: 
                     41:        /* if we are looking for a US mailsite, then show a column for
                     42:         * cities
                     43:        */
                     44: 
                     45:        if(strcmp(statename,"NON-US") != 0)
                     46:                {
                     47:                wmove(win2,0,49);
                     48:                waddstr(win2,"City/Other:");
                     49:                }
                     50:        wstandend(win2);
                     51:        wmove(win2,2,0);
                     52: 
                     53:        wrefresh(win2);
                     54: 
                     55:        /* read each record, comparing statename for matches. When a 
                     56:          match is found, print the record */
                     57: 
                     58:        while ( fread(&record,sizeof(struct mail),1,infp) == 1)
                     59:                {
                     60:                if( (strcmp(statename,record.state)== 0) || ((strcmp(statename,"NON-US")==0) && (strcmp(record.city,"COUNTRY")==0)))
                     61: 
                     62:                        {
                     63:                        wmove(win2,x,0);
                     64:                        waddstr(win2,record.site);
                     65:                        wmove(win2,x,16);
                     66:                        waddstr(win2,record.login);
                     67:                        wmove(win2,x,26);
                     68:                        waddstr(win2,record.state);
                     69:                        if(strcmp(statename,"NON-US")!=0)
                     70:                                {
                     71:                                wmove(win2,x,50);
                     72:                                waddstr(win2,record.city);
                     73:                                }
                     74: 
                     75:        /* increment our line counter, if we've filled our screen,
                     76:         * prompt the user to press <return> to continue on reading
                     77:         * any followinf mail entries from the file.
                     78:        */
                     79:                        x++;
                     80:                        if(x==18)
                     81:                                {
                     82:                                wmove(win2,x,0);
                     83:                                waddstr(win2,"Press <RETURN> for more");
                     84:                                wrefresh(win2);
                     85:                                while (13 != wgetch(win2));
                     86:                                x = 2;
                     87:                                wclear(win2);
                     88: 
                     89:                /* reprint the column titles */
                     90: 
                     91:                                wmove(win2,0,0);
                     92:                                wstandout(win2);
                     93:                                waddstr(win2,"Sitename");
                     94:                                wmove(win2,0,15);
                     95:                                waddstr(win2,"Login:");
                     96:                                wmove(win2,0,24);
                     97:                                waddstr(win2,"State/Country:");
                     98: 
                     99:                                if(strcmp(statename,"NON-US") != 0)
                    100:                                        {
                    101:                                        wmove(win2,0,49);
                    102:                                        waddstr(win2,"City/Other:");
                    103:                                        }
                    104:                                wstandend(win2);
                    105: 
                    106:                                wrefresh(win2);
                    107:                                }
                    108:                        }
                    109:                }
                    110:                fclose(infp);
                    111: 
                    112:                wmove(win2,18,0);
                    113:                wstandout(win2);
                    114:                waddstr(win2,"That's all folks!");
                    115:                wstandend(win2);
                    116: 
                    117:                wmove(win2,19,0);
                    118:                waddstr(win2,"Press <RETURN> to continue..");           
                    119:                wrefresh(win2);
                    120: 
                    121:                while(13 != wgetch(win2));
                    122:                wclear(win2);
                    123: 
                    124: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.