cf.schmorp.de/util/guilds.pl

#!/usr/bin/env perl

# Script to help making assertions on guild activity
# Usage is at the bottom

use strict;

my $PLAYERDIR = "/var/crossfire/players";

my $NOW = time;

my @black_shield;
my @damned_heretics;
my @dreaming_sage;
my @drunken_barbarian;
my @laughing_skull;
my @mailed_fist;
my @poisoned_dagger;
my @purple_butterfly;
my @smoking_cauldron;
my @ketsueki_itsuryuu;
my @nenshou_youso;
my @zaseki_dzuki_ryoku;

chdir $PLAYERDIR;

for my $pl (<*>) {
   my $mtime = (stat $pl)[9];
   my $pldata = do { local $/; open my $fh, "<$pl/$pl.pl" or die; <$fh> };

   push @black_shield,       $pl if $pldata =~ /black_shield/;
   push @damned_heretics,    $pl if $pldata =~ /damned_heretics/;
   push @dreaming_sage,      $pl if $pldata =~ /dreaming_sage/;
   push @drunken_barbarian,  $pl if $pldata =~ /drunken_barbarian/;
   push @laughing_skull,     $pl if $pldata =~ /laughing_skull/;
   push @mailed_fist,        $pl if $pldata =~ /mailed_fist/;
   push @poisoned_dagger,    $pl if $pldata =~ /poisoned_dagger/;
   push @purple_butterfly,   $pl if $pldata =~ /purple_butterfly/;
   push @smoking_cauldron,   $pl if $pldata =~ /smoking_cauldron/;
   push @ketsueki_itsuryuu,  $pl if $pldata =~ /ketsueki_itsuryuu/;
   push @nenshou_youso,      $pl if $pldata =~ /nenshou_youso/;
   push @zaseki_dzuki_ryoku, $pl if $pldata =~ /zaseki_dzuki_ryoku/;
}

my $bs_cnt = @black_shield;
my $dh_cnt = @damned_heretics;
my $ds_cnt = @dreaming_sage;
my $db_cnt = @drunken_barbarian;
my $ls_cnt = @laughing_skull;
my $mf_cnt = @mailed_fist;
my $pd_cnt = @poisoned_dagger;
my $pb_cnt = @purple_butterfly;
my $sc_cnt = @smoking_cauldron;
my $ki_cnt = @ketsueki_itsuryuu;
my $ny_cnt = @nenshou_youso;
my $zdr_cnt = @zaseki_dzuki_ryoku;

sub in_days {
   my ($secs) = @_;
   ($NOW - $secs) / 3600 / 24;
}

sub members_mtime_avg {
   my ($bs_mtime, $dh_mtime, $ds_mtime, $db_mtime, $ls_mtime, $mf_mtime) = 0;
   my ($pd_mtime, $pb_mtime, $sc_mtime, $ki_mtime, $ny_mtime, $zdr_mtime) = 0;

   for my $bs_member (@black_shield) {
      $bs_mtime += (stat "$bs_member")[9];
   }

   for my $dh_member (@damned_heretics) {
      $dh_mtime += (stat "$dh_member")[9];
   }

   for my $ds_member (@dreaming_sage) {
      $ds_mtime += (stat "$ds_member")[9];
   }

   for my $db_member (@drunken_barbarian) {
      $db_mtime += (stat "$db_member")[9];
   }

   for my $ls_member (@laughing_skull) {
      $ls_mtime += (stat "$ls_member")[9];
   }

   for my $mf_member (@mailed_fist) {
      $mf_mtime += (stat "$mf_member")[9];
   }

   for my $pd_member (@poisoned_dagger) {
      $pd_mtime += (stat "$pd_member")[9];
   }

   for my $pb_member (@purple_butterfly) {
      $pb_mtime += (stat "$pb_member")[9];
   }

   for my $sc_member (@smoking_cauldron) {
      $sc_mtime += (stat "$sc_member")[9];
   }

   for my $ki_member (@ketsueki_itsuryuu) {
      $ki_mtime += (stat "$ki_member")[9];
   }

   for my $ny_member (@nenshou_youso) {
      $ny_mtime += (stat "$ny_member")[9];
   }

   for my $zdr_member (@zaseki_dzuki_ryoku) {
      $zdr_mtime += (stat "$zdr_member")[9];
   }

   $bs_mtime = $bs_mtime / $bs_cnt;
   $dh_mtime = $dh_mtime / $dh_cnt;
   $ds_mtime = $ds_mtime / $ds_cnt;
   $db_mtime = $db_mtime / $db_cnt;
   $ls_mtime = $ls_mtime / $ls_cnt;
   $mf_mtime = $mf_mtime / $mf_cnt;
   $pd_mtime = $pd_mtime / $pd_cnt;
   $pb_mtime = $pb_mtime / $pb_cnt;
   $sc_mtime = $sc_mtime / $sc_cnt;
   $ki_mtime = $ki_mtime / $ki_cnt;
   $ny_mtime = $ny_mtime / $ny_cnt;
   $zdr_mtime = $zdr_mtime / $zdr_cnt;

   print "Guild:              mtime:\n";
   print "black_shield:       ".in_days($bs_mtime)."\n";
   print "damned_heretics:    ".in_days($dh_mtime)."\n";
   print "dreaming_sage:      ".in_days($ds_mtime)."\n";
   print "drunken_barbarian:  ".in_days($db_mtime)."\n";
   print "laughing_skull:     ".in_days($ls_mtime)."\n";
   print "mailed_fist:        ".in_days($mf_mtime)."\n";
   print "poisoned_dagger:    ".in_days($pd_mtime)."\n";
   print "purple_butterfly:   ".in_days($pb_mtime)."\n";
   print "smoking_cauldron:   ".in_days($sc_mtime)."\n";
   print "ketsueki_itsuryuu:  ".in_days($ki_mtime)."\n";
   print "nenshou_youso:      ".in_days($ny_mtime)."\n";
   print "zaseki_dzuki_ryoku: ".in_days($zdr_mtime)."\n";
}

