Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
- package ShoppingCart;
- use Data::Dumper;
- $q = new CGI;
- if ($q->param('mode') eq "plugin"){
- if ($q->param('action') eq 'editar'){
- &editar;
- }else{
- return "dsdasdsdasda";
- };
- if ($q->param('action') && $q->param('action') eq "actualizar"){ &editar; };
- if ($q->param('action') && $q->param('action') eq "nuevo"){ &editar; };
- if ($q->param('action') && $q->param('action') eq "guardar"){ &editar; };
- if (!$q->param('action')){ &admin };
- $q->param('action');
- }else{
- &run;
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Llamo la siguiente URL:
Using text Syntax Highlighting
http://127.0.0.1:81/programa-ayllu/admin/index.pl?mode=plugin&action=editar&nm=ShoppingCart&id=4
Pero siempre me retorna "editar". Y si coloco
Using text Syntax Highlighting
http://www.programaayllu.com/admin/?mode=plugin&action=editareeee&nm=ShoppingCart&id=4
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
me retorna: dsdasdsdasda
No sé qué puede estar pasando, y la cabeza me da vueltas... ando recansado ^^
Este módulo lo llamo con un require() dentro de un script CGI-App.
