Subversion Repositories DevTools

Rev

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

Rev 4969 Rev 5003
Line 722... Line 722...
722 
    #   Comma seperated list of (possibly) useful info
 722 
    #   Comma seperated list of (possibly) useful info
723 
    #       Date-Time ( Local and GMT)
 723 
    #       Date-Time ( Local and GMT)
724 
    #       machine type, machine name and the user
 724 
    #       machine type, machine name and the user
725 
    #       GBE_ABT value
 725 
    #       GBE_ABT value
726 
    #
 726 
    #
- 
 
 727 
    #   flock the file in an attempt to flush it out across the network
- 
 
 728 
    #   Having build issues where the file is not seen for a very long time
- 
 
 729 
    #
727 
    my $built_info = localtime() ."," . gmtime() . " GMT,$GBE_MACHTYPE,$GBE_HOSTNAME,$USER,$GBE_ABT";
 730 
    my $built_info = localtime() ."," . gmtime() . " GMT,$GBE_MACHTYPE,$GBE_HOSTNAME,$USER,$GBE_ABT";
728 
    LogFileOp("Mark File",$touchfile);
 731 
    LogFileOp("Mark File",$touchfile);
729 
    FileAppend ( $touchfile, $built_info );
 732 
    FileAppend ( $touchfile, $built_info );
730 
    addFile('file', $touchfile, $touchfile);
 - 
 
731 
 
 733 
 
- 
 
 734 
    open (TOUCH_LOCK, '>', $touchfile) || Error ("Cannot build marker for locking: $!", $touchfile );
- 
 
 735 
    flock TOUCH_LOCK, 2;
- 
 
 736 
    close TOUCH_LOCK;
- 
 
 737 
 
- 
 
 738 
    addFile('file', $touchfile, $touchfile);
732 
 
 739 
 
733 
    #
 740 
    #
734 
    #   If there is a .lnk file in the archive then remove it now that the
 741 
    #   If there is a .lnk file in the archive then remove it now that the
735 
    #   archive has been transferred. The .lnk files are created in 'local'
 742 
    #   archive has been transferred. The .lnk files are created in 'local'
736 
    #   archives in order to simplify multi-package builds
 743 
    #   archives in order to simplify multi-package builds