# Modified by larsen - Nov 17 2001

<table>
<tr>

[%
	use Everything::Experience;
	return unless $NODE->{imgsrc};
	my $SETTING = getNode('home node image cheaters','setting');
	my $CHEATERS = getVars $SETTING;
	return unless isGod($NODE) or  
					getLevel($NODE) >= 5 or 
					$CHEATERS->{$NODE->{title}} or 
					$CHEATERS->{$NODE->{node_id}};
	return qq(
		<td rowspan="10">
		<img src="http://perlmonks.org/$NODE->{imgsrc}">
		</td>
	);
%]

<td valign="top">
[%
	use Everything::Experience;
	if ($NODE->{imgsrc} and getLevel($NODE)<5 and !isGod($NODE))
		return linkNodeTitle("I want my picture back|*");
	return "";
%]
<br />

<table>
	<tr>
	<td>User since:</td>
	<td>[{parsetime:createtime}]</td>
	</tr>

	<tr>
	<td>Last here:</td>
	<td>[{parsetime:lasttime}]
    	<i>([{timesince:$NODE->{lasttime}}])</i></td>
	</tr>

	<tr>
	<td>Experience:</td>
	<td>
    	<b>[% $NODE->{experience} || "none yet" %]</b>
	</td>
	</tr>

	<tr>
	<td>Level:</td>
	<td><b>
	[%  
		use Everything::Experience;              
        my $lvl = getLevel($NODE);
        my $LT = getVars(getNode('level titles', 'setting'));

		my %is_inquisitor = ();

                # larsen - Nov 17 2001
                # Maybe an hash here is overkill.
                # Since there are only two Inquisitors,
                # a simple OR clause could be fine.

		foreach( qw|larsen OeufMayo| ) $is_inquisitor{ $_ }++;

		my $leveltitle;
		if ($is_inquisitor{ $NODE->{title} }) {
			$leveltitle = 'Inquisitor';
		} else {
        	$leveltitle=$LT->{$lvl};
        }

		return $leveltitle . " ($lvl)";
    %]
	</b>
	</td>
	</tr>

	<tr>
	<td>Writeups:</td>
	<td>
	<b>
	[%
    	my $count = htmlcode('displaySingleVar', 'numwriteups');
        $count ||= 0;
        my $title = $NODE->{title};
        $title =~ s/ /\+/g;
        "<a href=" . urlGen({
				node => 'Perl Monks User Search',
				usersearch => $NODE->{title},
				orderby => 'createtime DESC'}) . 
		">$count</a>"; 
    %]</b>
	</td>
	</tr>

	<tr>
	<td>Location:</td>
	<td>[{displaySingleVar:location}]</td>
	</tr>

	<tr>
	<td>User's localtime:</td>
	<td>
	[%
		my $USERVARS = getVars($NODE);
		htmlcode('userlocaltime', $USERVARS->{timezone});
	%]
	</td>
	</tr>

	<tr>
	<td>User's scratchpad:</td>
	<td>
	[%
		# crazyinsomniac Sat Nov  3 00:39:08 2001 GMT

		my $USERVARS = getVars($NODE);

		if($$USERVARS{scratchpublic})
		{
		    return qq( <a href="/index.pl?node_id=108949&user= )
   	        	. $query->escape($NODE->{title}) .
           		qq(">this pad be public, scratch it</a>);
		}
		else {   
			return "<i>not public</i>";  
		}
	%]
	</td>
	</tr>

	</table>
	</tr>

</tr>
</table>

<p>
[%
	use Everything::Experience;
	my $str;
	$str .= htmlcode('parselinks', 'doctext,override');
	$str =~ s/<img(\n|.)*?src\s*=.*?>//igs 
          unless(getLevel($NODE)>=5 or isGod($NODE));
	$str =~ s/<script[^>]*>.*?<\/script[^>]*>//igs if $$USER{jsoff};
	$str;
%]

<p>
[%

	if(getId($USER) == getId($NODE) and getId($USER) != $HTMLVARS{default_user}){
		my $str .= "Change your " . linkNodeTitle("user settings") . "<br />";
		$str .= linkNode($NODE, 'Edit', {displaytype => 'edit'}) . 
                " your user information";
	}
%]