Форум успешных вебмастеров - GoFuckBiz.com

  Форум успешных вебмастеров - GoFuckBiz.com > Партнерские программы > Adult
Дата
USD/RUB58.8540
BTC/USD0.0000
Adult Всё, что связано с адалт бизнесом.

Закрытая тема
Опции темы Опции просмотра
Старый 10.04.2007, 13:18   #1
pingo
Senior Member
 
Аватар для pingo
 
Регистрация: 09.04.2007
Сообщений: 4,421
Бабло: $603509
По умолчанию Ищу текстовый адальт контент.

..читабельный, мож кто подскажет где можно купить?
pingo вне форума  
Старый 10.04.2007, 14:05   #2
arachno
Senior Member
 
Аватар для arachno
 
Регистрация: 03.04.2007
Адрес: @SPB - @MSK - @nowhere
Сообщений: 1,034
Бабло: $35650
Отправить сообщение для arachno с помощью Skype™
По умолчанию

чем тебе не нравится взять с литеротики?
arachno вне форума  
Старый 10.04.2007, 14:57   #3
pingo
Senior Member
 
Аватар для pingo
 
Регистрация: 09.04.2007
Сообщений: 4,421
Бабло: $603509
ТС -->
автор темы ТС По умолчанию

Цитата:
Сообщение от arachno Посмотреть сообщение
чем тебе не нравится взять с литеротики?
о! thx.. век живи, век учись..
продолжение писать не надо, знаю..
pingo вне форума  
Старый 10.04.2007, 20:52   #4
arachno
Senior Member
 
Аватар для arachno
 
Регистрация: 03.04.2007
Адрес: @SPB - @MSK - @nowhere
Сообщений: 1,034
Бабло: $35650
Отправить сообщение для arachno с помощью Skype™
По умолчанию

Цитата:
Сообщение от pingo Посмотреть сообщение
о! thx.. век живи, век учись..
продолжение писать не надо, знаю..
ближе к ночи если сервак поднимется - парсер запощу
он элементарный на самом деле
arachno вне форума  
Старый 10.04.2007, 21:43   #5
pingo
Senior Member
 
Аватар для pingo
 
Регистрация: 09.04.2007
Сообщений: 4,421
Бабло: $603509
ТС -->
автор темы ТС По умолчанию

а какие правила пользовани контентом от literotica? хотелось бы тонкости уяснить.
pingo вне форума  
Старый 11.04.2007, 16:37   #6
arachno
Senior Member
 
Аватар для arachno
 
Регистрация: 03.04.2007
Адрес: @SPB - @MSK - @nowhere
Сообщений: 1,034
Бабло: $35650
Отправить сообщение для arachno с помощью Skype™
По умолчанию

похрену на правила на самом деле маленькую ссылку внизу вставь - ИМХО все ОК будет

вот парсер кстати который сразу будет в wordpress вставлять

Код:
<link rel="stylesheet" href="/wp-admin/wp-admin.css" type="text/css" />
<body bgcolor="#ffffff">
<form action="update-blog.php" method=POST>
<input type="hidden" name="OP" value="P">
	<table align=center width=80%>
<?
require( dirname(__FILE__) . '/wp-config.php' );

if ($_POST["OP"] == "P")
{
	// posting

	// desc and url for FHG
	$descurl = $_POST["descurl"];
	list ($url, $desc) = split("#", $descurl);
	$cutdsc = strtolower($desc);
	$cutdsc = preg_replace("/\(/", "", $cutdsc);
	$cutdsc = preg_replace("/\)/", "", $cutdsc);
	$cutdsc = preg_replace("/ /", "-", $cutdsc);
	$cutdsc = preg_replace("/\"/", "", $cutdsc);
	$cutdsc = preg_replace("/\./", "", $cutdsc);
	$cutdsc = preg_replace("/:/", "", $cutdsc);

	if (!file_exists("./images/".date('Y-m-d')))
		mkdir ("./images/".date('Y-m-d'));
	if (!file_exists("./images/".date('Y-m-d')."/".$cutdsc))
		mkdir ("./images/".date('Y-m-d')."/".$cutdsc);

	// fetch thumbnails and images
	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $url ); 
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	$res = curl_exec($ch);
	curl_close ($ch);
	
//	$res = preg_replace("/[\n\r\t]+/", "", $res);

	preg_match_all("/<a href=\"?(.*)(\.jpe?g)\"?><img.*src=\"?([\S\:\w]*)\"\s+.*><\/a>/i", $res, $imgtmb);
//	print_r($imgtmb);

	preg_match_all("/<base href=\"(.*)\">/i", $res, $bhref);
	if ($bhref[1][0] != "")
	{
		$basehref = $bhref[1][0];
	} else
	{
		$basehref = "";
	}

	$purl = $url;
	$purl = preg_replace("/http\:\/\//i", "", $purl);
