Mauser,
-а не надо. Скрипт пусть сам участник ставит себе на домен, все сам оплачивает (простенький мануал выложить по измененному скрипту несложно). Пусть это партнерская программа. Базу все равно ведь готовить с товарами? Ну и пусть участник готовую скачает - никаких затрат.
Мутно в стороне остался вопрос, что происходит с доменами потом. Участник (не победитель) теряет % с продаж после окончания конкурса?
Я, конечно, к концу дискуссии подоспел, однако...
Вроде бы интересная шняга. И вроде люди уважаемые, не кинут.
Но название неправильно подобрали. Не конкурс это. И не оптимимзаторов. БОльшая часть определяется имеющимся контролем над hiPR сайтами. А это изначально неравные условия.
Вот попробовать на своем домене действительно интересно. Лишь бы кто-нибудь продажу обеспечивал. Может, следовало бы ввести вариант "на своем домене, только за процент от продаж"?
в любой сделке один обманывает другого :) Даже если все ссылки прямые :)
Чой та терпеть-та?
Только так пересечься и выйдет. А то в октябре по $300 попросят за встречу :) Натурально, давайте встретимся. Желающие есть?
Кстати, можно в районе начала сентября съездить в Тверскую обл. за брусникой (+пивом и гитарами и др.)
Сайты leavenjournal.com и xkms.org ваши?
Может, взять "дни рождения" 4-х поисковиков и усреднить? Объявив это днем оптимизатора. :)
Или этой усредненной дате взять обратную, на другой поовине года...
Ну как, если нам на разные мейлы пришли ссылки на однинаковые страницы - значит, это не используется для контроля над тем, кто кликал и какие адреса активны.
-нет, мне пришел тот же спам и тоже с Андрюшкой, и с тем же урлом (страницей).
Домен bars-a.ru .
Пересчитывает размеры картинок, удаляет закрывающие теги p,li, ставит table одинаковые параметры.
Обрабатывает файлы с расширением $ext по всем директориям вглубь от директории, заданной в walk();
Если в имени файла нет точки, он считается директорией :)
Просто чистит файлы, полученные экспортом из Ворда, до определенных пределов. Делался под определенную задачу, и возможно, чистит не все. Если в Ворде были вставки картинок в "надписи", они пропадут.
Если он чистит не все, то в кучу записей попробуйте добавить
$s=~s#<([a-zA-Z0-9]+)[^>]*>#<$1>#gsi;
для убирания всех параметров всех тегов
или
$s=~s#</?TAG[^>]*>##gsi;
для убирания тега TAG
___________
use Image::Size; $from=<<RRR; RRR $to=<<KKK; KKK sub getimage { my $locimg=$_[0]; my $img=$_[1]; my $name=$_[2]; my $num=$_[3]; my $globe_x=0; my $globe_y=0; $img=~s#\\#\/#g; $image=$locimg.$img; $image=~s#//#/#g; if (open(F,"<$image")) { close F; ($globe_x, $globe_y) = imgsize($image); $img=~s#[^/.]+(\.[^.]+)$#$name.'-'.$num.$1#e; rename($image,$locimg.$img); }; $nowimage='<img src="'.$img.'" width="'.$globe_x.'" height="'.$globe_y.'" border="0" align="absmiddle">'; return $nowimage; } sub clearfile { my $file=$_[0]; my $s=''; my $name=''; my $numimg=0; $name=$file; $name=~s#^.*?([^/.]+)\.[^/.]+$#$1#e; if (open(F,"<$file")) { until (eof(F)) {$s.=<F>;}; close F; $s=~s# +# #ig; $s=~s#<p[^>]*?>#<p>#igs; $s=~s#<li[^>]*>#<li>#ig; $s=~s#<p> </p>##ig; $s=~s#<p> *</p>##ig; $s=~s#</?center>##ig; $s=~s#</?dir>##ig; $s=~s#</li>##ig; $s=~s#</p>##ig; $s=~s#<p>\s*( \s*)*\s*<p>#<p>#igs; $s=~s#<p><li>#<li>#igs; $s=~s#<p>\s*<li>#<li>#igs; $s=~s#<font([^>]+?symbol[^>]*?)>([^<]+?)</font>#<symb$1>$2</symb>#igs; $s=~s#<font[^>]+?\+[^>]+?>(.+?)</font>#<b><u>$1</u></b>#igs; $s=~s#<font[^>]+?>(.+?)</font>#$1#igs; $s=~s#<font[^>]*?>##igs; $s=~s#</font[^>]*?>##igs; $s=~s#<symb#<font#igs; $s=~s#</symb>#</font>#igs; $s=~s#<table[^>]+?>#<table cellspacing="0" cellpadding="3" border="1">#ig; #$s=~s#<thead[^>]+?>#<thead>#ig; #$s=~s#<tbody[^>]+?>#<tbody>#ig; #$s=~s#<th[^>]+?>#<th>#ig; #$s=~s#<tr[^>]+?>#<tr>#ig; $s=~s#(<td[^>]*?) width="?\d+%?"?([^>]*?>)#$1$2#ig; $s=~s#(<td[^>]*?) height="?\d+%?"?([^>]*?>)#$1$2#ig; $s=~s#(<[^>]+?) v?align="?(center|left|right|top|baseline|middle|bottom|justify)"?(.*>)#$1$3#ig; $s=~s#(</?)(strong|big)\s*>#$1b>#igs; $s=~s#(</?)em\s*>#$1i>#igs; #$s=~s#<h[23456]>#<p><b>#ig; #$s=~s#</h[23456]>#</b>#ig; $s=~s#(</?)(small|blockquote)\s*>##igs; $s=~s#</?div[^>]*>##igs; $s=~s# tppabs="http://[^"]+?"##ig; $loc=$file; $loc=~s#/[^/]*$#/#; $s=~s#<img[^>]+src=['" ]*([^ '">]*)['" ]*[^>]*># $numimg++; getimage($loc,$1,$name,$numimg);#igse; $s=~s#<hr[^>]*>#<hr>#ig; $s=~s#</?a[^>]*?>##igs; #$s=~s#<a[^>]+?>(.+?)</a>#$1#igs; #$s=~s#<hr[^>]*>#<br><p>#ig; #$s=~s#(</?(ul|ol)>)\s*( )*\s*\1#$1#igs; #$s=~s#([^> ])\s*<img#$1<p><img#igs; #$s=~s#(<img[^>]+>)[^<]#$1<p>#igs; #$n=($s=~s###igs); if (open(F2,">$file")) { print F2 $s; close F2; print "$file ok! images recalc: $numimg\n";; } else { print "$file cannot be written to!\n"; }; } else {print "file $file cannot be opened";}; } sub walk { my $dir=$_[0]; my @list=(); my $i=0; if (opendir (D, $dir)) { @list=readdir(D); for ($i=0; $i<@list; $i++) { if (($list[$i] ne '.') && ($list[$i] ne '..')) { if ($list[$i]=~m#[^.]\.([^.]+)$#) { if ($1 eq $ext) { clearfile($dir.'/'.$list[$i]); }; } else {walk($dir.'/'.$list[$i]);}; }; }; closedir(D); } else {print "dir $dir cannot be opened\n";}; }; $ext='html'; walk(".");#current directory and deeper #clearfile('directory/file.ext'); print "\a\nPress enter to exit!\n"; <>;
на perl подойдет? :)
