& /designobservercomp/header.comp, site=>1, adcols=>4 &>
<& /designobservercomp/nav_designobserver.comp &>
Account Log In
% if ($uid) {
You are already logged in.
% if ($article){
% $sql = "SELECT articles.url, sites.url FROM articles, sites WHERE articles.id='$article' AND articles.site = sites.id";
% $sth = $rso->dosql($sql);
% ($surl, $site) = $sth->fetchrow_array ();
% $url = $site."/feature/".$surl."/".$article."/";
Back to the feature >>
% }
Design Observer home page >>
% } else {
Log in to comment or sign up for newsletters from Design Observer. Don't have an account yet?
Create an account. Forgot your password?
Click here.
% if ($error==1 || $error==2){
Your email and password do not match our records. Please try again.
% } elsif ($error==51){
There was a problem with your account. Please email designobserver@winterhouse.com
% }
% }
<& /designobservercomp/adDOG_4col.comp &>
<& /designobservercomp/footer.comp &>
<%args>
$error =>""
$article=>0
%args>
<%init>
use RubyCore::ObjectInit;
use designobserver::Config();
my $rso = new RubyCore::ObjectInit { %designobserver::Config::c };
$rso->dbconnect();
my $cookie_header = $r->headers_in->get('Cookie');
my @cookies = split (";",$cookie_header);
my ($key, $value, $sessid, $uid, $uemail, $suid);
my ($sql, $sth);
my ($surl, $site, $url);
foreach my $cookie (@cookies){
($key,$value) = split("=",$cookie);
if ($key eq "DO" || $key eq " DO"){
$sessid = $value;
}
}
if ($sessid){
$sql = "SELECT screenname, email FROM signups, sitesessions WHERE sitesessions.session = '$sessid' AND sitesessions.signupid = signups.id";
$sth = $rso->dosql($sql);
($uid, $uemail) = $sth->fetchrow_array ();
}
%init>