Subversion Repositories DevTools

Rev

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

Rev 361 Rev 369
Line 1858... Line 1858...
1858
            Verbose ("view($view) vcstag($vcstag)");
1858
            Verbose ("view($view) vcstag($vcstag)");
1859
            print FH "view($view) vcstag($vcstag) : TEST\n";
1859
            print FH "view($view) vcstag($vcstag) : TEST\n";
1860
        }
1860
        }
1861
        else
1861
        else
1862
        {
1862
        {
1863
            my $rv = JatsCmd ('jats_vcsrelease', '-extractfiles', "-view=$view", "-label=$vcstag", "-root=.", "-noprefix");
1863
            my $rv = JatsCmd ('-abt=escrow', 'jats_vcsrelease', '-extractfiles', "-view=$view", "-label=$vcstag", "-root=.", "-noprefix");
1864
            print FH "$view : SUCCESS\n" unless $rv;
1864
            print FH "$view : SUCCESS\n" unless $rv;
1865
            print FH "$view : ERROR\n" if $rv;
1865
            print FH "$view : ERROR\n" if $rv;
1866
        }
1866
        }
1867
    }
1867
    }
1868
    close FH;
1868
    close FH;