This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<html> | |
<head> | |
<title>MP3 Deduper</title> | |
<style type="text/css"> | |
.btnRemove { | |
color: white; | |
font-size: 9pt; | |
background-color: #f66; | |
border: solid 1px red; | |
margin-left: 5px; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use 5.010; | |
use utf8; | |
use strict; | |
use warnings; | |
use autodie; | |
use File::Find; | |
use MP3::Info; | |
use Digest::MD5 qw/ md5_hex /; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- Directory.pm.org 2012-11-12 13:38:22.000000000 +0900 | |
+++ Directory.pm 2013-03-31 00:23:52.000000000 +0900 | |
@@ -5,6 +5,7 @@ | |
use Cwd (); | |
use Encode (); | |
+use Encode::Locale; | |
use DirHandle; | |
use Mojo::Base qw{ Mojolicious::Plugin }; | |
use Mojolicious::Types; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/opt/perl | |
use Mojolicious::Lite; | |
use JSON; | |
get '/' => sub { | |
my $self = shift; | |
$self->render("index"); | |
}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
# herein we backup our indexes! this script should run at like 3 AM every first day of the month, after logstash | |
# rotates to a new ES index and theres no new data coming in to the old one. we grab metadatas, | |
# compress the data files and backs up to whatever long term storage. | |
set -x | |
. ./config.sh | |
echo "Checking that index exist in ES" |