-$| = 1;
-while (<STDIN>) {
- my $where = readlink("<%= node[:planet][:dump][:xml_directory] %>/planet-latest.osm.bz2");
- s/planet\/planet\-latest\.osm\.bz2/planet\/$where/g;
- print $_;
-}
+import os
+import sys
+
+def main():
+ for line in sys.stdin:
+ path = line.strip()
+
+ # Construct the file path and resolve its real path,
+ # which will consider any symbolic links
+ file = os.path.realpath(f"/store/planet{path}")
+
+ # Check if the constructed file path starts with '/store/planet'
+ # and if the file actually exists
+ if file.startswith('/store/planet') and os.path.isfile(file):
+ # Print the portion of the path after '/store/planet'
+ # and immediately flush the output
+ print(file[len('/store/planet'):], flush=True)
+ else:
+ # If the file does not exist or the path does not start with
+ # the expected prefix, print "NULL" and flush the output
+ print("NULL", flush=True)
+
+if __name__ == "__main__":
+ main()