/bin/old/checkdotfiles.pl

https://bitbucket.org/Ogion/dotfiles · Perl · 24 lines · 19 code · 4 blank · 1 comment · 1 complexity · 40479591889381a3f5a485c9cd44bb78 MD5 · raw file 

    

  1. #!/usr/bin/perl
    2. 

  2. 

  3. use common::sense;
    4. 

  4. 

  5. my %filehash = (
    6. 

  6.     '/home/ogion/bitbucket/dotfiles/xmodmaprc'            => '/home/ogion/.xmodmaprc',
    7. 

  7.     '/home/ogion/bitbucket/dotfiles/vimperatorrc'         => '/home/ogion/.vimperatorrc',
    8. 

  8.     '/home/ogion/bitbucket/dotfiles/vimperatorrc.local'   => '/home/ogion/.vimperatorrc.local',
    9. 

  9.     '/home/ogion/bitbucket/dotfiles/htoprc'               => '/home/ogion/.htoprc',
    10. 

  10.     '/home/ogion/bitbucket/dotfiles/fonts.conf'           => '/home/ogion/.fonts.conf',
    11. 

  11.     '/home/ogion/bitbucket/dotfiles/Xdefaults'            => '/home/ogion/.Xdefaults',
    12. 

  12.     '/home/ogion/bitbucket/dotfiles/zshrc'                => '/home/ogion/.zshrc',
    13. 

  13.     '/home/ogion/bitbucket/dotfiles/xinitrc'              => '/home/ogion/.xinitrc',
    14. 

  14.     '/home/ogion/bitbucket/dotfiles/vimrc'                => '/home/ogion/.vimrc',
    15. 

  15.     '/home/ogion/bitbucket/dotfiles/conkyrc'              => '/home/ogion/.conkyrc',
    16. 

  16.     '/home/ogion/bitbucket/dotfiles/xmobarrc'             => '/home/ogion/.xmobarrc',
    17. 

  17. );
    18. 

  18. 

  19. my @repofiles = keys %filehash;
    20. 

  20. 

  21. foreach (@repofiles) {
    22. 

  22.     my $thisone = $_;
    23. 

  23.     print $thisone, " and ", $filehash{$thisone}, " do not have matching md5sums!\n" if (`md5sum $thisone | cut -d ' ' -f 1` ne `md5sum $filehash{$thisone} | cut -d ' ' -f 1`);
    24. 

  24. }
    25.