Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 116 lines (107 sloc) 3.869 kB
fcc5114 @petdance first draft of rebuilt scraps
authored
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;
Something went wrong with that request. Please try again.