view release on metacpan or  search on metacpan

lib/Labyrinth/Plugin/CPAN/Report.pm  view on Meta::CPAN

    $tvars{article}{letter}  = substr($tvars{article}{dist},0,1);

    $tvars{article}{subject} = sprintf "%s %s-%s %s %s", 
        uc $tvars{article}{state}, $tvars{article}{dist}, $tvars{article}{version}, $tvars{article}{perl}, $tvars{article}{osname};
}

sub _get_tester {
    my $creator = shift;

    #$dbi->{'mysql_enable_utf8'} = 1;
    my @rows = $dbi->GetQuery('hash','GetTesterFact',$creator);
    return ($creator,$creator)  unless(@rows);

    #$rows[0]->{fullname} = encode_entities($rows[0]->{fullname});
    $rows[0]->{email} ||= $creator;
    $rows[0]->{email} =~ s/\'/''/g if($rows[0]->{email});
    return ($rows[0]->{fullname},$rows[0]->{email});
}

1;

vhost/cgi-bin/view-report.cgi  view on Meta::CPAN

    };

    return  if($@);

    return \%facts;
}

sub get_tester {
    my $creator = shift;

    #$dbi->{'mysql_enable_utf8'} = 1;
    my @rows = $dbi->GetQuery('hash','GetTesterFact',$creator);
    return ($creator,$creator)  unless(@rows);

    #$rows[0]->{fullname} = encode_entities($rows[0]->{fullname});
    my $name = $rows[0]->{fullname};
    $name = join(' ',$rows[0]->{name},$rows[0]->{pause})    if($rows[0]->{name});

    my $email = $rows[0]->{contact} || $rows[0]->{email} || $creator;
    $email =~ s/\'/''/g if($email);
    return ($name,$email);