ó ]„±Qc@stdZddlZddlmZmZmZd„ZedkrpddlZe dedej ƒfded ej ƒfd ed ej ƒfd ed ej ƒfdedej ƒfdedej ƒfdedej ƒfdedej ƒfdedej ƒfdedej ƒfdedej ƒfdedej ƒfg ƒZ ee ƒZ ej ƒndS(s@ #+ # NAME: # mirror # PURPOSE: # Simple interface to Perl script 'mirror' # CATEGORY: # smei/gen/python # CALLING SEQUENCE: # From command line: # # mirror.py job= local_dir= remote_dir= # remote_site= remote_user= remote_password= # recursive= recurse_hard= get_patt= # # As module: # # sts = mirror(job, local_dir, remote_site, remote_dir, remote_user, # remote_password, recursive, recurse_hard) # OPTIONAL INPUT PARAMETERS: # default: 'job' # job name (used in the name of the temporary # mirror package file in $TUB) # default: environment variable 'SMEI' # local directory where the mirror copy is maintained # The default is the location $SMEI of the local copy # of the SMEI master tree. # default: 'ips.ucsd.edu' # remote server # default: '/loc_smei' # directory tree on remote site to be mirrored # The default is a copy of the SMEI master accessible # by anonymous ftp only. # default: 'anonymous' # default: '$USER@$HOSTNAME' # user and password used by the mirror script to # log into the ftp server. # if remote_password='netrc' then an attempt is made # to obtain the password from $HOME/.netrc # recursive = # default: true # recurse_hard= # default: true (if recursive is set) # false (if recursive is not set) # passive_ftp= # default: false # get_patt = # local_ignore = # -save if set the package file created for mirror.pl is not deleted # OUTPUTS: # sts return status of mirror module # = None : if mirror was aborted. This currently occurs # only if mirror is run on ips. # = [list] : list of files downloaded (this list may be empty!!) # # updated by mirroring . The results are appended # to the log file $TUB/.log # CALLS: # mirror # RESTRICTIONS: # The following environment variables need to be defined: # SMEI points to the local copy of the SMEI master tree # SSW points to the root of the SolarSoft tree # (the Perl script mirror is part of SolarSoft). # PROCEDURE: # Location of Perl script 'mirror' and name of # mirror package file used to mirror the remote directory. # (the package file is created on the fly and is deleted again). # MODIFICATION HISTORY: # DEC-2002, Paul Hick (UCSD/CASS) # Finalized original version # DEC-2002, Paul Hick (UCSD/CASS) # Added a check to avoid overwriting the SMEI master tree # on ips.ucsd.edu # MAR-2003, Paul Hick (UCSD/CASS) # Modified to allow mirror to run as a module. # NOV-2003, Paul Hick (UCSD/CASS) # Instead of return 0 for failure and 1 for success, the return # value is now None for failure and a list of downloaded files for # success. # DEC-2003, Paul Hick (UCSD/CASS) # Changed default of recurse_hard to false if recursive is not set. # It looks like recursive=false is ignored if recurse_hard=true (the # previous default) overrides. # JAN-2004, Paul Hick (UCSD/CASS) # Added check for existence of Perl script mirror. # Added check for presence of Perl using first line of mirror script. # OCT-2005, Paul Hick (UCSD/CASS) # Added local_ignore keyword. # NOV-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu) # Added passive_ftp keyword. #- iÿÿÿÿN(t dict_entrytstarttis_therecCs·tjjtjddddƒ}tjj|ƒr¤t|dƒjƒ}|dt|ƒd!}|jdƒdkr±|d }tjj|ƒs¡d G|GHgSq±n d G|GHgStjd }t |d d ƒ}t |dtjddƒ}t |ddƒ}t |ddƒ}t |ddƒ}t |dtjddtjdƒ} t |ddƒ} t |ddƒ} t |ddƒ} t |d d!ƒ} t |d"d!ƒ}t |d#dƒ}tjddkrò|tjddkròd$GHd%GHdSntjj||d&ƒ}tjj||d'ƒ}| dkr9d} n| d(kr÷ttjjtjd)d*ƒdƒj ƒ}|j d+ƒ}x]|D]U}|j ƒ}t|ƒd,kr†|d|krÛ|d-|krÛ|d.} PqÛq†q†W| d(kr÷d/GHgSnd0|d1|d2|d3|d4|d5| d6| d7| d8d9| d:d;tjdd<d=d>d?d@|g}| d!krƒ|j dA| ƒn|d!kr£|j dB|ƒnt|dCƒjd+j|ƒd+ƒtjj|ƒrüt|dƒj ƒ}t|ƒ}nd}tj|dD|ƒj ƒ}|s5tj|ƒntjj|ƒr¤t|dƒj ƒ|j d+ƒ}g|D]+}|jdEƒdkrp|j ƒd^qp}ndFG|GHg}|S(GNtSSWtgentmirrors mirror.pltriis#!ismirror, Perl not found:smirror, file not found:tTUBtjobt local_dirtSMEIt/t remote_sites ips.ucsd.edut remote_dirs /loc_smei/t remote_usert anonymoustremote_passwordtUSERt@tHOSTNAMEt recursivettruet recurse_hardt passive_ftptfalsetget_patttt local_ignoretsaves9********** Trying to overwrite the SMEI master tree, hey?s ********** Absolutely no way !!!s.packages.logtnetrctHOMEs.netrcs iiis0mirror, could not determine password from .netrcs package=%sssite=%ss remote_dir=%ss local_dir=%ssremote_user=%ssremote_password=%ss recursive=%ssrecurse_hard=%ssmode_copy=truespassive_ftp=%ssuse_timelocal=falsesuser=%ss group=userssdelete_excl=.+smax_delete_files=99%smax_delete_dirs=99%s update_log=%ss get_patt=s local_ignore=twt sGot smirror, log file not found:(tostpathtjointenvirontisfiletopentreadlinetlentfindRtNonetreadtsplittappendtwritetpopentremove(targst perl_mirrortperlttempRR R R RRRRRRRRtpackaget update_logthoststhostttmptlinestlogtlog_lentnewtgot((s)/home/soft/smei/ucsd/gen/python/mirror.pyRbs "     (   +         #"; t__main__Rsjob=R s local_dir=R s remote_site=R s remote_dir=Rs remote_user=Rsremote_password=Rs recursive=Rs recurse_hard=Rs passive_ftp=Rs get_patt=Rs local_ignore=Rs-save(t__doc__R!ttinyRRRRt__name__tsystdicttargvR1tstatustexit(((s)/home/soft/smei/ucsd/gen/python/mirror.pyt^s(  z