764 |
} |
} |
765 |
} |
} |
766 |
|
|
767 |
|
sub html { |
768 |
|
package main; |
769 |
|
|
770 |
|
my ($xp, $el, $attref, $ncref) = @_; |
771 |
|
|
772 |
|
$body.="<p>"; |
773 |
|
|
774 |
|
$$ncref = sub { |
775 |
|
my ($xp, $text) = @_; |
776 |
|
|
777 |
|
if (defined $text) { |
778 |
|
$body.=x($text); |
779 |
|
} else { |
780 |
|
$body.="</p>"; |
781 |
|
} |
782 |
|
} |
783 |
|
} |
784 |
|
|
785 |
print "\n\nTo create database for poll $poll use:\n\n"; |
print "\n\nTo create database for poll $poll use:\n\n"; |
786 |
print "\$ psql template1 < $poll/$poll.sql\n\n"; |
print "\$ psql template1 < $poll/$poll.sql\n\n"; |
787 |
print "THIS WILL DISTROY ALL DATA IN EXISTING DATABASE ".$prefix.$poll." !!\n"; |
print "THIS WILL DISTROY ALL DATA IN EXISTING DATABASE ".$prefix.$poll." !!\n"; |