Permalink
Browse files

All changes since the last release, when I stopped working on E-Blah.…

… Last minor change was in March 2010.
  • Loading branch information...
onfire4g05 committed Aug 27, 2011
1 parent 1f28e30 commit 32be4db220889a5faf51a4d8bb828a581f030d3a

This file was deleted.

Oops, something went wrong.
@@ -259,10 +259,12 @@ sub MonthView {
$classes = $quickview ? ' class="smalltext"' : '';
$specialwidth = !$quickview ? 14 : 13;

if($fulltext ne '') { $fulltext = qq~<a href="$surl\lv-cal/month-$month/year-$year/" rel="nofollow">$fulltext</a>~; }

$monthview .= <<"EOT";
<table cellpadding="5" cellspacing="1" class="border" width="100%">
<tr>
<td class="titlebg" colspan="8"><div style="float: left"$classes><strong>$months[$month-1] $year</strong></div><div style="float: right"$classes>$fulltext</div></td>
<td class="titlebg" colspan="8"><div style="float: left"$classes><strong><a href="$surl\lv-cal/month-$month/year-$year/" rel="nofollow">$months[$month-1] $year</a></strong></div><div style="float: right"$classes>$fulltext</div></td>
</tr><tr>
<td class="catbg">&nbsp;</td>
EOT
@@ -648,7 +648,7 @@ sub CreateGroups { # Member Groups (Version 2.2)
sub SaveMemberID {
my($userid) = $_[0];
my($iddata,$item,$itemvalue,@printuser,$hasdat,$failsafe);
my($iddata,$item,$itemvalue,@printuser,$hasdat,$failsafe, $size);
if($userid eq '') { return(0); }
@@ -671,6 +671,9 @@ sub SaveMemberID {
if($failsafe != 1) { return(); }
$size = @printuser;
if($size <= 0) { return(); }
fopen(SAVEMEMBERID,"+>$members/$userid.dat");
foreach(@printuser) { print SAVEMEMBERID "$_\n"; }
fclose(SAVEMEMBERID);
@@ -204,7 +204,9 @@ sub MessageDisplay {
$ebout .= <<"EOT";
<script type="text/javascript">
//<![CDATA[
setTimeout('document.location.href = "#num$latestmessage"',150);
window.onload = function() {
document.location.href = '#num$latestmessage';
}
//]]>
</script>
<table cellpadding="3" cellspacing="1" class="border" width="100%">
@@ -419,7 +421,9 @@ sub MessageDisplay {
if(!$guest) { $usericon = qq~<img src="$images/$usericon.png" class="centerimg" alt="" /> ~; }
else { $usericon = ''; }

$email = $guest ? qq~<a href="mailto:$email">$Pimg{'email'}</a>~ : $email{$user};
if($guest && $members{'Administrator',$username}) { $email = qq~<a href="mailto:$email">$Pimg{'email'}</a>~; }
elsif($guest) { $email = ''; }
else { $email = $email{$user}; }
$email .= $pmdisable || $guest ? '' : qq~<a href="$surl\lv-memberpanel/t-$user/a-pm/s-write/">$Pimg{'pm'}</a>~;

$modify = !$mlocked && (($members{'Administrator',$username} || $ismod || $modifyon) || $username eq $user && (!$modifytime || $fdate+($modifytime*3600) > time)) ? qq~$Pmsp2<a href="javascript:clear('$counter')">$Pimg{'delete'}</a>$Pmsp2<a href="$surl\lv-post/b-$URL{'b'}/a-modify/m-$messid/n-$counter/" onmouseover="CreateMenus(this,25,'$counter'); outtimer = setTimeout('ClearMenu()',2000);">$Pimg{'modify'}</a>~ : '';
@@ -410,7 +410,7 @@ sub MessageIndex {
</div>
<br />

<table cellpadding="6" cellspacing="1" style="float: left; margin: 0px;">
<table cellpadding="6" cellspacing="1" style="float: left; margin: 0px;" id="threadtypes">
<tr>
<td class="center" style="width: 15px"><img src="$images/thread.png" alt="" /></td>
<td class="smalltext">$var{'61'}</td>
@@ -169,8 +169,9 @@ sub PMStart {
<td class="catbg center" style="width: 30px"><input type="checkbox" name="del" onclick="checkAll();" /></td>
</tr>
EOT

if(@pmz > 0) {
for($c = 0; $c < $maxm; $c++) {
for($c = 0; $c < $maxm+1; $c++) {
if($c >= $tstart && $c < $end) { push(@pmlist,$pmz[$c]); }
}
$counter = $tstart;
@@ -328,6 +328,7 @@ sub PortalAdmin {
@modules = ();
foreach(@modules2) {
$_ =~ s/.pl//g;
if($_ eq '.' || $_ eq '..') { next; }
eval { require("$modsdir/Modules/$_.pl"); };
if($@ || $installed{$_}) { $@ = ''; next; }
$filename = $_;
@@ -620,7 +621,7 @@ sub RSSLatestThreads {
xmlns:dc="http://purl.org/dc/elements/1.1/"
>
<channel>
<title>$mbname</title>
<title><![CDATA[$mbname]]></title>
<link>$rurl</link>
<generator>http://www.eblah.com</generator>
<description></description>
@@ -695,7 +696,7 @@ sub RSSLatestThreads {

print <<"EOT";
<item>
<title>$title</title>
<title><![CDATA[$title]]></title>
<link>$rurl\lm-$id/</link>
<comments>$rurl\lm-$id/#num1</comments>
<description><![CDATA[$message]]></description>
@@ -856,7 +857,7 @@ sub Shownews {
xmlns:dc="http://purl.org/dc/elements/1.1/"
>
<channel>
<title>$title</title>
<title><![CDATA[$mbname]]></title>
<link>$rurl</link>
<generator>http://www.eblah.com</generator>
<description></description>
@@ -949,7 +950,7 @@ sub Shownews {

$shownewstemp .= <<"EOT";
<item>
<title>$messtitle</title>
<title><![CDATA[$messtitle]]></title>
<link>$totalurl</link>
<comments>$totalurl#num1</comments>
<description><![CDATA[$message]]></description>
@@ -1016,7 +1017,7 @@ sub Online {
<?xml version="1.0" encoding="$char"?>
<rss version="2.0">
<channel>
<title>$mbname</title>
<title><![CDATA[$mbname]]></title>
<link>$rurl</link>
<generator>http://www.eblah.com</generator>
<description></description>
@@ -1043,7 +1044,7 @@ sub Online {

print <<"EOT";
<item>
<title>$user</title>
<title><![CDATA[$user]]></title>
<link>$url</link>
<type>$type</type>
<time>$sdays[$wday], $day $smonths[$month-1] $year $h:$m:$s</time>
@@ -900,14 +900,14 @@ sub PostTopic {
@stopwords = <FILE>;
fclose(FILE);
chomp @stopwords;
foreach(@stopwords) { $stopword{$_} = 1; }
foreach(@stopwords) { $stopword{lc($_)} = 1; }

$tagslength = '';
foreach $testtag (split(' ',$message)) {
$testtag = lc($testtag);
if($testtag =~ /\A[0-9A-Za-z\'\-_]+\Z/ && !$stopword{$testtag}) {
++$enabletag{$testtag};
$test .= ($enabletag{$testtag}.$testtag."\n");

if($enabletag{$testtag} >= $autotag) {
$tags .= $testtag.', ';
$tagslength += length($testtag);
@@ -10,7 +10,7 @@
eval { %taghash = %{ retrieve("$prefs/Tags.txt") }; };

sub Tags {
my($name,$value,$indtags,%tagcount,@taglist,@taglistsort,$totaltags,$tag);
my($name, $value, $indtags, %tagcount, @taglist, @taglistsort, $totaltags, $tag);

if($URL{'find'} || $URL{'search'}) { SearchTags(); }

@@ -41,13 +41,30 @@ sub Tags {
EOT

@taglist = ();

$maxshown = 200;

$counting = 0;
foreach(sort {$b <=> $a} @taglistsort) {
($count,$tag) = split(/\|/,$_);
($count,$tag) = split(/\|/,$_);
if($tag eq 'i') { next; } # This is annoying
push(@taglist,"$tag|$count");
++$counting;
if($counting > 100) { last; }
if($counting > $maxshown) { last; }
}

# We're going to use this:
# http://prism-perfect.net/archive/php-tag-cloud-tutorial/
# Many tag clouds use a CSS class and limit the sizes to a few -- this method is much better as you get many different text sizes

$max_size = 100;
$min_size = 75;

# Array max/min
$max_qty = $taglistsort[0];
$min_qty = $taglistsort[-1];

$spread = ($max_qty - $min_qty) || 1;
$step = (($max_size - $min_size) / $spread);

foreach(sort {$a cmp $b} @taglist) {
($tag,$count) = split(/\|/,$_);
@@ -56,14 +73,12 @@ sub Tags {
$enc =~ s/\%2D/\*/g;
$tag = CensorList($tag);

if(($count/$totaltags) <= 1 && ($count/$totaltags) > .8) { $level = "5"; }
elsif(($count/$totaltags) <= .8 && ($count/$totaltags) > .6) { $level = "4"; }
elsif(($count/$totaltags) <= .6 && ($count/$totaltags) > .4) { $level = "3"; }
elsif(($count/$totaltags) <= .4 && ($count/$totaltags) > .2) { $level = "2"; }
elsif(($count/$totaltags) <= .2 && ($count/$totaltags) > 0) { $level = "1"; }
$size = ($min_size + (($count - $min_qty) * $step));

#if($size > $max_size) { $size = $max_size; }

$ebout .= <<"EOT";
<a href="$surl\lv-tags/find-$enc/" class="tag$level">$tag</a> &nbsp;
<a href="$surl\lv-tags/find-$enc/" style="font-size: $size%" title="$count posts tagged">$tag</a> &nbsp;
EOT
}

0 comments on commit 32be4db

Please sign in to comment.