Rebrand Perl plugin to HexChat,

Add /pl and plugin_pref

Add help messages

1 files changed, 33 insertions, 0 deletions

diff --git a/plugins/perl/lib/HexChat/List/Network.pm b/plugins/perl/lib/HexChat/List/Network.pm
new file mode 100644
index 00000000..64b3d14c
--- /dev/null
+++ b/plugins/perl/lib/HexChat/List/Network.pm
@@ -0,0 +1,33 @@
+package HexChat::List::Network;
+use strict;
+use warnings;
+use Storable qw(dclone);
+my $last_modified;
+my @servers;
+
+sub get {
+	my $server_file = HexChat::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, HexChat::List::Network::Entry::parse( $record );
+			}
+		} else {
+			warn "Unable to open '$server_file': $!";
+		}
+	}
+
+	my $clone = dclone( \@servers );
+	return @$clone;
+}
+
+1