194 |
# dump sql structure |
# dump sql structure |
195 |
|
|
196 |
open(SQL,">$poll/$poll.sql") || die "$poll.sql: $!"; |
open(SQL,">$poll/$poll.sql") || die "$poll.sql: $!"; |
197 |
|
print SQL "drop database ".$prefix.$poll.";\n"; |
198 |
|
print SQL "create database ".$prefix.$poll.";\n"; |
199 |
|
print SQL "\\connect ".$prefix.$poll.";\n"; |
200 |
print SQL "create table poslani ( member_id int4 not null, unesen timestamp default now() );\n"; |
print SQL "create table poslani ( member_id int4 not null, unesen timestamp default now() );\n"; |
201 |
print SQL "create table $poll (do_stranice text default null, ",join(",\n",@sql_create),");\n"; |
print SQL "create table $poll (do_stranice text default null, ",join(",\n",@sql_create),");\n"; |
202 |
close(SQL); |
close(SQL); |
232 |
|
|
233 |
# return unique name of pitanje |
# return unique name of pitanje |
234 |
sub new_pit { |
sub new_pit { |
235 |
my $out="p".$pitanje_nr.$p_suffix; |
my $out="p".$pitanje_nr; |
236 |
|
$out .= "_".$p_suffix if ($p_suffix); |
237 |
$curr_suffix=$p_suffix; |
$curr_suffix=$p_suffix; |
238 |
$p_suffix++; |
$p_suffix++; |
239 |
return $out; |
return $out; |
747 |
} |
} |
748 |
} |
} |
749 |
|
|
750 |
|
print "\n\nTo create database for poll $poll use:\n\n"; |
751 |
|
print "\$ psql template1 < $poll/$poll.sql\n\n"; |
752 |
|
print "THIS WILL DISTROY ALL DATA IN EXISTING DATABASE ".$prefix.$poll." !!\n"; |
753 |
|
|
754 |
# read configuration data |
# read configuration data |
755 |
# |
# |
756 |
# FIX: write actually this :-) |
# FIX: write actually this :-) |