Серверы Counter-Strike: Форумы / SQL / Разные процедурки PL/SQL

Форумы

Серверы Counter-Strike :: Форумы :: Программирование :: SQL		<< Предыдущая тема \| Следующая тема >>
Разные процедурки PL/SQL


Модераторы: kapitowka, Agnet*, Acid Biscuit, CL0NE, ShaRhaN, McNamara, Coltovsky, HuKuToC, Jake_One, Chaos2Order

Автор

Добавил

detur

07.09.2010, 11:21

Даже мартышки играют в CS

A Hax MHe team?

ID пользователя #963

Зарегистрирован: 09.05.2009, 14:04

Сообщений: 1438
Отблагодарен: 67 раза в 58 сообщениях
Репутация: 52 Репутация темы: 0 из 0 голосов

Загрузка файлов с ftp.

PROCEDURE GET_ASCII_FTP(
              P_FILE_NAME IN VARCHAR2, -- Входящие параменры
 
              P_FTP_HOST  IN VARCHAR2,
              P_FTP_PORT  IN VARCHAR2,
              P_FTP_LOGIN IN VARCHAR2,
              P_FTP_PASS  IN VARCHAR2,
              P_FTP_DIR   IN VARCHAR2
)
IS
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(P_FTP_HOST, P_FTP_PORT, P_FTP_LOGIN, P_FTP_PASS);
  ftp.ASCII(p_conn => l_conn);
  ftp.GET(p_conn      => l_conn,
          p_from_file => P_FILE_NAME,
          p_to_dir    => 'AGENTBOINCOME', -- Пседоним директории
          p_to_file   => SUBSTR(P_FILE_NAME,LENGTH(P_FTP_DIR)+1,LENGTH(P_FILE_NAME))
          );
  ftp.logout(l_conn);
  EXCEPTION 
    WHEN OTHERS THEN 
    ftp.logout(l_conn);
    /* CODE EXEPTION*/
END GET_ASCII_FTP;

Выгрузка файлов на ftp.

PROCEDURE PUT_ASCII_FTP (P_FILE_NAME IN VARCHAR2)
IS
  l_conn  UTL_TCP.connection;
   
  vFTP_HOST     VARCHAR2(20);
  vFTP_PORT     VARCHAR2(5);
  vFTP_LOGIN    VARCHAR2 (20);
  vFTP_PASS     VARCHAR2 (20);
  vFTP_ErrPath  VARCHAR2 (150);
BEGIN
  -- Загрузка переменных
  vFTP_HOST :=GENERAL.GET_PARAM_FROM_VAR('ftp_host');
  VFTP_PORT :=GENERAL.GET_PARAM_FROM_VAR('ftp_port');
  VFTP_LOGIN:=GENERAL.GET_PARAM_FROM_VAR('ftp_login');
  VFTP_PASS :=GENERAL.GET_PARAM_FROM_VAR('ftp_pass');
  vFTP_ErrPath:=GENERAL.GET_PARAM_FROM_VAR('ftp_err_path');
  
  l_conn := ftp.login(vFTP_HOST,vFTP_PORT, vFTP_LOGIN, vFTP_PASS);
  ftp.ASCII(p_conn => l_conn);
  ftp.put(p_conn      => l_conn,
          p_from_dir => 'AGENTBOINCOME', -- Локальная директория
          p_from_file    => P_FILE_NAME,
          p_to_file   => vFTP_ErrPath||'Err_'||SUBSTR(P_FILE_NAME,2,(LENGTH(P_FILE_NAME)-1))
          );
  ftp.logout(l_conn);
  EXCEPTION 
    WHEN OTHERS THEN 
    ftp.logout(l_conn);
    -- CODE EXEPTION
    RAISE;
END PUT_ASCII_FTP;
 

Наверх

Сообщение отблагодарили: 1 раз(а)

kapitowka

08.09.2010, 10:36

FreeBSD The Power To Serve

STEAM_0:0:34602107

[RAT]

ID пользователя #1

Зарегистрирован: 01.01.1970, 02:00

Сообщений: 3236
Отблагодарен: 221 раза в 165 сообщениях
Репутация: 61

Кстати, это можно использовать для проверки существования папки. Пытаться залить туда чё нить и если вылетает экзепшн - значит папки нету. Через одно место конечно, но работать должно

[ Редактирование 08.09.2010, 10:37 ]

-------------------------------------------------------
Правила сервера

Банлист