#!/usr/bin/perl # DO NOT EDIT - This file is being maintained by Chef $| = 1; while () { my $where = readlink("<%= node[:planet][:dump][:xml_directory] %>/planet-latest.osm.bz2"); s/planet\/planet\-latest\.osm\.bz2/planet\/$where/g; print $_; }