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

    From KDE UserBase Wiki
    (Created page with "Stellen Sie sicher, dass die '''Konversation''' beendet (und nicht nur geschlossen) haben. Anschließend geben Sie folgendes ein:")
     
    (11 intermediate revisions by the same user not shown)
    Line 20: Line 20:


    :<code>    perl konversation_servers</code>
    :<code>    perl konversation_servers</code>
    or
    oder
    :<code>    perl konversation_servers /path/to/konversationrc</code>
    :<code>    perl konversation_servers /Pfad/zu/konversationrc</code>


    To run it, you will need several perl modules installed:
    Damit es läuft müssen einige [https://de.wikipedia.org/wiki/Perl_(Programmiersprache) Perl]-Module installiert sein:


    * [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]
    Line 29: Line 29:
    * [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]


    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.
    Sie können 'File::HomeDir' weglassen, wenn Sie den Pfad zu 'konversationrc ' in den Befehl auf der Kommandozeile einfügen oder wenn die KDEHOME-[https://de.wikipedia.org/wiki/Umgebungsvariable Umgebungsvariable] richtig gesetzt ist


    == Warranty ==
    == Gewährleistung ==


    THIS SCRIPT COMES WITH NO WARRANTY AT ALL.
    FÜR DAS SKRIPT WIRD KEINE GEWÄHRLEISTUNG IRGENDWELCHER ART ÜBERNOMMEN.


    == Support ==
    == Unterstützung ==


    Any questions look for Woosta on Freenode or ask your local perl guru
    Bei allen Fragen schauen Sie nach 'Woosta' auf Freenode oder fragen Sie ihren örtlichen Perl-Experten.


    == Licence ==
    == Lizenz ==


    (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.  Das Programm ist freie Software; Sie dürfen es weiterverbreiten und / oder es verändern, solange Sie dieses unter den gleichen (Lizenz-) Bedingungen tun wie Perl selbst.


    == The Script ==
    == Das Skript ==


    {{Input|<syntaxhighlight lang="perl">
    {{Input|<syntaxhighlight lang="perl">
    Line 254: Line 254:
    print "Completed. It is now safe to start konversation.\n";
    print "Completed. It is now safe to start konversation.\n";
    </syntaxhighlight>}}
    </syntaxhighlight>}}
    [[Category:Internet]]
    [[Category:Internet/de]]
    [[Category:Advanced Users]]
    [[Category:Fortgeschrittene Anwender/de]]

    Latest revision as of 12:36, 13 June 2020

    Other languages:

    Informationen

    Dieses Skript liest die Server-Liste von mIRC von der Seite mirc.www ein und importiert sie zu ihrer Konversation-Server-Liste.

    • Es wird ihre bestehend Server-Liste NICHT überschreiben, sondern wird die neuen Server an die bestehende Liste anhängen.
    • Es fasst nicht zusammen: Wenn Sie eine "freenode" Gruppe bereits hatten, dann werden Sie nach dem Ausführen des Skripts zwei "freenode" Gruppen haben.
    • Es stellt alle NEUEN Server als aktiv in ihr Standard-Profil.
    • Es unterstellt, dass Sie sich mit dem ersten Port verbinden wollen, der in der mIRC Konfigurationsdatei steht. (Konversation scheint das Konzept multipler Ports nicht zu unterstützen.)

    Vorgehensweise

    Kopieren Sie das Skript unten in ein neues Textdokument und Speichern Sie es unter 'konversation_servers' (oder jeden beliebigen Namen, Sie müssen dann nur das Folgende entsprechend anpassen!).

    Stellen Sie sicher, dass die Konversation beendet (und nicht nur geschlossen) haben. Anschließend geben Sie folgendes ein:

    perl konversation_servers

    oder

    perl konversation_servers /Pfad/zu/konversationrc

    Damit es läuft müssen einige Perl-Module installiert sein:

    Sie können 'File::HomeDir' weglassen, wenn Sie den Pfad zu 'konversationrc ' in den Befehl auf der Kommandozeile einfügen oder wenn die KDEHOME-Umgebungsvariable richtig gesetzt ist

    Gewährleistung

    FÜR DAS SKRIPT WIRD KEINE GEWÄHRLEISTUNG IRGENDWELCHER ART ÜBERNOMMEN.

    Unterstützung

    Bei allen Fragen schauen Sie nach 'Woosta' auf Freenode oder fragen Sie ihren örtlichen Perl-Experten.

    Lizenz

    (c)2007 Rick Measham. Das Programm ist freie Software; Sie dürfen es weiterverbreiten und / oder es verändern, solange Sie dieses unter den gleichen (Lizenz-) Bedingungen tun wie Perl selbst.

    Das Skript

    #!/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";