Permalink
Newer
Older
100644 116 lines (107 sloc) 3.78 KB
1
package GH;
2
3
use base 'Exporter';
4
5
our @EXPORT = qw(
6
username_translate
7
github_usernames
8
);
9
10
sub _same {
11
return map { ($_ => $_) } @_;
12
}
13
14
my %username_translate = (
15
_same( qw(
16
arnsholt
17
bacek
18
brianwisti
19
bubaflub
20
cconstantine
21
chromatic
22
coke
23
colomon
24
cotto
25
dafrito
26
darbelo
27
diakopter
28
donpdonp
29
doughera
30
Eclesia
31
flh
32
flussence
33
fperrad
34
gerd
35
hanekomu
36
Infinoid
37
japhb
38
jessevdam
39
jkeenan
40
jrtayloriv
41
jsut
42
kjs
43
kthakore
44
kurahaupo
45
lateau
46
ligne
47
masak
48
mberends
49
mikehh
50
mj41
51
moritz
52
nwellnhof
53
ocharles
54
particle
55
petdance
56
plobsing
57
pmichaud
58
pstumpf
59
reezer
60
rurban
61
schwern
62
ShaneC
63
shockwave
64
sorear
65
tadzik
66
tene
67
tewk
68
theory
69
ujwal
70
Util
71
wagle
72
wayland
73
) ),
74
allison => 'allisonrandal',
75
"Andy Dougherty <doughera\@\xE2\x80\xA6>" => 'doughera',
76
ash => 'ashgti',
77
Austin => 'aghast',
78
Austin_Hastings => 'aghast',
79
'avarab' => 'avar',
80
barney => 'bschmalhofer',
81
benabik => 'Benabik',
82
bluescreen => 'bluescreen10',
83
"Daehyub Kim <lateau\@\xE2\x80\xA6>" => 'lateau',
84
dukeleto => 'leto',
85
fbrito => 'fernandobrito',
86
Felipe => 'felipensp',
87
'francois.perrad' => 'fperrad',
88
"jhoblitt\@\xE2\x80\xA6" => 'jhoblitt',
89
jimmy => 'zhuomingliang',
90
JoelSherrill => 'joelsherrill',
91
jonathan => 'jnthn',
92
'julian.notfound' => 'notfound',
93
lucian => 'lucian1900',
94
"Matthew Wilson <diakopter\@\xE2\x80\xA6>" => 'diakopter',
95
NotFound => 'notfound',
96
"Paul C. Anagnostopoulos" => 'Paul-C-Anagnostopoulos',
97
ronaldws => 'ronaldxs',
98
soh_cah_toa => 'soh-cah-toa',
99
tcurtis => 'ekiru',
100
whiteknight => 'Whiteknight',
101
"\xC3\x86var Arnfj\xC3\xB6r\xC3\xB0 Bjarmason <avarab\@\xE2\x80\xA6>" => 'avar',
102
"Yuki`N" => 'nol888',
103
);
104
105
sub github_usernames {
106
return values %username_translate;
107
}
108
109
sub username_translate {
110
my $user = shift;
111
112
return $username_translate{ $user };
113
}
114
115
1;