Konversation/Scripts/Import mIRC server list: Difference between revisions

    From KDE UserBase Wiki
    (A perl script with HTML comments is broken; Yurchor's intervention to revert/undo Annew's edit was not enough.)
     
    (6 intermediate revisions by 4 users not shown)
    Line 1: Line 1:
    <languages />
    <languages />
    <translate>
    <translate>
    ==Information==
    This script reads the mIRC server list from 'http://www.mirc.com/servers.ini' and imports it into your Konversation server list.


    == Information == <!--T:1-->
    <!--T:2-->
    This script reads the mIRC server list from [http://www.mirc.com/servers.ini mirc.www] and imports it into your '''Konversation''' server list.
    <!--T:3-->
    * It will NOT overwrite your existing servers, but will append the list to your existing list.
    * It will NOT overwrite your existing servers, but will append the list to your existing list.
    <!--T:55-->
    * It doesn't integrate: If you have a freenode group now, you will have two freenode groups once you run it.
    * It doesn't integrate: If you have a freenode group now, you will have two freenode groups once you run it.
    * It sets all NEW servers to use your default profile
    * It assumes you want to connect on the first port listed in the mIRC config. (Konversation doesn't appear to have the concept of multiple ports)


    ==Usage==
    <!--T:56-->
    Copy the script below into a new text document and save it as 'konversation_servers' (or really any name you care, just change the following to suit!)
    * It sets all NEW servers to use your default profile.
     
    <!--T:57-->
    * It assumes you want to connect on the first port listed in the mIRC config. ('''Konversation''' doesn't appear to have the concept of multiple ports).
     
    == Usage == <!--T:4-->
     
    <!--T:5-->
    Copy the script below into a new text document and <menuchoice>Save</menuchoice> it as 'konversation_servers' (or really any name you care, just change the following to suit!)


    Make sure you quit (not just close) Konversation, and then run:
    <!--T:6-->
    Make sure you quit (not just close) '''Konversation''', and then run:


        perl konversation_servers
    <!--T:7-->
    :<code>    perl konversation_servers</code>
    or
    or
        perl konversation_servers /path/to/konversationrc
    :<code>    perl konversation_servers /path/to/konversationrc</code>


    <!--T:8-->
    To run it, you will need several perl modules installed:
    To run it, you will need several perl modules installed:
    <!--T:9-->
    * [http://search.cpan.org/search?query=Config%3A%3ATiny&mode=module Config::Tiny]
    * [http://search.cpan.org/search?query=Config%3A%3ATiny&mode=module Config::Tiny]
    * [http://search.cpan.org/search?query=LWP%3A%3ASimple&mode=module LWP::Simple]
    * [http://search.cpan.org/search?query=LWP%3A%3ASimple&mode=module LWP::Simple]
    * [http://search.cpan.org/search?query=File%3A%3AHomeDir&mode=module File::HomeDir]
    * [http://search.cpan.org/search?query=File%3A%3AHomeDir&mode=module File::HomeDir]


    <!--T:10-->
    You can skip File::HomeDir if you include the path to your konversationrc in the command line call or if your KDEHOME environment variable is set and your konversationrc is where is should be.
    You can skip File::HomeDir if you include the path to your konversationrc in the command line call or if your KDEHOME environment variable is set and your konversationrc is where is should be.


    ==Warranty==
    == Warranty == <!--T:11-->
     
    <!--T:12-->
    THIS SCRIPT COMES WITH NO WARRANTY AT ALL.
    THIS SCRIPT COMES WITH NO WARRANTY AT ALL.


    ==Support==
    == Support == <!--T:13-->
     
    <!--T:14-->
    Any questions look for Woosta on Freenode or ask your local perl guru
    Any questions look for Woosta on Freenode or ask your local perl guru


    ==Licence==
    == Licence == <!--T:15-->
     
    <!--T:16-->
    (c)2007 Rick Measham.  This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
    (c)2007 Rick Measham.  This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.


    ==The Script==
    == The Script == <!--T:17-->
    <syntaxhighlight lang="perl">
     
    </translate>
    {{Input|<syntaxhighlight lang="perl">
    #!/usr/bin/perl
    #!/usr/bin/perl


    Line 99: Line 125:
    BEGIN {
    BEGIN {


    my $konvs = `ps ax | grep konversation | grep -v grep`;
    my $konvs = `ps ax | grep konversation | grep -v grep`;
    if ($konvs =~ /konversation/){
    if ($konvs =~ /konversation/){
    print "You need to quit konversation before running this script.\n";
    print "You need to quit konversation before running this script.\n";
    Line 105: Line 131:
    }
    }


    my @mod_list = ('Config::Tiny', 'File::Copy', 'LWP::Simple');
    my @mod_list = ('Config::Tiny', 'File::Copy', 'LWP::Simple');


    # If there isn't a konversationrc in the ARGV, add File::HomeDir
    # If there isn't a konversationrc in the ARGV, add File::HomeDir
    push(@mod_list, 'File::HomeDir')
    push(@mod_list, 'File::HomeDir')
    unless ($ARGV[0] && -r $ARGV[0])
    unless ($ARGV[0] && -r $ARGV[0])
    || ($ENV{KDEHOME} && -r "$ENV{KDEHOME}/share/config/konversationrc");
    || ($ENV{KDEHOME} && -r "$ENV{KDEHOME}/share/config/konversationrc");


    foreach my $mod (@mod_list){
    foreach my $mod (@mod_list){
    eval {
    eval {
    (my $fn = $mod) =~ s|::|/|g;
    (my $fn = $mod) =~ s|::|/|g;
    Line 136: Line 162:
    if( ! -r $konvrc ){
    if( ! -r $konvrc ){
    print "Unable to read konversationrc from $konvrc. Please include the path on the command line:\n";
    print "Unable to read konversationrc from $konvrc. Please include the path on the command line:\n";
    print "   $0 /path/to/konversationrc\n";
    print "   /path/to/konversationrc\n";
    exit(1);
    exit(1);
    }
    }
    Line 182: Line 208:
    foreach my $s ( keys %{ $mIRC->{servers} } ){
    foreach my $s ( keys %{ $mIRC->{servers} } ){


    my ($name, $server, $port, $group)
    my ($name, $server, $port, $group)
    = $mIRC->{servers}{$s}
    = $mIRC->{servers}{$s}
    =~ /(.+?)SERVER:(.+?):(\d+).*?GROUP:(.+)/;
    =~ /(.+?)SERVER:(.+?):(\d+).*?GROUP:(.+)/;


    next unless $group && $server && $port;
    next unless $group && $server && $port;


    $name =~ s/^$group: //;
    $name =~ s/^$group: //;


    push(@{$group{$group}}, { name=>$name, server=>$server, port=>$port });
    push(@{$group{$group}}, { name=>$name, server=>$server, port=>$port });


    }
    }
    Line 200: Line 226:
    foreach my $g ( sort keys %group ){
    foreach my $g ( sort keys %group ){


    $konv->{"ServerGroup $gcount"} = {
    $konv->{"ServerGroup $gcount"} = {
    AutoConnect        => 'false',
    AutoConnect        => 'false',
    AutoJoinChannels    => '',
    AutoJoinChannels    => '',
    Line 212: Line 238:
    };
    };


    foreach my $s ( @{ $group{$g} } ){
    foreach my $s ( @{ $group{$g} } ){


    $konv->{"Server $scount"} = {
    $konv->{"Server $scount"} = {
    Password  => '',
    Password  => '',
    Port      => $s->{port},
    Port      => $s->{port},
    Line 221: Line 247:
    };
    };


    $konv->{"ServerGroup $gcount"}{ServerList} =
    $konv->{"ServerGroup $gcount"}{ServerList} =
    ($konv->{"ServerGroup $gcount"}{ServerList} || '')
    ($konv->{"ServerGroup $gcount"}{ServerList} || '')
    .(($konv->{"ServerGroup $gcount"}{ServerList}) ? ',' : '')
    .(($konv->{"ServerGroup $gcount"}{ServerList}) ? ',' : '')
    ."Server $scount";
    ."Server $scount";


    $scount++;
    $scount++;
    }
    }


    $gcount++;
    $gcount++;
    }
    }
    $gcount--; $scount--;
    $gcount--; $scount--;
    Line 243: Line 269:


    print "Completed. It is now safe to start konversation.\n";
    print "Completed. It is now safe to start konversation.\n";
    </syntaxhighlight>
    </syntaxhighlight>}}
    <translate>
    <!--T:54-->
    [[Category:Internet]]
    [[Category:Advanced Users]]
    </translate>
    </translate>
    [[Category:Advanced Users]]

    Latest revision as of 17:11, 23 February 2013

    Other languages:

    Information

    This script reads the mIRC server list from mirc.www and imports it into your Konversation server list.

    • It will NOT overwrite your existing servers, but will append the list to your existing list.
    • It doesn't integrate: If you have a freenode group now, you will have two freenode groups once you run it.
    • It sets all NEW servers to use your default profile.
    • It assumes you want to connect on the first port listed in the mIRC config. (Konversation doesn't appear to have the concept of multiple ports).

    Usage

    Copy the script below into a new text document and Save it as 'konversation_servers' (or really any name you care, just change the following to suit!)

    Make sure you quit (not just close) Konversation, and then run:

    perl konversation_servers

    or

    perl konversation_servers /path/to/konversationrc

    To run it, you will need several perl modules installed:

    You can skip File::HomeDir if you include the path to your konversationrc in the command line call or if your KDEHOME environment variable is set and your konversationrc is where is should be.

    Warranty

    THIS SCRIPT COMES WITH NO WARRANTY AT ALL.

    Support

    Any questions look for Woosta on Freenode or ask your local perl guru

    Licence

    (c)2007 Rick Measham. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

    The Script

    #!/usr/bin/perl
    
    #  INFORMATION
    #  ====================================================================
    #  This script reads the mIRC server list from
    #  'http://www.mirc.co.uk/servers.ini' and imports it into your
    #  Konversation server list.
    #
    #  * It will NOT overwrite your existing servers, but will append the
    #    list to your existing list.
    #  * It doesn't integrate: If you have a freenode group now, you will
    #    have two freenode groups once you run it.
    #  * It sets all NEW servers to use your default profile
    #  * It assumes you want to connect on the first port listed in the
    #    mIRC config. (Konversation doesn't appear to have the concept of
    #    multiple ports)
    
    #  USAGE
    #  ====================================================================
    #  Make sure you quit (not just close) Konversation, and then run:
    #
    #     perl konversation_servers
    #        OR
    #     perl konversation_servers /path/to/konversationrc
    #
    #  To run it, you will need several perl modules installed:
    #    * Config::Tiny
    #    * LWP::Simple
    #    * File::HomeDir
    #
    #  You can skip File::HomeDir if you include the path to your
    #  konversationrc in the command line call or if your KDEHOME
    #  environment variable is set and your konversationrc is where
    #  is should be.
    #
    
    #  WARRANTY
    #  ====================================================================
    #  THIS SCRIPT COMES WITH NO WARRANTY AT ALL.
    #  Any questions look for Woosta on Freenode
    #
    
    #  SUPPORT
    #  ====================================================================
    #  Any questions look for Woosta on Freenode or ask your local perl guru
    #
    
    #  LICENCE
    #  ====================================================================
    #  (c)2007 Rick Measham.  This program is free software; you can 
    #  redistribute it and/or modify it under the same terms as Perl itself.
    #
    
    
    # Change this if it moves!
    my $mirc_url = 'http://www.mirc.co.uk/servers.ini';
    
    
    use warnings;
    use strict;
    
    BEGIN {
    
    my $konvs = `ps ax | grep konversation | grep -v grep`;
    	if ($konvs =~ /konversation/){
    		print "You need to quit konversation before running this script.\n";
    		exit(1);
    	}
    
    my @mod_list = ('Config::Tiny', 'File::Copy', 'LWP::Simple');
    
    # If there isn't a konversationrc in the ARGV, add File::HomeDir
    	push(@mod_list, 'File::HomeDir')
    		unless ($ARGV[0] && -r $ARGV[0])
    			|| ($ENV{KDEHOME} && -r "$ENV{KDEHOME}/share/config/konversationrc");
    
    foreach my $mod (@mod_list){
    		eval {
    			(my $fn = $mod) =~ s|::|/|g;
    			require $fn.'.pm';
    		};
    		if( $@ ){
    			print "You are missing $mod. Please install this perl module and then try again.\n";
    			exit(1);
    		}
    		import $mod;
    	}
    }
    
    
    
    my $konvrc =
    	($ARGV[0]) ? $ARGV[0]
    	: ($ENV{KDEHOME} && -r "$ENV{KDEHOME}/share/config/konversationrc") ? "$ENV{KDEHOME}/share/config/konversationrc"
    	: File::HomeDir->my_home . "/.kde/share/config/konversationrc";
    
    print "Reading konversationrc from $konvrc\n";
    
    if( ! -r $konvrc ){
    	print "Unable to read konversationrc from $konvrc. Please include the path on the command line:\n";
    	print "    /path/to/konversationrc\n";
    	exit(1);
    }
    
    
    print "Getting server list from mirc\n";
    my $servlist = get($mirc_url);
    print "   done.\n";
    
    
    
    print "Creating a backup of your current konversationrc to $konvrc.bak\n";
    copy($konvrc, "$konvrc.bak");
    print "   done.\n";
    
    
    
    print "Reading INI files\n";
    my $mIRC = Config::Tiny->read_string( $servlist );
    my $konv = Config::Tiny->read( $konvrc );
    print "   done.\n";
    
    
    
    print "Counting existing servers\n";
    my $scount = 0;
    while( exists $konv->{"Server $scount"} ){
    	$scount++;
    }
    print "   Next available server is $scount\n";
    
    
    
    print "Counting existing server groups\n";
    my $gcount = 0;
    while( exists $konv->{"ServerGroup $gcount"} ){
    	$gcount++;
    }
    print STDERR "   Next available group is $gcount\n";
    
    
    
    print "Parsing mIRC's server list\n";
    my %group;
    foreach my $s ( keys %{ $mIRC->{servers} } ){
    
    my ($name, $server, $port, $group)
    		= $mIRC->{servers}{$s}
    		=~ /(.+?)SERVER:(.+?):(\d+).*?GROUP:(.+)/;
    
    next unless $group && $server && $port;
    
    $name =~ s/^$group: //;
    
    push(@{$group{$group}}, { name=>$name, server=>$server, port=>$port });
    
    }
    print "   done.\n";
    
    
    
    print "Generating data for konversationrc\n";
    foreach my $g ( sort keys %group ){
    
    $konv->{"ServerGroup $gcount"} = {
    		AutoConnect         => 'false',
    		AutoJoinChannels    => '',
    		ChannelHistory      => '',
    		ConnectCommands     => '',
    		EnableNotifications => 'true',
    		Expanded            => 'false',
    		Identity            => 'Default Identity',
    		Name                => $g,
    		NotifyList          => '',
    	};
    
    foreach my $s ( @{ $group{$g} } ){
    
    $konv->{"Server $scount"} = {
    			Password   => '',
    			Port       => $s->{port},
    			SSLEnabled => 'false',
    			Server     => $s->{server},
    		};
    
    $konv->{"ServerGroup $gcount"}{ServerList} =
    			($konv->{"ServerGroup $gcount"}{ServerList} || '')
    			.(($konv->{"ServerGroup $gcount"}{ServerList}) ? ',' : '')
    			."Server $scount";
    
    $scount++;
    	}
    
    $gcount++;
    }
    $gcount--; $scount--;
    print "   done. There are now $gcount groups and $scount servers.\n";
    
    
    
    print "Writing konversationrc\n";
    $konv->write($konvrc);
    print "   done.\n";
    
    
    
    print "Completed. It is now safe to start konversation.\n";