rsstootalizer/Tweetodon/Website/OAuthLogin.pm

#!/usr/bin/perl -w

use strict;
use HTML::Template;
use Tweetodon::Website;
use Tweetodon::App;
use Tweetodon::Token;
use Tweetodon::User;

package Tweetodon::Website::OAuthLogin;
@Tweetodon::Website::OAuthLogin::ISA = qw(Tweetodon::Website);
use Data::Dumper;
use JSON;

sub requires_authentication {
	return 0;
}

sub fill_content {
	return 1;
}

sub prerender {
	my $self = shift;
	my $instance = $main::FORM{inputInstance};
	$instance = $main::FORM{instance} unless defined($instance);

	$self->{"template"} = "OAuthLogin";
	$self->{"content_type"} = "html";
	$self->{"set_cookie"} = ("instance=".$instance);
	$self->{"params"}->{"currentmode"} = "OAuthLogin";

	my $app = Tweetodon::App->get_or_create_by_instance($instance);
	$self->{params}->{instance_redirect_uri} = $main::config->{app}->{redirect_uris};
	$self->{params}->{instance_client_id} = $app->{data}->{instance_client_id};
	$self->{params}->{instance} = $instance;
	$self->{params}->{token_is_valid} = "false";

	if (defined($main::FORM{session_id})){
		my $user = Tweetodon::User->authenticate();
		if ($user){
			$self->{params}->{token_is_valid} = "true";
		}
		# {"error":"The access token is invalid"}
	}
}

1;