作者彙整: dada

關於「dada」

I'm dada

Subversion: revert a commit [時光倒轉]

1 則留言

使用 Subversion 偶而就會遇到有人不小心把一堆不該存在的檔案 commit 進來了，這在去年寫的一篇「svndumpflter with wildcards support ?」有提到從歷史記憶中去除個別檔案的方式

但如果你能即時發現最新的一個(或幾個) commit(s) 的任何更動都是不該發生的（通常就是有人做了蠢事），那麼在有其他正常人繼續 commit 之前，其實是有蠻好的挽救機會的 💡

假設你的 repository 名稱是 foobar，最新的 revision number 是 r105，但是你即時發現 r101 ~ r105 都是某人亂搞的結果，那麼在 r106 commit 之前，應該還有機會把時光倒轉到 r100 那時清純未受污染的狀態..

廢話不多說，下面是作法

# cd /home/svn
# svnadmin create foobar.new
# svnadmin dump -r0:100 foobar | svnadmin load --force-uuid foobar.new
# mv foobar foobar.old
# mv foobar.new foobar

做完以上動作後再把該設的權限弄好，hooks 下的東西 copy 回去就可以了

如果有其他人在這段動作完成前 checkout 了 r101~r105 之間的版本，就跟他們說他們看到鬼了，請他們砍掉 source tree 重新 checkout 一份吧 🙄

上面這段作法最重要的地方是 –force-uuid 這個選項，沒有加這個選項會使得回復的 repository 的 UUID 跟原本的不同，進而導致之前已經 checkout 的 working copy 都會認不得新的 repository！

如果還來不及作上述動作，就有其他正常人 commit 東西進來了，其實也不會很麻煩，反正做完回復動作後，統統當作沒發生過，再叫作蠢事的人請一頓飯，拜託其他人把新的修改再改一次就好了

OpenBSD 4.2 – 有官方安裝光碟了

發佈留言

OpenBSD 4.2 just released on Nov 1, 2007!

從這版開始，官方也提供幾個主要硬體的安裝光碟了，
不再像之前一樣需要自己辛苦地製作安裝光碟了

http://ftp.giga.net.tw/OS/OpenBSD/4.2/i386/install42.iso
http://ftp.giga.net.tw/OS/OpenBSD/4.2/amd64/install42.iso
http://ftp.giga.net.tw/OS/OpenBSD/4.2/macppc/install42.iso
http://ftp.giga.net.tw/OS/OpenBSD/4.2/sparc/install42.iso
http://ftp.giga.net.tw/OS/OpenBSD/4.2/sparc64/install42.iso

讓大家方便安裝之餘，也請大家有能力的話，多多贊助一下吧

La Fonera 0.7.2 r2 升級+SSH破解

發佈留言

[update on Dec 5, 2007]

Warning: kolofonium may not work for La Fonera 0.7.2 r2!

看了許多網路上的討論，La Fonera 0.7.2 r2 似乎沒辦法用 kolofonium 的方法破解才對，但是我卻成功了，也許是因為我是從已經破解的舊版升級的吧。還是說我的升級成功只是假象？登入畫面的版本號碼是只是因為升級成功了一半… 🙄

沒時間去細究了，改天有空來玩玩 FreeWLAN 的破解好了，看起來更有趣一點

以下是原文
====

去年底所購買的 La Fonera 0.7.1 r2 已經利用 kolofonium 的方法解除 SSH 的封印了，在前一篇文章內已有說明..

由於近期 FON 推出了新版的韌體 0.7.2 r2，號稱 DNS 查詢速度會較快，因此找個時間把韌體升級了

在之前那篇文章中，韌體自動升級的功能已經被我關掉了，因此要先 SSH 進去把它改回來

SSH 進去 La Fonera 後，修改 /bin/thinclient 這個檔案，把最後一行的 # 拿掉

#. /tmp/.thinclient.sh $1

接下來把 La Fonera 的插頭拔掉再接回去，等到重新連上線，你就會發覺它已經自動升級完成了

但是這時候，SSH 的功能也被拔掉了… 按照原來的作法把它弄回去就行了

