Ignore:
Timestamp:
09/09/10 10:49:23 (14 years ago)
Author:
mmaipsl
Message:

Suppress out_rsync anoying file if systemfunction is OK.
Correct some little bugs.
Add two DODS functions IGCM_Dods_Rm and IGCM_Dods_Cp on post-treatment systems.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libIGCM/libIGCM_sys/libIGCM_sys_mercure.ksh

    r309 r343  
    141141#D- 
    142142function IGCM_sys_RshMaster { 
    143     #set -vx 
    144143    IGCM_debug_PushStack "IGCM_sys_RshMaster" $@ 
    145144    /bin/ksh <<-EOF 
    … …  
    176175#D-#================================================== 
    177176#D-function IGCM_sys_RshPost 
    178 #D-* Purpose: Master rsh command 
     177#D-* Purpose: Post-process rsh command 
    179178#D-* Examples: 
    180179#D- 
    … …  
    590589        cat out_rsync 
    591590        IGCM_debug_Exit "IGCM_sys_Cp" 
     591     else 
     592         rm out_rsync 
    592593    fi 
    593594    IGCM_debug_PopStack "IGCM_sys_Cp" 
    … …  
    615616        cat out_rsync 
    616617        IGCM_debug_Exit "IGCM_sys_Rm" 
     618    else 
     619        out_rsync 
    617620    fi 
    618621    IGCM_debug_PopStack "IGCM_sys_Rm" 
    … …  
    657660            cat out_rsync 
    658661            IGCM_debug_Exit "IGCM_sys_Mv" 
     662        else 
     663            rm out_rsync 
    659664        fi 
    660665    else 
    … …  
    695700            cat out_rsync 
    696701            IGCM_debug_Exit "IGCM_sys_Put_Dir" 
     702        else 
     703            rm out_rsync 
    697704        fi 
    698705    else 
    … …  
    732739            cat out_rsync 
    733740            IGCM_debug_Exit "IGCM_sys_Get_Dir" 
     741        else 
     742            rm out_rsync 
    734743        fi 
    735744    else 
    … …  
    767776            cat out_rsync 
    768777            IGCM_debug_Exit "IGCM_sys_Get_Master" 
     778        else 
     779            rm out_rsync 
    769780        fi 
    770781    else 
    … …  
    823834            cat out_rsync 
    824835            IGCM_debug_Exit "IGCM_sys_Put_Out" 
     836        else 
     837            rm out_rsync 
    825838        fi 
    826839    else 
    … …  
    917930#       (( RET=RET+$? )) 
    918931 
     932        if [ ${RET} -gt 0 ] ; then 
     933            echo "IGCM_sys_Get : copy error." 
     934            cat out_rsync 
     935#           IGCM_debug_Exit "IGCM_sys_Get" 
     936        else 
     937            rm out_rsync 
     938        fi 
    919939    else 
    920940        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
    921941    fi 
    922942    IGCM_debug_PopStack "IGCM_sys_Get" 
     943} 
     944 
     945#D-#================================================== 
     946#D-function IGCM_sys_Dods_Rm 
     947#D-* Purpose: DO NOTHING ! Put $(ARCHIVE) files on DODS internet protocole. 
     948#D-* Examples: 
     949#D- 
     950function IGCM_sys_Dods_Rm { 
     951    if ( $DEBUG_sys ) ; then 
     952        echo "IGCM_sys_Dods_Rm :" $@ 
     953    fi 
     954    typeset RET 
     955    RET=0 
     956    if [ $DRYRUN = 0 ]; then 
     957        if [ ! -d /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} ] ; then 
     958            echo "WARNING : IGCM_sys_Dods_Rm /dmnfs/cont003/dods/public/${LOGIN}/${R_DODS}/${1} DOES NOT EXIST ." 
     959            echo "Nothing has been done." 
     960            return 
     961        fi 
     962        dods_rm public/${LOGIN}/${R_DODS}/${1} > out_dods_rm 2>&1 
     963        RET=$? 
     964         
     965        if [ ${RET} -gt 0 ] ; then 
     966            echo "IGCM_sys_Put_Dods : error." 
     967            cat out_dods_rm 
     968            IGCM_debug_Exit "IGCM_sys_Dods_Rm" 
     969        else 
     970            rm out_dods_rm 
     971        fi 
     972    else 
     973        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     974    fi 
     975    return $RET 
     976} 
     977 
     978 
     979#D-#================================================== 
     980#D-function IGCM_sys_Dods_Cp 
     981#D-* Purpose: Copy $(ARCHIVE) files on DODS internet protocole. 
     982#D-* Examples: 
     983#D- 
     984function IGCM_sys_Dods_Cp { 
     985    if ( $DEBUG_sys ) ; then 
     986        echo "IGCM_sys_Dods_Cp :" $@ 
     987    fi 
     988    typeset RET 
     989    RET=0 
     990    if [ $DRYRUN = 0 ]; then 
     991        if [ ! -d ${R_SAVE}/${1} ] ; then 
     992            echo "WARNING : IGCM_sys_Dods_Cp ${R_SAVE}/${1} DOES NOT EXIST ." 
     993            echo "Nothing has been done." 
     994            return 
     995        fi 
     996        # 
     997        dods_cp ${1} public/${LOGIN}/${R_DODS} > out_dods_cp 2>&1 
     998        RET=$? 
     999         
     1000        if [ ${RET} -gt 0 ] ; then 
     1001            echo "IGCM_sys_Dods_Cp : error." 
     1002            cat out_dods_cp 
     1003            IGCM_debug_Exit "IGCM_sys_Dods_Cp" 
     1004        else 
     1005            rm out_dods_cp 
     1006        fi 
     1007    else 
     1008        ( ${DEBUG_debug} ) && echo "DRYRUN mode = " $DRYRUN >> stack 
     1009    fi 
     1010    return $RET 
    9231011} 
    9241012 
    … …  
    9431031        # 
    9441032        cd ${R_SAVE} 
    945         dods_rm public/${LOGIN}/${R_DODS}/${1} > /dev/null 2>&1 
    946         dods_cp ${1} public/${LOGIN}/${R_DODS} > /dev/null 2>&1 
     1033        IGCM_sys_Dods_Rm ${1} 
     1034        IGCM_sys_Dods_Cp ${1} 
    9471035        RET=0 
    9481036         
Note: See TracChangeset for help on using the changeset viewer.