Cyrill's Blog

[cyrillsblog]

From: https://www.behance.net/gallery/Letout-Outlet-concept/344045

[cabbagerose]

the lumen/mission bicycle company

glows at night using a retro-reflective powder coating - produced from Halo Coatings

via: swipelife

[cyrillsblog]

Perl Script That Collects All Movie Files and Copies Them to a Given Directory

Here a useful perl script that collects all movie files (avi, wmv, mpg, mpeg, m4v, mp4, mkv) and generates a bash script that copies them to a given directory handling duplicates with potentially different file names and different files having the same name.

E.g.:  perl findvideos.pl . /tmp/allvideos

Here, the script:

=== findvideos.pl ===

#!/usr/bin/perl -w use strict; use File::Find; use Digest::MD5; use File::Basename; my $path_separator = "/"; my $target = "/allvideos"; my $searchpath = "."; if (@ARGV == 2) {   $searchpath = $ARGV[0];   $target = $ARGV[1]; } else {   print "# Usage: findvideo.pl <searchpath> <targetdirectory>\n";   print "# Example: findvideo.pl . /allvideos\n";   exit; } my %final_files; my %final_hashes; my %files; my @xxx; my $videoBytes = 0; my $UniqueVideoBytes=0; find(\&check_file, $ARGV[0] || "."); local $" = ", "; foreach my $size (sort {$b <=> $a} keys %files) {   ## put video files into hash table   my %md5;   foreach my $file (@{$files{$size}}) {     open(FILE, $file) or next;     binmode(FILE);     push @{$md5{Digest::MD5->new->addfile(*FILE)->hexdigest}},$file;   }   foreach my $hash (keys %md5) {     @xxx = sort @{$md5{$hash}};     my $use_idx = 0;     my $i=1;     while ($i < @xxx) {       my $fname = basename($xxx[$i]);             ## PREFER AVI FILES (due to PPT 2003 bug avi->mpg)       if ($fname =~ /\.avi$/i) {     $use_idx = $i;     $i = @xxx;       }       $i++;     }     push @{$final_files{$hash}},$xxx[$use_idx];     push @{$final_hashes{basename($xxx[$use_idx])}},$hash;         $videoBytes += $size * (@xxx);     $UniqueVideoBytes += $size;   } } my @result; foreach my $myfile (keys %final_hashes) {     # check if there are two different files with the same name   if (@{$final_hashes{$myfile}} > 1) {     my $i = 1;     foreach my $hashkey (@{$final_hashes{$myfile}}) {       push @result,"cp \"".${final_files{$hashkey}}[0]."\" \"".$target.$path_separator.$i."_".basename(${final_files{$hashkey}}[0])."\"\n";       $i++;     }   } else {      my $fname = ${final_files{${final_hashes{$myfile}}[0]}[0]};     push @result, "cp \"$fname\" \"".$target.$path_separator."\"\n";   } } @result = sort @result; print "#!/bin/bash\n"; foreach my $cmd (@result) {   print $cmd; } 1 while $videoBytes =~ s/^([-+]?\d+)(\d{3})/$1,$2/; 1 while $UniqueVideoBytes =~ s/^([-+]?\d+)(\d{3})/$1,$2/; print "## $videoBytes bytes in movie files whereas $UniqueVideoBytes bytes are unique\n"; sub check_file {   -f && /\.(avi|wmv|mpg|mpeg|m4v|mp4|mkv)$/i && push @{$files{(stat(_))[7]}}, $File::Find::name; }

[cyrillsblog]

RLE Encoded AVI Files Under OSX -- DivX Kills RLE Support

