#!/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();