OLD | NEW |
(Empty) | |
| 1 #!/usr/bin/perl -wT |
| 2 # Returns a cacheable SVG image with random size and color. |
| 3 |
| 4 print "Content-type: image/svg+xml\n"; |
| 5 print "Cache-control: max-age=60000\n"; |
| 6 print "ETag: \"98765\"\n"; |
| 7 print "\n"; |
| 8 |
| 9 my $width = int(rand(1000)) + 100; |
| 10 my $height = int(rand(1000)) + 100; |
| 11 my $r = int(rand(256)); |
| 12 my $g = int(rand(256)); |
| 13 my $b = int(rand(256)); |
| 14 |
| 15 print '<?xml version="1.0" encoding="UTF-8" standalone="no"?>'; |
| 16 print '<svg width="' . $width . '" height="' . $height . '"'; |
| 17 print ' xmlns="http://www.w3.org/2000/svg"'; |
| 18 print ' xmlns:xlink="http://www.w3.org/1999/xlink">'; |
| 19 print '<rect x="0" y="0" width="100%" height="100%" fill="rgb(' . $r . ', ' . $g
. ', ' . $b . ')"></rect>'; |
| 20 print '</svg>'; |
OLD | NEW |