Кой колко време е изгубил във Форума?
Модератор: Общи модератори
23 мнения
• Страница 1 от 2 • 1, 2
- b2
- старши ентусиаст
-
- Мнения: 2173
- Регистриран на: 29.11.2002
- Местоположение: София
- Кара: F15 X5; F10 M5 Stage 2
Кой колко време е изгубил във Форума?

Поиграх си малко и написах тоя скрипт на perl:
http://84.242.142.210/forum.html
Отляво е ника на юзъра, отдясно е времето в часове прекарано общо като сбор във форума, отчита се от днеска към 15часа, няма да го спирам
Това е сбор на всеки юзър колко време е прекарал във форума, изчислява се на база на статистиката долу на сайта, не е свръх, точно щото и форума се обновява на 5мин (май). Не съм програмист, не разбирам и от дизайн, така че не ме упреквайте за евентуални бъгове или страхотния дизаин

просто ми беше интересно да видя кои отделят най-много време на форума, не си поставям за цел да се превърне в някаква надпревара
Enjoy

Ехеееееее ако ни плащаха на час за тая работаааа, не ми се смята колко ще имам да взимам досега за толкова време

Dark Side of the Force is а pathway to many abilities some considered to be unnatural.
- Терзийски
-
поклонник на E36
-
- Мнения: 1631
- Регистриран на: 11.09.2003
- Местоположение: София, София, София, София, София, София, София, София, София, София:
- Пол: Мъж
- Кара: Mercedes, BMW, Subaro
- dr-who
- ентусиаст
-
- Мнения: 1088
- Регистриран на: 28.02.2004
- Местоположение: София
- Пол: Мъж
- Кара: E46 Touring 330xi
- Мечтае да кара: F10 M5
b2 dай ще ти пусна един хост за това да не е по IP ако имаш желание естествено, hostXXX.knackery.net 

--
Powered by: Miller Performance
Revolutionary BMW Performance chips
--
Powered by: Miller Performance
Revolutionary BMW Performance chips
--
- BMW-X5
- Е53 Фанатик
-
- Мнения: 1260
- Регистриран на: 18.04.2004
- Местоположение: Варна
- Пол: Мъж
- Кара: xDrive
- Иво
- шПерко
-
- Мнения: 7623
- Регистриран на: 25.04.2003
- Местоположение: Банкя/София/Перник
- Пол: Мъж
- Кара: '90 BMW 316i
- Мечтае да кара: Платноходка
- Детайли за колата: Шпер 4.27 Точка! :)
ХиХиХи
B2, Батковото, незнам как ти е дошло на акъла ама е много добра идея.
Извън темата.
Да кажа ли на Росито за какво ти плаща?
Базикам се.
П.С.:
Онова със застраховката няма да стане. Има промени по закона, за които незнаех. Гледай да плащаш без застраховател.
Извън темата.
Да кажа ли на Росито за какво ти плаща?

Базикам се.
П.С.:
Онова със застраховката няма да стане. Има промени по закона, за които незнаех. Гледай да плащаш без застраховател.
Бръм, бръм, бръм.......скръц, скърц, скръц............. ! Бах маааамуу някои да има нови гуми?!?
- err0r
- Мечтае за Z3 M Coupe
-
- Мнения: 8695
- Регистриран на: 9.02.2003
- Местоположение: Сoфия
- Кара: '99 530dА Touring
Иво написа:А той работи и само с потребители, които не са със статус "скрит".
Току що го разбрах, след като се търсих там, а сутринта като излизах съм се забравил логнат във Видео.


- ///Явор
- Летящия холандец
-
- Мнения: 19401
- Регистриран на: 10.01.2003
- Местоположение: предимно в гаража
- Кара: M3E30х2,M3E36х2,M3E92,M5E39х2 и др.
- Терзийски
-
поклонник на E36
-
- Мнения: 1631
- Регистриран на: 11.09.2003
- Местоположение: София, София, София, София, София, София, София, София, София, София:
- Пол: Мъж
- Кара: Mercedes, BMW, Subaro
- Иво
- шПерко
-
- Мнения: 7623
- Регистриран на: 25.04.2003
- Местоположение: Банкя/София/Перник
- Пол: Мъж
- Кара: '90 BMW 316i
- Мечтае да кара: Платноходка
- Детайли за колата: Шпер 4.27 Точка! :)
- CheGevara
- Weißwurst-Fresser
-
- Мнения: 2687
- Регистриран на: 22.11.2003
- Местоположение: в рекарото
- Кара: F40
- Hammerfall
- кандидат ентусиаст
-
- Мнения: 208
- Регистриран на: 4.01.2005
- Местоположение: СЛИВЕН
Верно не работи, аз го заебах и си заминах от офиса, ше го оправя понеделник, сорса ще го пусна ама ще ме убиете с камъни тука май има доста програмисти
аре живи и здрави и all right reserved
пак повтарям не съм програмист и не разбирам от perl
Пс. ще се радвам някой да го пооправи ако му се занимава и да го пуснем за постоянно и да работи коректно

- Код: Избери целия код
#!/usr/bin/perl
$a=`curl -s http://www.bmwpower-bg.net/forums/index.php | grep '<td class="row1" align="left"><span class="gensmall">'`;
$a =~ s/<\/a>.{0,130}\">/,/g;
$a =~ s/<b>//g;
$a =~ s/<\/b>//g;
$a =~ s/^.*\">//g;
$a =~ s/<\/a>.*$//g;
$a =~ s/\n//g;
@users=split(/,/,$a);
foreach $user (@users) {
$curr=`cat /forum/users.dat|grep '$user'|awk -F':' '{print \$1}'`;
chop $curr;
if ($curr == 0) {
system ("echo 1:$user >> /forum/users.dat");
} else {
$next=$curr+1;
system ("cat /forum/users.dat|sed 's/$curr:$user/$next:$user/' > /forum/users.tmp; mv /forum/users.tmp /forum/users.dat");
}
}
print ("<html><title>Koi kolko vreme gubi vuv foruma?</title><center><br><br><b>");
$b=`cat /forum/users.dat|sort -gr`;
$date=`date`;
@userz=split (/\n/, $b);
foreach $usertimes ( @userz) {
$place++;
($times,$user)=split (/:/, $usertimes);
$vremevminuti=$times*5;
$hours=$vremevminuti/60;
printf ("$place. $user -- %.2f <br>",$hours);
}
print ("<br>Last Update: $date<br><br><a href=\"http://www.bmwpower-bg.net/\">BMW POWER</a><br><img src=\"vi.png\">");
print ("</b></html>");
аре живи и здрави и all right reserved

пак повтарям не съм програмист и не разбирам от perl

Пс. ще се радвам някой да го пооправи ако му се занимава и да го пуснем за постоянно и да работи коректно

23 мнения
• Страница 1 от 2 • 1, 2
Кой е на линия
Потребители разглеждащи този форум: 0 регистрирани