いつきログ(2008-01-18)

2008-01-18 一日中寝てた

と言うほどは寝ていないが、結構寝てた。

◆ [日記][FreeBSD] ライブラリのバージョンを（無理矢理）あげたその２

サーバ本体のライブラリを無理矢理FreeBSD 6のライブラリを見る様にした。結果成功ヽ（´ー`)ノ

変換スクリプトはこんな感じのperlスクリプト。

ほげほげ.so.数字ってのが複数あったとき、数字が小さいやつをほげほげ.so.数字.origにリネームして、ln -s ほげほげ.so.新しい方ほげほげ.so.数字とかやってくれます。ちなみにデフォルトのYes/No判定はワシの趣味。

lib_sl.plって名前で作って、rootで、cd /; perl lib_sl.plでそれとなく動きます。まぁ、ワシはfastオプションを追加したけど。全部デフォルトでいいやーもーおまかせーって人はfastestオプションをどうぞ（笑）

なお、このスクリプトを使った結果に対して、当方は何の責任も取りませんのでご注意を（笑）

#!/usr/bin/perl

$| = 1;
$skip_no = 0;
$skip_yes = 0;
if ($ARGV[0] eq "fast"){
  $skip_no = 1;
}elsif ($ARGV[0] eq "fastest"){
  $skip_no = 1;
  $skip_yes = 1;
}
&dir_search(".");

exit;

sub dir_search{
  my($root) = @_;
  local(*DIR);
  my($f,%lib);
  %lib = ();
  print "search [$root]\n";
  opendir(DIR,$root) or die "die opendir $root";
  while($f = readdir(DIR)){
    if($f eq "." or $f eq ".."){ next; }
    if(-f "$root/$f"){
      #print "File so $root/$f\n";
      if ($f =~ /^(.*)\.so\.([0-9]+)$/){
        print "so file[$root/$f] exist\n";
        if ($lib{$1} eq ""){
          $lib{$1} = $f;
        }else{
          $lib{$1} = &chg_symlnk($root,$f,$lib{$1},$1);
        }
      }
    }elsif(!-l "$root/$f" and -d "$root/$f"){
      &dir_search("$root/$f");
    }
  }
  closedir(DIR);
}

sub chg_symlnk{
  my($root,$file1,$file2,$libname) = @_;
  my($file1v,$file2v);
  my($sym,$org);
  my($ans,$def);
  $file1 =~ /\.so\.([0-9]+)$/;
  $file1v = $1;
  $file2 =~ /\.so\.([0-9]+)$/;
  $file2v = $1;
  if ($file1v == $file2v){ die "?? fileversion eq? $root/$file1 $root/$file2"; }
  if ($file1v > $file2v){
    $sym = $file2;
    $org = $file1;
  }elsif($file1v < $file2v){
    $sym = $file1;
    $org = $file2;
  }else{
    die "?? logic error $root/$file1 $root/$file2"; 
  }
  if (-l "$root/$sym"){ return $org; }
  $ans = "";
  while($ans eq ""){
    system("ls -la $root/$libname*");
    if ("$root/" =~ /\/compat\// or  -e "$root/$libname.so" ){
      print "No default: libname[$libname] rename file[$root/$sym]->[$root/$sym.orig] and symlink[$root/$sym]->[$root/$org]? (y/N)\n";
      $def = "n";
      if ($skip_no == 0){
        $ans = <STDIN>;
        chomp($ans);
      }
    }else{
      print "Yes default:libname[$libname] rename file[$root/$sym]->[$root/$sym.orig] and symlink[$root/$sym]->[$root/$org]? (Y/n)\n";
      $def = "y";
      if ($skip_yes == 0){
        $ans = <STDIN>;
        chomp($ans);
      }
    }
    if ($ans eq ""){ $ans = $def; }
    if ($ans eq "y" or $ans eq "Y" or $ans =~ /^yes$/i){
      $ans = "y";
    }elsif ($ans eq "n" or $ans eq "N" or $ans =~ /^no$/i){
      $ans = "n";
    }else{
      print "input [$ans] is fatal\n";
      $ans = "";
    }
  }
  if ($ans eq "y"){
    print "do it, please enter\n";
    system("ls -la $root/$libname*");
    if ($skip_yes == 0){ $ans = <STDIN>; }
    print "rename file[$root/$sym]->[$root/$sym.orig] and symlink[$root/$sym]->[$root/$org]\n";
    print "  rename [$root/$sym]->[$root/$sym.orig]\n";
    print "    chflags noschg $root/$sym\n";
    system("chflags noschg $root/$sym");
    print "    mv $root/$sym $root/$sym.orig\n";
    system("mv $root/$sym $root/$sym.orig");
    print "    chflags schg $root/$sym.orig\n";
    system("chflags schg $root/$sym.orig");
    print "  symlink[$root/$sym]->[$root/$org]\n";
    print "    ln -s $org $root/$sym\n";
    system("ln -s $org $root/$sym");
    print "end it, please enter\n";
    system("ls -la $root/$libname*");
    if ($skip_yes == 0){ $ans = <STDIN>; }
  }else{
    print "no change file[$root/$sym] file[$root/$org]\n";
    system("ls -la $root/$libname*");
    #$ans = <STDIN>;
  }
  return $org;
}