//	print "--".$purl."<br>";
	$paths = split ("/", $purl);
	for ($i = 0; $i < count($paths) - 1; $i++)
	{
		$fpath = $fpath."/".$paths[$i];
	}
	$fpath = "http:/".$fpath;
//	print "--".$fpath."<br>";

	$thumbs = $imgtmb[3];
	shuffle ($thumbs);

	for ($i = 0; $i < 3; $i++)
	{
		$thumb = $thumbs[$i];
		if ($basehref != "")
		{
			$thumb = $basehref.$thumb;
		} else
		{
			if (substr($thumb, 0, 1) != "/")
			{
				$thumb = $fpath."/".$thumb;
			}
		}

		print $thumb."<br>";

		$ch = curl_init();
		curl_setopt($ch, CURLOPT_URL, $thumb ); 
		curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
		curl_setopt($ch, CURLOPT_REFERER, $url);
		$res = curl_exec($ch);
		curl_close ($ch);

		$fo = fopen ("./images/".date('Y-m-d')."/".$cutdsc."/tmb-".$i.".jpg", "wb");
		fwrite ($fo, $res);
		fclose ($fo);

//		copy($thumb, "./images/".date('Y-m-d')."/".$cutdsc."/tmb-".$i.".jpg");
	}

	$subject = $desc;
	$story = $_POST["story"];

	$story .= "<br/><br/><hr noshade size=1>\n";
	$story .= "<table width=80% border=0><tr>";
	for ($i = 0; $i < 3; $i++)
	{
		$story .= "<td><a href=\"".$url."\"><img src=\"/images/".date('Y-m-d')."/".$cutdsc."/tmb-".$i.".jpg\" border=\"0\"></a></td>";
	}
	$story .= "</table>";
	$story .= "<br/><br/><hr noshade size=1/>\n<center>Read full story: <a href=\"".$url."\" target=_blank>".$desc."</a></center>\n";

	// post_id5UPDATE wpxcb_posts SET guid = 'http://xxx-cartoon-blog.com/2006/03/31/test/' WHERE ID = '5'
	$query = "INSERT IGNORE INTO wpxcb_posts (post_author, post_date, post_date_gmt, post_content, 
			post_content_filtered, post_title, post_excerpt, post_status, comment_status, 
			ping_status, post_password, post_name, to_ping, pinged, post_modified, 
			post_modified_gmt, post_parent, menu_order, post_mime_type) VALUES 
		('1', '".date('Y-m-d g:i:s')."', '".date('Y-m-d g:i:s')."', '".$story."', '', '".$desc."', '', 
		'publish', 'closed', 'open', '', '".$cutdsc."', '', '', '".date('Y-m-d g:i:s')."', '".date('Y-m-d g:i:s')."', '0', '0', '')";

	$res = mysql_query($query);
	$postid = mysql_insert_id();

	$query = "UPDATE wpxcb_posts SET guid = 'http://xxx-cartoon-blog.com/".date('Y/m/d/').$cutdsc."/' WHERE ID = '".$postid."'";
	mysql_query($query);
	$post_categories = array();

	for ($i = 1; $i < 7; $i++)
	{
		if (rand(0, 100) > 50)
		{
			$post_categories[] = $i;
		}
	}

	foreach ($post_categories as $new_cat)
	{
		$query = "INSERT INTO wpxcb_post2cat (post_id, category_id) VALUES ($postid, $new_cat)";
		mysql_query ($query);
	}

	// Update category counts.
	$all_affected_cats = array_unique($post_categories);
	foreach ( $all_affected_cats as $cat_id ) {
		$query = "SELECT COUNT(*) FROM wpxcb_post2cat, wpxcb_posts WHERE wpxcb_posts.ID=wpxcb_post2cat.post_id AND post_status='publish' AND category_id = '$cat_id'";
		$res = mysql_query($query);

		$row = mysql_fetch_row($res);
		$count = $row[0];
		mysql_query ("UPDATE wpxcb_categories SET category_count = '$count' WHERE cat_ID = '$cat_id'");
	}

	$fl = fopen ("./fhgs.txt", "r");
	while (!feof($fl))
	{
		$str = trim(fgets($fl, 1024));
		if ($str != $descurl)
			$lns[] = $str;
	}
	fclose ($fl);

	$i = 0;

	$fl = fopen("./fhgs.txt", "w");
	foreach ($lns as $ln)
	{
		$str = $ln;
		if ($i < (count($lns)-1))
		{
			$str .= "\n";
		}
		fputs($fl, $str);

		$i++;
	}
	fclose ($fl);
	$fl = fopen ("./fhgs-publish.txt", "a");
	fputs ($fl, $descurl."\n");
	fclose ($fl);
}
?>
<tr>
<td colspan=2 align=center>
<select name="descurl">
<?
$fhf = fopen ("./fhgs.txt", "r");
while (!feof($fhf))
{
	$fstr = trim(fgets($fhf, 1024));

	list ($url, $desc) = split("#", $fstr);
?>
<option value="<?=$fstr?>"><?=$desc?>(<?=$url?>)</option>
<?
}
fclose ($fhf);
?>
</select>
</td>
</tr>
<?

