diff --git a/Makefile b/Makefile index b0af855..2c49549 100644 --- a/Makefile +++ b/Makefile @@ -1,9 +1,19 @@ +frfac: + sed "1d;2i #!`./latest_perl`" frfac.in > frfac + check: - perl -wc frfac - perlcritic frfac + `./latest_perl` -wc frfac.in + perlcritic frfac.in ksh93 -n getviaphone -install: +install: frfac sudo install -o root -g wheel -m 0755 -d /usr/local/bin sudo install -o root -g wheel -m 0555 frfac /usr/local/bin sudo install -o root -g wheel -m 0555 getviaphone /usr/local/bin + +clean: + rm -f frfac + +uninstall: + sudo rm -f /usr/local/bin/frfac + sudo rm -f /usr/local/bin/getviaphone diff --git a/README b/README index 3b45d96..d1affbb 100644 --- a/README +++ b/README @@ -3,3 +3,4 @@ Scripts to extract media URLs from websites 1. frfac - url of most recent Français Facile episode from RFI. Usage: ftp $(frfac) (or substitute another downloader for ftp.) +2. getviaphone - download a file via my phone. diff --git a/frfac b/frfac.in similarity index 98% rename from frfac rename to frfac.in index f070826..3080f03 100755 --- a/frfac +++ b/frfac.in @@ -1,4 +1,4 @@ -#!/usr/pkg/bin/perl +#!/usr/bin/perl # Print the URI of the most recent rfi francais facile episode. # Feed this to a downloader. (This script doesn't itself download.) diff --git a/latest_perl b/latest_perl new file mode 100755 index 0000000..3dff960 --- /dev/null +++ b/latest_perl @@ -0,0 +1,15 @@ +#!/bin/sh +bestv=0 +for p in $(whereis perl) +do + if [ "$p" != "${p%bin/perl}" ]; + then + v=$($p -V:PERL_VERSION | sed "s/[^']*'//;s/'.*\$//") + if [ $v -gt $bestv ]; then + best=$p + bestv=$($p -V:PERL_VERSION | + sed "s/[^']*'//;s/'.*\$//") + fi + fi +done +echo $best