home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / flink11.zip / Top.fpl < prev    next >
Text File  |  1995-08-12  |  5KB  |  168 lines
  1. void ShowLastLogin()
  2. {
  3.     string line,file,str;
  4.     int i,j,x,y;
  5.  
  6.     i=atoi(getenv("NODE"));
  7.  
  8.     file=sprintf("c:\\tmp\\%d\\lastlogin.nul",i);
  9.     if(!fexists(file))
  10.     return;
  11.  
  12.     i=fileinfo(file,"time");
  13.     j=nowtime();
  14.     x=j-i;
  15.  
  16.     printf( "\nDenna nod har vilat i ");
  17.     x/=60;
  18.     if(x/60) {
  19.     y=x/60;
  20.     if(y>1) str="ar"; else str="e";
  21.     printf("%d timm%s och ",y,str);
  22.     }
  23.     if(x%60) {
  24.     y=x%60;
  25.     if(y>1) str="er"; else str="";
  26.     printf("%d minut%s",y,str);
  27.     }
  28.     else {
  29.     x=j-i;
  30.     printf("%d sekunder",x%3600);
  31.     }
  32.     printf(" sedan senaste samtalet.\n");
  33.  
  34.     LogCall(x);
  35. }
  36.  
  37. void LogCall(int time)
  38. {
  39.     string s1,s2,s3,file;
  40.     int node,i,hour,calls;
  41.  
  42.     node=atoi(getenv("NODE"));
  43.  
  44.     /* logga vilken timme samtalet ägt rum */
  45.     file=sprintf("\\tmp\\%d\\callhour.log",node);
  46.     s1=loadstring(file);
  47.  
  48.     hour=timepart(nowtime(),"hour");
  49.     s2="";
  50.     for (i=0;i<24;i++) {
  51.     calls=atoi(tokstr(s1,i+1,","));
  52.     if(hour==i)
  53.         calls++;
  54.     s2+=sprintf("%d,",calls);
  55.     }
  56.     savestring(s2,file);
  57.  
  58.  
  59.     /* logga vilken dag samtalet ägt rum */
  60.     file=sprintf("\\tmp\\%d\\callday.log",node);
  61.     s1=loadstring(file);
  62.  
  63.     hour=timepart(nowtime(),"wday");
  64.     s2="";
  65.     for (i=0;i<7;i++) {
  66.     calls=atoi(tokstr(s1,i+1,","));
  67.     if(hour==i)
  68.         calls++;
  69.     s2+=sprintf("%d,",calls);
  70.     }
  71.     savestring(s2,file);
  72. }
  73.  
  74. void ShowLogo()
  75. {
  76. printf("\n  ********* ***   *** *********    ***   ***  *******  ***     ***   ***\n");
  77. printf("  ********* ***   *** *********    ***   *** ********* ***     ***   ***\n");
  78. printf("-----***    ***   *** ***          ***   *** ***   *** ***     ***   ***-------\n");
  79. printf("     ***    ********* ******       ********* ***   *** ***      *******\n");
  80. printf("     ***    ********* ******       ********* ***   *** ***      *******\n");
  81. printf("     ***    ***   *** ***          ***   *** ***   *** ***        ***\n");
  82. printf("_____***    ***   *** *********    ***   *** ********* *********  ***__________\n");
  83. printf("     ***    ***   *** *********    ***   ***  *******  *********  ***\n");
  84. printf("                                                                     ___\n");
  85. printf("       ,,,         *******  ********   *******  *** ***            _(___)_\n");
  86. printf("      (o-o)       ********* ********* ********* *** ***             (o -)\n");
  87. printf("---oOO-(_)-OOo----***       ***   *** ***   *** *** ***---------oOO--(_)--OOo--\n");
  88. printf("                  ***  **** ********* ********* *** ***    AmigaNet: 39:164/102\n");
  89. printf("   2.2 GB filer   ***  **** ********  ********* *** ***     FidoNet:  2:201/328\n");
  90. printf("   Endast Amiga   ***   *** ***   *** ***   *** *** ***        Dubbla noder\n");
  91. printf("__________________********* ***   *** ***   *** *** *********__________________\n");
  92. printf("    (__) (__)      *******  ***   *** ***   *** *** *********    (__)   (__)\n");
  93. printf("\n");
  94. printf("            -= Fri DL av 15.000 Amigaprogram från 1985 till 1995 =-\n");
  95. }
  96.  
  97. void SetupStrings()
  98. {
  99.     string Days[3] = {"Idag","Igår","Förrgår"};
  100.     string Months[12] = { "Jan","Febr","Mars","April","Maj","Juni",
  101.               "Juli","Aug","Sept","Okt","Nov","Dec" };
  102.     setdatestr(&Days,&Months);
  103. }
  104.  
  105.  
  106. void LoadFiles()
  107. {
  108.     /*  We run all files at the beginning in order to make all functions
  109.      *  protyped == flashy access
  110.      */
  111.  
  112.     int i=9;
  113.  
  114.     ShowLastLogin();
  115.     
  116.     runfile("C:\\FrexxLink\\fpl\\global.fpl");
  117.     runfile("C:\\FrexxLink\\fpl\\configmenu.fpl");
  118.     runfile("C:\\FrexxLink\\fpl\\colors.fpl");
  119.  
  120.     settimeout(120);
  121.     setfunc("timeout","Timeout();");
  122.  
  123.     AskForCharset();
  124.     settimeout(900);
  125.  
  126.     printf("Laddar... %d\b",i--);
  127.     runfile("C:\\FrexxLink\\fpl\\mailareas.fpl");
  128.  
  129.     printf("%d\b",i--);
  130.     runfile("C:\\FrexxLink\\fpl\\fileareas.fpl");
  131.  
  132.     printf("%d\b",i--);
  133.     runfile("C:\\FrexxLink\\fpl\\newuser.fpl");
  134.  
  135.     printf("%d\b",i--);
  136.     runfile("C:\\FrexxLink\\fpl\\login.fpl");
  137.  
  138.     printf("%d\b",i--);
  139.     runfile("C:\\FrexxLink\\fpl\\filemenu.fpl");
  140.  
  141.     printf("%d\b",i--);
  142.     runfile("C:\\FrexxLink\\fpl\\mailmenu.fpl");
  143.  
  144. /*    printf("%d\b",i--); */
  145.     runfile("C:\\FrexxLink\\fpl\\kom.fpl");
  146.  
  147.     printf("%d\b",i--);
  148.     runfile("C:\\FrexxLink\\fpl\\mainmenu.fpl");
  149.  
  150.     printf("%d\b",i--);
  151.     runfile("C:\\FrexxLink\\fpl\\infomeny.fpl");
  152.  
  153.     printf("%d\b",i--);
  154.     runfile("C:\\FrexxLink\\fpl\\oneliner.fpl");
  155.     printf("Klar.\n");
  156.     ShowLogo();
  157.  
  158.     /* set more prompt */
  159.     setfunc("moreprompt","More();");
  160.     setfunc("timeleft","Showtime();");
  161. }
  162.  
  163. LoadFiles();
  164. SetupStrings();
  165. Login();
  166. printf("\n");
  167. MainMenu();
  168.