Anyway, 結論就是 kolofonium 的 SSH 破解方法也適用於 La Fonera 0.7.2 r2

不過呢，升級之後，我的 La Fonera 用到一半會自動斷線的問題還是存在…. orz

Access Subversion with Apache Proxy Module

1 則留言

由於網路架構的問題，我們有時會設計讓不同網段必須透過 Proxy 才能存取 Subversion Repository，但是為此架設一個獨立的 Proxy Server （如 squid）實在太麻煩，利用 Apache 內建的 mod_proxy / mod_proxy_http 功能有時候會讓工作簡化很多

ProxyRequests Off
<Proxy *>
    Order deny,allow
    Deny from all
</Proxy>
ProxyVia On

為了安全性考量，如同上面的設定，我們先把所有 Proxy 的存取關掉，然後依據需要開放特定目錄來允許 Proxy

例如我們想把對 /svn 的存取導向到 http://svn.domain/svn，那麼設定內容就會變成：

<VirtualHost *:80>
    ProxyPass /svn http://svn.domain/svn
    ProxyPassReverse /svn http://svn.domain/svn
    <Location /svn>
        <Limit OPTIONS PROPFIND GET REPORT MKACTIVITY PROPPATCH PUT CHECKOUT
 MKCOL MOVE COPY DELETE LOCK UNLOCK MERGE>
          Order Deny,Allow
          Allow from all
          Satisfy Any
        </Limit>
    </Location>
</VirtualHost>

裡面最重要的就是 <Limit OPTIONS PROPFIND… > 這一行（這一整行不能分成兩行，Copy-Paste時請注意），因為 Subversion 會用到除了 HTTP GET / POST 以外的一些特殊 Method，因此必須設定讓 HTTP 的 Proxy Module 允許這些 Methods 通過，才能讓 Subversion 正常運作

另外建議修改 Allow from all 這一行，改成僅允許特定 IP 來連結，也可強化系統的安全性

參考資料： Subversion behind an Apache Reverse Proxy （不過裡面的設定方式跟我上面提供的有一點點小小差異）

如果你還是想用 squid 來解決問題，那您可以參考 Subversion 網站上面的 FAQ

File handle is always global in Perl

發佈留言

Perl 的 file handle 及 directory handle 一定是 global 的，無法宣告成 local

一般使用上沒有大問題，但是當用在遞迴式呼叫時，就會產生錯誤了，下面是一個把目錄下包含子目錄中所有檔案列出來的 perl 程式，採用遞迴式呼叫。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl
die "Usage: $0 [directory]\n" unless @ARGV == 1;
die "ERROR: $ARGV[0] is not a directory\n" unless -d $ARGV[0];
&show_dir($ARGV[0]);
exit;
sub show_dir
{
        my( $dir ) = @_;
        my( $fname );
        opendir( DIR, $dir );
        while( $fname = readdir(DIR) )
        {
                next if $fname eq '.' || $fname eq '..';
                if( -d "$dir/$fname" ) {
                        &show_dir("$dir/$fname");
                }
                else {
                        print "$dir/$fname\n";
                }
        }
        closedir(DIR);
}

由於 DIR 這個 directory-handle 會被當成 global 變數，因此這段程式會出錯，無法列出所有檔案。

解決方法是把 DIR 這一個 directory-handle 直接用 $dir 來代替，這樣在遞迴的時候就不會因為重複使用而造成錯誤了，下面是改過的程式：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl
die "Usage: $0 [directory]\n" unless @ARGV == 1;
die "ERROR: $ARGV[0] is not a directory\n" unless -d $ARGV[0];
&show_dir($ARGV[0]);
exit;
sub show_dir
{
        my( $dir ) = @_;
        my( $fname );
        opendir( $dir, $dir );
        while( $fname = readdir($dir) )
        {
                next if $fname eq '.' || $fname eq '..';
                if( -d "$dir/$fname" ) {
                        &show_dir("$dir/$fname");
                }
                else {
                        print "$dir/$fname\n";
                }
        }
        closedir($dir);
}