13 lines
314 B
Plaintext
13 lines
314 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use lib "/home/slowtwitch/forum.slowtwitch.com/cgi-bin/admin";
|
||
|
|
use GForum qw/$PLG $IN $CFG/;
|
||
|
|
use Poll;
|
||
|
|
|
||
|
|
GForum::init("/home/slowtwitch/forum.slowtwitch.com/cgi-bin/admin");
|
||
|
|
|
||
|
|
$IN->param('call_from', "glinks");
|
||
|
|
$IN->param('poll_id', "home") unless $IN->param('poll_id');
|
||
|
|
Poll::handle();
|