15
« : 06 Августа 2002, 00:12:10 »
Здравствуйте!
У меня к Вам есть просьба - помогите сделать один скрипт. У меня стоит форум UBB и хотелось бы сделать такой скрипт, который сканирует директории, сортирует файлы и вывод несколько новых (последне измененых) файлов (сообщений) на экран.
Есть у меня уже готовый скрипт (см. ниже), но он только сортирует файлы по дате изменения. А это есть плохо. Я, например, запускаю на форуме обновление всех файлов, и все файлы имеют одинаковую дату изменения -> скрипт просто беситься...
Если такое вообще возможно, чтобы скрипт сортировал сначала по имени (на форуме сообщения имеют формат 0000001.html, 000002.html и т.д.) а потом уже по дате. Если дата у всех одинаковая, то просто вывести, например, 3 последних созданных собщений: 000025.html, 000024.html, 000023.html + считывать что находиться между
и генерировать ссылки на эти файлы.
Заранее все ОГРОМНОЕ спасибо.
А вот и сам скрипт:
#!/usr/local/bin/perl
$request=$ENV{\'REQUEST_METHOD\'};
$content=$ENV{\'CONTENT_LENGTH\'};
$cgi="/cgi-bin";
$url="/ubb/Forum8/HTML";
$dir="e:/server/host/ubb/ubb/Forum8/HTML";
$path="/forum/images";
$cdir="/cgi-bin";
$page=$input {\'page\'};
opendir (DIR,"$dir");
@mes=readdir(DIR);
$number=@mes-2;
#Ограничиваем количество записей на страницу.
if ($page eq "") {
$page=0;
}
$limit=10;
$pages=scalar ($number/$limit);
$begin=$page*$limit;
$next=$begin+$limit;
$a=$begin+1;
print "Content-type:text/html\\n\\n";
print "";
splice (@mes,0,2);
for ($i=$begin;$i<$next;$i++) {
if (!-d "$dir/$mes[$i]" && "$mes[$i]" ne "." && "$mes[$i]" ne "..") {
foreach $mes (@mes) {
$time=(stat ("$dir/$mes"))[9];
$stat {$time}=$mes;
}
@keys=keys %stat;
@keys=sort ({$b<=>$a} @keys);
foreach $key (@keys) {
$value=$stat {$key};
push (@val,$value);
$key=localtime ($key);
push (@time,$key);
}
open (FILE,"$dir/$val[$i]");
@lines=;
close (FILE);
foreach $line (@lines) {
if ($line=~ /(.*?)<\\/title>/is) {<br />$title=$1;<br />}<br /><br />if ($line=~ /content=\\"(.*?)\\"/is) {<br />$name=$1;<br />}<br /><br />if ($line=~ /^<table(\\s*)(.*?)>$/i) {<br />$reply=$1;<br />push (@reply,$reply);<br />$char=@reply-1;<br /> }<br />}<br /><br />print <<HTML;<br /><li><a href="$url/$val[$i]">$title</a></li><br />HTML<br />splice (@reply);<br /><br />}<br />}<br />exit;<br />closedir (DIR);<br />last CASE;<br /><br /><br />if ($request eq \'GET\') {<br />$query=$ENV{\'QUERY_STRING\'};<br />}<br />else {<br />sysread(STDIN,$query,$content);<br />}<br />@pairs = split(/&/, $query);<br />foreach $pair (@pairs) {<br />($name, $value) = split(/=/, $pair);<br /><br />$input{$name} = $value;<br />}<br />exit;<br /></code>
</div>
</div>
<br class="clear" />
<span class="botslice"><span></span></span>
</div>
</div>
<div class="pagesection" style="margin-bottom: 0;">
<span>Страницы: [<strong>1</strong>] <a class="navPages" href="http://forums.webscript.ru/index.php?PHPSESSID=ai19uscmnkhs6n2osm3v0p8900&action=profile;u=909;area=showposts;sa=topics;start=15">2</a> </span>
</div>
</div>
</div>
</div></div>
<div id="footer_section"><div class="frame">
<ul class="reset">
<li class="copyright">
<span class="smalltext" style="display: inline; visibility: visible; font-family: Verdana, Arial, sans-serif;"><a href="http://forums.webscript.ru/index.php?PHPSESSID=ai19uscmnkhs6n2osm3v0p8900&action=credits" title="Simple Machines Forum" target="_blank" class="new_win">SMF 2.0.19</a> |
<a href="http://www.simplemachines.org/about/smf/license.php" title="License" target="_blank" class="new_win">SMF © 2016</a>, <a href="http://www.simplemachines.org" title="Simple Machines" target="_blank" class="new_win">Simple Machines</a>
</span></li>
<li><a id="button_xhtml" href="http://validator.w3.org/check?uri=referer" target="_blank" class="new_win" title="Valid XHTML 1.0!"><span>XHTML</span></a></li>
<li><a id="button_rss" href="http://forums.webscript.ru/index.php?PHPSESSID=ai19uscmnkhs6n2osm3v0p8900&action=.xml;type=rss" class="new_win"><span>RSS</span></a></li>
<li class="last"><a id="button_wap2" href="http://forums.webscript.ru/index.php?PHPSESSID=ai19uscmnkhs6n2osm3v0p8900&wap2" class="new_win"><span>Мобильная версия</span></a></li>
</ul>
<p>Страница сгенерирована за 0.081 секунд. Запросов: 13.</p>
</div>
</div>
</div><!-- Yandex.RTB R-A-1857-5 -->
<div id="yandex_rtb_R-A-1857-5"></div>
<script type="text/javascript">
(function(w, d, n, s, t) {
w[n] = w[n] || [];
w[n].push(function() {
Ya.Context.AdvManager.render({
blockId: "R-A-1857-5",
renderTo: "yandex_rtb_R-A-1857-5",
horizontalAlign: false,
async: true
});
});
t = d.getElementsByTagName("script")[0];
s = d.createElement("script");
s.type = "text/javascript";
s.src = "//an.yandex.ru/system/context.js";
s.async = true;
t.parentNode.insertBefore(s, t);
})(this, this.document, "yandexContextAsyncCallbacks");
</script>
<br>
<!--LiveInternet counter--><script type="text/javascript"><!--
document.write('<a href="//www.liveinternet.ru/click" '+
'target=_blank><img src="//counter.yadro.ru/hit?t11.4;r'+
escape(document.referrer)+((typeof(screen)=='undefined')?'':
';s'+screen.width+'*'+screen.height+'*'+(screen.colorDepth?
screen.colorDepth:screen.pixelDepth))+';u'+escape(document.URL)+
';'+Math.random()+
'" alt="" title="LiveInternet: показано число просмотров за 24 часа, посетителей за 24 часа и за сегодн\я" '+
'border=0 width=88 height=31><\/a>')//--></script><!--/LiveInternet-->
<!-- YaMetrics -->
<script type="text/javascript"><!--
var ya_class = 1;
var ya_cid = 1857;
//--></script>
<script type="text/javascript" src="//bs.yandex.ru/resource/watch.js"></script>
<noscript><div style="display: inline;"><img src="//bs.yandex.ru/watch/1857" width="1" height="1" alt="" /></div></noscript>
<!-- Yandex.Metrika counter -->
<div style="display:none;"><script type="text/javascript">
(function(w, c) {
(w[c] = w[c] || []).push(function() {
try {
w.yaCounter1857 = new Ya.Metrika(1857, null, 1);
yaCounter1857.clickmap(true);
yaCounter1857.trackLinks(true);
} catch(e) { }
});
})(window, 'yandex_metrika_callbacks');
</script></div>
<script src="//mc.yandex.ru/metrika/watch.js" type="text/javascript" defer="defer"></script>
<noscript><div style="position:absolute"><img src="//mc.yandex.ru/watch/1857?cnt-class=1" alt="" /></div></noscript>
<!-- /Yandex.Metrika counter -->
</body></html> 
Просмотр сообщений
