pricecharts

commit 5d956a12e128b4c0323b327adfb282981d45f581
parent 639a27bf7cd0d522120697ddc334ca8477c649e2
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Sun, 15 Mar 2015 20:17:20 -0600

gen_svg: add support for files with '/' in the name

Diffstat:
M
gen_svg
 | 
11
+++++++++++

1 file changed, 11 insertions(+), 0 deletions(-)
diff --git a/gen_svg b/gen_svg
@@ -85,6 +85,7 @@ while (my ($brand, $part_num, $description) = $parts_sth->fetchrow_array()) {
 			$line_color = $color;
 		}
 		printf "$info_hdr (%i data pairs)\n", scalar @xs if ($args{v});
+		next if (scalar @xs < 2);
 
 		my $px = compute_control_points(\@xs);
 		my $py = compute_control_points(\@ys);
@@ -171,6 +172,16 @@ while (my ($brand, $part_num, $description) = $parts_sth->fetchrow_array()) {
 		);
 	}
 
+	# giant hack, if the part number has / in it, make some directories
+	if ($part_num =~ /\//) {
+		print "info: $part_num: found '/' in file name\n" if ($args{v});
+		my $needed_dirs = substr($part_num, 0, rindex($part_num, '/'));
+
+		print "info: mkdiring $svg_dir/$needed_dirs\n" if ($args{v});
+		unless (-d "$svg_dir/$needed_dirs") {
+			mkdir "$svg_dir/$needed_dirs" or die "$!";
+		}
+	}
 	open my $svg_fh, ">", "$svg_dir/$part_num.svg" or die $!;
 	print $svg_fh $svg->xmlify;
 	close $svg_fh;