Mercurial > judyates
diff perl/make_website.pl @ 15:b6ba604307fc judyates
[svn r16] changed the menus to a parenthesized form. Final tests for live site completed.
author | rlm |
---|---|
date | Mon, 12 Apr 2010 05:20:34 -0400 |
parents | 60668cf4f443 |
children |
line wrap: on
line diff
1.1 --- a/perl/make_website.pl Mon Apr 12 03:54:12 2010 -0400 1.2 +++ b/perl/make_website.pl Mon Apr 12 05:20:34 2010 -0400 1.3 @@ -1,27 +1,30 @@ 1.4 -print "Generating:\n"; 1.5 -`perl menu.pl`; 1.6 -print "menu\n"; 1.7 -`perl artwork_descriptions.pl`; 1.8 -print "artwork_descriptions\n"; 1.9 -`perl Contact.pl`; 1.10 -print "Contact\n"; 1.11 -`perl feedback.pl`; 1.12 -print "feedback\n"; 1.13 -`perl gallery.pl`; 1.14 -print "gallery\n"; 1.15 -`perl How_to_Order.pl`; 1.16 -print "How_to_Order\n"; 1.17 -`perl meet_the_artist.pl`; 1.18 -print "meet_the_artist\n"; 1.19 -`perl meet_the_artist_descriptions.pl`; 1.20 -print "meet_the_artist_descriptions\n"; 1.21 -`perl pricing.pl`; 1.22 -print "pricing\n"; 1.23 -`perl pets.pl`; 1.24 -print "pets\n"; 1.25 -`perl pet_descriptions.pl`; 1.26 -print "pet_descriptions\n"; 1.27 -`perl recent_sales.pl`; 1.28 -print "recent_sales\n"; 1.29 -`perl index.pl`; 1.30 -print "index\n"; 1.31 \ No newline at end of file 1.32 +#!/usr/bin/perl 1.33 + 1.34 + 1.35 +print "Generating:\n"; 1.36 +`perl menu.pl`; 1.37 +print "menu\n"; 1.38 +`perl artwork_descriptions.pl`; 1.39 +print "artwork_descriptions\n"; 1.40 +`perl Contact.pl`; 1.41 +print "Contact\n"; 1.42 +`perl feedback.pl`; 1.43 +print "feedback\n"; 1.44 +`perl gallery.pl`; 1.45 +print "gallery\n"; 1.46 +`perl How_to_Order.pl`; 1.47 +print "How_to_Order\n"; 1.48 +`perl meet_the_artist.pl`; 1.49 +print "meet_the_artist\n"; 1.50 +`perl meet_the_artist_descriptions.pl`; 1.51 +print "meet_the_artist_descriptions\n"; 1.52 +`perl pricing.pl`; 1.53 +print "pricing\n"; 1.54 +`perl pets.pl`; 1.55 +print "pets\n"; 1.56 +`perl pet_descriptions.pl`; 1.57 +print "pet_descriptions\n"; 1.58 +#`perl recent_sales.pl`; #broken due to gallery stuff... 1.59 +#print "recent_sales\n"; 1.60 +`perl index.pl`; 1.61 +print "index\n";