mirror of https://github.com/pragma-/pbot.git
69 lines
1.6 KiB
Perl
69 lines
1.6 KiB
Perl
# File: NewModule.pm
|
|
# Authoer: pragma_
|
|
#
|
|
# Purpose: New module skeleton
|
|
|
|
package PBot::ChannelStuff;
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
BEGIN {
|
|
use Exporter ();
|
|
use vars qw($VERSION @ISA @EXPORT_OK);
|
|
|
|
$VERSION = $PBot::PBot::VERSION;
|
|
@ISA = qw(Exporter);
|
|
@EXPORT_OK = qw($channels_file $logger %channels);
|
|
}
|
|
|
|
use vars @EXPORT_OK;
|
|
|
|
*channels_file = \$PBot::PBot::channels_file;
|
|
*logger = \$PBot::PBot::logger;
|
|
|
|
%channels = ();
|
|
|
|
sub load_channels {
|
|
open(FILE, "< $channels_file") or die "Couldn't open $channels_file: $!\n";
|
|
my @contents = <FILE>;
|
|
close(FILE);
|
|
|
|
$logger->log("Loading channels from $channels_file ...\n");
|
|
|
|
my $i = 0;
|
|
foreach my $line (@contents) {
|
|
$i++;
|
|
chomp $line;
|
|
my ($channel, $enabled, $is_op, $showall) = split(/\s+/, $line);
|
|
if(not defined $channel || not defined $is_op || not defined $enabled) {
|
|
die "Syntax error around line $i of $channels_file\n";
|
|
}
|
|
|
|
$channel = lc $channel;
|
|
|
|
if(defined $channels{$channel}) {
|
|
die "Duplicate channel $channel found in $channels_file around line $i\n";
|
|
}
|
|
|
|
$channels{$channel}{enabled} = $enabled;
|
|
$channels{$channel}{is_op} = $is_op;
|
|
$channels{$channel}{showall} = $showall;
|
|
|
|
$logger->log(" Adding channel $channel (enabled: $enabled, op: $is_op, showall: $showall) ...\n");
|
|
}
|
|
|
|
$logger->log("Done.\n");
|
|
}
|
|
|
|
sub save_channels {
|
|
open(FILE, "> $channels_file") or die "Couldn't open $channels_file: $!\n";
|
|
foreach my $channel (keys %channels) {
|
|
$channel = lc $channel;
|
|
print FILE "$channel $channels{$channel}{enabled} $channels{$channel}{is_op} $channels{$channel}{showall}\n";
|
|
}
|
|
close(FILE);
|
|
}
|
|
|
|
1;
|