diff options
| author | Olivier Thauvin <nanardon@mageia.org> | 2010-10-03 17:10:31 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mageia.org> | 2010-10-03 17:10:31 +0000 |
| commit | e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b (patch) | |
| tree | 483c6c7233ec9fda8e85fc677a7195d3175f569d /script/mga_mirrors_cgi.pl | |
| parent | beb039f2c2aea1a18363f57e789a3dc84238e5de (diff) | |
| download | mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.tar mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.tar.gz mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.tar.bz2 mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.tar.xz mgamirrors-e3f4756a2b901d1f1a6e8514d3b01dbf30a7c89b.zip | |
- use old script
Diffstat (limited to 'script/mga_mirrors_cgi.pl')
| -rwxr-xr-x | script/mga_mirrors_cgi.pl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/script/mga_mirrors_cgi.pl b/script/mga_mirrors_cgi.pl index 84b3e0f..c33a0e6 100755 --- a/script/mga_mirrors_cgi.pl +++ b/script/mga_mirrors_cgi.pl @@ -1,7 +1,14 @@ #!/usr/bin/env perl -use Catalyst::ScriptRunner; -Catalyst::ScriptRunner->run('MGA::Mirrors', 'CGI'); +BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' } + +use strict; +use warnings; +use FindBin; +use lib "$FindBin::Bin/../lib"; +use MGA::Mirrors; + +MGA::Mirrors->run; 1; @@ -23,8 +30,8 @@ Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT + This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut - |