Сервис по уменьшению размера ссылки

Fobos

21 ноя 2011 г., 20:29

человек уверяет что адаптировал его для джона, но глянув код там много не понятного, прошу вас гляньте можно ли вернуть его в рабочее состояние

Прикрепленные файлы:

377

(2.75 KB)

link_cut_john.zip

Koenig

21 ноя 2011 г., 20:43

(\/)____o_O____(\/)

Fobos, должен работать, вводишь ссылку в форму, она сохраняется с номером и ссылкой в фаил, потом просто по номеру переходит на ссылку указанную, можно было и в одном файле подобное написать

Fobos

21 ноя 2011 г., 22:55

Koenig, дело в том что сразу кидает на пустую страницу и некуда заполнять(

Koenig

21 ноя 2011 г., 23:46

(\/)____o_O____(\/)

Fobos, фаил do.php

<?php

define('_IN_JOHNCMS', 1);

$rootpath = '../../';
$textl = '4mas.Ru - Укоротитель ссылок';
require_once($rootpath . 'incfiles/core.php');
require_once ($rootpath . 'incfiles/head.php');

include 'function.php';
include 'conf.php';



if(isset($_POST['submit'])){
$buff=file_get_contents("data.dat");
$id = newid();
$url = htmlspecialchars($_POST['url']);
$fopen=fopen("data.dat","w");
fputs($fopen, $id.":|:".$url."\r\n"."$buff");
fclose($fopen);
echo'Ваша новая ссылка: http://&#039;.$domen.&#039;/'.$papka.$id.'<br />';
echo'Скопировать:<br />';
echo'<input type="text" value="http://'.$domen.'/'.$papka.$id.'" /><br />';
} else {
echo'<form method="post" action="./do.php">';
echo'Ваша ссылка:<br />';
echo'<input name="url" type="text" value="http://" /><br />';
echo'<input type="submit" name="submit" value="Укоротить" />
</form>';
echo'*Сервис предназначен для уменьшения ссылки<br/>Например:<br/>http://site.com/link/go/index.php?go=12324 на http://&#039;.$_SERVER['HTTP_HOST'].'/435<br/>';
}

require_once ($rootpath . 'incfiles/end.php');
?>

Dagestan_ец

22 ноя 2011 г., 0:33

Нормально делай - Нормально будет

хорошая вешь на сайт

Fobos

22 ноя 2011 г., 1:06

Koenig, никак, завтра попробую перебрать

~XeOn~

22 ноя 2011 г., 1:40

Koenig, на будущее, пробелы добавляй и выравнивание. фиг прочитаешь.

Koenig

22 ноя 2011 г., 7:49

(\/)____o_O____(\/)

~XeOn~, Мне так удобнее, не виду прикола через конкатенацию развивать на строки, с тела эти лишние пробелы вымораживают, а если ты с компа, то самому разбить на строки думаю не проблема. Офтоп

Fobos

1 дек 2011 г., 17:51

Вобщем вот что получилось index.php

<?php
define('_IN_JOHNCMS', 1);
require_once('../incfiles/core.php');
require_once ("../incfiles/head.php");
include'function.php';
include'conf.php';



if(!isset($_POST['url'])){
echo'<form method="post" action="./do.php">';
echo'Ваша ссылка:<br />';
echo'<input name="url" type="text" value="http://" /><br />';
echo'<input type="submit" value="Укоротить" />
</form>';
echo'*Сервис предназначен для уменьшения ссылки<br/>Например:<br/>http://site.com/link/go/index.php?go=12324 на http://&#039;.$_SERVER['HTTP_HOST'].'/435<br/>';
}
require_once ("../incfiles/end.php");
?>

do.php

<?php

define('_IN_JOHNCMS', 1);

$textl = 'Укоротитель ссылок';
require_once ("../incfiles/core.php");
require_once ("../incfiles/head.php");
include'function.php';
include'conf.php';

if(!isset($_POST['kol'])){
$buff=file_get_contents("data.dat");
$id = newid();
$url = htmlspecialchars($_POST['url']);
$fopen=fopen("data.dat","w");
fputs($fopen, $id.":|:".$url."\r\n"."$buff");
fclose($fopen);

echo'Ваша новая ссылка: http://&#039;.$domen.&#039;/'.$papka.$id.'<br />';
echo'Скопировать:<br />';
echo'<input type="text" value="http://'.$domen.'/'.$papka.$id.'" /><br />';

}


require_once ("../incfiles/end.php");
?>

function.php

<?php

function number($str) { 
$str = abs(intval($str));  
return $str;
}

function filter($str) { 
$str = htmlspecialchars($str);  
return $str;
}

function newid() {
$file=file('data.dat');
if (!empty($file[0])) {
$ex=explode(':|:',$file[0]);
return intval($ex[0])+1;
} else {
return '1'; }

}
?>

func.php

<?
$domen = '5element.tk';
$papka = 'lc/';
?>

теперь все отображается но оно по прежнему не пашет.
файл data.dat сохраняет введеный адрес:
1:|:http:// johncms.com/forum/index.php?type=topic&id=2493

адрес получается такой: http://5element.tk/lc/1
но не рабочий(

TAYSON

27 фев 2012 г., 9:35

http://4mas.ru/link/data.dat
Некоторые черти даж автологины придумывают туда забивать :-D