diff options
author | Farow <farow_spam@lavabit.com> | 2013-10-02 17:47:56 +0300 |
---|---|---|
committer | Eustachy Kapusta <Eustachy.kapusta@gmail.com> | 2013-10-07 22:58:38 +0200 |
commit | 075cc61c942998b7fdfeabfde10490ef233f88cd (patch) | |
tree | 00d3c95ac10ab8b5d3ff325d977860545e9ad661 /plugins/perl/lib/Xchat/List/Network.pm | |
parent | aafbb6374b903d0c8ec5364f4cb3f2065cc7d31e (diff) |
Rebrand Perl plugin to HexChat,
Add /pl and plugin_pref Add help messages
Diffstat (limited to 'plugins/perl/lib/Xchat/List/Network.pm')
-rw-r--r-- | plugins/perl/lib/Xchat/List/Network.pm | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/plugins/perl/lib/Xchat/List/Network.pm b/plugins/perl/lib/Xchat/List/Network.pm deleted file mode 100644 index 3a7e2ae6..00000000 --- a/plugins/perl/lib/Xchat/List/Network.pm +++ /dev/null @@ -1,33 +0,0 @@ -package Xchat::List::Network; -use strict; -use warnings; -use Storable qw(dclone); -my $last_modified; -my @servers; - -sub get { - my $server_file = Xchat::get_info( "configdir" ) . "/servlist.conf"; - - # recreate the list only if the server list file has changed - if( -f $server_file && - (!defined $last_modified || $last_modified != -M $server_file ) ) { - $last_modified = -M _; - - @servers = (); - if( open my $fh, "<", $server_file ) { - local $/ = "\n\n"; - while( my $record = <$fh> ) { - chomp $record; - next if $record =~ /^v=/; # skip the version line - push @servers, Xchat::List::Network::Entry::parse( $record ); - } - } else { - warn "Unable to open '$server_file': $!"; - } - } - - my $clone = dclone( \@servers ); - return @$clone; -} - -1 |