script URL Shorten link v 1.2

Σε αυτή την περιοχή μπορείτε να βρείτε ή να αναζητήσετε πληροφορίες σχετικές με την PHP

Συντονιστές: WebDev Moderators, Super-Moderators, PHP Moderators

Απάντηση
attirancegr
Δημοσιεύσεις: 18
Εγγραφή: 11 Νοέμ 2010 11:22
Τοποθεσία: Greece
Επικοινωνία:

script URL Shorten link v 1.2

Δημοσίευση από attirancegr » 11 Νοέμ 2010 23:24

selida pou metatrepi ta megala link se mikra

script URL Shorten link v1.2

www.href.name

by Nemesis

Κώδικας: Επιλογή όλων

<?php
ob_start&#40;&#41;;
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http&#58;//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http&#58;//www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Short URL script</title>
<style type="text/css">
<!--
	body &#123;
		font-family&#58;Geneva, Arial, Helvetica, sans-serif;
		font-size&#58;0.9em;
	&#125;
	a, a&#58;hover, a&#58;visited &#123;
		color&#58;#d20000;
	&#125;
	form &#123;
		padding&#58;15px;
		margin&#58;0;
		border&#58;1px solid #dddddd;
		width&#58;50%;
	&#125;
	form label &#123;
		font-weight&#58;bold;
		padding-right&#58;10px;
	&#125;
	form input &#123;
		border&#58;1px solid #dddddd;
		border-right&#58;2px solid #cccccc;
		border-bottom&#58;2px solid #cccccc;
		padding&#58;4px;
	&#125;
	form input.button &#123;
		background-color&#58;#D20000;
		font-weight&#58;bold;
		font-size&#58;0.8em;
		color&#58;#ffffff;
		border&#58;1px solid #FF0505;
		border-right-color&#58;#9E0000;
		border-bottom-color&#58;#9E0000;
		font-family&#58;Verdana, Arial, Helvetica, sans-serif;
	&#125;
//-->
</style>
</head>
<body>

<?php
/*
*
*	script by HREF.name Webmaster - www.href.name
*	version 1.2
*	copyright &#40;c&#41; 2010 href.name Web Group
*	license http&#58;//creativecommons.org/licenses/by/3.0/ Creative Commons Attribution 3.0
*	support&#58; http&#58;//www.href.name
*
*/

/*
location of file to store URLS
*/
$file = 'urls.txt';

/* 
use mod_rewrite&#58; 0 - no or 1 - yes
*/
$use_rewrite = 1;

/*
language/style/output variables
*/

$l_url			= 'URL';
$l_nourl		= '<strong>No URL supplied</strong>';
$l_yoururl		= '<strong>Your short url&#58;</strong>';
$l_invalidurl	= '<strong>Invalid URL supplied.</strong>';
$l_createurl	= 'Make shorter!';

//////////////////// NO NEED TO EDIT BELOW ////////////////////

if&#40;!is_writable&#40;$file&#41; || !is_readable&#40;$file&#41;&#41;
&#123;
	die&#40;'Cannot write or read from file. Please CHMOD the url file &#40;urls.txt&#41; by default to 777 and make sure it is uploaded.'&#41;;
&#125;

$action = trim&#40;$_GET&#91;'id'&#93;&#41;;
$action = &#40;empty&#40;$action&#41; || $action == ''&#41; ? 'create' &#58; 'redirect';

$valid = "^&#40;https?|ftp&#41;\&#58;\/\/&#40;&#91;a-z0-9+!*&#40;&#41;,;?&=\$_.-&#93;+&#40;\&#58;&#91;a-z0-9+!*&#40;&#41;,;?&=\$_.-&#93;+&#41;?@&#41;?&#91;a-z0-9+\$_-&#93;+&#40;\.&#91;a-z0-9+\$_-&#93;+&#41;*&#40;\&#58;&#91;0-9&#93;&#123;2,5&#125;&#41;?&#40;\/&#40;&#91;a-z0-9+\$_-&#93;\.?&#41;+&#41;*\/?&#40;\?&#91;a-z+&\$_.-&#93;&#91;a-z0-9;&#58;@/&%=+\$_.-&#93;*&#41;?&#40;#&#91;a-z_.-&#93;&#91;a-z0-9+\$_.-&#93;*&#41;?\$";

