Mercurial > ~darius > hgwebdir.cgi > paradise_server

comparison src/tool-trim.c @ 8:0836fb919dfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First entry of Paradise Server 2.9 patch 10 Beta
author darius
date Sat, 06 Dec 1997 04:37:05 +0000
parents
children
comparison
equal deleted inserted replaced
7:814de70c9f67 8:0836fb919dfa
1 /*--------------------------------------------------------------------------
2 NETREK II -- Paradise
3
4 Permission to use, copy, modify, and distribute this software and its
5 documentation, or any derivative works thereof, for any NON-COMMERCIAL
6 purpose and without fee is hereby granted, provided that this copyright
7 notice appear in all copies. No representations are made about the
8 suitability of this software for any purpose. This software is provided
9 "as is" without express or implied warranty.
10
11 Xtrek Copyright 1986 Chris Guthrie
12 Netrek (Xtrek II) Copyright 1989 Kevin P. Smith
13 Scott Silvey
14 Paradise II (Netrek II) Copyright 1993 Larry Denys
15 Kurt Olsen
16 Brandon Gillespie
17 --------------------------------------------------------------------------*/
18
19 /*
20 * Kevin P. Smith 12/05/88
21 *
22 * Modified for Paradise by Rob Forsman 1993 Cleaned up by Brandon Gillespie
23 * Sept 17 1994
24 */
25
26 #include "config.h"
27
28 #include <stdio.h>
29 #include <sys/types.h>
30 #include <sys/file.h>
31 #include <pwd.h>
32 #include "defs.h"
33 #include "data.h"
34 #include "struct.h"
35
36 struct statentry player2;
37 /* struct status globals; */
38 struct rawdesc *output = NULL;
39 char mode;
40
41 /* prototypes */
42 void trimblanks2(char *str);
43 void trimblanks(char *str);
44 void usage(char *me);
45
46 main(argc, argv)
47 int argc;
48 char **argv;
49 {
50 int fd;
51 struct statentry plstats;
52 int i;
53 char buf[512];
54 int harsh = 10; /* How strict we will be with player trimming */
55 char *me;
56 char *path;
57 FILE *infile = stdin; /* these used to actually read in from the
58 * actual file, Rob changed them to
59 * stdin/out, and I don't mind them that way
60 * (it actually makes it a little easier */
61 FILE *outfile = stdout;
62
63 me = *argv;
64
65 if (argc == 2)
66 {
67 if (*argv[1] == '-')
68 usage(me);
69 else
70 harsh = atoi(argv[1]);
71 }
72
73 if (argc > 2 || harsh <= 0)
74 usage(me);
75
76 fprintf(stderr, "%s: If you do not know how to use this program, break now and type '%s -h'\n", me, me);
77
78 i = 0;
79 while (1 == fread(&plstats, sizeof(plstats), 1, infile))
80 {
81 /* Player 0 is always saved. */
82 /*
83 * This formula reads: If (deadtime - (10 + rank^2 + playtime/2.4)*n days
84 * > 0), nuke him.
85 */
86 if (i != 0
87 && harsh < 100
88 && ((time(NULL) - plstats.stats.st_lastlogin) >
89 (10 +
90 plstats.stats.st_rank * plstats.stats.st_rank +
91 (plstats.stats.st_tticks +
92 plstats.stats.st_sbticks +
93 plstats.stats.st_wbticks +
94 plstats.stats.st_jsticks) / 2.4) * harsh * 24 * 60 * 60)
95 )
96 {
97 fprintf(stderr,
98 "%-16.16s %7.2f %4d %4d %4d %4d\n",
99 plstats.name,
100 plstats.stats.st_tticks / 36000.0,
101 plstats.stats.st_tplanets,
102 player2.stats.st_tarmsbomb,
103 player2.stats.st_tkills,
104 player2.stats.st_tlosses);
105 continue;
106 }
107 if (outfile)
108 {
109 fwrite(&plstats, sizeof(plstats), 1, outfile);
110 }
111 i++;
112 }
113 exit(0);
114 }
115
116 void
117 usage(char *me)
118 {
119 int x;
120 char message[][255] = {
121 "\n\t'%s [n] < old-playerdb > new-playerdb'\n",
122 "\nThis program trims a player database file. The level of niceness is\n",
123 "determined by 'n' (default: 10). The old player database is read from stdin,\n",
124 "the new player database is written to stdout, a quick description of players\n",
125 "who were removed is written to stderr. It will remove any character who\n",
126 "has not played for n*10 days, as well as giving some other consideration\n",
127 "to their varied statistics. The actual formula is:\n\n",
128 "\tIf (deadtime - (10 + rank^2 + playtime/2.4)*n days > 0), nuke him.\n\n"
129 };
130
131 fprintf(stderr, "-- NetrekII (Paradise), %s --\n", PARAVERS);
132 for (x = 0; *message[x] != '\0'; x++)
133 fprintf(stderr, message[x], me);
134
135 exit(0);
136 }
137
138 void
139 trimblanks2(char *str)
140 {
141 *str = 0;
142 str--;
143 while (*str == ' ')
144 {
145 *str = 0;
146 str--;
147 }
148 if (*str == '_')
149 *str = 0;
150 }
151
152 void
153 trimblanks(char *str)
154 {
155 *str = 0;
156 str--;
157 while (*str == ' ')
158 {
159 *str = 0;
160 str--;
161 }
162 }