ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/guilds.ext
(Generate patch)

Comparing deliantra/server/ext/guilds.ext (file contents):
Revision 1.4 by root, Wed Apr 18 14:24:09 2007 UTC vs.
Revision 1.6 by root, Tue May 4 21:45:42 2010 UTC

… …
16 16
17sub do_help { 17sub do_help {
18 my ($guildrules, $who, $npc) = @_; 18 my ($guildrules, $who, $npc) = @_;
19 $who->reply ($npc, 19 $who->reply ($npc,
20 "Help for $guildrules\n" 20 "Help for $guildrules\n"
21 ."List of commands:\n\n" 21 . "List of commands:\n\n"
22 ."- list\n" 22 . " - list\n"
23 ."- write <message>\n" 23 . " - write <message>\n"
24 ."- remove <id>\n" 24 . " - remove <id>\n"
25 ); 25 );
26} 26}
27 27
28sub do_write { 28sub do_write {
29 my ($guildrules, $msg, $who, $npc) = @_; 29 my ($guildrules, $msg, $who, $npc) = @_;
… …
143 my $entries = $GUILDRULESDB->{"msg_$guildrules"} ||= []; 143 my $entries = $GUILDRULESDB->{"msg_$guildrules"} ||= [];
144 push @$entries, [$from, $message]; 144 push @$entries, [$from, $message];
145 cf::db_put guildrules => data => Compress::LZF::sfreeze_cr $GUILDRULESDB; 145 cf::db_put guildrules => data => Compress::LZF::sfreeze_cr $GUILDRULESDB;
146} 146}
147 147
1481;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines