| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 198 | ahitrov | <& $call, %ARGS &> |
| 2 | <%init> | ||
| 3 | |||
| 4 | 797 | ahitrov | my $call; |
| 5 | my @dargs = split /\//, $m->dhandler_arg; | ||
| 6 | 198 | ahitrov | |
| 7 | 797 | ahitrov | if ( @dargs && $dargs[0] =~ /export_1c_(\d+)\.csv/ ) { |
| 8 | shift @dargs; | ||
| 9 | $ARGS{id} = $1; | ||
| 10 | $call = 'export_1c.csv'; | ||
| 11 | } elsif ( $r->uri eq '/contenido/webshop/' ) { | ||
| 12 | $call = 'index.html'; | ||
| 13 | } else { | ||
| 14 | &abort404; | ||
| 15 | } | ||
| 16 | |||
| 17 | 198 | ahitrov | </%init> |