summaryrefslogtreecommitdiff
path: root/.uzbl/scripts/goup.pl
diff options
context:
space:
mode:
Diffstat (limited to '.uzbl/scripts/goup.pl')
-rwxr-xr-x.uzbl/scripts/goup.pl24
1 files changed, 0 insertions, 24 deletions
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);