53 |
# this is usename in database |
# this is usename in database |
54 |
my $db_user="dpavlin"; |
my $db_user="dpavlin"; |
55 |
|
|
56 |
|
# This option allows users to fill poll without using invitation URL. |
57 |
|
# That also means it's unpossible for them to return to exiting poll |
58 |
|
# because they don't have thair own unique ID. Howver, it enables simple |
59 |
|
# polls to be conducted by just publishing URL to them. |
60 |
|
my $without_invitation=0; |
61 |
|
|
62 |
#------------------------------------------------------------------ |
#------------------------------------------------------------------ |
63 |
|
|
64 |
sub suck_file { |
sub suck_file { |
200 |
# dump sql structure |
# dump sql structure |
201 |
|
|
202 |
open(SQL,">$poll/$poll.sql") || die "$poll.sql: $!"; |
open(SQL,">$poll/$poll.sql") || die "$poll.sql: $!"; |
203 |
|
print SQL "drop database ".$prefix.$poll.";\n"; |
204 |
|
print SQL "create database ".$prefix.$poll.";\n"; |
205 |
|
print SQL "\\connect ".$prefix.$poll.";\n"; |
206 |
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"; |
207 |
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"; |
208 |
close(SQL); |
close(SQL); |
218 |
$common_php =~ s/##PREFIX##/$prefix/g; |
$common_php =~ s/##PREFIX##/$prefix/g; |
219 |
my $members_db = $prefix."members"; |
my $members_db = $prefix."members"; |
220 |
$common_php =~ s/##MEMBERS_DB##/$members_db/g; |
$common_php =~ s/##MEMBERS_DB##/$members_db/g; |
221 |
|
$common_php =~ s/##WITHOUT_INVITATION##/$without_invitation/g; |
222 |
|
|
223 |
print PHP $common_php; |
print PHP $common_php; |
224 |
close(PHP); |
close(PHP); |
239 |
|
|
240 |
# return unique name of pitanje |
# return unique name of pitanje |
241 |
sub new_pit { |
sub new_pit { |
242 |
my $out="p".$pitanje_nr.$p_suffix; |
my $out="p".$pitanje_nr; |
243 |
|
$out .= "_".$p_suffix if ($p_suffix); |
244 |
$curr_suffix=$p_suffix; |
$curr_suffix=$p_suffix; |
245 |
$p_suffix++; |
$p_suffix++; |
246 |
return $out; |
return $out; |
754 |
} |
} |
755 |
} |
} |
756 |
|
|
757 |
|
print "\n\nTo create database for poll $poll use:\n\n"; |
758 |
|
print "\$ psql template1 < $poll/$poll.sql\n\n"; |
759 |
|
print "THIS WILL DISTROY ALL DATA IN EXISTING DATABASE ".$prefix.$poll." !!\n"; |
760 |
|
|
761 |
# read configuration data |
# read configuration data |
762 |
# |
# |
763 |
# FIX: write actually this :-) |
# FIX: write actually this :-) |
769 |
my ($xp, $text) = @_; |
my ($xp, $text) = @_; |
770 |
$db_user=x($attref->{db_user}); |
$db_user=x($attref->{db_user}); |
771 |
$prefix=x($attref->{prefix}); |
$prefix=x($attref->{prefix}); |
772 |
|
$without_invitation=x($attref->{without_invitation}); |
773 |
} |
} |
774 |
} |
} |
775 |
|
|