aMw3dZddlZddlZddlZddlZddlZddlZddlZddlm Z ddl m Z m Z ddl mZddlmZmZmZmZm Z mZddlmZmZmZd Zgd Zd gZej8d ej:Zd ZdZ dZ!GddZ"dZ#dZ$GddZ%gdZ&GddejNZ(dZ)dZ*GddZ+dZ,y)aRcommand server extension for cHg 'S' channel (read/write) propagate ui.system() request to client 'attachio' command attach client's stdio passed by sendmsg() 'chdir' command change current directory 'setenv' command replace os.environ completely 'setumask' command (DEPRECATED) 'setumask2' command set umask 'validate' command reload the config and check if the server is up to date Config ------ :: [chgserver] # how long (in seconds) should an idle chg server exit idletimeout = 3600 # whether to skip config or env change checks skiphash = False N)_)getattrsetattr)hex) commandserverencodingerror extensionspycompatutil)hashutilprocutil stringutilcttjtj|j S)z return sha1 hexdigest for a list)rrsha1rpprintdigest)itemss 7usr/lib/python3.12/site-packages/mercurial/chgserver.py _hashlistrJs* x}}Z..u56==? @@)saliass diff-toolsseolsextdiffs extensionss fastannotates merge-toolssschemes)scommandssshow.aliasprefixs~\A(?: CHGHG |HG(?:DEMANDIMPORT|EMITWARNINGS|MODULEPOLICY|PROF|RCPATH)? |HG(?:ENCODING|PLAIN).* |LANG(?:UAGE)? |LC_.* |LD_.* |PATH |PYTHON.* |TERM(?:INFO)? |TZ )\Zcg}tD]"}|j|j|$tD]&\}}|j|j ||(t |}dt jvrdh}n t}t jjDcgc]"\}}tj|r||vr||f$}}}t t|} |dd| ddzScc}}w)areturn a quick hash for detecting config/env changes confighash is the hash of sensitive config items and environment variables. for chgserver, it is designed that once confighash changes, the server is not qualified to serve its client and should redirect the client to a new server. different from mtimehash, confighash change will not mark the server outdated and exit since the user can have different configs at the same time. sCHGHGsHGN) _configsectionsappend configitems_configsectionitemsconfigrr environsetr_envrematchsorted) ui sectionitemssectionitem sectionhashignoredkvenvitemsenvhashs r _confighashr/qsL"BNN734#, BIIgt45-L)K8###'%$$**,,DAq <<?q/ A,  x()G r?WRa[ (( s)'C2ctj|Dcgc]\}}| }}} ddlm}|j|g}t j r|jt j |D]:} |jt jtj|<tt|Scc}}w#t$rYwxYw#t$rYqwxYw)zget a list of paths that should be checked to detect change The list will include: - extensions (will not cover all files for complex extensions) - mercurial/__version__.py - python binary r) __version__) r r1r ImportErrorr sysexecutablefsencodeinspect getabsfile TypeErrorr$r!)r%nmmodulesr1filess r_getmtimepathsr=s(222676TQq6G7 !{# E X++,   LL**7+=+=a+@A B #e* 8       s( CC 77C CC C%$C%cLd}ttj||ddS)aWreturn a quick hash for detecting file changes mtimehash calls stat on given paths and calculate a hash based on size and mtime of each file. mtimehash does not read file content because reading is expensive. therefore it's not 100% reliable for detecting content changes. it's possible to return different hashes for same file contents. it's also possible to return a same hash for different file contents for some carefully crafted situation. for chgserver, it is designed that once mtimehash changes, the server is considered outdated immediately and should no longer provide service. mtimehash is not included in confighash because we only know the paths of extensions after importing them (there is imp.find_module but that faces race conditions). We need to calculate confighash without importing. c tj|}|tj|jfS#t$rYywxYwN)osstatST_MTIMEst_sizeOSError)pathsts rtrystatz_mtimehash..trystats> Bt}}%rzz2 2   s36 AAN )rr maplist)pathsrHs r _mtimehashrLs($ X%%gu5 6s ;;rc(eZdZdZdZeddZy) hashstatezCa structure storing confighash, mtimehash, paths used for mtimehashc.||_||_||_yr@) confighash mtimehash mtimepaths)selfrPrQrRs r__init__zhashstate.__init__s$"$rNc| t|}t|}t|}|jdd||t |||S)Ns cmdserversconfighash = %s mtimehash = %s )r=r/rLlogrN)r%rRrPrQs rfromuizhashstate.fromuisN  '+J _ z*    /    Y ;;rr@)__name__ __module__ __qualname____doc__rT staticmethodrWrrrNrNsM%  < .chguic\t|||rt|d|_y|_y)N_csystem)superrTrrb)rSsrc __class__chguicsystems rrTz!_newchgui..chgui.__init__s, % ' , 'Z A ' rc||jusetj|jdrE|jjtj jk7s |j rt j||||S|j|j|t j||S)Nfileno)r cwdout) foutr safehasattrrirstdout_finoutredirectedsystemflushrb shellenviron)rScmdr rjrks r _runsystemz#_newchgui..chgui._runsystems499$'' 8<99##%)?)?)AA))sG#NN JJL==h&;&;G&DcJ JrcZ|j|tj|ddiy)Npagerattachio)typecmdtableT)rbrrr)rSrsenvattachios r _runpagerz"_newchgui..chgui._runpagers5 MM%%c*%x0   rr@)rXrYrZrTrtr| __classcell__)rer{rfrgs@rrfr`s ( K   rrfre)srcuirgr{rfs ``@r _newchguirs%B <rc ddlm}|jj}dD]}t ||t ||t j|dr|j|_|j||}|j||d|jD]G\}}} |j||} d| vs| dk(s| jdr4|j||| | I|d } | xrtj j#| xsd} |d } |j%|| | \} }t'j(|t+j,|| ||ur,t'j(|t+j,|| ||fS) Nr)dispatch)finfoutferrsenvironrbsconfig:s--config$scwds repository)wd)fp)r2rreloadrrr rmrb_earlyparseopts _parseconfig walkconfig configsource startswith setconfigrArFrealpath _getlocalr populateuir setuplogging)rargscdebugrnewuiaoptionsr'namevaluesourcerjrpathrFnewluis r _loadnewuirsr OO "E 3q'%+,4 z*&&ud3G %!34!& 0 0 2u##GT2 6>V{2f6G6G6M  uf5 !3 &/C '"''""3' /4C M "E%%eUs%;LD&% u0 Ff%""6f5 6?rceZdZdZdZddZy)channeledsystemaPropagate ui.system() request in the following format: payload length (unsigned int), type, '', cmd, '', cwd, '', envkey, '=', val, '', ... envkey, '=', val if type == 'system', waits for: exitcode length (unsigned int), exitcode (int) if type == 'pager', repetitively waits for a command name ending with ' ' and executes it defined by cmdtable, or exits the loop if the command name is empty. c.||_||_||_yr@)in_rkchannel)rSrrkrs rrTzchanneledsystem.__init__<s rNc ||tj|xsdg}|jd|jDdj |}|j j tjd|jt||j j ||j j|dk(r|jjd}tjd|\}|dk7rtj t#dtjd |jjd\} | S|d k(rT |jj%dd }|sy|r||vr ||n!tj t#d |zStj&d |z)N.c30K|]\}}d||fzyw)s%s=%sNr]).0r+r,s r z+channeledsystem.__call__..CsB/$!QH1v%/s>cIsystem>Isinvalid response>irvsunexpected command: %ssinvalid S channel type: %s)r abspathextendrjoinrkwritestructpackrlenrqrreadunpackr AbortrreadlineProgrammingError) rSrsr rjrxryrdatalengthrcs r__call__zchanneledsystem.__call__Asfc4<< t45 B'--/BBzz$ v{{64<<TCD t  9 XX]]1%F eV4IV{kk!$7"899MM%q)9:ERI X hh'')#2.x!HSMO++a(A&BS&HII(()F)MN Nr)NrN)rXrYrZr[rTrr]rrrr's( Orr))scinrrb)scoutrwb)scerrrrc eZdZfdZfdZdZdZdZdZdZ dZ d Z d Z fd Z d Zej j"j%Zej'ee e ee e d ej*edr dZeed<xZSxZS) chgcmdserverc 8tt| t|t ||d|j ||||||_d|_g|_||_ ||_ |=|jj|_ tj|jd<yy)NSFsvalidate)rcrrTrrr{ clientsock _ioattached_oldiosrN baseaddress capabilitiescopyvalidate) rSr%repofinrlsock prereposetupsrNrres rrTzchgcmdserver.__init__fs lD* b/#tT:DMM J        "&  $ 1 1 6 6 8D -9-B-BD  k * !rctt| |jj |j d|_yNF)rcrcleanupr%rq _restoreior)rSres rrzchgcmdserver.cleanupys1 lD)+    rc8|jjtjddd|jj dd\}}}}t |dk(sJ|d\}}}|t jk(sJ|t jk(sJt|jdj}|jjdd||j} | j|jt!|t"D]\} \} } } | dkDsJt%| | }t'j(| |j+t'j,| |j.rc| d k(r|}n;|j1rt3j4|}nt3j6|}||ur t9| | |t9|| |d |_|j:j=tjd t |y ) z{Attach to client's stdio passed via unix domain socket; all channels except cresult will no longer be used rIrri chgserversreceived fds: %r rTrN)rsendallrrrecvmsgrsocket SOL_SOCKET SCM_RIGHTS memoryviewcasttolistr%rVrq_saveiozip _iochannelsrrAdup2ricloserisattyrmake_line_bufferedunwrap_line_bufferedrcresultr)rSrancdata msg_flagsaddress cmsg_level cmsg_type cmsg_data clientfdsr%fdcnfnmodernewfps rr{zchgcmdserver.attachios  FD! <=,0OO,C,CAs,K)gy'7|q   +21:( IyV.....F-----y)..s3::<   L"7C WW   "%i"= BR6M6RB GGB $ HHRL W}99;$77;E$99"=EBB& D"e $-#>0  6;;uc)n=>rc|jry|j}tD]_\}}}t||}t||}t j |j }|jj|||fayr@)rr%rrrAduprir)rSr%rr_modechrrs rrzchgcmdserver._saveiosh <<  WW(MBEr"BRB $B LL  R - )rc |jsytjtjtj}|j }t |jtD]\\}}}\}}} d|vr4tj||j|jtj||jtj|t!|||t!|||tj||jdd=y#t$r;} |j jddtj| |Yd} ~ d} ~ wwxYw)Nwrsgot %s while duplicating %s )rrAopendevnullO_WRONLYr%rrrrirqrrErVr forcebytestrr) rSnullfdr%rrrrrrerrs rrzchgcmdserver._restoreios|| R[[1 WW,/ k,J (LRR.2r4 $;GGFBIIK0HHJBIIK(  D"b ! BB /-K0  LLO    4++C0  s5A1D'' E+01E&&E+c|j}d}d} t|j||j\|_}|rY|jjd}|jjddr|}|jj!d |zyt"j%|j"j&}g}|j(|j"j(k7ret+|j,|j"j.} |j1d | z|j"j(r|j1d |j.|j"j.k7r4t+|j,|j.} |j1d | z|jj3d dtj4||jj!dj7|xsdy#tj $r}|jj t dtj|z|jr1|jj t d|jzd}Yd}~Wd}~wtj$rN}|j |j}|jj |jd}Yd}~d}~wwxYw)aReload the config and check if the server is up to date Read a list of '' separated arguments. Write a non-empty list of '' separated instruction strings or '' if the list is empty. An instruction string could be either: - "unlink $path", the client should unlink the path to stop the outdated server. - "redirect $path", the client should attempt to connect to $path first. If it does not work, start a new server. It implies "reconnect". - "exit $n", the client should exit directly with code n. This may happen if we cannot parse the config. - "reconnect", the client should close the connection and reconnect. If neither "reconnect" nor "redirect" is included in the instruction list, the client can continue with this server after completing all the instructions. Fs abort: %s s(%s) TNsuisdetailed-exit-codesexit %ds unlink %ss reconnects redirect %srs validate: %s r) _readlistrr%rr RepoErrorrrrhintErrordetailed_exit_codeformatrq configboolrrrNrWrRrQ _hashaddressrrPrrVrr) rSr errorraisedr luiinst exit_codenewhashinstsaddrs rrzchgcmdserver.validates0(~~   %dggtT[[ALDGS  GGMMOIww!!%)>?. LL  zI5 6 ""3(A(AB    8 8 8 0 0$..2K2KLD LL, -~~'' \*   !:!: : 0 0'2D2DED LL$. /  L"3Z5F5Fu5MN 5::e,56C  GGMM!N+j.E.Ed.KK Lyy a lTYY67K{{ &&2%)%<%<" GGMM$++- (K  s%)HK:A9JK:,AK55K:c|j}|sy|jjdd|tj|y)zChange current directory Note that the behavior of --cwd option is bit different from this. It does not affect --config parameter. Nrschdir to '%s' )_readstrr%rVrAchdir)rSrFs rrzchgcmdserver.chdirs5 }}   L"4d; rcD|j|jdy)zChange umask (DEPRECATED)rN) _setumask_readrSs rsetumaskzchgcmdserver.setumask%s tzz!}%rcx|j}t|dk7r td|j|y)z Change umaskrs(invalid mask length in setumask2 requestN)rr ValueErrorr)rSrs r setumask2zchgcmdserver.setumask2+s0}} t9>HI I trctjd|d}|jjdd|t j |y)Nrrrs setumask %r )rrr%rVr r)rSrmasks rrzchgcmdserver._setumask2s8}}UD)!,  L"2D9 drc|j}g|_ tt||j ||_S#|j ||_wxYwr@)rrcr runcommandr)rS globaloldiosres rr#zchgcmdserver.runcommand7sM||   (t79 OO 'DL OO 'DLs ?Ac\|j} td|D}|jj ddt |j tjjtjj|y#t$r tdwxYw)ztClear and update os.environ Note that not all variables can make an effect on the running process. c3@K|]}|jddyw)=rN)split)rss rrz&chgcmdserver.setenv..Js6Aq!''$*Ass"unexpected value in setenv requestrs setenv: %r N) rdictrr%rVr$keysr r clearupdate)rSlnewenvs rsetenvzchgcmdserver.setenvCs NN  D6A66F  L/6&++-3HI '  DBC C Ds BB+)rwschdirs runcommandssetenvssetumasks setumask2 setprocnamec|j}|jjdd|tj|y)zChange process titlerssetprocname: %r N)rr%rVrr1)rSrs rr1zchgcmdserver.setprocname`s0==?D GGKK &:D A   &rs setprocname)rXrYrZrTrr{rrrrrrrr#r0rserverrrr-r rmrr1r}r~s@rrresC&!0?d.@:7x &  ( (!''4499;L!%!#   t-0 ' (3 ^$1rrc4d|tjfzS)Ns %s.%d.tmp)rAgetpid)rs r _tempaddressr6is 7BIIK0 00rctjj|\}}|jddd}dtjj|||fzS)Nrrrs%s-%s)rArFr(r)rhashstrdirnamebasenames rr r msO g.GX~~dA&q)H rww||GX6@ @@rcVeZdZdZdZdZdZdZdZdZ dZ d Z d Z d Z d Zd Zy)chgunixservicehandlerz"Set of operations for chg servicesrc||_d|_d|_d|_|j dd|_t j |_y)Nrs idletimeout)r% _hashstate _baseaddress _realaddress configint _idletimeouttime _lastactive)rSr%s rrTzchgunixservicehandler.__init__{sC  LL~F99;rc|j||j|j||jyr@)_inithashstate_checkextensions_bind_createsymlink)rSrrs r bindsocketz chgunixservicehandler.bindsockets4 G$  4 rc||_|jjddrd|_||_yt j |j|_t||jj|_y)Nrsskiphash) r?r%r r>r@rNrWr rPrSrs rrFz$chgunixservicehandler._inithashstates_# 77  lK 8"DO 'D  #**4773($//2L2LMrcj|jsytjrd|j_yy)Nr)r>r notloadedrQrs rrGz&chgunixservicehandler._checkextensionss+     !),DOO % "rc t|j}tj||t j ||_|jtjtj||jyr@) r6r@r bindunixsocketrArB _socketstatlistenr SOMAXCONNrename)rSr tempaddresss rrHzchgunixservicehandler._binds]#4#4#45  D+.77;/ F$$% K!2!23rc|j|jk(ryt|j}tjtj j |j|tj||jyr@) r?r@r6rAsymlinkrFr:r rT)rSrUs rrIz$chgunixservicehandler._createsymlinks`    1 1 1 "4#4#45  277##D$5$56 D K!2!23rc  tj|j}|j|jjk(xr1|tj |jtj k(S#t $rYywxYwr)rArBr@st_inorQrCrE)rSrGs r_issocketownerz$chgunixservicehandler._issocketownersr **+B T--444It}}%)9)9$--)HH   sA4A77 BBcd|jsytj|jyr@)rZr tryunlinkr@rLs r unlinksocketz"chgunixservicehandler.unlinksockets%""$  t(()rc |js(|jjdd|jyt j|j z |j kDr|jjddyy)Nrs%s is not owned, exiting. Tsbeing idle too long. exiting. F)rZr%rVr@rCrDrBrs r shouldexitz chgunixservicehandler.shouldexitsi""$ GGKKO>O  99;)) )D,=,= = GGKK &H Irc6tj|_yr@)rCrDrs r newconnectionz#chgunixservicehandler.newconnections99;rc bt|j||||||j|jSr@)rr%r>r?)rSrconnrrlrs rcreatecmdserverz%chgunixservicehandler.createcmdservers5 GG      OO     rN)rXrYrZr[ pollintervalrTrJrFrGrHrIrZr]r_rardr]rrr<r<vsB,L 'N, 44* '  rr<cdtjvrtjd=dtjvr6tjdtjd<tjd=nFdtjvr4dtjvrtjd=tjd=|r|jddddt|}t j |d|| S) NsCHGINTERNALMARKsCHGORIG_LC_CTYPEsLC_CTYPEsCHG_CLEAR_LC_CTYPEsbundles mainreporootrsrepo)roptshandler)r r rr<runixforkingservice)r%rrghs rchgunixservicerks X---   / 0h...(0(8(89L(M%   0 1 ("2"2 2 (** *  -   2 3  Yg>b!A  + +BTa PPr)-r[r6rArerrBrrCi18nrr rrnoderr2rr r r r utilsrrrrrrcompileXr"r/r=rLrNrrrrr3rr6r r<rkr]rrrrs F A '  DD ")>4<:<<."J!H3O3Ol A3=''A3H1Ag g TQr