sub members_mtime_max {
   my ($bs_mtime, $dh_mtime, $ds_mtime, $db_mtime, $ls_mtime, $mf_mtime) = 0;
   my ($pd_mtime, $pb_mtime, $sc_mtime, $ki_mtime, $ny_mtime, $zdr_mtime) = 0;

   for my $bs_member (@black_shield) {
      $bs_member = (stat "$bs_member")[9];
      $bs_mtime = $bs_member if $bs_member > $bs_mtime;
   }

   for my $dh_member (@damned_heretics) {
      $dh_member = (stat "$dh_member")[9];
      $dh_mtime = $dh_member if $dh_member > $dh_mtime;
   }

   for my $ds_member (@dreaming_sage) {
      $ds_member = (stat "$ds_member")[9];
      $ds_mtime = $ds_member if $ds_member > $ds_mtime;
   }

   for my $db_member (@drunken_barbarian) {
      $db_member = (stat "$db_member")[9];
      $db_mtime = $db_member if $db_member > $db_mtime;
   }

   for my $ls_member (@laughing_skull) {
      $ls_member = (stat "$ls_member")[9];
      $ls_mtime = $ls_member if $ls_member > $ls_mtime;
   }

   for my $mf_member (@mailed_fist) {
      $mf_member = (stat "$mf_member")[9];
      $mf_mtime = $mf_member if $mf_member > $mf_mtime;
   }

   for my $pd_member (@poisoned_dagger) {
      $pd_member = (stat "$pd_member")[9];
      $pd_mtime = $pd_member if $pd_member > $pd_mtime;
   }

   for my $pb_member (@purple_butterfly) {
      $pb_member = (stat "$pb_member")[9];
      $pb_mtime = $pb_member if $pb_member > $pb_mtime;
   }

   for my $sc_member (@smoking_cauldron) {
      $sc_member = (stat "$sc_member")[9];
      $sc_mtime = $sc_member if $sc_member > $sc_mtime;
   }

   for my $ki_member (@ketsueki_itsuryuu) {
      $ki_member = (stat "$ki_member")[9];
      $ki_mtime = $ki_member if $ki_member > $ki_mtime;
   }

   for my $ny_member (@nenshou_youso) {
      $ny_member = (stat "$ny_member")[9];
      $ny_mtime = $ny_member if $ny_member > $ny_mtime;
   }

   for my $zdr_member (@zaseki_dzuki_ryoku) {
      $zdr_member = (stat "$zdr_member")[9];
      $zdr_mtime = $zdr_member if $zdr_member > $zdr_mtime;
   }

   print "Guild:              mtime:\n";
   print "black_shield:       ".in_days($bs_mtime)."\n";
   print "damned_heretics:    ".in_days($dh_mtime)."\n";
   print "dreaming_sage:      ".in_days($ds_mtime)."\n";
   print "drunken_barbarian:  ".in_days($db_mtime)."\n";
   print "laughing_skull:     ".in_days($ls_mtime)."\n";
   print "mailed_fist:        ".in_days($mf_mtime)."\n";
   print "poisoned_dagger:    ".in_days($pd_mtime)."\n";
   print "purple_butterfly:   ".in_days($pb_mtime)."\n";
   print "smoking_cauldron:   ".in_days($sc_mtime)."\n";
   print "ketsueki_itsuryuu:  ".in_days($ki_mtime)."\n";
   print "nenshou_youso:      ".in_days($ny_mtime)."\n";
   print "zaseki_dzuki_ryoku: ".in_days($zdr_mtime)."\n";
}

