Subversion Repositories DevTools

Rev

Rev 396 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 396 Rev 1360
Line 1863... Line 1863...
1863
            Verbose ("view($view) vcstag($vcstag)");
1863
            Verbose ("view($view) vcstag($vcstag)");
1864
            print FH "view($view) vcstag($vcstag) : TEST\n";
1864
            print FH "view($view) vcstag($vcstag) : TEST\n";
1865
        }
1865
        }
1866
        else
1866
        else
1867
        {
1867
        {
1868
            my $rv = JatsCmd ('-abt=escrow', 'jats_vcsrelease', '-extractfiles', "-view=$view", "-label=$vcstag", "-root=.", "-noprefix");
1868
            my $rv = JatsCmd ('jats_vcsrelease', '-devmode=escrow', '-extractfiles', "-view=$view", "-label=$vcstag", "-root=.", "-noprefix");
1869
            print FH "$view : SUCCESS\n" unless $rv;
1869
            print FH "$view : SUCCESS\n" unless $rv;
1870
            print FH "$view : ERROR\n" if $rv;
1870
            print FH "$view : ERROR\n" if $rv;
1871
        }
1871
        }
1872
    }
1872
    }
1873
    close FH;
1873
    close FH;