Linux 筆記本基于“敲打”的命令

xscreensaver 所使用的命令配置

以下設(shè)置假設(shè)您已經(jīng)登錄到了窗口管理器中并且已經(jīng)使用您的 userid 啟動了xscreensaver 程序例如如果您正在運行 Fedora Core 并且使用 gdm 登錄到 KDE 中那么 xscreensaver 就會自動啟動因此要激活它則需要將雙擊命令從

/bin/echo double tap

修改為

xscreensavercommand activate

現(xiàn)在每次識別出有 雙擊 事件發(fā)生時xscreensaver 程序都會使用所指定的內(nèi)容來激活一旦 screensaver 被激活就可以通過輸入密碼(如果是這樣配置的)對屏幕進行解鎖不過我們真正希望的是自己的朋友也可以使用密碼解鎖代碼來解除屏保因此我們需要在 ~/knockFile 文件中將下面的命令

/bin/echo shave the haircut

替換為

killall xscreensaver ; nohup xscreensaver nosplash >/dev/null >/dev/null

這個命令會停止當前運行的所有 xscreensaver 程序然后在后臺再重新啟動 xscreensaver現(xiàn)在我們可以通過敲打屏幕邊來重復(fù)加鎖和解鎖計算機屏保的過程這比藍牙提供的近似度加鎖更加安全或更方便嗎?答案可能是否定的它更酷嗎?當然!

更多例子

HDAPS 傳感器和 knockAgepl 程序提供了另外一種用戶輸入設(shè)備我們可以使用它們以獨特的方式進行輸入例如

如果計劃在一個基礎(chǔ)上測試新的 X 配置文件可以將雙擊條目更改為重新啟動配置好的 X 服務(wù)器這樣就不需要敲任何其他鍵來強制重啟了

在命令區(qū)中可以放上我們喜歡使用的任何 shell 腳本這樣就可以使用雙擊來查看 email

以最新的組合節(jié)拍進行敲打讓 ThinkLight 顯示 WWII 代在 Kinakuta 的黃金存儲設(shè)備的 Morse 密碼位置

敲入 Morse 編碼防止鍵盤輸入被記錄

請參閱 參考資料 部分給出的有關(guān)將 ThinkPad 的傾斜度用于游戲顯示工具的例子或者直接跳過這部分內(nèi)容將 Threshold 變量設(shè)置為 這樣您使勁踢一腳 ThinkPad它就會自動重啟了

knockAgepl 代碼

歷史和策略

Jeff Molofee 所編寫的 hdapsglc 是 knockAgepl 代碼的基礎(chǔ)Hdapsglc 是一個非常好的展示程序可以展示如何使用傾斜傳感器來實時地顯示有關(guān) ThinkPad 的方向的信息二者之間的區(qū)別是本例將時間上隔離的事件組織在一起創(chuàng)建了敲打事件同時提供了相關(guān)的代碼來創(chuàng)建并監(jiān)聽敲打事件序列

參數(shù)配置

下面讓我們來使用對時間和傳感器敏感的一些參數(shù)來啟動 knockAgepl

清單 主程序參數(shù)

require sys/syscallph; # for subsecond timing my $option = $ARGV[] || ; # simple option handling # filename for hdaps sensor reads my $hdapsFN = /sys/devices/platform/hdaps/position; my $UPDATE_THRESHOLD = ; # threshold of force that indicates a knock my $INTERVAL_THRESHOLD = ; # microseconds of time required between knock # events my $SLEEP_INTERVAL = ; # time to pause between hdaps reads my $MAX_TIMEOUT_LENGTH = ; # maximum length in seconds of knock pattern # length my $MAX_KNOCK_DEV = ; # maximum acceptable deviation between recorded # pattern values and knocking values my $LISTEN_TIMEOUT = ; # timeout value in seconds between knock # events when in listening mode

這些變量及其注釋都非常簡單它們的用法和配置選項在本文后面部分會進行解釋下面是其余的一些全局變量及其描述

清單 敲打模式參數(shù)

my @baseKnocks = (); # contains knock intervals currently entered my %knockHash = (); # contains knock patterns associated commands my $prevInterval = ; # previous interval of time my $knockCount = ; # current number of knocks detected my $restX = ; # `resting positiong of X axis accelerometer my $restY = ; # `resting positiong of Y axis accelerometer my $currX = ; # current position of X axis accelerometer my $currY = ; # current position of Y axis accelerometer my $lastX = ; # most recent position of X axis accelerometer my $lastY = ; # most recent position of Y axis accelerometer my $startTime = ; # to manage timeout intervals my $currTime = ; # to manage timeout intervals my $timeOut = ; # perpetual loop variable my $knockAge = ; # count of knocks to cycle time interval

子程序

在我們的子程序清單中首先是一個簡單的邏輯塊用來檢查是否有加速器可讀

清單 檢查加速器的子程序

sub checkAccelerometer() { my $ret; $ret = readPosition (); if( $ret ){ print no accelerometer data available tis bork edn; exit(); } }#checkAccelerometer

Jeff Molofee 編寫的 hdapsglc 代碼為 knockAgepl 中的所有代碼提供了一個很好的起點在下面的 readPosition 子程序中我們可以看到他的注釋這個子程序?qū)⒋蜷_一個文件從中讀取當前的加速器數(shù)據(jù)然后關(guān)閉文件并返回不包含 (逗號) 字符的數(shù)據(jù)

清單 readPosition subroutine

## comments from Jeff Molofee in hdapsglc #* read_position read the (xy) position pair from hdaps #* #* We open and close the file on every invocation which is lame but due to #* several features of sysfs files: #* #* (a) Sysfs files are seekable #* (b) Seeking to zero and then rereading does not seem to work ## sub readPosition() { my ($posX $posY) = ; my $fd = open(FH $hdapsFN); while( ){ s/(//g; s/)//g; ($posX $posY) = split ; }# while read close(FH); return( $posX $posY ); }#readPosition

getEpochSeconds 和 getEpochMicroSeconds 提供了有關(guān)敲打模式狀態(tài)的詳細而精確的信息

清單 時間分隔器

sub getEpochMicroSeconds { my $TIMEVAL_T = LL; # LL for microseconds my $timeVal = pack($TIMEVAL_T ()); syscall(SYS_gettimeofday $timeVal ) != or die micro seconds: $!; my @vals = unpack( $TIMEVAL_T $timeVal ); $timeVal = $vals[] $vals[]; $timeVal = substr( $timeVal ); my $padLen = length($timeVal); $timeVal = $timeVal x $padLen; return($timeVal); }#getEpochMicroSeconds sub getEpochSeconds { my $TIMEVAL_T = LL; # LL for microseconds my $start = pack($TIMEVAL_T ()); syscall(SYS_gettimeofday$start ) != or die seconds: $!; return( (unpack($TIMEVAL_T $start))[] ); }#getEpochSeconds