ZeitZeichen PodCast Helferlein

[Skeeve]

Ladet Ihr auch regelmäßig den ZeitZeichen PodCast beim WDR? Stört Euch auch, daß man am Namen nicht das Datum des PodCasts erkennen kann? Mich schon. Darum habe ich dieses kleine AppleScript geschrieben. Dabei wird der Standardtext am Anfang ("... ZeitZeichen: <Datum>: <Text>") ersetzt durch "<ZeitZeichenDatum>: <Datum>: Text". Beispiel:
aus: "WDR3/WDR5 ZeitZeichen: 9. August 1927: Geburtstag des Forschers Marvin Lee Minsky"
wird: "(2007-08-09) 9. August 1927: Geburtstag des Forschers Marvin Lee Minsky"

Einen kleinen Schönheitsfehler gibt es immer dann, wenn man sich Dateien um den Jahreswechsel herum holt, da das Erscheinungsjahr verwendet wird, um das Datum zu setzen. Dummerweise stimmt das Erscheinungsjahr um den Jahreswechsel rum nicht. Zumindest war es 2007/2008 so.

Bedienung:

1. Text in den Skript Editor kopieren
2. Als Script im iTunes Scriptordner unter dem Namen "ZeitZeichen umbennennen" speichern
3. ZeitZeichen PodCasts markieren
4. Script "ZeitZeichen umbennennen" aufrufen
5. warten

tell application "iTunes"
   if selection of front browser window is {} then
      display alert "Nichts ausgewählt."
      return
   end if
   set these_tracks to selection of front browser window
   set these_tracks_ref to a reference to these_tracks
   repeat with tr in these_tracks_ref
      set y to date added of tr
      tell application "System Events" to set y to year of y
      set nm to do shell script "perl -e " & (quoted form of "         use strict;
         use warnings;
         my %m;
         @m{qw/Januar Februar März April Mai Juni Juli August September Oktober November Dezember/}=(1..12);
         my $mnts= join('|',keys %m);
         my ($year,$na)= @ARGV;
         exit unless $na=~ /^.*ZeitZeichen:\\s+((\\d+\\.)\\s*($mnts)\\s+\\d+.*)$/;
         my $des= $1;
         my $day= $2;
         my $month= $3;
         printf('(%04d-%02d-%02d) %s',$year,$m{$3},$2,$1);
         ") ¬
         & " " & y & " " & (quoted form of ((name of tr) as string))
      set name of tr to nm
   end repeat
end tell