From 5e17418f1eef06e97bb621edf53530437df8b14f Mon Sep 17 00:00:00 2001
From: Urbain Vaes <urbain@vaes.uk>
Date: Tue, 11 Aug 2015 15:58:37 +0200
Subject: Back up several files

---
 .uzbl/scripts/goup.pl | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100755 .uzbl/scripts/goup.pl

(limited to '.uzbl/scripts/goup.pl')

diff --git a/.uzbl/scripts/goup.pl b/.uzbl/scripts/goup.pl
deleted file mode 100755
index f7ae275..0000000
--- a/.uzbl/scripts/goup.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-my ($config,$pid,$xid,$fifo,$socket,$url,$title,$cmd) = @ARGV;
-if($fifo eq "") { die "No fifo"; };
-
-# Delete last slash
-chop($url);
-
-my $index = index(reverse($url), '/');
-
-# if youre already on top of the directory structure
-if ($index == -1)
-{
-	print $url;	
-	exit;
-}
-
-# Workaround for missing reverse index
-$url = (substr(reverse($url), $index, length($url) ));
-$url = reverse($url);
-print $url."\n";
-
-# This could look prettier with native fifo access
-qx(echo "act uri $url" >> $fifo);
-- 
cgit v1.2.3