Guest User

Untitled

a guest
Jul 22nd, 2018
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.82 KB | None | 0 0
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. use FreePanel;
  7. use Template;
  8. use FindBin qw($Bin);
  9.  
  10. my $tt = Template->new({
  11. INCLUDE_PATH => './templates',
  12. INTERPOLATE => 1,
  13. }) or die "$Template::ERROR\n";
  14.  
  15. my $app = FreePanel->new(
  16.  
  17. PLUGINS => [ @INC, $Bin ],
  18.  
  19. 404 => 'FreePanel::Plugin::My404',
  20. AUTH => 'FreePanel::Plugin::MyAuth',
  21.  
  22. );
  23.  
  24. $app->stash(
  25. #config => FreePanel::Config->getConfigs(),
  26. tt => $tt,
  27. );
  28.  
  29. $app->dispatch(
  30.  
  31. root => {
  32. #plugin => 'FreePanel::Plugin::Status',
  33. plugin => 'FreePanel::Plugin::NewSite',
  34. methods => [qw/ default go /],
  35. },
  36. status => {
  37. plugin => 'FreePanel::Plugin::Status',
  38. methods => [qw/ default /],
  39. },
  40. );
  41. $app->setup;
Add Comment
Please, Sign In to add comment