#!/usr/bin/perl -w # WikityWebsite - create some HTML from WikityWidget use strict; use DBI; my $dbFile="/Users/leeg/Library/Application Support/inkling/inkling.db"; my $htmlPartOne= < WikityWebsite - HTMLPARTONE my $htmlPartTwo=<<HTMLPARTTWO; HTMLPARTTWO my $htmlPartThree=< HTMLPARTTHREE open(WIKITYFILE,">index.html"); print WIKITYFILE $htmlPartOne; print WIKITYFILE "Master Index"; print WIKITYFILE $htmlPartTwo; print WIKITYFILE "

WikityWebsite

${_}

"; print HTMLOUT $data[0]; print HTMLOUT $htmlPartThree; close HTMLOUT; print WIKITYFILE '

'.${_}.'

\n"; print WIKITYFILE $htmlPartThree; close WIKITYFILE;