#!/usr/bin/perl

# Example Usage:
#   ls -1 /usr/share/icons/sjjb/png/shopping/ | cut -d'.' -f1 | sort | uniq | ./poi-carto-generator.pl

while (<>) {
chomp;
print "  #shop[shop='$_']{\n";
print "    point-file: url('/usr/share/icons/sjjb/png/shopping/$_.glow.DA0092.12.png');\n";
print "  }\n\n"
}

Add script used to generate carto source from sjjb icons.
Add script used to generate carto source from sjjb icons.

This will probably be replaced later on as I write a better script
to handle zoom level to icon size mappings.
