summaryrefslogtreecommitdiffstats
path: root/.local/bin
diff options
context:
space:
mode:
authorJozanLeClerc <bousset.rudy@gmail.com>2020-11-01 19:16:58 +0100
committerJozanLeClerc <bousset.rudy@gmail.com>2020-11-01 19:16:58 +0100
commit66044ef9c4975fb3926217b659a76a82638934e2 (patch)
tree84149bedf2dde89ba724700a5b298550a3d11cf9 /.local/bin
parentgruvboxed zathura (diff)
downloaddotfiles-bsd-66044ef9c4975fb3926217b659a76a82638934e2.tar.gz
dotfiles-bsd-66044ef9c4975fb3926217b659a76a82638934e2.tar.bz2
dotfiles-bsd-66044ef9c4975fb3926217b659a76a82638934e2.tar.xz
dotfiles-bsd-66044ef9c4975fb3926217b659a76a82638934e2.tar.zst
dotfiles-bsd-66044ef9c4975fb3926217b659a76a82638934e2.zip
working on unixize
Diffstat (limited to '.local/bin')
-rwxr-xr-x.local/bin/sync-pull.pl37
-rwxr-xr-x.local/bin/sync-push.pl42
-rwxr-xr-x.local/bin/unixize33
3 files changed, 17 insertions, 95 deletions
diff --git a/.local/bin/sync-pull.pl b/.local/bin/sync-pull.pl
deleted file mode 100755
index ba65901..0000000
--- a/.local/bin/sync-pull.pl
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/local/bin/perl
-
-use strict;
-use warnings;
-
-sub main
-{
- my $i;
-
- print "Check...\n";
- $i = 0;
- while (system('/bin/pgrep', 'newsboat') == 0) {
- print "newsboat running, exiting...";
- exit 1;
- }
- system(
- '/usr/local/bin/rsync',
- '-a',
- '-e',
- 'ssh',
- 'root@207.246.81.115:/root/sync/newsboat/cache.db',
- '/home/jozan/.local/share/newsboat/cache.db'
- );
- system(
- '/usr/local/bin/rsync',
- '-a',
- '-e',
- 'ssh',
- 'root@207.246.81.115:/root/sync/abook/addressbook',
- '/home/jozan/.abook/addressbook'
- );
- exit 0;
-}
-
-main();
-
-__END__
diff --git a/.local/bin/sync-push.pl b/.local/bin/sync-push.pl
deleted file mode 100755
index 91b9e83..0000000
--- a/.local/bin/sync-push.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/local/bin/perl
-
-use strict;
-use warnings;
-
-sub main
-{
- my $i;
-
- print "Check...\n";
- $i = 0;
- while (system('/bin/pgrep', 'newsboat') == 0) {
- sleep 5;
- $i += 1;
- print "Waiting...\n";
- if ($i == 12) {
- print "Too long, exiting...\n";
- exit 1;
- }
- }
- system(
- '/usr/local/bin/rsync',
- '-a',
- '-e',
- 'ssh',
- '/home/jozan/.local/share/newsboat/cache.db',
- 'root@207.246.81.115:/root/sync/newsboat/cache.db'
- );
- system(
- '/usr/local/bin/rsync',
- '-a',
- '-e',
- 'ssh',
- '/home/jozan/.abook/addressbook',
- 'root@207.246.81.115:/root/sync/abook/addressbook'
- );
- exit 0;
-}
-
-main();
-
-__END__
diff --git a/.local/bin/unixize b/.local/bin/unixize
index 4f03c14..0e05c74 100755
--- a/.local/bin/unixize
+++ b/.local/bin/unixize
@@ -17,6 +17,9 @@ sub get_og_files
return @og_files;
}
+use constant {
+ C_O => '',
+};
sub unixize_file_names
{
my @og_files = @_;
@@ -30,21 +33,19 @@ sub unixize_file_names
$_ =~ s/ /_/g;
$_ =~ s/c\+\+/cxx/g;
$_ =~ s/C\+\+/CXX/g;
- $_ =~ s/[áàåâä]/a/g;
- $_ =~ s/[ÁÀÅÂÄ]/A/g;
- $_ =~ s/æ/ae/g;
- $_ =~ s/Æ/AE/g;
- $_ =~ s/ç/c/g;
- $_ =~ s/Ç/C/g;
- $_ =~ s/[éèêë]/e/g;
- $_ =~ s/[ÉÈÊË]/E/g;
- $_ =~ s/ô/o/g;
- $_ =~ s/Ô/O/g;
- $_ =~ s/ö/o/g;
- $_ =~ s/Ö/O/g;
+ $_ =~ s/[\x83\x84\x85\x86]/a/g; # âäàå
+ # $_ =~ s/[ÁÀÅÂÄ]/A/g;
+ $_ =~ s/\x91/ae/g; # æ
+ $_ =~ s/\x92/AE/g; # Æ
+ $_ =~ s/\x87/c/g; # ç
+ $_ =~ s/\x80/C/g; # Ç
+ # $_ =~ s/[éèêë]/e/g;
+ # $_ =~ s/[ÉÈÊË]/E/g;
+ # $_ =~ s/[ïîì]/i/g;
+ # $_ =~ s/[ÏÎÌ]/I/g;
+ # $_ =~ s/[ôöò]/o/g;
+ $_ =~ s/[\x93\x94\x95]/o/g; # ôöò
+ # $_ =~ s/[ÿ]/y/g;
$_ =~ s/ü/u/g;
$_ =~ s/Ü/U/g;
$_ =~ s/[^A-Za-z0-9\._]+//g;
@@ -71,7 +72,7 @@ sub main
chdir('../');
}
next if (-e $files[1]);
- mv($files[0], $files[1]) or print STDERR $! . "\n";
+ # mv($files[0], $files[1]) or print STDERR $! . "\n";
print "'". $files[0] . "' -> '" . $files[1] . "'\n";
}
return;