$keys = array();

$fkeys = fopen("./keyword.txt", "r");
while(!feof($fkeys))
{
	$keys[] = trim(fgets($fkeys, 1024));
}
fclose ($fkeys);
$rkeyword = $keys[rand(0, count($keys)-1)];

$stlink = "http://english.literotica.com/stories/new_submissions.php";

$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $stlink ); 
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
$res = curl_exec($ch);

if (curl_errno($ch)) 
{
	print curl_error($ch);
	curl_close($ch);
} else
{
	curl_close($ch);
	preg_match_all("/<font face=\"Arial,Helvetica,Verdana\" size=\"3\"><b><a href=\"(.*)\"\>(.*)\n/i", $res, $pres);

	$ch = curl_init();
	curl_setopt($ch, CURLOPT_POST, 0);
	curl_setopt($ch, CURLOPT_URL,"https://adwords.google.com/select/KeywordSandbox?save=save&wizard_name=keywordsandbox_wizard&language=en&keywords=".urlencode($rkeyword));
	curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 2);
	curl_setopt($ch, CURLOPT_TIMEOUT, 15);
	curl_setopt($ch, CURLOPT_USERAGENT, $defined_vars['HTTP_USER_AGENT']);
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	$content = curl_exec ($ch);
	curl_close ($ch);

	preg_match_all ("/<li> ([^\<]+) <\/li>/i", $content, $conarr);
	if (count($conarr[1]) == 0)
	{
		$kis = array();
		$ki = fopen ("./keylink.txt", "r");
		while (!feof($ki))
		{
			$kis[] = trim(fgets($ki, 1024));
		}
		fclose ($ki);
	} else
	{
		$kis = $conarr[1];
	}

	$urls = $pres[1];
	$desc = $pres[2];

	$rurl = $urls[rand(0, count($urls)-1)];

	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $rurl ); 
	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	$res = curl_exec($ch);

	curl_close ($ch);

	$res = preg_replace("/[\n\t]+/", "", $res);
	preg_match_all("/<font size=\"2\"><br\/>(.*)<\/font><\/font>/im", $res, $stres);

	$story = $stres[1][0];
	$story = preg_replace("/<\/?I>/", "", $story);
	$story = preg_replace("/<>/", "", $story);
	$story = preg_replace("/^\t/", "", $story);
	$substory = substr($story, 0, rand(500, 2000));

	$spl_txt = preg_split("/ /", $substory);
	for ($i = 6; $i < rand (10, 14); $i++)
	{
		if (rand(0, 100) > 50)
		{
			$del = "b>";
		} else
		{
			$del = "u>";
		}
		$spl_txt[rand(0, count($spl_txt)-1)] = "<".$del.$kis[rand(0, count($kis)-1)]."</".$del;
	}
	$all_txt = join(" ", $spl_txt);
	$substory = $all_txt;
?>
		<tr>
			<td colspan=2 align=center>
<textarea cols=100 rows=10 name="story"><?=trim($substory)?></textarea>
			</td>
		</tr>
		<tr align=center>
			<td><input type="submit" value="Submit post"></td>
			<td><input type="button" value="Refresh" onclick="javascript:document.location=document.location;"></td>
		</tr>
	</table>
	</form>
<?
}
?>
arachno вне форума  
Старый 11.04.2007, 16:40   #7
arachno
Senior Member
 
Аватар для arachno
 
Регистрация: 03.04.2007
Адрес: @SPB - @MSK - @nowhere
Сообщений: 1,034
Бабло: $35650
Отправить сообщение для arachno с помощью Skype™
По умолчанию

скрипт старый - естественно адвордсы не работают
что должно быть в fhgs.txt - просто список урлов FHG
оттуда рандомом картинки будут выдираться

короче юзайте и переписывайте AS IS
arachno вне форума  
Старый 17.06.2007, 20:42   #8
salvador
Hi-End Domains
 
Аватар для salvador
 
Регистрация: 12.06.2007
Адрес: Tasman Sea
Сообщений: 286
Бабло: $31280
Smile

Цитата:
похрену на правила
Мне определенно нравится такой подход
__________________
Hi-End Domains - Домены для бизнеса. Халявный хуизпротект. | Hi-End Blog
salvador вне форума  
Старый 18.09.2007, 19:40   #9
WebNinja
grablab.org
 
Аватар для WebNinja
 
Регистрация: 18.09.2007
Адрес: Thailand
Сообщений: 4,921
Бабло: $322214
Отправить сообщение для WebNinja с помощью ICQ Отправить сообщение для WebNinja с помощью Skype™
По умолчанию

Очень полезно. =) Скрипт юзать не буду, дам задание программерам написать для своих нужд)
WebNinja вне форума