#!/usr/bin/perl
#use localbucky;

# always used, for the most part
use db;
use getargs;
use cookies;
use lastlog;
use session;
use rand;
use privacy;
use keywords;
use headers;
use images;
use format;
use constants;

# more general and can probably be added selectively somehow
use boxes;
use color;
use comments;
use files;
use forms;
use import;
use message;
use profile;
use radio;
use tags;
use threads;

use RGB;

our @BUCKY_INPUT_DELIMITERS = qw(\, \= \_ \+ \| \.);
sub scrub
	{
	my $string = shift;
	$string =~ s/\0//g;
	$string =~ s/\n//g;
	$string =~ s/\r//g;
	$string =~ s/\%//g;
	$string =~ s/\*//g;
	return trim($string);
	}
sub trim
	{
	my $string = shift;
	$string =~ s/^\s+//;
	$string =~ s/\s+$//;
	return $string;
	}

1;