Revision 797 (by ahitrov, 2020/07/15 17:02:57) Экспорт в 1С

 
<& $call, %ARGS &>
<%init>

    my $call;
    my @dargs = split /\//, $m->dhandler_arg;

    if ( @dargs && $dargs[0] =~ /export_1c_(\d+)\.csv/ ) {
	shift @dargs;
	$ARGS{id} = $1;
	$call = 'export_1c.csv';
    } elsif ( $r->uri eq '/contenido/webshop/' ) {
	$call = 'index.html';
    } else {
	&abort404;
    }

</%init>