sub members_cnt {
   print "Guild:              members:\n";
   print "black_shield:       $bs_cnt\n";
   print "damned_heretics:    $dh_cnt\n";
   print "dreaming_sage:      $ds_cnt\n";
   print "drunken_barbarian:  $db_cnt\n";
   print "laughing_skull:     $ls_cnt\n";
   print "mailed_fist:        $mf_cnt\n";
   print "poisoned_dagger:    $pd_cnt\n";
   print "purple_butterfly:   $pb_cnt\n";
   print "smoking_cauldron:   $sc_cnt\n";
   print "ketsueki_itsuryuu:  $ki_cnt\n";
   print "nenshou_youso:      $ny_cnt\n";
   print "zaseki_dzuki_ryoku: $zdr_cnt\n";
}

sub usage {
   print <<USAGE;
Usage: perl guilds.pl [max|avg|cnt]

   max:  max(mtime of all guild members) for each guild
   avg:  average mtime of all guild members for each guild
   cnt:  member count (number of players owning a key)

Copyright (C) 2006 The Crossfire+ Development Team
USAGE
}

if ($ARGV[0] eq "max") {
   members_mtime_max;
} elsif ($ARGV[0] eq "avg") {
   members_mtime_avg;
} elsif ($ARGV[0] eq "cnt") {
   members_cnt;
} else {
   usage;
}
Revision:	1.2
Committed:	Sat Dec 2 20:54:34 2006 UTC (19 years, 10 months ago) by pippijn
Content type:	text/plain
Branch:	MAIN
Changes since 1.1:	+20 -1 lines
Log Message:	Added member count function
#	User	Rev	Content
1	pippijn	1.1	#!/usr/bin/env perl
2
3			# Script to help making assertions on guild activity
4			# Usage is at the bottom
5
6			use strict;
7
8			my $PLAYERDIR = "/var/crossfire/players";
9
10			my $NOW = time;
11
12			my @black_shield;
13			my @damned_heretics;
14			my @dreaming_sage;
15			my @drunken_barbarian;
16			my @laughing_skull;
17			my @mailed_fist;
18			my @poisoned_dagger;
19			my @purple_butterfly;
20			my @smoking_cauldron;
21			my @ketsueki_itsuryuu;
22			my @nenshou_youso;
23			my @zaseki_dzuki_ryoku;
24
25			chdir $PLAYERDIR;
26
27			for my $pl (<*>) {
28			my $mtime = (stat $pl)[9];
29			my $pldata = do { local $/; open my $fh, "<$pl/$pl.pl" or die; <$fh> };
30
31			push @black_shield, $pl if $pldata =~ /black_shield/;
32			push @damned_heretics, $pl if $pldata =~ /damned_heretics/;
33			push @dreaming_sage, $pl if $pldata =~ /dreaming_sage/;
34			push @drunken_barbarian, $pl if $pldata =~ /drunken_barbarian/;
35			push @laughing_skull, $pl if $pldata =~ /laughing_skull/;
36			push @mailed_fist, $pl if $pldata =~ /mailed_fist/;
37			push @poisoned_dagger, $pl if $pldata =~ /poisoned_dagger/;
38			push @purple_butterfly, $pl if $pldata =~ /purple_butterfly/;
39			push @smoking_cauldron, $pl if $pldata =~ /smoking_cauldron/;
40			push @ketsueki_itsuryuu, $pl if $pldata =~ /ketsueki_itsuryuu/;
41			push @nenshou_youso, $pl if $pldata =~ /nenshou_youso/;
42			push @zaseki_dzuki_ryoku, $pl if $pldata =~ /zaseki_dzuki_ryoku/;
43			}
44
45			my $bs_cnt = @black_shield;
46			my $dh_cnt = @damned_heretics;
47			my $ds_cnt = @dreaming_sage;
48			my $db_cnt = @drunken_barbarian;
49			my $ls_cnt = @laughing_skull;
50			my $mf_cnt = @mailed_fist;
51			my $pd_cnt = @poisoned_dagger;
52			my $pb_cnt = @purple_butterfly;
53			my $sc_cnt = @smoking_cauldron;
54			my $ki_cnt = @ketsueki_itsuryuu;
55			my $ny_cnt = @nenshou_youso;
56			my $zdr_cnt = @zaseki_dzuki_ryoku;
57
58			sub in_days {
59			my ($secs) = @_;
60			($NOW - $secs) / 3600 / 24;
61			}
62
63			sub members_mtime_avg {
64			my ($bs_mtime, $dh_mtime, $ds_mtime, $db_mtime, $ls_mtime, $mf_mtime) = 0;
65			my ($pd_mtime, $pb_mtime, $sc_mtime, $ki_mtime, $ny_mtime, $zdr_mtime) = 0;
66
67			for my $bs_member (@black_shield) {
68			$bs_mtime += (stat "$bs_member")[9];
69			}
70
71			for my $dh_member (@damned_heretics) {
72			$dh_mtime += (stat "$dh_member")[9];
73			}
74
75			for my $ds_member (@dreaming_sage) {
76			$ds_mtime += (stat "$ds_member")[9];
77			}
78
79			for my $db_member (@drunken_barbarian) {
80			$db_mtime += (stat "$db_member")[9];
81			}
82
83			for my $ls_member (@laughing_skull) {
84			$ls_mtime += (stat "$ls_member")[9];
85			}
86
87			for my $mf_member (@mailed_fist) {
88			$mf_mtime += (stat "$mf_member")[9];
89			}
90
91			for my $pd_member (@poisoned_dagger) {
92			$pd_mtime += (stat "$pd_member")[9];
93			}
94
95			for my $pb_member (@purple_butterfly) {
96			$pb_mtime += (stat "$pb_member")[9];
97			}
98
99			for my $sc_member (@smoking_cauldron) {
100			$sc_mtime += (stat "$sc_member")[9];
101			}
102
103			for my $ki_member (@ketsueki_itsuryuu) {
104			$ki_mtime += (stat "$ki_member")[9];
105			}
106
107			for my $ny_member (@nenshou_youso) {
108			$ny_mtime += (stat "$ny_member")[9];
109			}
110
111			for my $zdr_member (@zaseki_dzuki_ryoku) {
112			$zdr_mtime += (stat "$zdr_member")[9];
113			}
114
115			$bs_mtime = $bs_mtime / $bs_cnt;
116			$dh_mtime = $dh_mtime / $dh_cnt;
117			$ds_mtime = $ds_mtime / $ds_cnt;
118			$db_mtime = $db_mtime / $db_cnt;
119			$ls_mtime = $ls_mtime / $ls_cnt;
120			$mf_mtime = $mf_mtime / $mf_cnt;
121			$pd_mtime = $pd_mtime / $pd_cnt;
122			$pb_mtime = $pb_mtime / $pb_cnt;
123			$sc_mtime = $sc_mtime / $sc_cnt;
124			$ki_mtime = $ki_mtime / $ki_cnt;
125			$ny_mtime = $ny_mtime / $ny_cnt;
126			$zdr_mtime = $zdr_mtime / $zdr_cnt;
127
128			print "Guild: mtime:\n";
129			print "black_shield: ".in_days($bs_mtime)."\n";
130			print "damned_heretics: ".in_days($dh_mtime)."\n";
131			print "dreaming_sage: ".in_days($ds_mtime)."\n";
132			print "drunken_barbarian: ".in_days($db_mtime)."\n";
133			print "laughing_skull: ".in_days($ls_mtime)."\n";
134			print "mailed_fist: ".in_days($mf_mtime)."\n";
135			print "poisoned_dagger: ".in_days($pd_mtime)."\n";
136			print "purple_butterfly: ".in_days($pb_mtime)."\n";
137			print "smoking_cauldron: ".in_days($sc_mtime)."\n";
138			print "ketsueki_itsuryuu: ".in_days($ki_mtime)."\n";
139			print "nenshou_youso: ".in_days($ny_mtime)."\n";
140			print "zaseki_dzuki_ryoku: ".in_days($zdr_mtime)."\n";
141			}
142
143			sub members_mtime_max {
144			my ($bs_mtime, $dh_mtime, $ds_mtime, $db_mtime, $ls_mtime, $mf_mtime) = 0;
145			my ($pd_mtime, $pb_mtime, $sc_mtime, $ki_mtime, $ny_mtime, $zdr_mtime) = 0;
146
147			for my $bs_member (@black_shield) {
148			$bs_member = (stat "$bs_member")[9];
149			$bs_mtime = $bs_member if $bs_member > $bs_mtime;
150			}
151
152			for my $dh_member (@damned_heretics) {
153			$dh_member = (stat "$dh_member")[9];
154			$dh_mtime = $dh_member if $dh_member > $dh_mtime;
155			}
156
157			for my $ds_member (@dreaming_sage) {
158			$ds_member = (stat "$ds_member")[9];
159			$ds_mtime = $ds_member if $ds_member > $ds_mtime;
160			}
161
162			for my $db_member (@drunken_barbarian) {
163			$db_member = (stat "$db_member")[9];
164			$db_mtime = $db_member if $db_member > $db_mtime;
165			}
166
167			for my $ls_member (@laughing_skull) {
168			$ls_member = (stat "$ls_member")[9];
169			$ls_mtime = $ls_member if $ls_member > $ls_mtime;
170			}
171
172			for my $mf_member (@mailed_fist) {
173			$mf_member = (stat "$mf_member")[9];
174			$mf_mtime = $mf_member if $mf_member > $mf_mtime;
175			}
176
177			for my $pd_member (@poisoned_dagger) {
178			$pd_member = (stat "$pd_member")[9];
179			$pd_mtime = $pd_member if $pd_member > $pd_mtime;
180			}
181
182			for my $pb_member (@purple_butterfly) {
183			$pb_member = (stat "$pb_member")[9];
184			$pb_mtime = $pb_member if $pb_member > $pb_mtime;
185			}
186
187			for my $sc_member (@smoking_cauldron) {
188			$sc_member = (stat "$sc_member")[9];
189			$sc_mtime = $sc_member if $sc_member > $sc_mtime;
190			}
191
192			for my $ki_member (@ketsueki_itsuryuu) {
193			$ki_member = (stat "$ki_member")[9];
194			$ki_mtime = $ki_member if $ki_member > $ki_mtime;
195			}
196
197			for my $ny_member (@nenshou_youso) {
198			$ny_member = (stat "$ny_member")[9];
199			$ny_mtime = $ny_member if $ny_member > $ny_mtime;
200			}
201
202			for my $zdr_member (@zaseki_dzuki_ryoku) {
203			$zdr_member = (stat "$zdr_member")[9];
204			$zdr_mtime = $zdr_member if $zdr_member > $zdr_mtime;
205			}
206
207			print "Guild: mtime:\n";
208			print "black_shield: ".in_days($bs_mtime)."\n";
209			print "damned_heretics: ".in_days($dh_mtime)."\n";
210			print "dreaming_sage: ".in_days($ds_mtime)."\n";
211			print "drunken_barbarian: ".in_days($db_mtime)."\n";
212			print "laughing_skull: ".in_days($ls_mtime)."\n";
213			print "mailed_fist: ".in_days($mf_mtime)."\n";
214			print "poisoned_dagger: ".in_days($pd_mtime)."\n";
215			print "purple_butterfly: ".in_days($pb_mtime)."\n";
216			print "smoking_cauldron: ".in_days($sc_mtime)."\n";
217			print "ketsueki_itsuryuu: ".in_days($ki_mtime)."\n";
218			print "nenshou_youso: ".in_days($ny_mtime)."\n";
219			print "zaseki_dzuki_ryoku: ".in_days($zdr_mtime)."\n";
220			}
221
222	pippijn	1.2	sub members_cnt {
223			print "Guild: members:\n";
224			print "black_shield: $bs_cnt\n";
225			print "damned_heretics: $dh_cnt\n";
226			print "dreaming_sage: $ds_cnt\n";
227			print "drunken_barbarian: $db_cnt\n";
228			print "laughing_skull: $ls_cnt\n";
229			print "mailed_fist: $mf_cnt\n";
230			print "poisoned_dagger: $pd_cnt\n";
231			print "purple_butterfly: $pb_cnt\n";
232			print "smoking_cauldron: $sc_cnt\n";
233			print "ketsueki_itsuryuu: $ki_cnt\n";
234			print "nenshou_youso: $ny_cnt\n";
235			print "zaseki_dzuki_ryoku: $zdr_cnt\n";
236			}
237
238	pippijn	1.1	sub usage {
239			print <<USAGE;
240	pippijn	1.2	Usage: perl guilds.pl [max\|avg\|cnt]
241	pippijn	1.1
242			max: max(mtime of all guild members) for each guild
243			avg: average mtime of all guild members for each guild
244	pippijn	1.2	cnt: member count (number of players owning a key)
245	pippijn	1.1
246			Copyright (C) 2006 The Crossfire+ Development Team
247			USAGE
248			}
249
250			if ($ARGV[0] eq "max") {
251			members_mtime_max;
252			} elsif ($ARGV[0] eq "avg") {
253			members_mtime_avg;
254	pippijn	1.2	} elsif ($ARGV[0] eq "cnt") {
255			members_cnt;
256	pippijn	1.1	} else {
257			usage;
258			}