|
copy gitweblite soruce code
|
1 |
#!/usr/bin/env perl |
|
imrpvoe readme for CGI insta...
|
2 | |
|
copy gitweblite soruce code
|
3 |
use Mojo::Base -strict; |
| 4 | ||
| 5 |
use File::Basename 'dirname'; |
|
| 6 |
use File::Spec::Functions qw/catdir splitdir/; |
|
| 7 | ||
| 8 |
# Source directory has precedence |
|
| 9 |
my @base = (splitdir(dirname(__FILE__)), '..'); |
|
| 10 |
my $lib = join('/', @base, 'lib');
|
|
| 11 |
-e catdir(@base, 't') ? unshift(@INC, $lib) : push(@INC, $lib); |
|
| 12 | ||
| 13 |
# Check if Mojolicious is installed; |
|
| 14 |
die <<EOF unless eval 'use Mojolicious::Commands; 1'; |
|
| 15 |
It looks like you don't have the Mojolicious framework installed. |
|
| 16 |
Please visit http://mojolicio.us for detailed installation instructions. |
|
| 17 | ||
| 18 |
EOF |
|
| 19 | ||
| 20 |
# Start commands |
|
|
update Mojolicious and added...
|
21 |
Mojolicious::Commands->start_app('Gitprep');
|