xprofile: load perl libs from submodules + don't fork urxvtd

[dotfiles.git] / bin / old / ninja2avi

diff --git a/bin/old/ninja2avi b/bin/old/ninja2avi
index cf7e0ed9f829a56f8a01f895a9ac000b81c6ce0d..6cd4c9ed64efc31f949e70ffe470cb5ca3ab4985 100755 (executable)
--- a/bin/old/ninja2avi
+++ b/bin/old/ninja2avi
@@ -6,35 +6,33 @@
 # It will change all files with a divx extension.
 ##
 
-while(<*.divx>){
+while(<*.divx>){    
     $old=$_;
 
-       # remove the Series name at beginning
-       s/.*(\dx\d{2}.*)/\1/;
-
-       # remove (HD xxxp/i) on HD Series
-       s/\+%28HD\+\d+[pi]%29//;
-
-    # remove the + if at beginning of line else replace with space
+    # remove the Series name at beginning
+    s/.*(\dx\d{2}.*)/\1/;
+    
+    # remove (HD xxxp/i) on HD Series
+    s/\+%28HD\+\d+[pi]%29//;
+    
+    # remove the + if at beginning of line else replace with space 
     s/^\+//;
     s/\+{1,2}/ /g;
-
+    
     # Change URL encodings
     s/%26/&/gi;
-       s/%2C/,/gi;
-       s/%3F/?/gi;
-       s/%3A/ -/gi;
-       s/%27/\'/gi;
-       s/%28/\(/gi;
-       s/%29/\)/gi;
-       s/%3D/=/gi;
-       s/%21/!/gi;
-
-       # remove any duplicate spaces
-       s/ {2,}/ /;
-
-       # change to avi
-       s/divx$/avi/;
-
+    s/%2C/,/gi;
+    s/%3F/?/gi;
+    s/%3A/ -/gi;
+    s/%27/\'/gi;
+    s/%28/\(/gi;
+    s/%29/\)/gi;
+    s/%3D/=/gi;
+    s/%21/!/gi;
+       
+    # change to avi
+    s/divx$/avi/;
+    
     rename $old ,"$_";
 }
+