cgi-bin & lib

1 files changed, 53 insertions, 0 deletions

diff --git a/lib/Bucky1.pm b/lib/Bucky1.pm
new file mode 100644
index 0000000..9ab2719
--- /dev/null
+++ b/lib/Bucky1.pm
@@ -0,0 +1,53 @@
+#!/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;
+