Subversion Repositories DevTools

Rev

Rev 255 | Rev 279 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 255 Rev 263
Line 1623... Line 1623...
1623
            Verbose ("view($view) label($label) path($path)");
1623
            Verbose ("view($view) label($label) path($path)");
1624
            print FH "view($view) label($label) path($path) : TEST\n";
1624
            print FH "view($view) label($label) path($path) : TEST\n";
1625
        }
1625
        }
1626
        else
1626
        else
1627
        {
1627
        {
1628
            my $rv = JatsCmd ("extract -extractfiles \"-view=$view\" \"-label=$label\" -path=\"$path\" -root=. -noprefix");
1628
            my $rv = JatsCmd ('extract', '-extractfiles', "-view=$view", "-label=$label", "-path=$path", "-root=.", "-noprefix");
1629
            print FH "$view : SUCCESS\n" unless $rv;
1629
            print FH "$view : SUCCESS\n" unless $rv;
1630
            print FH "$view : ERROR\n" if $rv;
1630
            print FH "$view : ERROR\n" if $rv;
1631
        }
1631
        }
1632
    }
1632
    }
1633
    close FH;
1633
    close FH;