13 lines
314 B
Perl
Executable File
13 lines
314 B
Perl
Executable File
#!/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();
|