3 À<×eÌã@spddljZddlmZddlTddlmZmZddlZ ddl mZddlZe j jƒZeƒZGdd„dejƒZdS) éNé)Úbase)Ú*)ÚPopenÚPIPE)Úcommandsc@steZdZdZedd„ƒZdd„Zedd„ƒZdd „Zd d„Z dd „Z dd„Zdd„Zdd„Z eddddd„ƒZdS)ÚMountsPluginaP `mounts`:: Enables or disables barriers for mounts according to the value of the [option]`disable_barriers` option. The [option]`disable_barriers` option has an optional value `force` which disables barriers even on mountpoints with write back caches. Note that only extended file systems (ext) are supported by this plug-in. cCsøi}d}tdddgttdddjƒ\}}xÄdd„|jƒDƒD]®}t|ƒd krNq<|dd …\}}}t|ƒd krt|d nd} t|ƒd krŒ|d nd} |dkrž|}q<|dks<|dkr°q<| dks<| dkrÂq<|j| tƒ|| dœƒ|| dj|ƒq$sz>MountsPlugin._generate_mountpoint_topology..ééZdiskÚ1ÚpartÚlvmz[SWAP])ÚdisksÚdevice_nameÚ filesystemr)rr) rrZcommunicateÚ splitlinesÚlenÚ setdefaultÚsetÚaddÚ_mountpoint_topology)ÚclsZmountpoint_topologyZcurrent_diskr r ÚcolumnsZdevice_typeZdevice_removablerrÚ mountpointrrrÚ_generate_mountpoint_topologys,z*MountsPlugin._generate_mountpoint_topologycCs*|jƒd|_t|jjƒƒ|_tƒ|_dS)NT)r"Z_devices_supportedrrÚkeysZ _free_devicesZ_assigned_devices)ÚselfrrrÚ _init_devices;szMountsPlugin._init_devicescCsddiS)NÚdisable_barriersr)r$rrrÚ_get_config_optionsAsz MountsPlugin._get_config_optionscCsd|_d|_dS)NFT)Z_has_dynamic_tuningZ_has_static_tuning)r$ÚinstancerrrÚ_instance_initGszMountsPlugin._instance_initcCsdS)Nr)r$r(rrrÚ_instance_cleanupKszMountsPlugin._instance_cleanupcCs,tjd|ƒ}x|D]}tj|ƒjƒSWdS)zV Get device cache type. This will work only for devices on SCSI kernel subsystem. z+/sys/block/%s/device/scsi_disk/*/cache_typeN)ÚglobÚcmdZ read_fileÚstrip)r$ÚdeviceZsource_filenamesZsource_filenamerrrÚ_get_device_cache_typeNs z#MountsPlugin._get_device_cache_typecCs.x(|j|dD]}|j|ƒdkrdSqWdS)zr Checks if the device has 'write back' cache. If the cache type cannot be determined, asume some other cache. rz write backTF)rr/)r$r!r.rrrÚ_mountpoint_has_writeback_cacheWsz,MountsPlugin._mountpoint_has_writeback_cachecCs®tdƒH}x@|D]4}|jƒ}|dddkr.q|d|kr|d}PqWdSWdQRX|jdƒ}xH|D]<}|jdƒ\}} } |d ks’|d kr–| dkr–dS|d krfd SqfWd SdS)zP Checks if a given mountpoint is mounted with barriers enabled or disabled. z/proc/mountsrú/rrNú,ú=Z nobarrierZbarrierÚ0FT)ÚopenrÚ partition)r$r!Zmounts_filerr Zoption_listÚoptionsZoptionÚnameÚsepÚvaluerrrÚ_mountpoint_has_barriers`s" z%MountsPlugin._mountpoint_has_barrierscCsd|dd|g}tj|ƒdS)z Remounts partition. z/usr/bin/mountz-oz remount,%sN)r,Zexecute)r$r6r7Zremount_commandrrrÚ_remount_partition}szMountsPlugin._remount_partitionr&T)Z per_devicec CsZ|jd|d}t|ƒjƒdk}|p*|j|ƒ}|r|s:dSd}|j|djdƒsXd}nl|rn|j|ƒrnd}nV|j|ƒ} | dkr†d}n>| d kr¬|r¦tj t j|ƒd Sd}n|rÄtjt j |ƒd S|dk râtj d||fƒdS|jj|| ƒtj d |ƒ|j|dƒnJ|rdS|jj|ƒ} | dkr0dStj d|ƒ|j|dƒ|jj|ƒdS)Nr&)Zcommand_namerÚforcerZextzfilesystem not supportedzdevice uses write back cachezunknown current settingFTzbarriers already disabledz#not disabling barriers on '%s' (%s)zdisabling barriers on '%s'z barrier=0zenabling barriers on '%s'z barrier=1)Z_storage_keyÚstrÚlowerZ_option_boolrÚ startswithr0r;ÚlogÚinfoÚconstsZSTR_VERIFY_PROFILE_OKÚerrorZSTR_VERIFY_PROFILE_FAILZ_storagerr<ÚgetZunset) r$Ústartr:r!ZverifyZignore_missingZstorage_keyr=Z reject_reasonÚoriginal_valuerrrÚ_disable_barriers„sN zMountsPlugin._disable_barriersN)Ú__name__Ú __module__Ú__qualname__Ú__doc__Úclassmethodr"r%r'r)r*r/r0r;r<Zcommand_customrHrrrrrs $ r)Ztuned.constsrCÚrZ decoratorsÚ subprocessrrZ tuned.logsZtunedZtuned.utils.commandsrr+ZlogsrErAr,ZPluginrrrrrÚs