{
my $component = qr'[^/]+';
my $contest = qr,(?:ct/$component/)?,;
- declaregen Index => qr,^index$,;
- declaregen Learn => qr,^learn$,;
- declaregen Account => qr,^account$,;
declaregen Us => qr,^us/index$,;
declaregen 'Us::Entry' => qr,^us/$component$,;
declaregen Ct => qr,^ct/index$,;
+++ /dev/null
-package Gruntmaster::Page::Account;
-
-use 5.014000;
-use strict;
-use warnings;
-use Gruntmaster::Page::Base account => 'Account';
-our @ISA = qw/Gruntmaster::Page::Base/;
-our $VERSION = '0.001';
-
-use constant TEMPLATES => {
- en => <<'HTML',
-<div id="result"></div>
-
-<h1>Register</h1>
-<form action="/action/register" method="POST" class="jsform">
-Username:<br>
-<input type="text" name="username" required><br>
-Password:<br>
-<input type="password" name="password" required><br>
-Confirm password:<br>
-<input type="password" name="confirm_password" required><br>
-Full name:<br>
-<input type="text" name="name" required><br>
-Email:<br>
-<input type="email" name="email" required><br>
-Town:<br>
-<input type="text" name="town" required><br>
-University <i>(full name)</i>:<br>
-<input type="text" name="university" required><br>
-<input type="submit" value="Register">
-</form>
-
-<h1>Change password</h1>
-<form action="/action/passwd" method="POST" class="jsform">
-Old password:<br>
-<input type="password" name="password" required><br>
-New password:<br>
-<input type="password" name="new_password" required><br>
-Confirm new password:<br>
-<input type="password" name="confirm_new_password" required><br>
-<input type="submit" value="Change password">
-</form>
-HTML
-};
-
-1
+++ /dev/null
-package Gruntmaster::Page::Index;
-
-use 5.014000;
-use strict;
-use warnings;
-use Gruntmaster::Page::Base index => 'Gruntmaster 6000';
-our @ISA = qw/Gruntmaster::Page::Base/;
-our $VERSION = '0.001';
-
-use constant TEMPLATES => {
- en => <<'HTML',
-HTML
-};
-
-1
+++ /dev/null
-package Gruntmaster::Page::Learn;
-
-use 5.014000;
-use strict;
-use warnings;
-use Gruntmaster::Page::Base learn => 'Learn';
-our @ISA = qw/Gruntmaster::Page::Base/;
-our $VERSION = '0.001';
-
-use constant TEMPLATES => {
- en => <<'HTML',
-Install interactive-perl-tutorial from your nearest CPAN mirror. Run <code>cpan App::InteractivePerlTutorial</code>.
-<p>You can also get the source from <a href="http://git.ieval.ro/?p=app-interactiveperltutorial.git">git.ieval.ro</a>
-HTML
-};
-
-1