たぽブログ

Debian の apt-get などのコマンドはサーバから Packages.gz を持ってきて
取得可能なパッケージの一覧を得るようだ．
そこで，ローカルにある .deb パッケージから Packages を作るスクリプトを書いてみた．


/var/www/debian/dists/potato/main/binary-i386/hoge
を /usr/local/archives/Debian へのシンボリックリンクとして，
このスクリプトの出力を gzip で圧縮して Packages.gz として，
/var/www/debian/dists/potato/main/binary-i386/Packages.gz
に置くとうまくいきそう．ファイルサイズがないと，
ダウンロードはするけどサイズが違うとかぬかしてうまくいかなかった．

takayuki@sanapon:~$ cd /var/www/debian/

takayuki@sanapon:/var/www/debian$ sudo ln -s /usr/local/archives/Debian dists/potato/main

 /binary-i386/hoge

takayuki@sanapon:/var/www/debian$ ~/bin/MakePakages.pl dists/potato/main/binary-i386/hoge

 /*.deb | gzip > /tmp/Packages.gz

takayuki@sanapon:/var/www/debian$ sudo mv /tmp/Packages.gz dists/potato/main/binary-i386/

それから，Debian のサイトからダウンロードしたファイルは，
ファイル名に ":" が含まれると，"%3a" に変換されて，
この変換済みのファイル名を元に Packages.gz を作るとうまくいかないので
元に戻すスクリプトを作った．

#!/usr/bin/perl



while ($ARGV[0]) {

    if ($ARGV[0] =~ s/%3a/{%3a,:}/) {

	print "mv $ARGV[0]\n";

	system "mv $ARGV[0]";

    }



    shift;

}

/etc/apt/source.list には

http://www.mizuno.or.jp/debian potato main

を先頭に追加するべし．しかし，もっとシンプルにできんのかねえ．


さらにこんな cron を書いてみた．ちゃんと動くかな？

#!/usr/bin/perl



system "apt-get update";

system "apt-get -y upgrade";



chdir "/var/cache/apt/archives";

@deb = `ls *.deb`;

if (@deb == 0) {

    exit;

}



foreach $i (@deb) {

    chomp $i;

}



system "~takayuki/bin/Colon.pl @deb";

system "mv @deb /usr/local/archives/Debian";

chdir "/var/www/debian";

system "~takayuki/bin/MakePackages.pl dists/potato/main/binary-i386/hoge/@deb

 | gzip >> dists/potato/main/binary-i386/Packages.gz"

朝っぱら(と言っても10:00頃だが)から妹を駅まで車で送っていくはめになった．ねむいー．


ゼミの当番も乗り切ったことだし，出入り口マシンをパワーアップさせたいなー．
それとももう1台組もうかなー．

鈴木＠B4の机からかっぱらってきた「中国語字幕入り天空の城ラピュタのVideoCD」
を見るために Creative SoftMPEG をインストールした．
どうやら Administrator じゃないとちゃんと動かないようだ．めんどくせーなー．
思わずバイト行く前に見てしまった．
最後の方のラピュタが崩れていくところは画質がいまいちだった．
DVD はこういうのもちゃんと高画質なんだろうか？
というか，この VideoCD はパッケージにちゃんとジブリのロゴが入ってたけど，
正規の製品なのかなあ…．