From bc0107813be28ab9532f136047d23bbaa158ee8b Mon Sep 17 00:00:00 2001
From: Luke Shumaker <lukeshu@lukeshu.com>
Date: Sat, 1 Jul 2017 19:10:47 -0400
Subject: fixo

---
 bin/dateify      | 14 --------------
 bin/fmt-metadata |  4 +---
 bin/gitthing     |  5 ++---
 bin/poolify      |  3 +--
 4 files changed, 4 insertions(+), 22 deletions(-)
 delete mode 100755 bin/dateify

(limited to 'bin')

diff --git a/bin/dateify b/bin/dateify
deleted file mode 100755
index 7aefdd9..0000000
--- a/bin/dateify
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/sed -rf
-s/\b([0-9]{2})-([A-Z][a-z][a-z])-([0-9]{4})(\b|T|_)/\3-\2-\1\4/
-s/Jan/01/
-s/Feb/02/
-s/Mar/03/
-s/Apr/04/
-s/May/05/
-s/Jun/06/
-s/Jul/07/
-s/Aug/08/
-s/Sep/09/
-s/Oct/10/
-s/Nov/11/
-s/Dec/12/
diff --git a/bin/fmt-metadata b/bin/fmt-metadata
index 0682414..7867d63 100755
--- a/bin/fmt-metadata
+++ b/bin/fmt-metadata
@@ -4,15 +4,13 @@ require 'time'
 snapshot = ARGV.first.to_i
 
 $stdin.each_line do |line|
-	m = /^ (\S+) +(..-\S+-.... ..:..) +([0-9.]+)(\S+) *$/.match(line)
+	m = /^ (\S+) +(..-\S+-.... ..:..) +([0-9.-]+)(\S+) *$/.match(line)
 	raise "Malformed line: #{line}" unless m
 	name = m[1]
 	datetime = m[2]
 	size_numb = m[3]
 	size_unit = m[4]
 
-	next if name.downcase == "parent directory"
-
 	# The Unicode.org web server switched the timezone of timestamps
 	# in May 2004
 	if snapshot < 20040500000000
diff --git a/bin/gitthing b/bin/gitthing
index 7bac2e2..ff7b5ac 100755
--- a/bin/gitthing
+++ b/bin/gitthing
@@ -43,12 +43,11 @@ main() {
 		git checkout -b "$branch" || true
 		git checkout "$branch"
 
-		waurl="http://web.archive.org/web/$time/$url"
 		if [[ -n "$filepart" ]]; then
-			file="$top/dat/content-file/$(url2murl "${waurl#http://}")"
+			file="$top/dat/content-file/$time/$(url2murl "$url")"
 			cp "$file" .
 		else
-			dir="$top/dat/content-dir/$(url2murl "${waurl#http://}")"
+			dir="$top/dat/content-dir/$time/$(url2murl "$url")"
 			comm -23 \
 			    <(git ls-files) \
 			    <(< "$dir/metadata.txt" awk '{print $1}') \
diff --git a/bin/poolify b/bin/poolify
index 34e0b42..af8bf40 100755
--- a/bin/poolify
+++ b/bin/poolify
@@ -46,8 +46,7 @@ main() {
 			false
 		fi
 
-		waurl="http://web.archive.org/web/$time/$url"
-		file="dat/content-file/$(url2murl "${waurl#http://}")"
+		file="dat/content-file/$time/$(url2murl $url)"
 
 		declare -i i=0
 		while true; do
-- 
cgit v1.2.3