ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/logo.cgi
Revision: 1.2
Committed: Thu Mar 25 22:48:47 2004 UTC (20 years, 4 months ago) by tdb
Branch: MAIN
Changes since 1.1: +3 -3 lines
Log Message:
Update CGI's to know about new site.

File Contents

# User Rev Content
1 tdb 1.1 #!/usr/local/bin/perl -w
2    
3     use strict;
4     $| = 1;
5    
6     # Directory to find images in
7 tdb 1.2 my($dir) = "/web/i-scream/htdocs/logos";
8 tdb 1.1 # Pattern to match images - remember to escape
9     my($pattern) = "\\.jpg\$";
10    
11     # URL to images - must match $dir
12 tdb 1.2 my($url) = "http://www.i-scream.org/logos";
13 tdb 1.1
14     # Where the setbg command is
15 tdb 1.2 my($setbg) = "/web/i-scream/bin/setbg.pl";
16 tdb 1.1
17     # Code...
18     my($imagepath) = `$setbg -r -p \'$pattern\' -b echo -f \' \' $dir`;
19     chomp $imagepath;
20     $imagepath =~ s/$dir/$url/;
21    
22     print "Content-type: text/plain\n\n";
23     print $imagepath;
24    
25     exit 0;