Browse Source

update links & remove .pl extentions

master
René Wagner 6 months ago
parent
commit
f4f6ce7d1e
  1. 30
      .build.yml
  2. 2
      PKGBUILD
  3. 19
      README.md
  4. 8
      afm
  5. 8
      jd
  6. 8
      spmvsc
  7. 8
      sposc

30
.build.yml

@ -1,30 +0,0 @@
image: archlinux
packages:
- perl
- perl-par-packer
- perl-file-find-rule
- perl-file-homedir
- perl-modern-perl
sources:
- https://git.sr.ht/~rwa/photo-helpers
artifacts:
- photo-helpers/output.tar
tasks:
- build: |
cd photo-helpers
perl -c afm.pl
perl -c jd.pl
perl -c sposc.pl
perl -c spmvsc.pl
mkdir bin
/usr/bin/vendor_perl/pp -z 9 -f Bleach -o afm afm.pl
/usr/bin/vendor_perl/pp -z 9 -f Bleach -o jd jd.pl
/usr/bin/vendor_perl/pp -z 9 -f Bleach -o sposc sposc.pl
/usr/bin/vendor_perl/pp -z 9 -f Bleach -o spmvsc spmvsc.pl
- package: |
TAG=`date +"%Y%m%d"`
cd photo-helpers
tar -czf ${TAG}_linux_amd64.tar.gz afm jd sposc spmvsc
makepkg -g
makepkg
tar -cf output.tar *.tar.gz *.tar.zst

2
PKGBUILD

@ -6,7 +6,7 @@ pkgrel=1
pkgdesc='simple photo workflow helper scripts'
arch=('x86_64')
license=('BSD')
url='https://git.sr.ht/~rwa/photo-helpers'
url='https://src.clttr.info/rwa/photo-helpers'
provides=('photo-helpers')
options=(!strip)
source=('afm' 'jd' 'sposc' 'spmvsc')

19
README.md

@ -1,17 +1,10 @@
# About
This rather small scripts written in [Perl](https://perl.org) provide useful function for managing (raw and output) files for photographers.
**Additional information can be found on the [wiki page](https://man.sr.ht/~rwa/photo-workflow/).**
## usage
Simply clone the repo or manually download the scripts from https://src.clttr.info/rwa/photo-helpers/
### using binary (recommended)
There are prebuilt binarys (currently only x86\_64 for linux) and packages for Arch Linux and derivatives available for [every ref](https://git.sr.ht/~rwa/photo-helpers/refs).
### using bare scripts
Simply clone the repo or manually download the scripts from https://git.sr.ht/~rwa/photo-stats/
To run the script, open a shell and invoke `perl script.pl`, on most systems it should be sufficient to just invoke `script.pl` (after you granted execute-permissions to the script).
To run the script, open a shell and invoke `perl <script>`, on most systems it should be sufficient to just invoke `script` (after you granted execute-permissions to the script).
#### prerequisites for running the pure scripts
@ -34,14 +27,14 @@ Additionally the following perl modules need to be installed:
Helper scripts to manage files which where handled by [ART](https://clttr.info/art), the easy-to-use RAW converter forked from RawTherapee.
## processed file mover
Filename: `afm(.pl)`
Filename: `afm`
Moves all already converted raw files and their corresponding jpegs to a given folder.
# generic scripts
## JpegDivider
Filename: `jd(.pl)`
Filename: `jd`
Moves all jpeg files (suffixes .jpg and .jpeg) in the given folder or the current working directory to the subfolder JPEG (or the given subfolder).
@ -64,11 +57,11 @@ base folder
```
## orphaned sidecar cleaner
Filename: `sposc(.pl)`
Filename: `sposc`
Deletes all sidecar files in the given directory or alternatively in the current working directory when the associated raw file is missing.
## multiversion sidecar cleaner
Filename: `spmvsc(.pl)`
Filename: `spmvsc`
Deletes Silkypix Sidecar files when newer versions of the files are available. This usually happens when a file is opened in a newer version of Silkypix, as the sidecar files are version specific.

8
afm.pl → afm

@ -1,7 +1,7 @@
#!/usr/bin/perl
# Copyright(c) René Wagner 2019-2020
# https://git.sr.ht/~rwa/photo-helpers
# published under BSD 3-Clause License - https://git.sr.ht/~rwa/photo-helpers/tree/master/LICENSE
# https://src.clttr.info/rwa/photo-helpers
# published under BSD 3-Clause License
use Modern::Perl '2019';
use Cwd;
@ -28,7 +28,7 @@ our $opt_C = '';
getconfig();
getopts('lR:F:E:C:') or die "Invalid parameters provided! See 'afm.pl --help' for more details.";
getopts('lR:F:E:C:') or die "Invalid parameters provided! See 'afm --help' for more details.";
# read remaining commandline args für destination dir
# last dir will win
@ -141,7 +141,7 @@ sub main::HELP_MESSAGE
say '';
say 'Find all by ART converted files in the current folder and their corresponding RAWs and move them to specified directory.';
say '';
say 'usage: afm(.pl) [options] <target folder>';
say 'usage: afm [options] <target folder>';
say '';
say 'options:';
say ' -l : list-only mode - does not move files but only lists which files would be moved';

8
jd.pl → jd

@ -1,7 +1,7 @@
#!/usr/bin/perl
# Copyright(c) René Wagner 2019-2020
# https://git.sr.ht/~rwa/photo-helpers
# published under BSD 3-Clause License - https://git.sr.ht/~rwa/photo-helpers/tree/master/LICENSE
# https://src.clttr.info/rwa/photo-helpers
# published under BSD 3-Clause License
use Modern::Perl '2019';
use Cwd;
@ -21,7 +21,7 @@ our $opt_l = 0;
our $opt_f = 'JPEG';
our $opt_e = 'jpe{0,1}g';
getopts('lf:e:') or die "Invalid parameters provided! See 'jd.pl --help' for more details.";
getopts('lf:e:') or die "Invalid parameters provided! See 'jd --help' for more details.";
# read remaining commandline args
# last dir will win
@ -88,7 +88,7 @@ sub main::HELP_MESSAGE
say '';
say 'Moves JPEG files to a designated subfolder, by default "JPEG"';
say '';
say 'usage: jd(.pl) [options] <target folder>';
say 'usage: jd [options] <target folder>';
say '';
say 'options:';
say ' -l : list-only mode - does not move files but only lists which files would be moved';

8
spmvsc.pl → spmvsc

@ -1,7 +1,7 @@
#!/usr/bin/perl
# Copyright(c) René Wagner 2019-2020
# https://git.sr.ht/~rwa/photo-helpers
# published under BSD 3-Clause License - https://git.sr.ht/~rwa/photo-helpers/tree/master/LICENSE
# https://src.clttr.info/rwa/photo-helpers
# published under BSD 3-Clause License
use Modern::Perl '2019';
use Cwd;
@ -17,7 +17,7 @@ my $PROGRAM = 'SilkyPix Multiversion Sidecar Cleaner';
# read commandline switches
our $opt_l = 0;
getopts('l') or die "Invalid parameters provided! See 'spmvsc.pl --help' for more details.";
getopts('l') or die "Invalid parameters provided! See 'spmvsc --help' for more details.";
# read remaining commandline args
# last dir will win
@ -110,7 +110,7 @@ sub main::HELP_MESSAGE
say 'Deletes Silkypix Sidecar files when newer versions of the files are available.';
say 'This usually happens when a file is opened in a newer version of Silkypix, as the sidecar files are version specific.';
say '';
say 'usage: spmvsc(.pl) [options] <target folder>';
say 'usage: spmvsc [options] <target folder>';
say '';
say 'options:';
say ' -l : list-only mode - does not delete files but only lists which files would be moved';

8
sposc.pl → sposc

@ -1,7 +1,7 @@
#!/usr/bin/perl
# Copyright(c) René Wagner 2019-2020
# https://git.sr.ht/~rwa/photo-helpers
# published under BSD 3-Clause License - https://git.sr.ht/~rwa/photo-helpers/tree/master/LICENSE
# https://src.clttr.info/rwa/photo-helpers
# published under BSD 3-Clause License
use Modern::Perl '2019';
use Cwd;
@ -18,7 +18,7 @@ my $PROGRAM = 'SilkyPix Orphaned Sidecar Cleaner';
# read commandline switches
our $opt_l = 0;
getopts('l') or die "Invalid parameters provided! See 'sposc.rpl --help' for more details.";
getopts('l') or die "Invalid parameters provided! See 'sposc --help' for more details.";
# read remaining commandline args
# last dir will win
@ -96,7 +96,7 @@ sub main::HELP_MESSAGE
say 'Deletes Silkypix Sidecar files when corresponding RAW files are missing.';
say 'The program searches for orphaned files in the given folder or the current working directory if no folder is given.';
say '';
say 'usage: sposc(.pl) [options] <target folder>';
say 'usage: sposc [options] <target folder>';
say '';
say 'options:';
say ' -l : list-only mode - does not delete files but only lists which files would be moved';
Loading…
Cancel
Save