RでWordPressコアファイル整合性検査:公式配布版とのSHA-256照合

# 設定 ------------------------------------------------------------------

# 公式WordPressの展開先
dir_official <- "D:/wp-official/wordpress"

# 稼働中サイトのフォルダ(名前付きベクトル)
dir_sites <- c(
  saecanet = "D:/wp-saecanet",
  contact  = "D:/wp-contact"
)

# ルート直下のファイルに加えて比較するコアディレクトリ
core_dirs <- c("wp-admin", "wp-includes")

# 検査から除外するルート直下のファイル名(正規表現)
# Googleサーチコンソールの所有権確認用ファイル(google + 英数字 + .html)
pattern_exclude <- "^google[0-9a-z]+\\.html$"


# 関数定義 --------------------------------------------------------------

# コアファイルの相対パス一覧を取得する関数
get_core_files <- function(root_dir) {
  # ルート直下のファイル(ディレクトリは除く、隠しファイルを含む)
  root_all <- list.files(root_dir, all.files = TRUE, no.. = TRUE)
  root_files <- root_all[!dir.exists(file.path(root_dir, root_all))]

  # 検査対象外のファイルを除外
  root_files <- root_files[!grepl(pattern_exclude, root_files)]

  # wp-admin, wp-includes 以下の全ファイル(隠しファイルを含む)
  sub_files <- lapply(core_dirs, \(d) {
    p <- file.path(root_dir, d)
    if (!dir.exists(p)) {
      warning(p, " が存在しません")
      return(character(0))
    }
    list.files(p, recursive = TRUE, all.files = TRUE, no.. = TRUE) |>
      (\(x) file.path(d, x))()
  }) |>
    unlist()

  sort(c(root_files, sub_files))
}

# 公式とサイトのコアファイルを比較する関数
compare_core <- function(dir_official, dir_site) {
  files_official <- get_core_files(dir_official)
  files_site <- get_core_files(dir_site)

  # 両方に存在するファイルのSHA-256ハッシュを比較
  files_common <- intersect(files_official, files_site)
  hash_official <- tools::sha256sum(file.path(dir_official, files_common)) |>
    unname()
  hash_site <- tools::sha256sum(file.path(dir_site, files_common)) |>
    unname()

  # 読み込み失敗(NA)は差異ありとして扱う
  is_same <- !is.na(hash_official) & !is.na(hash_site) &
    hash_official == hash_site

  list(
    n_official    = length(files_official),
    n_site        = length(files_site),
    same          = files_common[is_same],
    different     = files_common[!is_same],
    only_official = setdiff(files_official, files_site),
    only_site     = setdiff(files_site, files_official)
  )
}

# 結果を整理して表示する関数
print_result <- function(site_name, result) {
  print_files <- function(files) {
    if (length(files) == 0) {
      cat("  (なし)\n")
    } else {
      cat(paste0("  ", files), sep = "\n")
    }
  }

  cat("\n", strrep("=", 60), "\n", sep = "")
  cat("サイト:", site_name, "\n")
  cat(strrep("=", 60), "\n", sep = "")
  cat("公式のコアファイル数  :", result$n_official, "\n")
  cat("サイトのコアファイル数:", result$n_site, "\n")
  cat("同一のファイル数      :", length(result$same), "\n")

  cat("\n【差異のあるファイル】", length(result$different), "件\n")
  print_files(result$different)

  cat("\n【公式にあるがサイトに無いファイル】", length(result$only_official), "件\n")
  print_files(result$only_official)

  cat("\n【サイトにあるが公式に無いファイル】", length(result$only_site), "件\n")
  print_files(result$only_site)
}


# 実行 ------------------------------------------------------------------

results <- lapply(dir_sites, \(d) compare_core(dir_official, d))

for (nm in names(results)) {
  print_result(nm, results[[nm]])
}

# 件数の一覧表
summary_table <- data.frame(
  site          = names(results),
  same          = sapply(results, \(r) length(r$same)),
  different     = sapply(results, \(r) length(r$different)),
  only_official = sapply(results, \(r) length(r$only_official)),
  only_site     = sapply(results, \(r) length(r$only_site)),
  row.names     = NULL
)
cat("\n", strrep("=", 60), "\n【件数の一覧】\n", sep = "")
print(summary_table)