自動查找相關(guān)文件.上傳到服務(wù)器

創(chuàng)新互聯(lián)公司服務(wù)項目包括大通網(wǎng)站建設(shè)、大通網(wǎng)站制作、大通網(wǎng)頁制作以及大通網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，大通網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到大通省份的部分城市，未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

#!/usr/bin/ruby
# coding: utf-8
require 'date'

$result = []
bak_ser = "bacula@192.168.100.24"
tar_dir = "/tmp/auto_tar_bak"

def check(top_dir, ext_type, exclude, dir_deep)
  content = `ls -1 #{top_dir}`.split
  for i in content
    i = top_dir + "/" + i
    if File.directory?(i)
      next if File.ftype(i) == 'link'
      begin
        next if i.scan('/').length >= dir_deep
      rescue
        next if i.force_encoding('GBK').scan('/').length >= dir_deep
      end
      next if i.match(/#{exclude}/)
      unless Dir.entries(i).include?('.svn')
        begin
          check(i, ext_type, exclude, dir_deep)
        rescue
        end
      end
    elsif File.ftype(i) == 'file'
      begin # maybe no ext name
        unless i.scan(/\.[^\.]+$/)[0].match(/#{ext_type}/i)
          if File.size(i) <= 1024000 && File.size(i) >= 120
            if `file \"#{i}\"`.include?('ASCII') || i.scan(/\.[^\.]+$/)[0].match(/doc|docx|xlsx|xls/i)
              $result << "." + i
            end
          end
        end
      rescue
        #unless i.force_encoding('GBK').scan(/\.[^\.]+$/)[0].match(/bmp|png|pdf|vsd|rar|log|dat|bak/i)
          if File.size(i) <= 1024000 && File.size(i) >= 120
            if `file \"#{i}\"`.include?('ASCII')  #|| i.force_encoding('GBK').scan(/\.[^\.]+$/)[0].match(/doc|docx|xlsx|xls/i)
              $result << "." + i
            end
          end
        #end        
      end
    end
  end
end

def write_file(path,str)
aFile = File.new(path,"w")
    aFile.puts str
aFile.close
end

def delete_dir_line(dir)
  dir[0] == '/' ? dir[1..-1] : dir
end

def import_config(home_name)
  path_in, path_ex, filetype = [], [], []
  config = {:deep => 8, :exclude => path_ex, :filetype => filetype, :include => path_in}
  begin
    File.open("/local_home/#{home_name}/config.txt",'r').each do |line|
      if line.match(/^deep/)
        config[:deep] = line.split('=')[-1].to_i if line.split('=')[-1].to_i + 2 >= 1
      elsif line.match(/^exclude/)
        line.split('=')[-1].split(';').each {|x| path_ex << "/local_home/#{home_name}/" + delete_dir_line(x.chomp) if x.length > 1}
      elsif line.match(/^include/)
        line.split('=')[-1].split(';').each {|x| path_in << "/local_home/#{home_name}/" + delete_dir_line(x.chomp) if x.length > 1}
      elsif line.match(/^filetype/)
        line.split('=')[-1].split(';').each {|x| filetype << x.chomp if x.length > 1}
      end
    end
  rescue
    config = {:deep => 8, :exclude => path_ex, :filetype => filetype, :include => path_in}
  end
  path_ex.each { |x| path_ex.delete(x) if path_in.index(x) }

  return config
end

# get home user
home_user = `grep $(hostname) /etc/auto.nfs | awk -F \'/local_home/\' \'{print $2}\'`.split.join('|')

`rm -rf #{tar_dir}` if File.directory?(tar_dir)

`ls -1 /local_home`.split.each do |list|
  if list.match(/#{home_user}/)
    `mkdir -p #{tar_dir + "/" + list}`
    tar_list_path = "#{tar_dir + "/" + list}/tar.list"
    tar_file_name = "#{tar_dir + "/" + list}/#{DateTime.now.strftime("%Y-%m-%d")}.tar.bz2"

    config = import_config(list)

    if config[:filetype].length > 0
      filetype = config[:filetype].join('|')
    else
      filetype = "bmp|png|pdf|vsd|rar|log|dat|bak"
    end

    if config[:exclude].length > 0
      exclude = config[:exclude].join('|')
    else
      exclude = "Code|RTL|INCA.libs"
    end

    if list.match(/#{home_user}/)
      if config[:include].length > 0
        config[:include].each do |in_path|
          check(in_path, filetype, exclude, config[:deep]) if File.directory?(in_path)
        end
      else
        check("/local_home/" + list, filetype, exclude, config[:deep])
      end
    end

    $result << "." + tar_list_path
    # write tar_list to tmp file
    write_file(tar_list_path,$result)
    # tar file
    `cd / && tar -jc -T #{tar_list_path} -f #{tar_file_name}`
    # scp file
    `scp #{tar_file_name} #{bak_ser + ":/bak/auto_bak/" + list + "/" + File.basename(tar_file_name)}`

    $result = []
  end
  `rm -rf #{tar_dir}` if File.directory?(tar_dir)
end

運行前會加載配置文件 (/local_home/USERNAME/config.txt)

格式如下

include=DIR1;DIR2

exclude=DIR1;DIR2

deep=6

filetype=dat;avi

創(chuàng)新互聯(lián)www.cdcxhl.cn，專業(yè)提供香港、美國云服務(wù)器，動態(tài)BGP最優(yōu)骨干路由自動選擇，持續(xù)穩(wěn)定高效的網(wǎng)絡(luò)助力業(yè)務(wù)部署。公司持有工信部辦法的idc、isp許可證， 機(jī)房獨有T級流量清洗系統(tǒng)配攻擊溯源，準(zhǔn)確進(jìn)行流量調(diào)度，確保服務(wù)器高可用性。佳節(jié)活動現(xiàn)已開啟，新人活動云服務(wù)器買多久送多久。

本文名稱：自動備份腳本-創(chuàng)新互聯(lián)
本文地址：http://www.xueling.net.cn/article/dcejji.html