$output = '';

if&#40;$action == 'create'&#41;
&#123;
	if&#40;isset&#40;$_POST&#91;'create'&#93;&#41;&#41;
	&#123;
		$url = trim&#40;$_POST&#91;'url'&#93;&#41;;
		
		if&#40;$url == ''&#41;
		&#123;
			$output = $l_nourl;
		&#125;
		else
		&#123;
			if&#40;eregi&#40;$valid, $url&#41;&#41;
			&#123;
				$fp = fopen&#40;$file, 'a'&#41;;
				fwrite&#40;$fp, "&#123;$url&#125;\r\n"&#41;;
				fclose&#40;$fp&#41;;
				
				$id			= count&#40;file&#40;$file&#41;&#41;;
				$dir		= dirname&#40;$_SERVER&#91;'PHP_SELF'&#93;&#41;;
				$filename	= explode&#40;'/', $_SERVER&#91;'PHP_SELF'&#93;&#41;;
				$filename   = $filename&#91;&#40;count&#40;$filename&#41; - 1&#41;&#93;;
				
				$shorturl = &#40;$use_rewrite == 1&#41; ? "http&#58;//&#123;$_SERVER&#91;'HTTP_HOST'&#93;&#125;&#123;$dir&#125;/&#123;$id&#125;" &#58; "http&#58;//&#123;$_SERVER&#91;'HTTP_HOST'&#93;&#125;&#123;$dir&#125;/&#123;$filename&#125;?id=&#123;$id&#125;";
				
				$output = "&#123;$l_yoururl&#125; <a href='&#123;$shorturl&#125;'>&#123;$shorturl&#125;</a>";
			&#125;
			else
			&#123;
				$output = $l_invalidurl;
			&#125;
		&#125;
	&#125;
&#125;

if&#40;$action == 'redirect'&#41;
&#123;
	$urls = file&#40;$file&#41;;
	$id   = trim&#40;$_GET&#91;'id'&#93;&#41; - 1;
	if&#40;isset&#40;$urls&#91;$id&#93;&#41;&#41;
	&#123;
		header&#40;"Location&#58; &#123;$urls&#91;$id&#93;&#125;"&#41;;
		exit;
	&#125;
	else
	&#123;
		die&#40;'Script error'&#41;;
	&#125;
&#125;

//////////////////// FEEL FREE TO EDIT BELOW ////////////////////
?>


<!-- start html output -->
<form action="<?=$_SERVER&#91;'PHP_SELF'&#93;?>" method="post">
<p class="response"><?=$output?></p>
<p>
	<label for="s-url">URL&#58;</label>
	<input id="s-url" type="text" name="url" />
</p>
<p>
	<input type="submit" class="button" name="create" value="<?=$l_createurl?>" />
</p>
</form>
<p>Short URL script &#40;1.2&#41; by <a href="http&#58;//www.href.name">Nemesis Webmaster</a></p>
<!-- end html output -->

</body>
</html>
<?php
ob_end_flush&#40;&#41;;
?>
Συνημμένα
shortlink-1.2.rar
(1.92 KiB) Μεταφορτώθηκε 146 φορές
Attirance 100% Natural Handmade Cosmetics http://www.attirance.gr

Άβαταρ μέλους
fiskilis
Honorary Member
Δημοσιεύσεις: 14093
Εγγραφή: 16 Νοέμ 2003 22:44
Τοποθεσία: Athens
Επικοινωνία:

script URL Shorten link v 1.2

Δημοσίευση από fiskilis » 12 Νοέμ 2010 10:08

πολυ ωραιο! το δοκιμαζω εδω http://bno.gr/z και θα καταληξει σε λιγες ωρες
σε ενα πολυ ωραιο 3γραμματο domain που αγορασα! http://oio.gr

attirancegr
Δημοσιεύσεις: 18
Εγγραφή: 11 Νοέμ 2010 11:22
Τοποθεσία: Greece
Επικοινωνία:

script URL Shorten link v 1.2

Δημοσίευση από attirancegr » 12 Νοέμ 2010 11:55

xexasa na sas anafero gia to urls.txt

to urls.txt valteto se katastasi CHMOD 777
Attirance 100% Natural Handmade Cosmetics http://www.attirance.gr


Απάντηση

Επιστροφή στο “PHP Προγραμματισμός”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης