Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: Mojo app running IIS CGI

by WookieeJeff (Initiate)
on Feb 11, 2021 at 16:55 UTC ( #11128239=note: print w/replies, xml ) Need Help??


in reply to Re: Mojo app running IIS CGI
in thread Mojo app running IIS CGI

It is either before any CGI CPAN modules or the author chose not to use them. A lot of the code revolves around manual print statements and hand-coded headers. Thus the effort to rebuild parts of it in Mojo, which seems like a great choice for a modern website. I'm just having trouble with running CGI mode and IIS.

Replies are listed 'Best First'.
Re^3: Mojo app running IIS CGI
by alexander_lunev (Pilgrim) on Feb 11, 2021 at 17:33 UTC

    If I understand it right, you have multi-directory application with many scripts in them. If that is so, then every directory that your CGI application have will become Mojolicious::Controller, every script will become URL, and all logic will go to appropriate Controller.

    If you have something like this in your application directory:

    .. index.pl dir1/somescript1 dir1/somescript2 dir2/somescript3 dir3/somescript4
    then your Mojolicious application will have something like this inside:
    script/app.pl lib/App.pm lib/App/Controller/Main.pm lib/App/Controller/Dir1.pm lib/App/Controller/Dir2.pm templates/layouts/default.html.ep templates/main/index.html.ep
    script/app.pl:
    #!perl use strict; use warnings; use FindBin; BEGIN { unshift @INC, "$FindBin::Bin/../lib" } use Mojolicious::Commands; Mojolicious::Commands->start_app('App');
    lib/App.pm:
    package App; use Mojo::Base 'Mojolicious'; sub startup { my $self = shift; my $r = $self->routes; $r->get('/')->to('main#index'); $r->get('/dir1/somescript1')->to('dir1#somescript1'); $r->get('/dir1/somescript2')->to('dir1#somescript2'); $r->get('/dir2/somescript3')->to('dir2#somescript3'); $r->get('/dir2/somescript4')->to('dir2#somescript4'); } 1;
    lib/App/Controller/Main.pm:
    package App::Controller::Main; use Mojo::Base 'Mojolicious::Controller'; sub index { my $self = shift; # will render templates/main/index.html.ep # logic from index.pl $self->render(); } 1;
    lib/App/Controller/Dir1.pm:
    package App::Controller::Dir1; use Mojo::Base 'Mojolicious::Controller'; sub somescript1 { my $self = shift; my $params = $self->req->params->to_hash; # logic from dir1/somescript1.pl # all HTML goes to templates/dir1/somescript1.html.ep $self->render(); } # etc... 1;
    Then you run it from root of your application like this:
    perl script/app.pl
    update: I thought that you might want to read the docs: Mojolicious Tutorial, Growing Guide
Re^3: Mojo app running IIS CGI
by WookieeJeff (Initiate) on Feb 18, 2021 at 18:46 UTC

    Actually, what I'd like to do is have a central Mojo CGI script and route URLs appropriately to Perl Controllers. So a single file receiving all the various web requests, let's name it mojo_router.pl for the sake of discussion. The routing would work as follows:

    website.com/* - Legacy traffic
    website.com/mojo/* - Anything in this subdirectory runs mojo_router.pl, which routes them accordingly

    The problem I'm running into is that when running in CGI mode, the URL parameter Mojo detects is always /. For example /mojo/foo and /mojo/bar both get detected in CGI mode as /

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11128239]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2021-06-15 18:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)












    Results (73 votes). Check out past polls.

    Notices?