Change some field names, network_name => network, auto_connect => autoconnect

git-svn-id: svn://svn.code.sf.net/p/xchat/svn@1359 893a96be-7f27-4fdf-9d1e-6aeec9d3cce1

diff --git a/plugins/perl/Xchat.pm b/plugins/perl/Xchat.pm
index 17d39eab14c28c1b9b395c41bb8bebf1f61e98bf..76b56a755be66eba0d8288e74a88bbde60919f07 100644 (file)
--- a/plugins/perl/Xchat.pm
+++ b/plugins/perl/Xchat.pm
@@ -722,7 +722,7 @@ my %key_for = (
        R => "irc_real_name",
        P => "server_password",
        B => "nickserv_password",
-       N => "network_name",
+       N => "network",
        C => "connect_command",
        D => "selected",
        E => "encoding",
@@ -747,7 +747,7 @@ sub parse {
                encoding          => undef,
                servers           => [],
                nickserv_password => undef,
-               network_name      => undef,
+               network           => undef,
        };
 
        my @fields = split /\n/, $data;
@@ -786,12 +786,10 @@ sub parse_flags {
        $flags{ "cycle" }         = $value & 1  ? 1 : 0;
        $flags{ "use_global" }    = $value & 2  ? 1 : 0;
        $flags{ "use_ssl" }       = $value & 4  ? 1 : 0;
-       $flags{ "auto_connect" }  = $value & 8  ? 1 : 0;
+       $flags{ "autoconnect" }   = $value & 8  ? 1 : 0;
        $flags{ "use_proxy" }     = $value & 16 ? 1 : 0;
        $flags{ "allow_invalid" } = $value & 32 ? 1 : 0;
 
-       $flags{ "autoconnect" }   = $flags{ "auto_connect" };
-
        return \%flags;
 }