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;