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;