← Back to branch summary

~ubuntu-branches/ubuntu/saucy/kopete/saucy-proposed

« back to all changes in this revision

Viewing changes to kopete/kconf_update/kopete-update_yahoo_server.pl

  • Committer: Package Import Robot
  • Author(s): Jonathan Riddell
  • Date: 2013-06-21 02:22:39 UTC
  • Revision ID: package-import@ubuntu.com-20130621022239-63l3zc8p0nf26pt6
Tags: upstream-4.10.80
Import upstream version 4.10.80

Show diffs side-by-side

added added

removed removed

Lines of Context:
kopete/kconf_update/kopete-update_yahoo_server.pl
 
1
#!/usr/bin/perl
 
2
 
 
3
# Rename the old Gaim style to Pidgin
 
4
 
 
5
my $inYahoo = 0;
 
6
foreach (<>) {
 
7
    $inYahoo = 1 if (/^\[Account_YahooProtocol_.*$/);
 
8
    if ($inYahoo) {
 
9
        if (/^Server\=(.*)/) {
 
10
            my $oldServer = $1;
 
11
            if ($oldServer =~ m/\.yahoo\.com$/) {
 
12
                print "Server=scsa.msg.yahoo.com\n";
 
13
                $inYahoo = 0;
 
14
                next;
 
15
            }
 
16
        }
 
17
    }
 
18
 
 
19
    print $_;
 
20
}