--- trunk/webwork-modperl/lib/WeBWorK/Authen.pm	2002/05/22 20:44:45	290
+++ trunk/webwork-modperl/lib/WeBWorK/Authen.pm	2002/05/23 20:23:10	305
@@ -0,0 +1,30 @@
+package WeBWorK::Authen;
+
+sub new($$$) {
+	my $class = shift;
+	my $self = {};
+	($self->{r}, $self->{courseEnvironment}) = @_;
+	bless $self, $class;
+	return $self;
+}
+
+sub verify($) {
+	my $self = shift;
+	my $r = $self->{r};
+	if (!$r->param('user')) {
+		return 0;
+	}
+	
+	if ($r->param('key')) {
+		$r->param('passwd','');
+		return 1;
+	}
+	if ($r->param('passwd')) {
+		$r->param('passwd','');
+		$r->param('key','tH1siS@pH0n3Yk3y');
+		return 1;
+	}
+	return 0;
+}
+
+1;