# | Line 4 | Line 4 | use strict; | |
---|---|---|
4 | $| = 1; | |
5 | ||
6 | # Directory to find images in | |
7 | < | my($dir) = "/web/i-scream/nwww/logos"; |
7 | > | my($dir) = "/web/i-scream/htdocs/logos"; |
8 | # Pattern to match images - remember to escape | |
9 | my($pattern) = "\\.jpg\$"; | |
10 | ||
11 | # Where the setbg command is | |
12 | < | my($setbg) = "/web/i-scream/nwww.bin/setbg.pl"; |
12 | > | my($setbg) = "/web/i-scream/bin/setbg.pl"; |
13 | ||
14 | # Code... | |
15 | print "Content-type: image/jpeg\n\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |