We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 7fe8d42 commit fc15f75Copy full SHA for fc15f75
2 files changed
lib/pause_2017/PAUSE/Web/Config.pm
@@ -93,6 +93,11 @@ our %Actions = (
93
cat => "02serv/05",
94
desc => "A list, also available as YAML",
95
},
96
+ who_pumpkin => {
97
+ x_mojo_to => "public#pumpkin",
98
+ priv => "public",
99
+ display => 0,
100
+ },
101
who_admin => {
102
x_mojo_to => "public#admin",
103
verb => "List of admins",
lib/pause_2017/PAUSE/Web/Controller/Public.pm
@@ -168,6 +168,13 @@ sub privacy_policy {
168
$c->serve_pause_doc("doc/privacy-policy.md")
169
}
170
171
+sub pumpkin {
172
+ my $c = shift;
173
+ my $pause = $c->stash(".pause");
174
+ local $pause->{Action} = 'perl_releasers';
175
+ $c->redirect_to($c->my_url);
176
+}
177
+
178
sub perl_releasers {
179
my $c = shift;
180
my $pause = $c->stash(".pause");
0 commit comments