передать параметры в php скрипт

[gcc]

Код: Выделить всё

$url = "http://bla-bla.com/index.php?action=gallery&sa=add2";

# создадим нового Агента пользователя
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(POST=>$url);
# указываем тип контекста
$req->content_type('application/x-www-form-urlencoded');
# вводим сам контекст для передачи
$req->content("title=hjgj;cat=1;file=test.jpg");

my $res = $ua->request($req);

# получаем ответ от выводим его
print "Content-type: text/html\n\n";
print $res->content;

как написать в код, что я хочу первую категорию (или любую), не могу вдуплить как??

Код: Выделить всё

cat=1

в движке не могу понять как тут делаеться...

Код: Выделить всё

cat=[1]

Код: Выделить всё

      <td align="right"><b>Category:</b>&nbsp;</td>
      <td><select name="cat"><option value="1"  selected="selected">image</option><option value="2" >mig</option><option value="3" >Фотки</option></select>

Код: Выделить всё

function AddPicture2()
{
    global $ID_MEMBER, $txt, $db_prefix, $scripturl,$modSettings, $boarddir,$sourcedir,$gd2;

    isAllowedTo('smfgallery_add');


    if(empty($modSettings['gallery_path']))
    {
        $modSettings['gallery_path'] = $boarddir . '/gallery/';
    }
    //Check if gallery path is writable
    if (!is_writable($modSettings['gallery_path']))
        fatal_error($txt['gallery_write_error'] . $modSettings['gallery_path']);


    $title = htmlspecialchars($_REQUEST['title'],ENT_QUOTES);
    $description = htmlspecialchars($_REQUEST['description'],ENT_QUOTES);
    $keywords = htmlspecialchars($_REQUEST['keywords'],ENT_QUOTES);
    $cat = (int) $_REQUEST['cat'];
    @$allowcomments = $_REQUEST['allowcomments'];

    //Check if pictures are auto approved
    $approved = (allowedTo('smfgallery_autoapprove') ? 1 : 0);

    //Allow comments on picture if no setting set.
    if(empty($modSettings['gallery_commentchoice']) || $modSettings['gallery_commentchoice'] == 0)
        $allowcomments = 1;
    else
    {
        if(empty($allowcomments))
            $allowcomments = 0;
        else
            $allowcomments = 1;
    }

как это понимать?

Код: Выделить всё

    $cat = (int) $_REQUEST['cat'];

на выходе

Код: Выделить всё

   <table border="0" width="80%" cellspacing="0" align="center" cellpadding="4" class="tborder">
                <tr class="titlebg">
                        <td>An Error Has Occurred!</td>
                </tr>
                <tr class="windowbg">
                        <td style="padding: 3ex;">
                                You need to select a category.
                        </td>
                </tr>
        </table>

скажите, пожалуйста как указать ту категорию с html тэгов? и загрузить файл...

я хочу загрузить файлы с каталога (масива) в CMS фотогалерею.... (много)

[Voice]

Что-то Вы напутали. Первый блок кода совсем не PHP

[gcc]

в пхп!

делю на перле

исправил не много...

сейчас говорит:

Код: Выделить всё

No uploaded picture found.

теперь догадываюсь, что он не хочет передавать из формы файл??? или нет?

вопрос:
как вот это

Код: Выделить всё

$req->content_type('application/x-www-form-urlencoded');

правильно написать? в этом слуйчае..

в html нашел вот

Код: Выделить всё

                        </tr></table><div style="background-color: #000000;"><div class="tborder"><form method="POST" enctype="multipart/form-data" name="picform" id="picform" action="http://блф-блф.ком/index.php?action=gallery&sa=add2">

пробовал вот так

Код: Выделить всё

$req->content_type('application/multipart/form-data');

не хочет, пишет что титолка не правильная теперь....

Код: Выделить всё

$url = "http://bla-bla.com/index.php?action=gallery&sa=add2";

# создадим нового Агента пользователя
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(POST=>$url);
# указываем тип контекста
$req->content_type('application/x-www-form-urlencoded');
# вводим сам контекст для передачи
$req->content("title=hjgj;cat=1;picture=test.jpg");

my $res = $ua->request($req);

# получаем ответ от выводим его
print "Content-type: text/html\n\n";
print $res->content;

[Voice]

Значит объясняйте попонятней, а то так Вам никто не поможет. В чем вообще проблема?

[gcc]

заработало
теперь надо файлы из каталога передать...

Код: Выделить всё

#!/usr/bin/perl -w
$test = "http://bla-bla/index.php?action=gallery&sa=add2";
$file = "test.jpg";
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use CGI qw(header -no_debug);

my $req = POST $test,
Content_Type => 'form-data',
Content      => [
        title => 'vasya',
    cat => '1',
       picture => [$file],
                ];
my $res = LWP::UserAgent->new->request($req);
print header, $res->is_success ? $res->content : $res->status_line;
print $req->as_string;

Значит объясняйте попонятней, а то так Вам никто не поможет. В чем вообще проблема?

я забыл написал всё, ну файл отправить надо было вместе с формой
(открыть доступ для гостей (в найтроках + куки), а то если нет, то усложнится не много)

надо отправить запрос в пхп движок, в форме есть титолка, каталог выбрать и файл

я вот написал и отправил запутался не много

у меня 5000 фотографий я же все по одной не буду закачивать

[gcc]

ok

Код: Выделить всё

$test = "http://bla-bla.ua/index.php?action=gallery&sa=add2";


opendir(TEMPDIR, '/usr/home/...../1g') ||
     die "bla-bla /tmp: $!";
@files=readdir TEMPDIR;
closedir(TEMPDIR);


for ($index=0; $index<@files; $index++)
{

$file = "/usr/home/....../1g/$files[$index]";

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use CGI qw(header -no_debug);

my $req = POST $test,
Content_Type => 'form-data',
Content      => [
        title => 'vasya',
    cat => '1',
       picture => [$file],
                ];
my $res = LWP::UserAgent->new->request($req);
print header, $res->is_success ? $res->content : $res->status_line;
print $req->as_string;

}