perl/lib/Thrasher/Backend/PyYahoo.pm

   1 package Thrasher::Backend::PyYahoo;
   2 use strict;
   3 use warnings;
   4
   5 use base 'Thrasher::Backend';
   6 use IPC::Run qw(run);
   7
   8 =pod
   9
  10 =head1 NAME
  11
  12 Thrasher::Backend::PyYahoo - Read-only backend for migration from
  13 PyYIMt.
  14
  15 =head1 DESCRIPTION
  16
  17 PyYIMt ( http://xmpppy.sourceforge.net/yahoo/ ) stores its backend
  18 information in a GDBM file. This extract the useful information from
  19 that GDBM file so that the migration script can use it as a
  20 source to populate Thrasher's database with the proper values.
  21
  22 This translator will only get your username and password, since
  23 that appears to be all it stores.
  24
  25 This just barely implements enough to allow migration out of this
  26 format.
  27
  28 =cut
  29
  30 sub new {
  31     my $class = shift;
  32     my $parameters = shift;
  33
  34     my $self = bless $parameters, $class;
  35
  36     my @missing;
  37     for my $required qw(location) {
  38         if (!defined($self->{$required})) {
  39             push @missing, $required;
  40         }
  41     }
  42     if (@missing) {
  43         die "$class required the following parameters that weren't "
  44             ."provided: " . join(', ', @missing);
  45     }
  46
  47     if (!-e $self->{location}) {
  48         die "For PyYahoo, could not find the shelve file $self->{location}.";
  49     }
  50
  51     my $python_program = <<PYTHON;
  52 import shelve
  53
  54 # technically, this will still fail if you have three quotes in
  55 # your shelve file name, in which case all I can say is that
  56 # what the heck were you thinking?
  57 s = shelve.open("""/mail/jabber/spool/yahoouser.dbm""")
  58
  59 def encode(s):
  60     return "".join(['\%'+str(ord(x)) for x in s])
  61
  62 user_data = [(encode(x), encode(s[x]['username']),
  63               encode(s[x]['password'])) for x in s.keys()]
  64
  65 for jid, username, password in user_data:
  66     print jid, username, password
  67 #print "end"
  68
  69 s.close()
  70
  71 PYTHON
  72
  73     my $out;
  74     run ['python'], \$python_program, \$out;
  75     print $out;
  76
  77     my @lines = split (/\r?\n/m, $out);
  78     use Data::Dumper;
  79     print Dumper(\@lines);
  80
  81     for my $line (@lines) {
  82         my ($jid, $username, $password) = map { decode($_) } split(/ /, $line);
  83         $self->{registrations}->{$jid} = {username => $username,
  84                                           password => $password};
  85     }
  86
  87     return $self;
  88 }
  89
  90 # The inverse of that python encode function up there
  91 sub decode {
  92     my $s = shift;
  93     $s =~ s/%(\d+)/chr($1)/ge;
  94     return $s;
  95 }
  96
  97 sub all_jids {
  98     my $self = shift;
  99     my @jids = keys %{$self->{registrations}};
 100     return \@jids;
 101 }
 102
 103 sub registered {
 104     my $self = shift;
 105     my $jid = shift;
 106
 107     return $self->{registrations}->{$jid};
 108 }
 109
 110 sub all_mappings { return {} }
 111 sub get_roster { return {} }
 112 sub all_avatars { return {} }
 113 1;