I struggled for quite a long time until I figured out why all my nice RLE encoded AVI files, mainly animations, do not play anymore under OSX.  As soon as DivX is installed, RLE videos do not work anymore. Luckily, the problem is easy to solve: uninstall DivX and use Perian (http://perian.org/) instead.

[cyrillsblog]

Use Multiple Harddrives as Independent TimeMachine Drives

Use two external harddrives for TimeMachine backups so that a backup is automatically created on the right disc whenever one gets connected to the Mac. No reconfiguring each time. Tested under OSX 10.6.x and OSX 10.7.2.

Connect the first drive, called it TMDriveA

Setup TimeMachine for this harddrive

sudo cp /Library/Preferences/com.apple.TimeMachine.plist /Library/Preferences/com.apple.TimeMachine-TMDriveA.plist

Connect the second drive, called it TMDriveB

Setup TimeMachine for this harddrive

sudo cp /Library/Preferences/com.apple.TimeMachine.plist /Library/Preferences/com.apple.TimeMachine-TMDriveB.plist

sudo mkdir -p /bin-own

sudo chmod 755 /bin-own

create /bin-own/set-tm-drive.sh (see below)

create /bin-own/set-tm-drive-sleep.sh (see below)

chmod 755 /bin-own/set-tm-drive-sleep.sh /bin-own/set-tm-drive.sh

In case your harddrive is NOT called "Macintosh HD":  edit set-tm-drive-sleep.sh set-tm-drive.sh and set: showname = "[NAME OF YOUR ROOT HARDDRIVE]"

add to the last line of your /etc/sudoers file (sudo su; chmod 640 /etc/sudoers; edit /etc/sudoers; chmod 440 /etc/sudoers) [MYUSERNAME] ALL = NOPASSWD: /bin-own/set-tm-drive.sh

Install growlnotify (from the Growl Package) if you want to be notified with growl 

Connect TMDriveA, execute /bin-own/set-tm-drive-sleep.sh and check if everything works

Connect TMDriveB, execute /bin-own/set-tm-drive-sleep.sh and check if everything works

mkdir -p ~/Library/LaunchAgents

create ~/Library/LaunchAgents/com.myscripts.tm-selector.plist (see below)

launchctl load ~/Library/LaunchAgents

Files: set-tm-drive.sh, set-tm-drive-sleep.sh, com.myscripts.tm-selector.plist

== set-tm-drive.sh === #!/bin/bash echo "=== set-tm-drive started ===" date id growlnotifyexec="/usr/local/bin/growlnotify" showname="Macintosh HD" for name in "TMDriveA" "TMDriveB" do     res=`ls /Volumes/ | grep $name | wc -l`     changeNeeded=`diff /Library/Preferences/com.apple.TimeMachine-$name.plist /Library/Preferences/com.apple.TimeMachine.plist | wc -l`     if [ "$res" -eq 1 -a "$changeNeeded" -eq 0 ]     then     if [ -x $growlnotifyexec ]     then         $growlnotifyexec -n set-tm-drive -m "$name already active" -I "/Volumes/$name"     fi     echo "Drive $name already active"     echo "Triggering backup now"     /System/Library/CoreServices/backupd.bundle/Contents/Resources/backupd-helper &     echo "=== done ==="     exit     fi done for name in "TMDriveA" "TMDriveB" do     res=`ls /Volumes/ | grep $name | wc -l`     changeNeeded=`diff /Library/Preferences/com.apple.TimeMachine-$name.plist /Library/Preferences/com.apple.TimeMachine.plist | wc -l`     if [ "$res" -eq 1 -a "$changeNeeded" -eq 1 ]     then         if [ -x $growlnotifyexec ]     then         $growlnotifyexec -n set-tm-drive -m "$name activated" -I "/Volumes/$name"     fi     echo "Found drive $name -> activating it for Time machine"     defaults write com.apple.TimeMachine AutoBackup -bool false     sleep 1     cp /Library/Preferences/com.apple.TimeMachine-$name.plist /Library/Preferences/com.apple.TimeMachine.plist     defaults write com.apple.TimeMachine AutoBackup -bool true     echo "Triggering backup now"     /System/Library/CoreServices/backupd.bundle/Contents/Resources/backupd-helper &     echo "=== done ==="     exit     fi done if [  "$res" -eq 0 -a -x $growlnotifyexec ] then     $growlnotifyexec -n set-tm-drive -m "No drive found for Time Machine" -I "/Volumes/$showname" fi echo "No Time machine drive found for activation" echo "=== set-tm-drive done ===" == set-tm-drive-sleep.sh == #!/bin/bash echo starting script echo "=== set-tm-drive-sleep started ==="  date growlnotifyexec="/usr/local/bin/growlnotify" showname="Macintosh HD" echo sleeping sleep 30 if [ -x $growlnotifyexec ] then     $growlnotifyexec -n set-tm-drive-sleep -m "Starting Script for setting up TimeMachine" -I "/Volumes/$showname" fi echo activating drive sudo -n /bin-own/set-tm-drive.sh >> /tmp/set-tm-drive.log echo done if [ -x $growlnotifyexec ] then     $growlnotifyexec -n set-tm-drive-sleep -m "Starting Script for setting up TimeMachine DONE" -I "/Volumes/$showname" fi echo "=== set-tm-drive-sleep done ===" == com.myscripts.tm-selector.plist == <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> <plist version="1.0"> <dict>         <key>Label</key>         <string>com.myscripts.tm-selector</string>         <key>LowPriorityIO</key>         <true/>         <key>Program</key>         <string>/bin-own/set-tm-drive-sleep.sh</string>         <key>ProgramArguments</key>         <array>                 <string>set-tm-drive-sleep.sh</string>         </array>         <key>WatchPaths</key>         <array>         <string>/Volumes</string>         </array> </dict> </plist>