Init
commit
e486888b45
|
|
@ -0,0 +1,165 @@
|
||||||
|
<? include "include/head.php"; ?>
|
||||||
|
<? include "include/top.php"; ?>
|
||||||
|
<section class="page-header page-header-modern page-header-background page-header-background-md overlay overlay-color-dark overlay-show overlay-op-8" style="background-image: url(image/top.jpg);">
|
||||||
|
|
||||||
|
<div class="container">
|
||||||
|
|
||||||
|
<div class="row mt-5">
|
||||||
|
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
|
||||||
|
<h1><?=$lang['ABOUT_TEXT1']?></h1>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-12 align-self-center order-1">
|
||||||
|
|
||||||
|
<ul class="breadcrumb breadcrumb-light d-block text-center">
|
||||||
|
|
||||||
|
<li><a href="#">Home</a></li>
|
||||||
|
|
||||||
|
<li class="active">Introduction</li>
|
||||||
|
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
|
||||||
|
<div class="sub_bg py-0">
|
||||||
|
<section class="main_con">
|
||||||
|
<div class="container text-left appear-animation" data-appear-animation="fadeInRightShorter" data-appear-animation-delay="200">
|
||||||
|
|
||||||
|
<div class="row justify-content-center">
|
||||||
|
|
||||||
|
<div class="col-md-12 col-xl-12 ">
|
||||||
|
<h6>OUR STORY</h6>
|
||||||
|
<h2 class="text-color-light mb-4"><?=$lang['ABOUT_TEXT2']?>
|
||||||
|
</h2>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row about_box">
|
||||||
|
<!-- <div class="col-md-4 m-b-767-30"> -->
|
||||||
|
<!-- <h1 class="big-text blue_text">99</h1><span class="about1_span">수많은 경험에<br/>의해 축척된<br/>노하우</span> -->
|
||||||
|
<!-- </div> -->
|
||||||
|
|
||||||
|
<div class="col-md-12">
|
||||||
|
<p><?=$lang['ABOUT_TEXT3']?></p>
|
||||||
|
<h2 class="blue_text text-right"><?=$lang['ABOUT_TEXT4']?></h2>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
<section class="pt-0 main_con">
|
||||||
|
<div class="container text_bg text-left appear-animation" data-appear-animation="fadeInLeftShorter" data-appear-animation-delay="200">
|
||||||
|
<div class="row justify-content-center text-right">
|
||||||
|
|
||||||
|
<div class="col-md-12 col-xl-12 ">
|
||||||
|
<h6>OUR VISION</h6>
|
||||||
|
<h2 class="text-color-light mb-4"><?=$lang['ABOUT_TEXT5']?>
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
<section class="pt-0 main_con">
|
||||||
|
<div class="container text-left appear-animation" data-appear-animation="fadeInRightShorter" data-appear-animation-delay="400">
|
||||||
|
<div class="row justify-content-center">
|
||||||
|
|
||||||
|
<div class="col-md-12 col-xl-12 ">
|
||||||
|
<h6>OUR MISSION</h6>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row mission-img">
|
||||||
|
<div class="col-lg-3 col-md-6 col-sm-6">
|
||||||
|
<img src="image/mission1.jpg" alt="소개이미지" />
|
||||||
|
<p class="<?=$lang['ABOUT_EN']?>"><?=$lang['ABOUT_TEXT6']?></p>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-3 col-md-6 col-sm-6">
|
||||||
|
<img src="image/mission2.jpg" alt="소개이미지" />
|
||||||
|
<p class="<?=$lang['ABOUT_EN']?>"><?=$lang['ABOUT_TEXT7']?></p>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-3 col-md-6 col-sm-6">
|
||||||
|
<img src="image/mission3.jpg" alt="소개이미지" />
|
||||||
|
<p class="<?=$lang['ABOUT_EN']?>"><?=$lang['ABOUT_TEXT8']?></p>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-3 col-md-6 col-sm-6">
|
||||||
|
<img src="image/mission4.jpg" alt="소개이미지" />
|
||||||
|
<p class="<?=$lang['ABOUT_EN']?>"><?=$lang['ABOUT_TEXT9']?></p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
<section class="pt-0 main_con">
|
||||||
|
<div class="container text-left appear-animation" data-appear-animation="fadeInLeftShorter" data-appear-animation-delay="200">
|
||||||
|
|
||||||
|
<div class="row justify-content-center text-right">
|
||||||
|
|
||||||
|
<div class="col-md-12 col-xl-12 ">
|
||||||
|
<h6>COMPANY OVERVIEW</h6>
|
||||||
|
<!-- <h2 class="text-color-light mb-4">디비엔텍이 추구하는 기술엔<span class="blue_text">미래를 향한 꿈이 담겨 있습니다.</span> -->
|
||||||
|
<!-- </h2> -->
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row about_box_1">
|
||||||
|
<div class="col-lg-3 col-md-6">
|
||||||
|
<h2><i class="fas fa-building mr-2"></i><?=$lang['ABOUT_TEXT10']?></h2>
|
||||||
|
<p><?=$lang['ABOUT_TEXT11']?></p>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-3 col-md-6">
|
||||||
|
<h2><i class="fas fa-award mr-2"></i><?=$lang['ABOUT_TEXT12']?></h2>
|
||||||
|
<p>2018. 01. 05</p>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-3 col-md-6">
|
||||||
|
<h2><i class="fas fa-user-tie mr-2"></i><?=$lang['ABOUT_TEXT13']?></h2>
|
||||||
|
<p><?=$lang['ABOUT_TEXT14']?></p>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-3 col-md-6">
|
||||||
|
<h2><i class="fas fa-map-marker-alt mr-2"></i></i><?=$lang['ABOUT_TEXT15']?></h2>
|
||||||
|
<p><?=$lang['ABOUT_TEXT16']?></p>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6">
|
||||||
|
<h2><i class="fas fa-briefcase mr-2"></i><?=$lang['ABOUT_TEXT17']?></h2>
|
||||||
|
<p><span>·</span> <?=$lang['ABOUT_TEXT31']?></p>
|
||||||
|
<p><span>·</span> <?=$lang['ABOUT_TEXT32']?></p>
|
||||||
|
<p><span>·</span> <?=$lang['ABOUT_TEXT33']?></p>
|
||||||
|
<p><span>·</span> <?=$lang['ABOUT_TEXT34']?></p>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6">
|
||||||
|
<h2><i class="fab fa-medapps mr-2"></i><?=$lang['ABOUT_TEXT22']?></h2>
|
||||||
|
<p><span>·</span> VisionON T (Tunnel Accident Detection system)</p>
|
||||||
|
<p><span>·</span> VisionON S (Smart CCTV Incident Detection system)</p>
|
||||||
|
<p><span>·</span> VisionON C (Construction Incident Detection system)</p>
|
||||||
|
<p><span>·</span> VisionON TAL (Transform your image to private & AI friendly)</p>
|
||||||
|
<p><span>·</span> <?=$lang['ABOUT_TEXT23']?></p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<? include "include/footer.php"; ?>
|
||||||
|
|
@ -0,0 +1,101 @@
|
||||||
|
<? include "include/head.php"; ?>
|
||||||
|
<? include "include/top.php"; ?>
|
||||||
|
<section class="page-header page-header-modern page-header-background page-header-background-md overlay overlay-color-dark overlay-show overlay-op-8" style="background-image: url(image/top.jpg);">
|
||||||
|
|
||||||
|
<div class="container">
|
||||||
|
|
||||||
|
<div class="row mt-5">
|
||||||
|
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
|
||||||
|
<h1><?=$lang['ABOUT_TEXT24']?></h1>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-12 align-self-center order-1">
|
||||||
|
|
||||||
|
<ul class="breadcrumb breadcrumb-light d-block text-center">
|
||||||
|
|
||||||
|
<li><a href="#">Home</a></li>
|
||||||
|
|
||||||
|
<li class="active">History</li>
|
||||||
|
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
|
||||||
|
<div class="sub_bg py-0">
|
||||||
|
<section class="main_con">
|
||||||
|
<div class="order-1 right_bg appear-animation" data-appear-animation="fadeInLeftShorter" data-appear-animation-delay="200">
|
||||||
|
<div class="right_img2">
|
||||||
|
<img src="image/right2_bg.png" class="img-fluid">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="container">
|
||||||
|
|
||||||
|
<div class="row justify-content-between align-items-center">
|
||||||
|
|
||||||
|
<div class="col-md-12 order-2 order-md-1 appear-animation" data-appear-animation="fadeInRightShorter" data-appear-animation-delay="200">
|
||||||
|
<h6>OUR HISTORY</h6>
|
||||||
|
<h2 class="text-color-light mb-4"><?=$lang['ABOUT_TEXT25']?>
|
||||||
|
</h2>
|
||||||
|
<div class="history_box">
|
||||||
|
<?
|
||||||
|
$argu["h_gubun"] = $language;
|
||||||
|
$argu["division"] = "";
|
||||||
|
$_y_list = $Obj_history -> get_main_year1($argu);
|
||||||
|
if(count($_y_list) > 0){
|
||||||
|
for($y=0;$y<count($_y_list);$y++){
|
||||||
|
$_d_list = $Obj_history -> get_histroy_detail($_y_list[$y]["h_no"]);
|
||||||
|
?>
|
||||||
|
<div class="history_text appear-animation" data-appear-animation="fadeInRightShorter" data-appear-animation-delay="200">
|
||||||
|
<h1 class="blue_text"><?=$_y_list[$y]["h_year"]?></h1>
|
||||||
|
<?
|
||||||
|
if(count($_d_list) > 0){
|
||||||
|
for($d=0;$d<count($_d_list);$d++){
|
||||||
|
?>
|
||||||
|
<p>
|
||||||
|
<?=$_d_list[$d]["h_content"]?>
|
||||||
|
</p>
|
||||||
|
<?
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
</div>
|
||||||
|
<?
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
?>
|
||||||
|
<div class="about3_box">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12">
|
||||||
|
<h2><?=$lang["board-nodata"]?></h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<?
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</section>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<? include "include/footer.php"; ?>
|
||||||
|
|
@ -0,0 +1,144 @@
|
||||||
|
<? include "include/head.php"; ?>
|
||||||
|
<? include "include/top.php"; ?>
|
||||||
|
<?
|
||||||
|
$argu["b_class"] = ($language == "en") ? 2 : 1;
|
||||||
|
$_info = $Obj_board->get_boardconf_view($argu['b_class']);
|
||||||
|
$_list = $Obj_board->get_board_list($argu,$total,false);
|
||||||
|
?>
|
||||||
|
<section class="page-header page-header-modern page-header-background page-header-background-md overlay overlay-color-dark overlay-show overlay-op-8" style="background-image: url(image/top.jpg);">
|
||||||
|
|
||||||
|
<div class="container">
|
||||||
|
|
||||||
|
<div class="row mt-5">
|
||||||
|
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
|
||||||
|
<h1><?=$lang['ABOUT_TEXT26']?></h1>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-12 align-self-center order-1">
|
||||||
|
|
||||||
|
<ul class="breadcrumb breadcrumb-light d-block text-center">
|
||||||
|
|
||||||
|
<li><a href="#">Home</a></li>
|
||||||
|
|
||||||
|
<li class="active">Certification</li>
|
||||||
|
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
|
||||||
|
<div class="sub_bg py-0">
|
||||||
|
<section class="main_con">
|
||||||
|
<div class="order-1 right_bg appear-animation" data-appear-animation="fadeInLeftShorter" data-appear-animation-delay="200">
|
||||||
|
<div class="right_img3">
|
||||||
|
<img src="image/right1_bg.png" class="img-fluid">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="container">
|
||||||
|
|
||||||
|
<div class="row justify-content-between align-items-center">
|
||||||
|
|
||||||
|
<div class="col-md-12 order-2 order-md-1 appear-animation" data-appear-animation="fadeInRightShorter" data-appear-animation-delay="200">
|
||||||
|
<h6>CERTIFICATION</h6>
|
||||||
|
<h2 class="text-color-light mb-4"><?=$lang['ABOUT_TEXT27']?>
|
||||||
|
</h2>
|
||||||
|
<?
|
||||||
|
if(count($_list) > 0){
|
||||||
|
for($i=0;$i<count($_list);$i++){
|
||||||
|
$_b_title = str_replace("<","<",$_list[$i]['b_title']);
|
||||||
|
$_b_title = str_replace(">",">",$_b_title);
|
||||||
|
|
||||||
|
// 첨부 이미지 or 본문 이미지 찾기
|
||||||
|
if($_list[$i]["b_thumb"]){
|
||||||
|
$ext = array_pop(explode(".",$_list[$i]['b_thumb']));
|
||||||
|
|
||||||
|
if ( $ext=="gif"||$ext=="jpg"||$ext=="jpeg"||$ext=="png"||$ext=="bmp"||$ext=="tif"||$ext=="tiff"){
|
||||||
|
$thumbImage = "/pds/".$Obj_board->_PDS_SUB.$_list[$i][b_class]."/thumb/".$_list[$i]['b_thumb'];
|
||||||
|
}else{
|
||||||
|
preg_match("/<img[^>]*src=[\"']?([^>\"']+)[\"']?[^>]*>/i",txtParse($_list[$i]['b_content'],2),$imgSRC);
|
||||||
|
$thumbImage=$imgSRC[1];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
preg_match("/<img[^>]*src=[\"']?([^>\"']+)[\"']?[^>]*>/i",txtParse($_list[$i]['b_content'],2),$imgSRC);
|
||||||
|
$thumbImage=$imgSRC[1];
|
||||||
|
}
|
||||||
|
|
||||||
|
if(strlen($thumbImage)<3){
|
||||||
|
$thumbImage="";
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// 첨부 이미지 or 본문 이미지 찾기
|
||||||
|
if($_list[$i]["b_thumb_list"]){
|
||||||
|
$ext = array_pop(explode(".",$_list[$i]['b_thumb_list']));
|
||||||
|
|
||||||
|
if ( $ext=="gif"||$ext=="jpg"||$ext=="jpeg"||$ext=="png"||$ext=="bmp"||$ext=="tif"||$ext=="tiff"){
|
||||||
|
$thumbImageList = "/pds/".$Obj_board->_PDS_SUB.$_list[$i][b_class]."/thumb_list/".$_list[$i]['b_thumb_list'];
|
||||||
|
}else{
|
||||||
|
preg_match("/<img[^>]*src=[\"']?([^>\"']+)[\"']?[^>]*>/i",txtParse($_list[$i]['b_content'],2),$imgSRC);
|
||||||
|
$thumbImageList=$imgSRC[1];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
preg_match("/<img[^>]*src=[\"']?([^>\"']+)[\"']?[^>]*>/i",txtParse($_list[$i]['b_content'],2),$imgSRC);
|
||||||
|
$thumbImageList=$imgSRC[1];
|
||||||
|
}
|
||||||
|
|
||||||
|
if(strlen($thumbImageList)<3){
|
||||||
|
$thumbImageList="";
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
<div class="about3_box">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-2">
|
||||||
|
<img src="<?=$thumbImageList?>" alt="<?=$_b_title?>" />
|
||||||
|
</div>
|
||||||
|
<div class="col-md-10">
|
||||||
|
<h2><?=$_b_title?></h2>
|
||||||
|
<?if($_list[$i]["b_etc1"] != ""){?>
|
||||||
|
<p><?=$lang['ABOUT_TEXT28']?></p>
|
||||||
|
<p class="blue_text"><?=$_list[$i]["b_etc1"]?></p>
|
||||||
|
<?}?>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<?
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
?>
|
||||||
|
<div class="about3_box">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12">
|
||||||
|
<h2><?=$lang["board-nodata"]?></h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<?
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</section>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<? include "include/footer.php"; ?>
|
||||||
|
|
@ -0,0 +1,45 @@
|
||||||
|
<div class="col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="demo-architecture-interior-projects-detail.html" class="text-decoration-none">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-no-borders-rounded thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-dark-linear custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/architecture-interior/projects/project-4.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title text-left">
|
||||||
|
<span class="thumb-info-inner font-weight-bold line-height-1 text-4 mb-3">Project Name</span>
|
||||||
|
<span class="thumb-info-type text-transform-none font-weight-light text-1 line-height-7 pr-xl-5 mr-5">Lorem ipsum dolor sit amet, consectetur adipiscing eli blandit massa im. </span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="demo-architecture-interior-projects-detail.html" class="text-decoration-none">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-no-borders-rounded thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-dark-linear custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/architecture-interior/projects/project-5.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title text-left">
|
||||||
|
<span class="thumb-info-inner font-weight-bold line-height-1 text-4 mb-3">Project Name</span>
|
||||||
|
<span class="thumb-info-type text-transform-none font-weight-light text-1 line-height-7 pr-xl-5 mr-5">Lorem ipsum dolor sit amet, consectetur adipiscing eli blandit massa im. </span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="demo-architecture-interior-projects-detail.html" class="text-decoration-none">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-no-borders-rounded thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-dark-linear custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/architecture-interior/projects/project-6.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title text-left">
|
||||||
|
<span class="thumb-info-inner font-weight-bold line-height-1 text-4 mb-3">Project Name</span>
|
||||||
|
<span class="thumb-info-type text-transform-none font-weight-light text-1 line-height-7 pr-xl-5 mr-lg-5">Lorem ipsum dolor sit amet, consectetur adipiscing eli blandit massa im. </span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,45 @@
|
||||||
|
<div class="col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="demo-architecture-interior-projects-detail.html" class="text-decoration-none">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-no-borders-rounded thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-dark-linear custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/architecture-interior/projects/project-7.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title text-left">
|
||||||
|
<span class="thumb-info-inner font-weight-bold line-height-1 text-4 mb-3">Project Name</span>
|
||||||
|
<span class="thumb-info-type text-transform-none font-weight-light text-1 line-height-7 pr-xl-5 mr-5">Lorem ipsum dolor sit amet, consectetur adipiscing eli blandit massa im. </span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="demo-architecture-interior-projects-detail.html" class="text-decoration-none">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-no-borders-rounded thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-dark-linear custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/architecture-interior/projects/project-8.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title text-left">
|
||||||
|
<span class="thumb-info-inner font-weight-bold line-height-1 text-4 mb-3">Project Name</span>
|
||||||
|
<span class="thumb-info-type text-transform-none font-weight-light text-1 line-height-7 pr-xl-5 mr-5">Lorem ipsum dolor sit amet, consectetur adipiscing eli blandit massa im. </span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="demo-architecture-interior-projects-detail.html" class="text-decoration-none">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-no-borders-rounded thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-dark-linear custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/architecture-interior/projects/project-9.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title text-left">
|
||||||
|
<span class="thumb-info-inner font-weight-bold line-height-1 text-4 mb-3">Project Name</span>
|
||||||
|
<span class="thumb-info-type text-transform-none font-weight-light text-1 line-height-7 pr-xl-5 mr-lg-5">Lorem ipsum dolor sit amet, consectetur adipiscing eli blandit massa im. </span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,30 @@
|
||||||
|
<div id="custom-content" class="white-popup-block bg-dark white-popup-block-lg">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col">
|
||||||
|
<h3 class="font-weight-bold text-color-light text-7 text-capitalize ls-0 my-3">Home Projects</h3>
|
||||||
|
<p>Lorem ipsum dolor sit amet, consectetur adipiscing elit. In ut nunc in enim laoreet ornare. Nullam tincidunt tempor ligula eu dignissim. Nam semper dui quis congue mollis. Nam at tellus ultricies, tincidunt quam non, rhoncus mauris. Nullam gravida molestie lorem, et euismod metus feugiat ac.</p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<hr>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-lg-4 text-center">
|
||||||
|
<div class="featured-boxes featured-boxes-style-4 custom-featured-boxes-style-1">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col">
|
||||||
|
<div class="featured-box">
|
||||||
|
<div class="box-content p-0 border-0">
|
||||||
|
<svg enable-background="new 0 0 24 24" height="88px" version="1.1" viewBox="0 0 24 24" width="88px" xml:space="preserve" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink"><g><path d="M18,11h-5v5h5V11z M15,15h-1v-3h1V15z M17,15h-1v-3h1V15z"/><path d="M23,22h-1v-9.2l0.3,0.3c0.4,0.4,1,0.4,1.4,0l0,0c0.4-0.4,0.4-1,0-1.4L12,0L7,5V3c0.6,0,1-0.4,1-1V1c0-0.6-0.4-1-1-1H3 C2.4,0,2,0.4,2,1v1c0,0.6,0.4,1,1,1v6l-2.7,2.7c-0.4,0.4-0.4,1,0,1.4l0,0c0.4,0.4,1,0.4,1.4,0L2,12.8V22H1c-0.6,0-1,0.4-1,1v1h24 v-1C24,22.4,23.6,22,23,22z M12,2.8l8,8V22h-9v-8H6v8H4V10.8L12,2.8z M10,19v3H7v-7h3v3H9v1H10z M4,8V3h2v3L4,8z M3,1h4v1H3V1z"/></g></svg>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-8">
|
||||||
|
<p>Lorem ipsum dolor sit amet, consectetur adipiscing elit. In ut nunc in enim laoreet ornare. Nullam tincidunt tempor ligula eu dignissim. Nam semper dui quis congue mollis.</p>
|
||||||
|
|
||||||
|
<p class="mb-0"><span class="text-color-light text-4 mb-3">CALL US NOW</span></p>
|
||||||
|
<p class="mb-3"><a href="tel:+1234567890" class="text-decoration-none text-color-primary font-weight-bold line-height-2 text-6 opacity-10">1-800-123-4567</a></p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,17 @@
|
||||||
|
<div id="custom-content" class="white-popup-block white-popup-block-lg">
|
||||||
|
<div class="row py-3">
|
||||||
|
<div class="col-lg-4 text-center">
|
||||||
|
<img class="img-fluid" src="img/team/team-2.jpg" alt="" />
|
||||||
|
<ul class="social-icons social-icons-clean mt-3">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-8">
|
||||||
|
<h3 class="font-weight-bold text-6 text-capitalize ls-0 mb-0">Michele Doe</h3>
|
||||||
|
<p class="pt-1 text-4">CEO & Founder</p>
|
||||||
|
<p>Lorem ipsum dolor sit amet, consectetur adipiscing elit. In dapibus risus sit amet malesuada placerat. Duis purus massa, luctus a egestas non, interdum eu mauris. Etiam efficitur nibh vitae viverra hendrerit.<br><br>Integer blandit dui nulla, vitae facilisis sapien elementum vitae. Quisque eu turpis ac lectus faucibus vehicula. Duis tincidunt ornare diam, ut pellentesque dolor dapibus quis. Sed tempus bibendum felis, et pharetra risus placerat vel. Duis vitae lorem risus. Aenean eu odio eu turpis elementum feugiat. Vivamus aliquet ac lorem a luctus. Vestibulum sed purus a justo finibus dictum sed in velit. Nullam at elementum nisl, eget tincidunt ligula. Quisque efficitur rhoncus nunc, quis rutrum ligula dapibus at. Sed rutrum placerat lectus in bibendum.</p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,48 @@
|
||||||
|
<div class="col-lg-4 isotope-item text-left">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<div class="card">
|
||||||
|
<div class="card-body p-5 mt-2">
|
||||||
|
<h3 class="font-weight-bold text-transform-none line-height-4 text-5 pr-xl-5 mr-xl-5">
|
||||||
|
<a href="demo-architecture-interior-blog-post.html" class="text-color-dark text-decoration-none">Lorem ipsum dolor sit amet, consectetur</a>
|
||||||
|
</h3>
|
||||||
|
<p class="mb-4">Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget risus porta...</p>
|
||||||
|
<div class="d-flex align-items-center mb-4">
|
||||||
|
<img src="img/avatars/avatar-2.jpg" width="25" class="img-fluid rounded-circle mr-2" alt="" />
|
||||||
|
<span class="font-weight-bold text-color-dark text-2">by Alex Doe</span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-4 isotope-item text-left">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<div class="card">
|
||||||
|
<div class="card-body p-5 mt-2">
|
||||||
|
<h3 class="font-weight-bold text-transform-none line-height-4 text-5 pr-xl-5 mr-xl-5">
|
||||||
|
<a href="demo-architecture-interior-blog-post.html" class="text-color-dark text-decoration-none">Lorem ipsum dolor sit amet, consectetur</a>
|
||||||
|
</h3>
|
||||||
|
<p class="mb-4">Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget risus porta...</p>
|
||||||
|
<div class="d-flex align-items-center mb-4">
|
||||||
|
<img src="img/avatars/avatar-3.jpg" width="25" class="img-fluid rounded-circle mr-2" alt="" />
|
||||||
|
<span class="font-weight-bold text-color-dark text-2">by Rick Doe</span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-4 isotope-item text-left">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<div class="card">
|
||||||
|
<div class="card-body p-5 mt-2">
|
||||||
|
<h3 class="font-weight-bold text-transform-none line-height-4 text-5 pr-xl-5 mr-xl-5">
|
||||||
|
<a href="demo-architecture-interior-blog-post.html" class="text-color-dark text-decoration-none">Lorem ipsum dolor sit amet, consectetur</a>
|
||||||
|
</h3>
|
||||||
|
<p class="mb-4">Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget risus porta...</p>
|
||||||
|
<div class="d-flex align-items-center mb-4">
|
||||||
|
<img src="img/avatars/avatar.jpg" width="25" class="img-fluid rounded-circle mr-2" alt="" />
|
||||||
|
<span class="font-weight-bold text-color-dark text-2">by John Doe</span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,32 @@
|
||||||
|
<div class="col-lg-4 isotope-item text-left">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<div class="card">
|
||||||
|
<div class="card-body p-5 mt-2">
|
||||||
|
<h3 class="font-weight-bold text-transform-none line-height-4 text-5 pr-xl-5 mr-xl-5">
|
||||||
|
<a href="demo-architecture-interior-blog-post.html" class="text-color-dark text-decoration-none">Lorem ipsum dolor sit amet, consectetur</a>
|
||||||
|
</h3>
|
||||||
|
<p class="mb-4">Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget risus porta...</p>
|
||||||
|
<div class="d-flex align-items-center mb-4">
|
||||||
|
<img src="img/avatars/avatar-2.jpg" width="25" class="img-fluid rounded-circle mr-2" alt="" />
|
||||||
|
<span class="font-weight-bold text-color-dark text-2">by Alex Doe</span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-lg-4 isotope-item text-left">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<div class="card">
|
||||||
|
<div class="card-body p-5 mt-2">
|
||||||
|
<h3 class="font-weight-bold text-transform-none line-height-4 text-5 pr-xl-5 mr-xl-5">
|
||||||
|
<a href="demo-architecture-interior-blog-post.html" class="text-color-dark text-decoration-none">Lorem ipsum dolor sit amet, consectetur</a>
|
||||||
|
</h3>
|
||||||
|
<p class="mb-4">Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed eget risus porta...</p>
|
||||||
|
<div class="d-flex align-items-center mb-4">
|
||||||
|
<img src="img/avatars/avatar-3.jpg" width="25" class="img-fluid rounded-circle mr-2" alt="" />
|
||||||
|
<span class="font-weight-bold text-color-dark text-2">by Rick Doe</span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,15 @@
|
||||||
|
<h2 class="font-weight-bold text-color-dark text-center mb-0">
|
||||||
|
Baptism
|
||||||
|
</h2>
|
||||||
|
<p class="text-center text-1">3 photos</p>
|
||||||
|
<div class="owl-carousel custom-arrows-style-2 custom-nav-inside-center" data-plugin-options="{'items': 1, 'margin': 0, 'loop': true, 'nav': true, 'dots': true}">
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-1.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-2.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-3.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,15 @@
|
||||||
|
<h2 class="font-weight-bold text-color-dark text-center mb-0">
|
||||||
|
Wedding
|
||||||
|
</h2>
|
||||||
|
<p class="text-center text-1">3 photos</p>
|
||||||
|
<div class="owl-carousel custom-arrows-style-2 custom-nav-inside-center" data-plugin-options="{'items': 1, 'margin': 0, 'loop': true, 'nav': true, 'dots': true}">
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-1.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-2.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-3.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,15 @@
|
||||||
|
<h2 class="font-weight-bold text-color-dark text-center mb-0">
|
||||||
|
Church Community
|
||||||
|
</h2>
|
||||||
|
<p class="text-center text-1">3 photos</p>
|
||||||
|
<div class="owl-carousel custom-arrows-style-2 custom-nav-inside-center" data-plugin-options="{'items': 1, 'margin': 0, 'loop': true, 'nav': true, 'dots': true}">
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-1.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-2.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<img src="img/demos/church/gallery/gallery-detail-image-3.jpg" alt class="img-fluid" />
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,22 @@
|
||||||
|
<div class="col-sm-6 isotope-item pre-construction">
|
||||||
|
<div class="portfolio-item mb-3 pb-1">
|
||||||
|
<a href="demo-construction-2-projects-details.html">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-lighten thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-show-more thumb-info-no-zoom border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/construction-2/portfolio/portfolio-5.jpg" class="img-fluid" alt="">
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 isotope-item pre-construction">
|
||||||
|
<div class="portfolio-item mb-3 pb-1">
|
||||||
|
<a href="demo-construction-2-projects-details.html">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-lighten thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-show-more thumb-info-no-zoom border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/construction-2/portfolio/portfolio-6.jpg" class="img-fluid" alt="">
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,44 @@
|
||||||
|
<div class="col-sm-6 isotope-item pre-construction">
|
||||||
|
<div class="portfolio-item mb-3 pb-1">
|
||||||
|
<a href="demo-construction-2-projects-details.html">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-lighten thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-show-more thumb-info-no-zoom border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/construction-2/portfolio/portfolio-1.jpg" class="img-fluid" alt="">
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-3 isotope-item general-construction">
|
||||||
|
<div class="portfolio-item mb-3 pb-1">
|
||||||
|
<a href="demo-construction-2-projects-details.html">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-lighten thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-show-more thumb-info-no-zoom border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/construction-2/portfolio/portfolio-2.jpg" class="img-fluid" alt="">
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-3 isotope-item painting">
|
||||||
|
<div class="portfolio-item mb-3 pb-1">
|
||||||
|
<a href="demo-construction-2-projects-details.html">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-lighten thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-show-more thumb-info-no-zoom border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/construction-2/portfolio/portfolio-3.jpg" class="img-fluid" alt="">
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-3 isotope-item plubing">
|
||||||
|
<div class="portfolio-item mb-3 pb-1">
|
||||||
|
<a href="demo-construction-2-projects-details.html">
|
||||||
|
<span class="thumb-info thumb-info-no-borders thumb-info-lighten thumb-info-bottom-info thumb-info-bottom-info-dark thumb-info-bottom-info-show-more thumb-info-no-zoom border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/demos/construction-2/portfolio/portfolio-4.jpg" class="img-fluid" alt="">
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,22 @@
|
||||||
|
<div class="col-sm-10 col-md-6 pb-1 mb-3">
|
||||||
|
<div class="card border-0 custom-box-shadow-1 p-1">
|
||||||
|
<div class="card-body">
|
||||||
|
<a href="#" class="text-decoration-none">
|
||||||
|
<img class="img-fluid pb-2 mb-4" src="img/demos/it-services/generic/generic-5.jpg" alt="Okler Success Case">
|
||||||
|
</a>
|
||||||
|
<h4 class="font-weight-bold text-color-dark custom-text-size-2 mb-3"><a href="#" class="text-color-dark text-decoration-none">OKLER SUCCESS CASE</a></h4>
|
||||||
|
<p class="custom-font-secondary custom-text-size-1 mb-1">Lorem ipsum dolor sit <strong class="text-color-dark">amet</strong>, consectetur adipiscing elit. Nunc viverra erat orci, ac auctor.</p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-10 col-md-6 pb-1 mb-3">
|
||||||
|
<div class="card border-0 custom-box-shadow-1 p-1">
|
||||||
|
<div class="card-body">
|
||||||
|
<a href="#" class="text-decoration-none">
|
||||||
|
<img class="img-fluid pb-2 mb-4" src="img/demos/it-services/generic/generic-4.jpg" alt="Porto Master Case">
|
||||||
|
</a>
|
||||||
|
<h4 class="font-weight-bold text-color-dark custom-text-size-2 mb-3"><a href="#" class="text-color-dark text-decoration-none">PORTO MASTER CASE</a></h4>
|
||||||
|
<p class="custom-font-secondary custom-text-size-1 mb-1">Lorem ipsum dolor sit <strong class="text-color-dark">amet</strong>, consectetur adipiscing elit. Nunc viverra erat orci, ac auctor.</p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,22 @@
|
||||||
|
<div class="col-sm-10 col-md-6">
|
||||||
|
<div class="card border-0 custom-box-shadow-1 p-1">
|
||||||
|
<div class="card-body">
|
||||||
|
<a href="#" class="text-decoration-none">
|
||||||
|
<img class="img-fluid pb-2 mb-4" src="img/demos/it-services/generic/generic-4.jpg" alt="Porto Master Case">
|
||||||
|
</a>
|
||||||
|
<h4 class="font-weight-bold text-color-dark custom-text-size-2 mb-3"><a href="#" class="text-color-dark text-decoration-none">PORTO MASTER CASE</a></h4>
|
||||||
|
<p class="custom-font-secondary custom-text-size-1 mb-1">Lorem ipsum dolor sit <strong class="text-color-dark">amet</strong>, consectetur adipiscing elit. Nunc viverra erat orci, ac auctor.</p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-10 col-md-6">
|
||||||
|
<div class="card border-0 custom-box-shadow-1 p-1">
|
||||||
|
<div class="card-body">
|
||||||
|
<a href="#" class="text-decoration-none">
|
||||||
|
<img class="img-fluid pb-2 mb-4" src="img/demos/it-services/generic/generic-5.jpg" alt="Okler Success Case">
|
||||||
|
</a>
|
||||||
|
<h4 class="font-weight-bold text-color-dark custom-text-size-2 mb-3"><a href="#" class="text-color-dark text-decoration-none">OKLER SUCCESS CASE</a></h4>
|
||||||
|
<p class="custom-font-secondary custom-text-size-1 mb-1">Lorem ipsum dolor sit <strong class="text-color-dark">amet</strong>, consectetur adipiscing elit. Nunc viverra erat orci, ac auctor.</p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,60 @@
|
||||||
|
<div class="isotope-item col-sm-6 col-lg-3 website p-0">
|
||||||
|
<div class="image-gallery-item mb-0">
|
||||||
|
<a href="img/projects/project.jpg" class="lightbox-portfolio">
|
||||||
|
<span class="thumb-info thumb-info-centered-info thumb-info-no-borders custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/projects/project.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">PORTO DOCUMENT</span>
|
||||||
|
<span class="thumb-info-type">WEBSITES</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="isotope-item col-sm-6 col-lg-3 brands p-0">
|
||||||
|
<div class="image-gallery-item mb-0">
|
||||||
|
<a href="img/projects/project-3.jpg" class="lightbox-portfolio">
|
||||||
|
<span class="thumb-info thumb-info-centered-info thumb-info-no-borders custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/projects/project-3.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">PORTO BRAND</span>
|
||||||
|
<span class="thumb-info-type">BRANDS</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="isotope-item col-sm-6 col-lg-3 mobile-app p-0">
|
||||||
|
<div class="image-gallery-item mb-0">
|
||||||
|
<a href="img/projects/project-4.jpg" class="lightbox-portfolio">
|
||||||
|
<span class="thumb-info thumb-info-centered-info thumb-info-no-borders custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/projects/project-4.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">PORTO BOTTLE</span>
|
||||||
|
<span class="thumb-info-type">MOBILE APP</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="isotope-item col-sm-6 col-lg-3 others p-0">
|
||||||
|
<div class="image-gallery-item mb-0">
|
||||||
|
<a href="img/projects/project-5.jpg" class="lightbox-portfolio">
|
||||||
|
<span class="thumb-info thumb-info-centered-info thumb-info-no-borders custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/projects/project-5.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">PORTO T-SHIRT</span>
|
||||||
|
<span class="thumb-info-type">OTHERS</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,60 @@
|
||||||
|
<div class="isotope-item col-sm-6 col-lg-3 website p-0">
|
||||||
|
<div class="image-gallery-item mb-0">
|
||||||
|
<a href="img/projects/project.jpg" class="lightbox-portfolio">
|
||||||
|
<span class="thumb-info thumb-info-centered-info thumb-info-no-borders custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/projects/project-6.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">PORTO DOCUMENT</span>
|
||||||
|
<span class="thumb-info-type">WEBSITES</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="isotope-item col-sm-6 col-lg-3 brands p-0">
|
||||||
|
<div class="image-gallery-item mb-0">
|
||||||
|
<a href="img/projects/project-3.jpg" class="lightbox-portfolio">
|
||||||
|
<span class="thumb-info thumb-info-centered-info thumb-info-no-borders custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/projects/project-7.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">PORTO BRAND</span>
|
||||||
|
<span class="thumb-info-type">BRANDS</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="isotope-item col-sm-6 col-lg-3 mobile-app p-0">
|
||||||
|
<div class="image-gallery-item mb-0">
|
||||||
|
<a href="img/projects/project-4.jpg" class="lightbox-portfolio">
|
||||||
|
<span class="thumb-info thumb-info-centered-info thumb-info-no-borders custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/projects/project-4.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">PORTO BOTTLE</span>
|
||||||
|
<span class="thumb-info-type">MOBILE APP</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="isotope-item col-sm-6 col-lg-3 others p-0">
|
||||||
|
<div class="image-gallery-item mb-0">
|
||||||
|
<a href="img/projects/project.jpg" class="lightbox-portfolio">
|
||||||
|
<span class="thumb-info thumb-info-centered-info thumb-info-no-borders custom-thumb-info-style-1">
|
||||||
|
<span class="thumb-info-wrapper">
|
||||||
|
<img src="img/projects/project-5.jpg" class="img-fluid" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">PORTO T-SHIRT</span>
|
||||||
|
<span class="thumb-info-type">OTHERS</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,208 @@
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
6
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<div class="owl-carousel owl-theme show-nav-hover" data-plugin-options="{'items': 1, 'margin': 0, 'loop': true, 'nav': true, 'dots': false, 'stagePadding': 0}">
|
||||||
|
<div>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/family/1-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">Family Moments</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/family/2-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">Family Moments</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/family/3-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">Family Moments</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/family/1-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">Family Moments</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
10
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/lifestyle/1-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">On the Road</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
3
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/landscape/1-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">Boats on River</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
5
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/travel/1-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">Incredible Places</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
7
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/wedding/1-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">The Wedding</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
6
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/family/3-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">New Born</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
10
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/lifestyle/2-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">The Cool Style</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
3
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/landscape/2-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">Old Venice</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6 col-lg-4 isotope-item">
|
||||||
|
<div class="portfolio-detail-item">
|
||||||
|
<span class="thumb-info-icons position-style-2 text-color-light">
|
||||||
|
<span class="thumb-info-icon pictures bg-color-primary">
|
||||||
|
7
|
||||||
|
<i class="far fa-image"></i>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
<a data-href="ajax/demo-photography-portfolio-ajax-on-page-slider.html" class="open-item" data-ajax-on-page>
|
||||||
|
<div class="item-image-wrapper">
|
||||||
|
<span class="item-image" data-original="img/demos/photography/gallery/wedding/2-small.jpg" data-plugin-lazyload data-plugin-options="{'appearEffect': 'animated fadeIn'}"></span>
|
||||||
|
<i class="fas fa-spinner fa-spin fa-fw"></i>
|
||||||
|
<div class="sub-item-description">
|
||||||
|
<h5 class="font-weight-light">The Day</h5>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,91 @@
|
||||||
|
<div class="slider-container rev_slider_wrapper" style="height: 500px;">
|
||||||
|
<div id="revolutionSlider" class="slider rev_slider manual" data-version="5.4.8">
|
||||||
|
<ul>
|
||||||
|
<li data-transition="fade">
|
||||||
|
<img src="img/demos/photography/slides/slide-photography-5.jpg"
|
||||||
|
alt=""
|
||||||
|
data-bgposition="center center"
|
||||||
|
data-bgfit="cover"
|
||||||
|
data-bgrepeat="no-repeat"
|
||||||
|
class="rev-slidebg">
|
||||||
|
|
||||||
|
<div class="tp-caption tp-caption-photo-label"
|
||||||
|
data-x="['left','left','left','left']"
|
||||||
|
data-hoffset="['28','28','28','28']"
|
||||||
|
data-y="['bottom','bottom','bottom','bottom']"
|
||||||
|
data-voffset="['28','28','28','28']"
|
||||||
|
data-start="500"
|
||||||
|
data-basealign="slide"
|
||||||
|
data-transform_in="y:[-300%];opacity:0;s:500;">The Explorers</div>
|
||||||
|
</li>
|
||||||
|
<li data-transition="fade">
|
||||||
|
<img src="img/demos/photography/slides/slide-photography-1.jpg"
|
||||||
|
alt=""
|
||||||
|
data-bgposition="center center"
|
||||||
|
data-bgfit="cover"
|
||||||
|
data-bgrepeat="no-repeat"
|
||||||
|
class="rev-slidebg">
|
||||||
|
|
||||||
|
<div class="tp-caption tp-caption-photo-label"
|
||||||
|
data-x="['left','left','left','left']"
|
||||||
|
data-hoffset="['28','28','28','28']"
|
||||||
|
data-y="['bottom','bottom','bottom','bottom']"
|
||||||
|
data-voffset="['28','28','28','28']"
|
||||||
|
data-start="500"
|
||||||
|
data-basealign="slide"
|
||||||
|
data-transform_in="y:[-300%];opacity:0;s:500;">The Happy Family</div>
|
||||||
|
</li>
|
||||||
|
<li data-transition="fade">
|
||||||
|
<img src="img/demos/photography/slides/slide-photography-2.jpg"
|
||||||
|
alt=""
|
||||||
|
data-bgposition="center center"
|
||||||
|
data-bgfit="cover"
|
||||||
|
data-bgrepeat="no-repeat"
|
||||||
|
class="rev-slidebg">
|
||||||
|
|
||||||
|
<div class="tp-caption tp-caption-photo-label"
|
||||||
|
data-x="['left','left','left','left']"
|
||||||
|
data-hoffset="['28','28','28','28']"
|
||||||
|
data-y="['bottom','bottom','bottom','bottom']"
|
||||||
|
data-voffset="['28','28','28','28']"
|
||||||
|
data-start="500"
|
||||||
|
data-basealign="slide"
|
||||||
|
data-transform_in="y:[-300%];opacity:0;s:500;">The Cool Style</div>
|
||||||
|
</li>
|
||||||
|
<li data-transition="fade">
|
||||||
|
<img src="img/demos/photography/slides/slide-photography-3.jpg"
|
||||||
|
alt=""
|
||||||
|
data-bgposition="center center"
|
||||||
|
data-bgfit="cover"
|
||||||
|
data-bgrepeat="no-repeat"
|
||||||
|
class="rev-slidebg">
|
||||||
|
|
||||||
|
<div class="tp-caption tp-caption-photo-label"
|
||||||
|
data-x="['left','left','left','left']"
|
||||||
|
data-hoffset="['28','28','28','28']"
|
||||||
|
data-y="['bottom','bottom','bottom','bottom']"
|
||||||
|
data-voffset="['28','28','28','28']"
|
||||||
|
data-start="500"
|
||||||
|
data-basealign="slide"
|
||||||
|
data-transform_in="y:[-300%];opacity:0;s:500;">The Bride</div>
|
||||||
|
</li>
|
||||||
|
<li data-transition="fade">
|
||||||
|
<img src="img/demos/photography/slides/slide-photography-4.jpg"
|
||||||
|
alt=""
|
||||||
|
data-bgposition="center center"
|
||||||
|
data-bgfit="cover"
|
||||||
|
data-bgrepeat="no-repeat"
|
||||||
|
class="rev-slidebg">
|
||||||
|
|
||||||
|
<div class="tp-caption tp-caption-photo-label"
|
||||||
|
data-x="['left','left','left','left']"
|
||||||
|
data-hoffset="['28','28','28','28']"
|
||||||
|
data-y="['bottom','bottom','bottom','bottom']"
|
||||||
|
data-voffset="['28','28','28','28']"
|
||||||
|
data-start="500"
|
||||||
|
data-basealign="slide"
|
||||||
|
data-transform_in="y:[-300%];opacity:0;s:500;">The Landscape</div>
|
||||||
|
</li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,53 @@
|
||||||
|
<div class="col-md-6 isotope-item item-appended p-0">
|
||||||
|
<div class="portfolio-grid-item">
|
||||||
|
<a href="#photographyLightbox" class="text-decoration-none popup-with-move-anim">
|
||||||
|
<div class="thumb-info">
|
||||||
|
<div class="thumb-info-wrapper size-4 m-0">
|
||||||
|
<span class="thumb-info-background" data-thumb-src="img/demos/photography/gallery/family/1-thumb.jpg" data-src="img/demos/photography/gallery/family/1.jpg" style="background-image: url('img/demos/photography/gallery/family/1-medium.jpg');"></span>
|
||||||
|
<h2 class="thumb-info-title font-weight-bold text-center">
|
||||||
|
Family Moments
|
||||||
|
<span class="thumb-info-sub-title font-weight-light">
|
||||||
|
Lorem ipsum dolor sit a met
|
||||||
|
</span>
|
||||||
|
</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6 isotope-item item-appended p-0">
|
||||||
|
<div class="portfolio-grid-item">
|
||||||
|
<a href="#photographyLightbox" class="text-decoration-none popup-with-move-anim">
|
||||||
|
<div class="thumb-info">
|
||||||
|
<div class="thumb-info-wrapper size-4 m-0">
|
||||||
|
<span class="thumb-info-background" data-thumb-src="img/demos/photography/gallery/family/2-thumb.jpg" data-src="img/demos/photography/gallery/family/2.jpg" style="background-image: url('img/demos/photography/gallery/family/2-medium.jpg');"></span>
|
||||||
|
<span class="thumb-info-plus"></span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6 isotope-item item-appended p-0">
|
||||||
|
<div class="portfolio-grid-item">
|
||||||
|
<a href="#photographyLightbox" class="text-decoration-none popup-with-move-anim">
|
||||||
|
<div class="thumb-info">
|
||||||
|
<div class="thumb-info-wrapper size-4 m-0">
|
||||||
|
<span class="thumb-info-background" data-thumb-src="img/demos/photography/gallery/landscape/1-thumb.jpg" data-src="img/demos/photography/gallery/landscape/1.jpg" style="background-image: url('img/demos/photography/gallery/landscape/1-medium.jpg');"></span>
|
||||||
|
<span class="thumb-info-plus"></span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6 isotope-item item-appended p-0">
|
||||||
|
<div class="portfolio-grid-item">
|
||||||
|
<a href="#photographyLightbox" class="text-decoration-none popup-with-move-anim">
|
||||||
|
<div class="thumb-info">
|
||||||
|
<div class="thumb-info-wrapper size-4 m-0">
|
||||||
|
<span class="thumb-info-background" data-thumb-src="img/demos/photography/gallery/landscape/2-thumb.jpg" data-src="img/demos/photography/gallery/landscape/2.jpg" style="background-image: url('img/demos/photography/gallery/landscape/2-medium.jpg');"></span>
|
||||||
|
<span class="thumb-info-plus"></span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,168 @@
|
||||||
|
|
||||||
|
<div class="masonry-item no-default-style col-md-6">
|
||||||
|
<article class="post post-medium border-0 pb-0 mb-5">
|
||||||
|
<div class="post-image">
|
||||||
|
<a href="blog-post.html">
|
||||||
|
<img src="img/blog/medium/blog-64.jpg" class="img-fluid img-thumbnail img-thumbnail-no-borders rounded-0 w-100" alt="Explained: How does VR actually work?" />
|
||||||
|
<div class="date p-absolute z-index-2 top-10 right-10 mr-0 mr-3 pl-1 pt-1">
|
||||||
|
<span class="day bg-color-light font-weight-extra-bold py-2 text-color-dark">15</span>
|
||||||
|
<span class="month text-1 bg-color-light line-height-9 text-default w-100 top-2 d-block py-0"><span class="text-1">JAN</span></span>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="post-content bg-color-light p-4">
|
||||||
|
|
||||||
|
<h2 class="font-weight-bold text-5 line-height-6 mt-0 mb-2"><a href="blog-post.html">Explained: How does VR actually work?</a></h2>
|
||||||
|
<p>Euismod atras vulputate iltricies etri elit. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.</p>
|
||||||
|
|
||||||
|
<div class="post-meta m-0 p-0">
|
||||||
|
<span><i class="far fa-user"></i> By <a href="#">John Doe</a> </span>
|
||||||
|
<span><i class="far fa-folder"></i> <a href="#">Technology</a>, <a href="#">Lifestyle</a> </span>
|
||||||
|
<span><i class="far fa-comments"></i> <a href="#">12 Comments</a></span>
|
||||||
|
<span class="d-block mt-2"><a href="blog-post.html" class="btn btn-xs btn-light text-1 text-uppercase">Read More</a></span>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</article>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="masonry-item no-default-style col-md-6">
|
||||||
|
<article class="post post-medium border-0 pb-0 mb-5">
|
||||||
|
<div class="post-image">
|
||||||
|
<a href="blog-post.html">
|
||||||
|
<img src="img/blog/medium/blog-65.jpg" class="img-fluid img-thumbnail img-thumbnail-no-borders rounded-0 w-100" alt="Main Reasons To Stop Texting And Driving" />
|
||||||
|
<div class="date p-absolute z-index-2 top-10 right-10 mr-0 mr-3 pl-1 pt-1">
|
||||||
|
<span class="day bg-color-light font-weight-extra-bold py-2 text-color-dark">15</span>
|
||||||
|
<span class="month text-1 bg-color-light line-height-9 text-default w-100 top-2 d-block py-0"><span class="text-1">JAN</span></span>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="post-content bg-color-light p-4">
|
||||||
|
|
||||||
|
<h2 class="font-weight-bold text-5 line-height-6 mt-0 mb-2"><a href="blog-post.html">Main Reasons To Stop Texting And Driving</a></h2>
|
||||||
|
<p>Euismod atras vulputate iltricies etri elit. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.</p>
|
||||||
|
|
||||||
|
<div class="post-meta m-0 p-0">
|
||||||
|
<span><i class="far fa-user"></i> By <a href="#">John Doe</a> </span>
|
||||||
|
<span><i class="far fa-folder"></i> <a href="#">Technology</a>, <a href="#">Lifestyle</a> </span>
|
||||||
|
<span><i class="far fa-comments"></i> <a href="#">12 Comments</a></span>
|
||||||
|
<span class="d-block mt-2"><a href="blog-post.html" class="btn btn-xs btn-light text-1 text-uppercase">Read More</a></span>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</article>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="masonry-item no-default-style col-md-6">
|
||||||
|
<article class="post post-medium border-0 pb-0 mb-5">
|
||||||
|
<div class="post-image">
|
||||||
|
<a href="blog-post.html">
|
||||||
|
<img src="img/blog/medium/blog-66.jpg" class="img-fluid img-thumbnail img-thumbnail-no-borders rounded-0 w-100" alt="Tips to Help You Quickly Prepare your Lunch" />
|
||||||
|
<div class="date p-absolute z-index-2 top-10 right-10 mr-0 mr-3 pl-1 pt-1">
|
||||||
|
<span class="day bg-color-light font-weight-extra-bold py-2 text-color-dark">15</span>
|
||||||
|
<span class="month text-1 bg-color-light line-height-9 text-default w-100 top-2 d-block py-0"><span class="text-1">JAN</span></span>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="post-content bg-color-light p-4">
|
||||||
|
|
||||||
|
<h2 class="font-weight-bold text-5 line-height-6 mt-0 mb-2"><a href="blog-post.html">Tips to Help You Quickly Prepare your Lunch</a></h2>
|
||||||
|
<p>Euismod atras vulputate iltricies etri elit. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.</p>
|
||||||
|
|
||||||
|
<div class="post-meta m-0 p-0">
|
||||||
|
<span><i class="far fa-user"></i> By <a href="#">John Doe</a> </span>
|
||||||
|
<span><i class="far fa-folder"></i> <a href="#">Recipes</a>, <a href="#">Lifestyle</a> </span>
|
||||||
|
<span><i class="far fa-comments"></i> <a href="#">12 Comments</a></span>
|
||||||
|
<span class="d-block mt-2"><a href="blog-post.html" class="btn btn-xs btn-light text-1 text-uppercase">Read More</a></span>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</article>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="masonry-item no-default-style col-md-6">
|
||||||
|
<article class="post post-medium border-0 pb-0 mb-5">
|
||||||
|
<div class="post-image">
|
||||||
|
<a href="blog-post.html">
|
||||||
|
<img src="img/blog/medium/blog-67.jpg" class="img-fluid img-thumbnail img-thumbnail-no-borders rounded-0 w-100" alt="Why should I buy a smartwatch?" />
|
||||||
|
<div class="date p-absolute z-index-2 top-10 right-10 mr-0 mr-3 pl-1 pt-1">
|
||||||
|
<span class="day bg-color-light font-weight-extra-bold py-2 text-color-dark">15</span>
|
||||||
|
<span class="month text-1 bg-color-light line-height-9 text-default w-100 top-2 d-block py-0"><span class="text-1">JAN</span></span>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="post-content bg-color-light p-4">
|
||||||
|
|
||||||
|
<h2 class="font-weight-bold text-5 line-height-6 mt-0 mb-2"><a href="blog-post.html">Why should I buy a smartwatch?</a></h2>
|
||||||
|
<p>Euismod atras vulputate iltricies etri elit. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.</p>
|
||||||
|
|
||||||
|
<div class="post-meta m-0 p-0">
|
||||||
|
<span><i class="far fa-user"></i> By <a href="#">John Doe</a> </span>
|
||||||
|
<span><i class="far fa-folder"></i> <a href="#">Gadgets</a>, <a href="#">Technology</a> </span>
|
||||||
|
<span><i class="far fa-comments"></i> <a href="#">12 Comments</a></span>
|
||||||
|
<span class="d-block mt-2"><a href="blog-post.html" class="btn btn-xs btn-light text-1 text-uppercase">Read More</a></span>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</article>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="masonry-item no-default-style col-md-6">
|
||||||
|
<article class="post post-medium border-0 pb-0 mb-5">
|
||||||
|
<div class="post-image">
|
||||||
|
<a href="blog-post.html">
|
||||||
|
<img src="img/blog/medium/blog-68.jpg" class="img-fluid img-thumbnail img-thumbnail-no-borders rounded-0 w-100" alt="The best augmented reality smartglasses" />
|
||||||
|
<div class="date p-absolute z-index-2 top-10 right-10 mr-0 mr-3 pl-1 pt-1">
|
||||||
|
<span class="day bg-color-light font-weight-extra-bold py-2 text-color-dark">15</span>
|
||||||
|
<span class="month text-1 bg-color-light line-height-9 text-default w-100 top-2 d-block py-0"><span class="text-1">JAN</span></span>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="post-content bg-color-light p-4">
|
||||||
|
|
||||||
|
<h2 class="font-weight-bold text-5 line-height-6 mt-0 mb-2"><a href="blog-post.html">The best augmented reality smartglasses</a></h2>
|
||||||
|
<p>Euismod atras vulputate iltricies etri elit. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.</p>
|
||||||
|
|
||||||
|
<div class="post-meta m-0 p-0">
|
||||||
|
<span><i class="far fa-user"></i> By <a href="#">John Doe</a> </span>
|
||||||
|
<span><i class="far fa-folder"></i> <a href="#">Gadgets</a>, <a href="#">Technology</a> </span>
|
||||||
|
<span><i class="far fa-comments"></i> <a href="#">12 Comments</a></span>
|
||||||
|
<span class="d-block mt-2"><a href="blog-post.html" class="btn btn-xs btn-light text-1 text-uppercase">Read More</a></span>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</article>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="masonry-item no-default-style col-md-6">
|
||||||
|
<article class="post post-medium border-0 pb-0 mb-5">
|
||||||
|
<div class="post-image">
|
||||||
|
<a href="blog-post.html">
|
||||||
|
<img src="img/blog/medium/blog-69.jpg" class="img-fluid img-thumbnail img-thumbnail-no-borders rounded-0 w-100" alt="12 Healthiest Foods to Eat for Breakfast" />
|
||||||
|
<div class="date p-absolute z-index-2 top-10 right-10 mr-0 mr-3 pl-1 pt-1">
|
||||||
|
<span class="day bg-color-light font-weight-extra-bold py-2 text-color-dark">15</span>
|
||||||
|
<span class="month text-1 bg-color-light line-height-9 text-default w-100 top-2 d-block py-0"><span class="text-1">JAN</span></span>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="post-content bg-color-light p-4">
|
||||||
|
|
||||||
|
<h2 class="font-weight-bold text-5 line-height-6 mt-0 mb-2"><a href="blog-post.html">12 Healthiest Foods to Eat for Breakfast</a></h2>
|
||||||
|
<p>Euismod atras vulputate iltricies etri elit. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.</p>
|
||||||
|
|
||||||
|
<div class="post-meta m-0 p-0">
|
||||||
|
<span><i class="far fa-user"></i> By <a href="#">John Doe</a> </span>
|
||||||
|
<span><i class="far fa-folder"></i> <a href="#">Recipes</a>, <a href="#">Lifestyle</a> </span>
|
||||||
|
<span><i class="far fa-comments"></i> <a href="#">12 Comments</a></span>
|
||||||
|
<span class="d-block mt-2"><a href="blog-post.html" class="btn btn-xs btn-light text-1 text-uppercase">Read More</a></span>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</article>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,28 @@
|
||||||
|
|
||||||
|
<div class="masonry-item no-default-style col-md-6">
|
||||||
|
<article class="post post-medium border-0 pb-0 mb-5">
|
||||||
|
<div class="post-image">
|
||||||
|
<a href="blog-post.html">
|
||||||
|
<img src="img/blog/medium/blog-70.jpg" class="img-fluid img-thumbnail img-thumbnail-no-borders rounded-0 w-100" alt="How to Find Your Ideal Life Partner" />
|
||||||
|
<div class="date p-absolute z-index-2 top-10 right-10 mr-0 mr-3 pl-1 pt-1">
|
||||||
|
<span class="day bg-color-light font-weight-extra-bold py-2 text-color-dark">15</span>
|
||||||
|
<span class="month text-1 bg-color-light line-height-9 text-default w-100 top-2 d-block py-0"><span class="text-1">JAN</span></span>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="post-content bg-color-light p-4">
|
||||||
|
|
||||||
|
<h2 class="font-weight-bold text-5 line-height-6 mt-0 mb-2"><a href="blog-post.html">How to Find Your Ideal Life Partner</a></h2>
|
||||||
|
<p>Euismod atras vulputate iltricies etri elit. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.</p>
|
||||||
|
|
||||||
|
<div class="post-meta m-0 p-0">
|
||||||
|
<span><i class="far fa-user"></i> By <a href="#">John Doe</a> </span>
|
||||||
|
<span><i class="far fa-folder"></i> <a href="#">Lifestyle</a>, <a href="#">Travel</a> </span>
|
||||||
|
<span><i class="far fa-comments"></i> <a href="#">12 Comments</a></span>
|
||||||
|
<span class="d-block mt-2"><a href="blog-post.html" class="btn btn-xs btn-light text-1 text-uppercase">Read More</a></span>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</article>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,72 @@
|
||||||
|
<div class="col-12 col-sm-6 col-lg-3 isotope-item logos">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="portfolio-single-wide-slider.html">
|
||||||
|
<span class="thumb-info thumb-info-lighten border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper border-radius-0">
|
||||||
|
<img src="img/projects/project-4.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">Three Bottles</span>
|
||||||
|
<span class="thumb-info-type">Logo</span>
|
||||||
|
</span>
|
||||||
|
<span class="thumb-info-action">
|
||||||
|
<span class="thumb-info-action-icon bg-dark opacity-8"><i class="fas fa-plus"></i></span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-12 col-sm-6 col-lg-3 isotope-item brands">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="portfolio-single-wide-slider.html">
|
||||||
|
<span class="thumb-info thumb-info-lighten border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper border-radius-0">
|
||||||
|
<img src="img/projects/project-5.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">Company T-Shirt</span>
|
||||||
|
<span class="thumb-info-type">Brand</span>
|
||||||
|
</span>
|
||||||
|
<span class="thumb-info-action">
|
||||||
|
<span class="thumb-info-action-icon bg-dark opacity-8"><i class="fas fa-plus"></i></span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-12 col-sm-6 col-lg-3 isotope-item websites">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="portfolio-single-wide-slider.html">
|
||||||
|
<span class="thumb-info thumb-info-lighten border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper border-radius-0">
|
||||||
|
<img src="img/projects/project-6.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">Mobile Mockup</span>
|
||||||
|
<span class="thumb-info-type">Website</span>
|
||||||
|
</span>
|
||||||
|
<span class="thumb-info-action">
|
||||||
|
<span class="thumb-info-action-icon bg-dark opacity-8"><i class="fas fa-plus"></i></span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-12 col-sm-6 col-lg-3 isotope-item medias">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="portfolio-single-wide-slider.html">
|
||||||
|
<span class="thumb-info thumb-info-lighten border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper border-radius-0">
|
||||||
|
<img src="img/projects/project-7.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">Porto Label</span>
|
||||||
|
<span class="thumb-info-type">Media</span>
|
||||||
|
</span>
|
||||||
|
<span class="thumb-info-action">
|
||||||
|
<span class="thumb-info-action-icon bg-dark opacity-8"><i class="fas fa-plus"></i></span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,72 @@
|
||||||
|
<div class="col-12 col-sm-6 col-lg-3 isotope-item logos">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="portfolio-single-wide-slider.html">
|
||||||
|
<span class="thumb-info thumb-info-lighten border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper border-radius-0">
|
||||||
|
<img src="img/projects/project-23.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">Business Folders</span>
|
||||||
|
<span class="thumb-info-type">Logo</span>
|
||||||
|
</span>
|
||||||
|
<span class="thumb-info-action">
|
||||||
|
<span class="thumb-info-action-icon bg-dark opacity-8"><i class="fas fa-plus"></i></span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-12 col-sm-6 col-lg-3 isotope-item websites">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="portfolio-single-wide-slider.html">
|
||||||
|
<span class="thumb-info thumb-info-lighten border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper border-radius-0">
|
||||||
|
<img src="img/projects/project-24.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">Tablet Screen</span>
|
||||||
|
<span class="thumb-info-type">Website</span>
|
||||||
|
</span>
|
||||||
|
<span class="thumb-info-action">
|
||||||
|
<span class="thumb-info-action-icon bg-dark opacity-8"><i class="fas fa-plus"></i></span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-12 col-sm-6 col-lg-3 isotope-item medias">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="portfolio-single-wide-slider.html">
|
||||||
|
<span class="thumb-info thumb-info-lighten border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper border-radius-0">
|
||||||
|
<img src="img/projects/project-25.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">Black Watch</span>
|
||||||
|
<span class="thumb-info-type">Media</span>
|
||||||
|
</span>
|
||||||
|
<span class="thumb-info-action">
|
||||||
|
<span class="thumb-info-action-icon bg-dark opacity-8"><i class="fas fa-plus"></i></span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-12 col-sm-6 col-lg-3 isotope-item websites">
|
||||||
|
<div class="portfolio-item">
|
||||||
|
<a href="portfolio-single-wide-slider.html">
|
||||||
|
<span class="thumb-info thumb-info-lighten border-radius-0">
|
||||||
|
<span class="thumb-info-wrapper border-radius-0">
|
||||||
|
<img src="img/projects/project-26.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
<span class="thumb-info-title">
|
||||||
|
<span class="thumb-info-inner">Monitor Mockup</span>
|
||||||
|
<span class="thumb-info-type">Website</span>
|
||||||
|
</span>
|
||||||
|
<span class="thumb-info-action">
|
||||||
|
<span class="thumb-info-action-icon bg-dark opacity-8"><i class="fas fa-plus"></i></span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,70 @@
|
||||||
|
<div class="ajax-container">
|
||||||
|
<div class="row align-items-center py-4">
|
||||||
|
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-prev class="text-decoration-none d-block float-left">
|
||||||
|
<div class="d-flex align-items-center line-height-1">
|
||||||
|
<i class="fas fa-arrow-left text-dark text-4 mr-3"></i>
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">PREVIOUS PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Presentation</h4>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
<div class="overflow-hidden pb-2">
|
||||||
|
<h2 class="text-dark font-weight-bold text-7 mb-0">Porto Watch</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-next class="text-decoration-none d-block float-right">
|
||||||
|
<div class="d-flex align-items-center text-right line-height-1">
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">NEXT PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Identity</h4>
|
||||||
|
</div>
|
||||||
|
<i class="fas fa-arrow-right text-dark text-4 ml-3"></i>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row pb-4 mb-2">
|
||||||
|
<div class="col-sm-6">
|
||||||
|
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-1.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<hr class="solid my-5">
|
||||||
|
|
||||||
|
<strong class="text-uppercase text-1 mr-3 text-dark float-left position-relative top-2">Share</strong>
|
||||||
|
<ul class="social-icons">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6">
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0">Project <strong class="font-weight-extra-bold">Description</strong></h2>
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>
|
||||||
|
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin ipsum tortor, viverra ut condimentum eu, accumsan a enim. Etiam egestas purus risus, vulputate ullamcorper diam fermentum in. Pellentesque non libero hendrerit, vestibulum tellus ut, malesuada purus.</p>
|
||||||
|
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0 mt-4">Project <strong class="font-weight-extra-bold">Details</strong></h2>
|
||||||
|
<ul class="list list-icons list-primary list-borders text-2">
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Client:</strong> Okler Themes</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Date:</strong> January 2020</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Skills:</strong> <a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">DESIGN</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">BRAND</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">WEBSITES</a></li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Project URL:</strong> <a href="#" target="_blank" class="text-dark">http://www.okler.net</a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,70 @@
|
||||||
|
<div class="ajax-container">
|
||||||
|
<div class="row align-items-center py-4">
|
||||||
|
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-prev class="text-decoration-none d-block float-left">
|
||||||
|
<div class="d-flex align-items-center line-height-1">
|
||||||
|
<i class="fas fa-arrow-left text-dark text-4 mr-3"></i>
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">PREVIOUS PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Porto Watch</h4>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
<div class="overflow-hidden pb-2">
|
||||||
|
<h2 class="text-dark font-weight-bold text-7 mb-0">Identity</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-next class="text-decoration-none d-block float-right">
|
||||||
|
<div class="d-flex align-items-center text-right line-height-1">
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">NEXT PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Watch Mockup</h4>
|
||||||
|
</div>
|
||||||
|
<i class="fas fa-arrow-right text-dark text-4 ml-3"></i>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row pb-4 mb-2">
|
||||||
|
<div class="col-sm-6">
|
||||||
|
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-2.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<hr class="solid my-5">
|
||||||
|
|
||||||
|
<strong class="text-uppercase text-1 mr-3 text-dark float-left position-relative top-2">Share</strong>
|
||||||
|
<ul class="social-icons">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6">
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0">Project <strong class="font-weight-extra-bold">Description</strong></h2>
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>
|
||||||
|
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin ipsum tortor, viverra ut condimentum eu, accumsan a enim. Etiam egestas purus risus, vulputate ullamcorper diam fermentum in. Pellentesque non libero hendrerit, vestibulum tellus ut, malesuada purus.</p>
|
||||||
|
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0 mt-4">Project <strong class="font-weight-extra-bold">Details</strong></h2>
|
||||||
|
<ul class="list list-icons list-primary list-borders text-2">
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Client:</strong> Okler Themes</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Date:</strong> January 2020</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Skills:</strong> <a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">DESIGN</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">BRAND</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">WEBSITES</a></li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Project URL:</strong> <a href="#" target="_blank" class="text-dark">http://www.okler.net</a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,70 @@
|
||||||
|
<div class="ajax-container">
|
||||||
|
<div class="row align-items-center py-4">
|
||||||
|
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-prev class="text-decoration-none d-block float-left">
|
||||||
|
<div class="d-flex align-items-center line-height-1">
|
||||||
|
<i class="fas fa-arrow-left text-dark text-4 mr-3"></i>
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">PREVIOUS PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Identity</h4>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
<div class="overflow-hidden pb-2">
|
||||||
|
<h2 class="text-dark font-weight-bold text-7 mb-0">Watch Mockup</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-next class="text-decoration-none d-block float-right">
|
||||||
|
<div class="d-flex align-items-center text-right line-height-1">
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">NEXT PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Three Bottles</h4>
|
||||||
|
</div>
|
||||||
|
<i class="fas fa-arrow-right text-dark text-4 ml-3"></i>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row pb-4 mb-2">
|
||||||
|
<div class="col-sm-6">
|
||||||
|
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-3.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<hr class="solid my-5">
|
||||||
|
|
||||||
|
<strong class="text-uppercase text-1 mr-3 text-dark float-left position-relative top-2">Share</strong>
|
||||||
|
<ul class="social-icons">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6">
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0">Project <strong class="font-weight-extra-bold">Description</strong></h2>
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>
|
||||||
|
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin ipsum tortor, viverra ut condimentum eu, accumsan a enim. Etiam egestas purus risus, vulputate ullamcorper diam fermentum in. Pellentesque non libero hendrerit, vestibulum tellus ut, malesuada purus.</p>
|
||||||
|
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0 mt-4">Project <strong class="font-weight-extra-bold">Details</strong></h2>
|
||||||
|
<ul class="list list-icons list-primary list-borders text-2">
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Client:</strong> Okler Themes</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Date:</strong> January 2020</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Skills:</strong> <a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">DESIGN</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">BRAND</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">WEBSITES</a></li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Project URL:</strong> <a href="#" target="_blank" class="text-dark">http://www.okler.net</a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,70 @@
|
||||||
|
<div class="ajax-container">
|
||||||
|
<div class="row align-items-center py-4">
|
||||||
|
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-prev class="text-decoration-none d-block float-left">
|
||||||
|
<div class="d-flex align-items-center line-height-1">
|
||||||
|
<i class="fas fa-arrow-left text-dark text-4 mr-3"></i>
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">PREVIOUS PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Watch Mockup</h4>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
<div class="overflow-hidden pb-2">
|
||||||
|
<h2 class="text-dark font-weight-bold text-7 mb-0">Three Bottles</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-next class="text-decoration-none d-block float-right">
|
||||||
|
<div class="d-flex align-items-center text-right line-height-1">
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">NEXT PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Company T-Shirt</h4>
|
||||||
|
</div>
|
||||||
|
<i class="fas fa-arrow-right text-dark text-4 ml-3"></i>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row pb-4 mb-2">
|
||||||
|
<div class="col-sm-6">
|
||||||
|
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-4.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<hr class="solid my-5">
|
||||||
|
|
||||||
|
<strong class="text-uppercase text-1 mr-3 text-dark float-left position-relative top-2">Share</strong>
|
||||||
|
<ul class="social-icons">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6">
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0">Project <strong class="font-weight-extra-bold">Description</strong></h2>
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>
|
||||||
|
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin ipsum tortor, viverra ut condimentum eu, accumsan a enim. Etiam egestas purus risus, vulputate ullamcorper diam fermentum in. Pellentesque non libero hendrerit, vestibulum tellus ut, malesuada purus.</p>
|
||||||
|
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0 mt-4">Project <strong class="font-weight-extra-bold">Details</strong></h2>
|
||||||
|
<ul class="list list-icons list-primary list-borders text-2">
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Client:</strong> Okler Themes</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Date:</strong> January 2020</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Skills:</strong> <a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">DESIGN</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">BRAND</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">WEBSITES</a></li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Project URL:</strong> <a href="#" target="_blank" class="text-dark">http://www.okler.net</a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,70 @@
|
||||||
|
<div class="ajax-container">
|
||||||
|
<div class="row align-items-center py-4">
|
||||||
|
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-prev class="text-decoration-none d-block float-left">
|
||||||
|
<div class="d-flex align-items-center line-height-1">
|
||||||
|
<i class="fas fa-arrow-left text-dark text-4 mr-3"></i>
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">PREVIOUS PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Three Bottles</h4>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
<div class="overflow-hidden pb-2">
|
||||||
|
<h2 class="text-dark font-weight-bold text-7 mb-0">Company T-Shirt</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-next class="text-decoration-none d-block float-right">
|
||||||
|
<div class="d-flex align-items-center text-right line-height-1">
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">NEXT PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Mobile Mockup</h4>
|
||||||
|
</div>
|
||||||
|
<i class="fas fa-arrow-right text-dark text-4 ml-3"></i>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row pb-4 mb-2">
|
||||||
|
<div class="col-sm-6">
|
||||||
|
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-5.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<hr class="solid my-5">
|
||||||
|
|
||||||
|
<strong class="text-uppercase text-1 mr-3 text-dark float-left position-relative top-2">Share</strong>
|
||||||
|
<ul class="social-icons">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6">
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0">Project <strong class="font-weight-extra-bold">Description</strong></h2>
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>
|
||||||
|
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin ipsum tortor, viverra ut condimentum eu, accumsan a enim. Etiam egestas purus risus, vulputate ullamcorper diam fermentum in. Pellentesque non libero hendrerit, vestibulum tellus ut, malesuada purus.</p>
|
||||||
|
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0 mt-4">Project <strong class="font-weight-extra-bold">Details</strong></h2>
|
||||||
|
<ul class="list list-icons list-primary list-borders text-2">
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Client:</strong> Okler Themes</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Date:</strong> January 2020</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Skills:</strong> <a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">DESIGN</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">BRAND</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">WEBSITES</a></li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Project URL:</strong> <a href="#" target="_blank" class="text-dark">http://www.okler.net</a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,70 @@
|
||||||
|
<div class="ajax-container">
|
||||||
|
<div class="row align-items-center py-4">
|
||||||
|
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-prev class="text-decoration-none d-block float-left">
|
||||||
|
<div class="d-flex align-items-center line-height-1">
|
||||||
|
<i class="fas fa-arrow-left text-dark text-4 mr-3"></i>
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">PREVIOUS PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Company T-Shirt</h4>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
<div class="overflow-hidden pb-2">
|
||||||
|
<h2 class="text-dark font-weight-bold text-7 mb-0">Mobile Mockup</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-next class="text-decoration-none d-block float-right">
|
||||||
|
<div class="d-flex align-items-center text-right line-height-1">
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">NEXT PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Porto Label</h4>
|
||||||
|
</div>
|
||||||
|
<i class="fas fa-arrow-right text-dark text-4 ml-3"></i>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row pb-4 mb-2">
|
||||||
|
<div class="col-sm-6">
|
||||||
|
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-6.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<hr class="solid my-5">
|
||||||
|
|
||||||
|
<strong class="text-uppercase text-1 mr-3 text-dark float-left position-relative top-2">Share</strong>
|
||||||
|
<ul class="social-icons">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6">
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0">Project <strong class="font-weight-extra-bold">Description</strong></h2>
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>
|
||||||
|
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin ipsum tortor, viverra ut condimentum eu, accumsan a enim. Etiam egestas purus risus, vulputate ullamcorper diam fermentum in. Pellentesque non libero hendrerit, vestibulum tellus ut, malesuada purus.</p>
|
||||||
|
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0 mt-4">Project <strong class="font-weight-extra-bold">Details</strong></h2>
|
||||||
|
<ul class="list list-icons list-primary list-borders text-2">
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Client:</strong> Okler Themes</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Date:</strong> January 2020</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Skills:</strong> <a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">DESIGN</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">BRAND</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">WEBSITES</a></li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Project URL:</strong> <a href="#" target="_blank" class="text-dark">http://www.okler.net</a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,70 @@
|
||||||
|
<div class="ajax-container">
|
||||||
|
<div class="row align-items-center py-4">
|
||||||
|
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-prev class="text-decoration-none d-block float-left">
|
||||||
|
<div class="d-flex align-items-center line-height-1">
|
||||||
|
<i class="fas fa-arrow-left text-dark text-4 mr-3"></i>
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">PREVIOUS PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Mobile Mockup</h4>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
<div class="overflow-hidden pb-2">
|
||||||
|
<h2 class="text-dark font-weight-bold text-7 mb-0">Porto Label</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-next class="text-decoration-none d-block float-right">
|
||||||
|
<div class="d-flex align-items-center text-right line-height-1">
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">NEXT PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Presentation</h4>
|
||||||
|
</div>
|
||||||
|
<i class="fas fa-arrow-right text-dark text-4 ml-3"></i>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row pb-4 mb-2">
|
||||||
|
<div class="col-sm-6">
|
||||||
|
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-7.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<hr class="solid my-5">
|
||||||
|
|
||||||
|
<strong class="text-uppercase text-1 mr-3 text-dark float-left position-relative top-2">Share</strong>
|
||||||
|
<ul class="social-icons">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6">
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0">Project <strong class="font-weight-extra-bold">Description</strong></h2>
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>
|
||||||
|
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Proin ipsum tortor, viverra ut condimentum eu, accumsan a enim. Etiam egestas purus risus, vulputate ullamcorper diam fermentum in. Pellentesque non libero hendrerit, vestibulum tellus ut, malesuada purus.</p>
|
||||||
|
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0 mt-4">Project <strong class="font-weight-extra-bold">Details</strong></h2>
|
||||||
|
<ul class="list list-icons list-primary list-borders text-2">
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Client:</strong> Okler Themes</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Date:</strong> January 2020</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Skills:</strong> <a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">DESIGN</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">BRAND</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">WEBSITES</a></li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Project URL:</strong> <a href="#" target="_blank" class="text-dark">http://www.okler.net</a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,82 @@
|
||||||
|
<div class="ajax-container">
|
||||||
|
<div class="row align-items-center py-4">
|
||||||
|
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-prev class="text-decoration-none d-block float-left">
|
||||||
|
<div class="d-flex align-items-center line-height-1">
|
||||||
|
<i class="fas fa-arrow-left text-dark text-4 mr-3"></i>
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">PREVIOUS PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Porto Label</h4>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
<div class="overflow-hidden pb-2">
|
||||||
|
<h2 class="text-dark font-weight-bold text-7 mb-0">Presentation</h2>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col">
|
||||||
|
<a href="#" data-ajax-portfolio-next class="text-decoration-none d-block float-right">
|
||||||
|
<div class="d-flex align-items-center text-right line-height-1">
|
||||||
|
<div class="d-none d-sm-block line-height-1">
|
||||||
|
<span class="text-dark opacity-4 text-1">NEXT PROJECT</span>
|
||||||
|
<h4 class="font-weight-bold text-3 mb-0">Porto Watch</h4>
|
||||||
|
</div>
|
||||||
|
<i class="fas fa-arrow-right text-dark text-4 ml-3"></i>
|
||||||
|
</div>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="row pb-4 mb-2">
|
||||||
|
<div class="col-sm-6">
|
||||||
|
|
||||||
|
<div class="owl-carousel owl-theme nav-inside nav-inside-edge nav-squared nav-with-transparency nav-dark mt-3" data-plugin-options="{'items': 1, 'margin': 10, 'loop': false, 'nav': true, 'dots': false}">
|
||||||
|
<div>
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-short.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-short-2.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div>
|
||||||
|
<div class="img-thumbnail border-0 border-radius-0 p-0 d-block">
|
||||||
|
<img src="img/projects/project-short-3.jpg" class="img-fluid border-radius-0" alt="">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<hr class="solid my-5">
|
||||||
|
|
||||||
|
<strong class="text-uppercase text-1 mr-3 text-dark float-left position-relative top-2">Share</strong>
|
||||||
|
<ul class="social-icons">
|
||||||
|
<li class="social-icons-facebook"><a href="http://www.facebook.com/" target="_blank" title="Facebook"><i class="fab fa-facebook-f"></i></a></li>
|
||||||
|
<li class="social-icons-twitter"><a href="http://www.twitter.com/" target="_blank" title="Twitter"><i class="fab fa-twitter"></i></a></li>
|
||||||
|
<li class="social-icons-linkedin"><a href="http://www.linkedin.com/" target="_blank" title="Linkedin"><i class="fab fa-linkedin-in"></i></a></li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="col-sm-6">
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0">Project <strong class="font-weight-extra-bold">Description</strong></h2>
|
||||||
|
<p>Donec volutpat nibh sit amet libero ornare non laoreet arcu luctus. Donec id arcu quis mauris euismod placerat sit amet ut metus. Sed imperdiet fringilla sem eget euismod. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>
|
||||||
|
|
||||||
|
<h2 class="text-color-dark font-weight-normal text-4 mb-0 mt-4">Project <strong class="font-weight-extra-bold">Details</strong></h2>
|
||||||
|
<ul class="list list-icons list-primary list-borders text-2">
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Client:</strong> Okler Themes</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Date:</strong> January 2020</li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Skills:</strong> <a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">DESIGN</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">BRAND</a><a href="#" class="badge badge-dark badge-sm badge-pill px-2 py-1 ml-1">WEBSITES</a></li>
|
||||||
|
<li><i class="fas fa-caret-right left-10"></i> <strong class="text-color-primary">Project URL:</strong> <a href="#" target="_blank" class="text-dark">http://www.okler.net</a></li>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
@ -0,0 +1,67 @@
|
||||||
|
<?
|
||||||
|
/*
|
||||||
|
파일설명 : 인증용 API 페이지
|
||||||
|
생성일자 : 2021.06.22 18:00
|
||||||
|
작성자 : 박찬섭
|
||||||
|
Status Code 설명 :
|
||||||
|
200 -> 인증 통과
|
||||||
|
800 -> 인증키 없이 호출됨
|
||||||
|
801 -> 인증키 존재하지 않음
|
||||||
|
802 -> 인증기간 만료
|
||||||
|
*/
|
||||||
|
|
||||||
|
if($_GET['key'] == "" || $_GET['key'] == null) {
|
||||||
|
header("HTTP/1.1 800 Empty Key");
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
$result = GetKeyInfo($_GET['key']);
|
||||||
|
if($result == null) {
|
||||||
|
header("HTTP/1.1 801 No Key");
|
||||||
|
exit;
|
||||||
|
} else {
|
||||||
|
if(date("Y-m-d H:i:s") < date($result['expiration_at'])) {
|
||||||
|
header("HTTP/1.1 200 OK");
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
header("HTTP/1.1 802 Authentication expired");
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
function ConnectDB() {
|
||||||
|
$user = 'dbnt0928';
|
||||||
|
$password = 'dbnt060928!';
|
||||||
|
$host = 'localhost';
|
||||||
|
$schema = 'dbnt0928';
|
||||||
|
$conn = new mysqli($host, $user, $password, $schema);
|
||||||
|
if ($conn->connect_error) {
|
||||||
|
die($conn->connect_error);
|
||||||
|
}
|
||||||
|
return $conn;
|
||||||
|
}
|
||||||
|
|
||||||
|
function DisconnsctDB($conn) {
|
||||||
|
mysqli_close($conn);
|
||||||
|
}
|
||||||
|
|
||||||
|
function GetKeyInfo($key) {
|
||||||
|
$conn = ConnectDB();
|
||||||
|
$query = "select * from authkey where name='$key'";
|
||||||
|
$result = mysqli_query($conn, $query);
|
||||||
|
if (mysqli_num_rows($result) > 0) {
|
||||||
|
while($row = mysqli_fetch_assoc($result)) {
|
||||||
|
return array(
|
||||||
|
"name" => $row["name"],
|
||||||
|
"company" => $row["company"],
|
||||||
|
"descripyion" => $row["descripyion"],
|
||||||
|
"created_at" => $row["created_at"],
|
||||||
|
"expiration_at" => $row["expiration_at"]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,197 @@
|
||||||
|
<? include "include/head.php"; ?>
|
||||||
|
<? include "include/top.php"; ?>
|
||||||
|
<section class="page-header page-header-modern page-header-background page-header-background-md overlay overlay-color-dark overlay-show overlay-op-8" style="background-image: url(image/top.jpg);">
|
||||||
|
|
||||||
|
<div class="container">
|
||||||
|
|
||||||
|
<div class="row mt-5">
|
||||||
|
|
||||||
|
<div class="col-md-12 align-self-center p-static order-2 text-center">
|
||||||
|
|
||||||
|
<h1><?=$lang['CAREER_TEXT1']?></h1>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-12 align-self-center order-1">
|
||||||
|
|
||||||
|
<ul class="breadcrumb breadcrumb-light d-block text-center">
|
||||||
|
|
||||||
|
<li><a href="#">Home</a></li>
|
||||||
|
|
||||||
|
<li class="active">Careers</li>
|
||||||
|
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
|
||||||
|
<div class="sub_bg">
|
||||||
|
<section class="">
|
||||||
|
<div class="container text-left">
|
||||||
|
<div class="row justify-content-center appear-animation" data-appear-animation="fadeInUpShorter" data-appear-animation-delay="200">
|
||||||
|
<div class="col-md-12 col-xl-12 ">
|
||||||
|
<h6><?=$lang['CAREER_TEXT44']?></h6>
|
||||||
|
<h2 class="text-color-light mb-4"><?=$lang['CAREER_TEXT2']?>
|
||||||
|
</h2>
|
||||||
|
<div class="appear-animation" data-appear-animation="fadeInUpShorter" data-appear-animation-delay="400">
|
||||||
|
<p><?=$lang['CAREER_TEXT3']?></p>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT4']?></p>
|
||||||
|
</div>
|
||||||
|
<div class="career-text appear-animation" data-appear-animation="fadeInUpShorter" data-appear-animation-delay="600">
|
||||||
|
<p class="blue_text"><?=$lang['CAREER_TEXT5']?></p>
|
||||||
|
|
||||||
|
<p class="blue_text"><?=$lang['CAREER_TEXT6']?></p>
|
||||||
|
|
||||||
|
<p class="blue_text"><?=$lang['CAREER_TEXT7']?></p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row justify-content-center appear-animation" data-appear-animation="fadeInUpShorter" data-appear-animation-delay="200">
|
||||||
|
<div class="col-md-12 col-xl-12 ">
|
||||||
|
<h2 class="text-color-light mb-4"><?=$lang['CAREER_TEXT8']?>
|
||||||
|
</h2>
|
||||||
|
<div class="accordion" id="accordion">
|
||||||
|
<div class="card card-default">
|
||||||
|
<div class="card-header">
|
||||||
|
<h4 class="card-title m-0">
|
||||||
|
<a class="accordion-toggle collapsed" data-toggle="collapse" data-parent="#accordion" href="#career2" aria-expanded="false">
|
||||||
|
<h3 class="mb-0"><span class="career-icon"><i class="fas fa-caret-right"></i></span> <?=$lang['CAREER_TEXT9']?></h3>
|
||||||
|
</a>
|
||||||
|
</h4>
|
||||||
|
</div>
|
||||||
|
<div id="career2" class="collapse" style="">
|
||||||
|
<div class="card-body">
|
||||||
|
<h3><?=$lang['CAREER_TEXT10']?></h3>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT11']?></p>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT12']?></p>
|
||||||
|
|
||||||
|
<p class="m-b-20"><?=$lang['CAREER_TEXT13']?></p>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h3><?=$lang['CAREER_TEXT14']?></h3>
|
||||||
|
|
||||||
|
<p class="m-b-20"><?=$lang['CAREER_TEXT15']?></p>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h3><?=$lang['CAREER_TEXT16']?></h3>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT17']?></p>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT18']?></p>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT19']?></p>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT20']?></p>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="accordion" id="accordion">
|
||||||
|
<div class="card card-default">
|
||||||
|
<div class="card-header">
|
||||||
|
<h4 class="card-title m-0">
|
||||||
|
<a class="accordion-toggle collapsed" data-toggle="collapse" data-parent="#accordion" href="#career1" aria-expanded="false">
|
||||||
|
<h3 class="mb-0 transform-none"><span class="career-icon"><i class="fas fa-caret-right"></i></span> <?=$lang['CAREER_TEXT21']?></h3>
|
||||||
|
</a>
|
||||||
|
</h4>
|
||||||
|
</div>
|
||||||
|
<div id="career1" class="collapse" style="">
|
||||||
|
<div class="card-body">
|
||||||
|
<h3><?=$lang['CAREER_TEXT22']?></h3>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT23']?></p>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT24']?></p>
|
||||||
|
|
||||||
|
<p class="m-b-20"><?=$lang['CAREER_TEXT25']?></p>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h3><?=$lang['CAREER_TEXT14']?></h3>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT26']?></p>
|
||||||
|
|
||||||
|
<p class="m-b-20"><?=$lang['CAREER_TEXT27']?></p>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h3><?=$lang['CAREER_TEXT28']?></h3>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT29']?></p>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="p-t-50 row justify-content-center appear-animation" data-appear-animation="fadeInUpShorter" data-appear-animation-delay="200">
|
||||||
|
<div class="col-md-12 col-xl-12 ">
|
||||||
|
<h2 class="text-color-light mb-4"><?=$lang['CAREER_TEXT30']?>
|
||||||
|
</h2>
|
||||||
|
<div class="accordion" id="accordion">
|
||||||
|
<div class="card card-default">
|
||||||
|
<div class="card-header">
|
||||||
|
<h4 class="card-title m-0">
|
||||||
|
<a class="accordion-toggle collapsed" data-toggle="collapse" data-parent="#accordion" href="#career3" aria-expanded="false">
|
||||||
|
<h3 class="mb-0"><span class="career-icon"><i class="fas fa-caret-right"></i></span> <?=$lang['CAREER_TEXT31']?></h3>
|
||||||
|
</a>
|
||||||
|
</h4>
|
||||||
|
</div>
|
||||||
|
<div id="career3" class="collapse" style="">
|
||||||
|
<div class="card-body">
|
||||||
|
<h3><?=$lang['CAREER_TEXT32']?></h3>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT33']?></p>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT34']?></p>
|
||||||
|
|
||||||
|
<p class="m-b-20"><?=$lang['CAREER_TEXT35']?></p>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<h3><?=$lang['CAREER_TEXT36']?></h3>
|
||||||
|
|
||||||
|
<p><?=$lang['CAREER_TEXT37']?></p>
|
||||||
|
<p><?=$lang['CAREER_TEXT38']?></p>
|
||||||
|
<p class="m-b-20"><?=$lang['CAREER_TEXT39']?></p>
|
||||||
|
|
||||||
|
<h3><?=$lang['CAREER_TEXT40']?></h3>
|
||||||
|
|
||||||
|
<p class="m-b-20"><?=$lang['CAREER_TEXT41']?></p>
|
||||||
|
|
||||||
|
<h3><?=$lang['CAREER_TEXT42']?></h3>
|
||||||
|
<p><?=$lang['CAREER_TEXT43']?></p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</section>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<? include "include/footer.php"; ?>
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,251 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4: */
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Andrei Zmievski <andrei@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Getopt.php,v 1.21.4.8 2003/12/11 19:28:25 andrei Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Command-line options parsing class.
|
||||||
|
*
|
||||||
|
* @author Andrei Zmievski <andrei@php.net>
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
class Console_Getopt {
|
||||||
|
/**
|
||||||
|
* Parses the command-line options.
|
||||||
|
*
|
||||||
|
* The first parameter to this function should be the list of command-line
|
||||||
|
* arguments without the leading reference to the running program.
|
||||||
|
*
|
||||||
|
* The second parameter is a string of allowed short options. Each of the
|
||||||
|
* option letters can be followed by a colon ':' to specify that the option
|
||||||
|
* requires an argument, or a double colon '::' to specify that the option
|
||||||
|
* takes an optional argument.
|
||||||
|
*
|
||||||
|
* The third argument is an optional array of allowed long options. The
|
||||||
|
* leading '--' should not be included in the option name. Options that
|
||||||
|
* require an argument should be followed by '=', and options that take an
|
||||||
|
* option argument should be followed by '=='.
|
||||||
|
*
|
||||||
|
* The return value is an array of two elements: the list of parsed
|
||||||
|
* options and the list of non-option command-line arguments. Each entry in
|
||||||
|
* the list of parsed options is a pair of elements - the first one
|
||||||
|
* specifies the option, and the second one specifies the option argument,
|
||||||
|
* if there was one.
|
||||||
|
*
|
||||||
|
* Long and short options can be mixed.
|
||||||
|
*
|
||||||
|
* Most of the semantics of this function are based on GNU getopt_long().
|
||||||
|
*
|
||||||
|
* @param array $args an array of command-line arguments
|
||||||
|
* @param string $short_options specifies the list of allowed short options
|
||||||
|
* @param array $long_options specifies the list of allowed long options
|
||||||
|
*
|
||||||
|
* @return array two-element array containing the list of parsed options and
|
||||||
|
* the non-option arguments
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
function getopt2($args, $short_options, $long_options = null)
|
||||||
|
{
|
||||||
|
return Console_Getopt::doGetopt(2, $args, $short_options, $long_options);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This function expects $args to start with the script name (POSIX-style).
|
||||||
|
* Preserved for backwards compatibility.
|
||||||
|
* @see getopt2()
|
||||||
|
*/
|
||||||
|
function getopt($args, $short_options, $long_options = null)
|
||||||
|
{
|
||||||
|
return Console_Getopt::doGetopt(1, $args, $short_options, $long_options);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The actual implementation of the argument parsing code.
|
||||||
|
*/
|
||||||
|
function doGetopt($version, $args, $short_options, $long_options = null)
|
||||||
|
{
|
||||||
|
// in case you pass directly readPHPArgv() as the first arg
|
||||||
|
if (PEAR::isError($args)) {
|
||||||
|
return $args;
|
||||||
|
}
|
||||||
|
if (empty($args)) {
|
||||||
|
return array(array(), array());
|
||||||
|
}
|
||||||
|
$opts = array();
|
||||||
|
$non_opts = array();
|
||||||
|
|
||||||
|
settype($args, 'array');
|
||||||
|
|
||||||
|
if ($long_options) {
|
||||||
|
sort($long_options);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Preserve backwards compatibility with callers that relied on
|
||||||
|
* erroneous POSIX fix.
|
||||||
|
*/
|
||||||
|
if ($version < 2) {
|
||||||
|
if (isset($args[0]{0}) && $args[0]{0} != '-') {
|
||||||
|
array_shift($args);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
reset($args);
|
||||||
|
while (list($i, $arg) = each($args)) {
|
||||||
|
|
||||||
|
/* The special element '--' means explicit end of
|
||||||
|
options. Treat the rest of the arguments as non-options
|
||||||
|
and end the loop. */
|
||||||
|
if ($arg == '--') {
|
||||||
|
$non_opts = array_merge($non_opts, array_slice($args, $i + 1));
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($arg{0} != '-' || (strlen($arg) > 1 && $arg{1} == '-' && !$long_options)) {
|
||||||
|
$non_opts = array_merge($non_opts, array_slice($args, $i));
|
||||||
|
break;
|
||||||
|
} elseif (strlen($arg) > 1 && $arg{1} == '-') {
|
||||||
|
$error = Console_Getopt::_parseLongOption(substr($arg, 2), $long_options, $opts, $args);
|
||||||
|
if (PEAR::isError($error))
|
||||||
|
return $error;
|
||||||
|
} else {
|
||||||
|
$error = Console_Getopt::_parseShortOption(substr($arg, 1), $short_options, $opts, $args);
|
||||||
|
if (PEAR::isError($error))
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return array($opts, $non_opts);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @access private
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
function _parseShortOption($arg, $short_options, &$opts, &$args)
|
||||||
|
{
|
||||||
|
for ($i = 0; $i < strlen($arg); $i++) {
|
||||||
|
$opt = $arg{$i};
|
||||||
|
$opt_arg = null;
|
||||||
|
|
||||||
|
/* Try to find the short option in the specifier string. */
|
||||||
|
if (($spec = strstr($short_options, $opt)) === false || $arg{$i} == ':')
|
||||||
|
{
|
||||||
|
return PEAR::raiseError("Console_Getopt: unrecognized option -- $opt");
|
||||||
|
}
|
||||||
|
|
||||||
|
if (strlen($spec) > 1 && $spec{1} == ':') {
|
||||||
|
if (strlen($spec) > 2 && $spec{2} == ':') {
|
||||||
|
if ($i + 1 < strlen($arg)) {
|
||||||
|
/* Option takes an optional argument. Use the remainder of
|
||||||
|
the arg string if there is anything left. */
|
||||||
|
$opts[] = array($opt, substr($arg, $i + 1));
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
/* Option requires an argument. Use the remainder of the arg
|
||||||
|
string if there is anything left. */
|
||||||
|
if ($i + 1 < strlen($arg)) {
|
||||||
|
$opts[] = array($opt, substr($arg, $i + 1));
|
||||||
|
break;
|
||||||
|
} else if (list(, $opt_arg) = each($args))
|
||||||
|
/* Else use the next argument. */;
|
||||||
|
else
|
||||||
|
return PEAR::raiseError("Console_Getopt: option requires an argument -- $opt");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$opts[] = array($opt, $opt_arg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @access private
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
function _parseLongOption($arg, $long_options, &$opts, &$args)
|
||||||
|
{
|
||||||
|
@list($opt, $opt_arg) = explode('=', $arg);
|
||||||
|
$opt_len = strlen($opt);
|
||||||
|
|
||||||
|
for ($i = 0; $i < count($long_options); $i++) {
|
||||||
|
$long_opt = $long_options[$i];
|
||||||
|
$opt_start = substr($long_opt, 0, $opt_len);
|
||||||
|
|
||||||
|
/* Option doesn't match. Go on to the next one. */
|
||||||
|
if ($opt_start != $opt)
|
||||||
|
continue;
|
||||||
|
|
||||||
|
$opt_rest = substr($long_opt, $opt_len);
|
||||||
|
|
||||||
|
/* Check that the options uniquely matches one of the allowed
|
||||||
|
options. */
|
||||||
|
if ($opt_rest != '' && $opt{0} != '=' &&
|
||||||
|
$i + 1 < count($long_options) &&
|
||||||
|
$opt == substr($long_options[$i+1], 0, $opt_len)) {
|
||||||
|
return PEAR::raiseError("Console_Getopt: option --$opt is ambiguous");
|
||||||
|
}
|
||||||
|
|
||||||
|
if (substr($long_opt, -1) == '=') {
|
||||||
|
if (substr($long_opt, -2) != '==') {
|
||||||
|
/* Long option requires an argument.
|
||||||
|
Take the next argument if one wasn't specified. */;
|
||||||
|
if (!strlen($opt_arg) && !(list(, $opt_arg) = each($args))) {
|
||||||
|
return PEAR::raiseError("Console_Getopt: option --$opt requires an argument");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else if ($opt_arg) {
|
||||||
|
return PEAR::raiseError("Console_Getopt: option --$opt doesn't allow an argument");
|
||||||
|
}
|
||||||
|
|
||||||
|
$opts[] = array('--' . $opt, $opt_arg);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
return PEAR::raiseError("Console_Getopt: unrecognized option --$opt");
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Safely read the $argv PHP array across different PHP configurations.
|
||||||
|
* Will take care on register_globals and register_argc_argv ini directives
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return mixed the $argv PHP array or PEAR error if not registered
|
||||||
|
*/
|
||||||
|
function readPHPArgv()
|
||||||
|
{
|
||||||
|
global $argv;
|
||||||
|
if (!is_array($argv)) {
|
||||||
|
if (!@is_array($_SERVER['argv'])) {
|
||||||
|
if (!@is_array($GLOBALS['HTTP_SERVER_VARS']['argv'])) {
|
||||||
|
return PEAR::raiseError("Console_Getopt: Could not read cmd args (register_argc_argv=Off?)");
|
||||||
|
}
|
||||||
|
return $GLOBALS['HTTP_SERVER_VARS']['argv'];
|
||||||
|
}
|
||||||
|
return $_SERVER['argv'];
|
||||||
|
}
|
||||||
|
return $argv;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,510 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The PEAR DB driver for PHP's dbase extension
|
||||||
|
* for interacting with dBase databases
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Tomas V.V. Cox <cox@idecnet.com>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: dbase.php,v 1.45 2007/09/21 13:40:41 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB_common class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB/common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The methods PEAR DB uses to interact with PHP's dbase extension
|
||||||
|
* for interacting with dBase databases
|
||||||
|
*
|
||||||
|
* These methods overload the ones declared in DB_common.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Tomas V.V. Cox <cox@idecnet.com>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
class DB_dbase extends DB_common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $phptype = 'dbase';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database syntax variant to be used (db2, access, etc.), if any
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $dbsyntax = 'dbase';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The capabilities of this DB implementation
|
||||||
|
*
|
||||||
|
* The 'new_link' element contains the PHP version that first provided
|
||||||
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
||||||
|
*
|
||||||
|
* Meaning of the 'limit' element:
|
||||||
|
* + 'emulate' = emulate with fetch row by number
|
||||||
|
* + 'alter' = alter the query
|
||||||
|
* + false = skip rows
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $features = array(
|
||||||
|
'limit' => false,
|
||||||
|
'new_link' => false,
|
||||||
|
'numrows' => true,
|
||||||
|
'pconnect' => false,
|
||||||
|
'prepare' => false,
|
||||||
|
'ssl' => false,
|
||||||
|
'transactions' => false,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A mapping of native error codes to DB error codes
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $errorcode_map = array(
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The raw database connection created by PHP
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $connection;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DSN information for connecting to a database
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $dsn = array();
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A means of emulating result resources
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $res_row = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The quantity of results so far
|
||||||
|
*
|
||||||
|
* For emulating result resources.
|
||||||
|
*
|
||||||
|
* @var integer
|
||||||
|
*/
|
||||||
|
var $result = 0;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Maps dbase data type id's to human readable strings
|
||||||
|
*
|
||||||
|
* The human readable values are based on the output of PHP's
|
||||||
|
* dbase_get_header_info() function.
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
* @since Property available since Release 1.7.0
|
||||||
|
*/
|
||||||
|
var $types = array(
|
||||||
|
'C' => 'character',
|
||||||
|
'D' => 'date',
|
||||||
|
'L' => 'boolean',
|
||||||
|
'M' => 'memo',
|
||||||
|
'N' => 'number',
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This constructor calls <kbd>$this->DB_common()</kbd>
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function DB_dbase()
|
||||||
|
{
|
||||||
|
$this->DB_common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ connect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Connect to the database and create it if it doesn't exist
|
||||||
|
*
|
||||||
|
* Don't call this method directly. Use DB::connect() instead.
|
||||||
|
*
|
||||||
|
* PEAR DB's dbase driver supports the following extra DSN options:
|
||||||
|
* + mode An integer specifying the read/write mode to use
|
||||||
|
* (0 = read only, 1 = write only, 2 = read/write).
|
||||||
|
* Available since PEAR DB 1.7.0.
|
||||||
|
* + fields An array of arrays that PHP's dbase_create() function needs
|
||||||
|
* to create a new database. This information is used if the
|
||||||
|
* dBase file specified in the "database" segment of the DSN
|
||||||
|
* does not exist. For more info, see the PHP manual's
|
||||||
|
* {@link http://php.net/dbase_create dbase_create()} page.
|
||||||
|
* Available since PEAR DB 1.7.0.
|
||||||
|
*
|
||||||
|
* Example of how to connect and establish a new dBase file if necessary:
|
||||||
|
* <code>
|
||||||
|
* require_once 'DB.php';
|
||||||
|
*
|
||||||
|
* $dsn = array(
|
||||||
|
* 'phptype' => 'dbase',
|
||||||
|
* 'database' => '/path/and/name/of/dbase/file',
|
||||||
|
* 'mode' => 2,
|
||||||
|
* 'fields' => array(
|
||||||
|
* array('a', 'N', 5, 0),
|
||||||
|
* array('b', 'C', 40),
|
||||||
|
* array('c', 'C', 255),
|
||||||
|
* array('d', 'C', 20),
|
||||||
|
* ),
|
||||||
|
* );
|
||||||
|
* $options = array(
|
||||||
|
* 'debug' => 2,
|
||||||
|
* 'portability' => DB_PORTABILITY_ALL,
|
||||||
|
* );
|
||||||
|
*
|
||||||
|
* $db = DB::connect($dsn, $options);
|
||||||
|
* if (PEAR::isError($db)) {
|
||||||
|
* die($db->getMessage());
|
||||||
|
* }
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @param array $dsn the data source name
|
||||||
|
* @param bool $persistent should the connection be persistent?
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function connect($dsn, $persistent = false)
|
||||||
|
{
|
||||||
|
if (!PEAR::loadExtension('dbase')) {
|
||||||
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->dsn = $dsn;
|
||||||
|
if ($dsn['dbsyntax']) {
|
||||||
|
$this->dbsyntax = $dsn['dbsyntax'];
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Turn track_errors on for entire script since $php_errormsg
|
||||||
|
* is the only way to find errors from the dbase extension.
|
||||||
|
*/
|
||||||
|
@ini_set('track_errors', 1);
|
||||||
|
$php_errormsg = '';
|
||||||
|
|
||||||
|
if (!file_exists($dsn['database'])) {
|
||||||
|
$this->dsn['mode'] = 2;
|
||||||
|
if (empty($dsn['fields']) || !is_array($dsn['fields'])) {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
'the dbase file does not exist and '
|
||||||
|
. 'it could not be created because '
|
||||||
|
. 'the "fields" element of the DSN '
|
||||||
|
. 'is not properly set');
|
||||||
|
}
|
||||||
|
$this->connection = @dbase_create($dsn['database'],
|
||||||
|
$dsn['fields']);
|
||||||
|
if (!$this->connection) {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
'the dbase file does not exist and '
|
||||||
|
. 'the attempt to create it failed: '
|
||||||
|
. $php_errormsg);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if (!isset($this->dsn['mode'])) {
|
||||||
|
$this->dsn['mode'] = 0;
|
||||||
|
}
|
||||||
|
$this->connection = @dbase_open($dsn['database'],
|
||||||
|
$this->dsn['mode']);
|
||||||
|
if (!$this->connection) {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
$php_errormsg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ disconnect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Disconnects from the database server
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE on failure
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
$ret = @dbase_close($this->connection);
|
||||||
|
$this->connection = null;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ &query()
|
||||||
|
|
||||||
|
function &query($query = null)
|
||||||
|
{
|
||||||
|
// emulate result resources
|
||||||
|
$this->res_row[(int)$this->result] = 0;
|
||||||
|
$tmp = new DB_result($this, $this->result++);
|
||||||
|
return $tmp;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fetchInto()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Places a row from the result set into the given array
|
||||||
|
*
|
||||||
|
* Formating of the array and the data therein are configurable.
|
||||||
|
* See DB_result::fetchInto() for more information.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result the query result resource
|
||||||
|
* @param array $arr the referenced array to put the data in
|
||||||
|
* @param int $fetchmode how the resulting array should be indexed
|
||||||
|
* @param int $rownum the row number to fetch (0 = first row)
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
||||||
|
* reached or on failure
|
||||||
|
*
|
||||||
|
* @see DB_result::fetchInto()
|
||||||
|
*/
|
||||||
|
function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
||||||
|
{
|
||||||
|
if ($rownum === null) {
|
||||||
|
$rownum = $this->res_row[(int)$result]++;
|
||||||
|
}
|
||||||
|
if ($fetchmode & DB_FETCHMODE_ASSOC) {
|
||||||
|
$arr = @dbase_get_record_with_names($this->connection, $rownum);
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {
|
||||||
|
$arr = array_change_key_case($arr, CASE_LOWER);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$arr = @dbase_get_record($this->connection, $rownum);
|
||||||
|
}
|
||||||
|
if (!$arr) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
||||||
|
$this->_rtrimArrayValues($arr);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
||||||
|
$this->_convertNullArrayValuesToEmpty($arr);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ freeResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes the result set and frees the memory occupied by the result set.
|
||||||
|
*
|
||||||
|
* This method is a no-op for dbase, as there aren't result resources in
|
||||||
|
* the same sense as most other database backends.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if $result is invalid
|
||||||
|
*
|
||||||
|
* @see DB_result::free()
|
||||||
|
*/
|
||||||
|
function freeResult($result)
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numCols()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of columns in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numCols() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of columns. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numCols()
|
||||||
|
*/
|
||||||
|
function numCols($foo)
|
||||||
|
{
|
||||||
|
return @dbase_numfields($this->connection);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of rows in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numRows() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numRows()
|
||||||
|
*/
|
||||||
|
function numRows($foo)
|
||||||
|
{
|
||||||
|
return @dbase_numrecords($this->connection);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quoteBoolean()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Formats a boolean value for use within a query in a locale-independent
|
||||||
|
* manner.
|
||||||
|
*
|
||||||
|
* @param boolean the boolean value to be quoted.
|
||||||
|
* @return string the quoted string.
|
||||||
|
* @see DB_common::quoteSmart()
|
||||||
|
* @since Method available since release 1.7.8.
|
||||||
|
*/
|
||||||
|
function quoteBoolean($boolean) {
|
||||||
|
return $boolean ? 'T' : 'F';
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns information about the current database
|
||||||
|
*
|
||||||
|
* @param mixed $result THIS IS UNUSED IN DBASE. The current database
|
||||||
|
* is examined regardless of what is provided here.
|
||||||
|
* @param int $mode a valid tableInfo mode
|
||||||
|
*
|
||||||
|
* @return array an associative array with the information requested.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::tableInfo()
|
||||||
|
* @since Method available since Release 1.7.0
|
||||||
|
*/
|
||||||
|
function tableInfo($result = null, $mode = null)
|
||||||
|
{
|
||||||
|
if (function_exists('dbase_get_header_info')) {
|
||||||
|
$id = @dbase_get_header_info($this->connection);
|
||||||
|
if (!$id && $php_errormsg) {
|
||||||
|
return $this->raiseError(DB_ERROR,
|
||||||
|
null, null, null,
|
||||||
|
$php_errormsg);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
/*
|
||||||
|
* This segment for PHP 4 is loosely based on code by
|
||||||
|
* Hadi Rusiah <deegos@yahoo.com> in the comments on
|
||||||
|
* the dBase reference page in the PHP manual.
|
||||||
|
*/
|
||||||
|
$db = @fopen($this->dsn['database'], 'r');
|
||||||
|
if (!$db) {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
$php_errormsg);
|
||||||
|
}
|
||||||
|
|
||||||
|
$id = array();
|
||||||
|
$i = 0;
|
||||||
|
|
||||||
|
$line = fread($db, 32);
|
||||||
|
while (!feof($db)) {
|
||||||
|
$line = fread($db, 32);
|
||||||
|
if (substr($line, 0, 1) == chr(13)) {
|
||||||
|
break;
|
||||||
|
} else {
|
||||||
|
$pos = strpos(substr($line, 0, 10), chr(0));
|
||||||
|
$pos = ($pos == 0 ? 10 : $pos);
|
||||||
|
$id[$i] = array(
|
||||||
|
'name' => substr($line, 0, $pos),
|
||||||
|
'type' => $this->types[substr($line, 11, 1)],
|
||||||
|
'length' => ord(substr($line, 16, 1)),
|
||||||
|
'precision' => ord(substr($line, 17, 1)),
|
||||||
|
);
|
||||||
|
}
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
|
||||||
|
fclose($db);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$case_func = 'strtolower';
|
||||||
|
} else {
|
||||||
|
$case_func = 'strval';
|
||||||
|
}
|
||||||
|
|
||||||
|
$res = array();
|
||||||
|
$count = count($id);
|
||||||
|
|
||||||
|
if ($mode) {
|
||||||
|
$res['num_fields'] = $count;
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < $count; $i++) {
|
||||||
|
$res[$i] = array(
|
||||||
|
'table' => $this->dsn['database'],
|
||||||
|
'name' => $case_func($id[$i]['name']),
|
||||||
|
'type' => $id[$i]['type'],
|
||||||
|
'len' => $id[$i]['length'],
|
||||||
|
'flags' => ''
|
||||||
|
);
|
||||||
|
if ($mode & DB_TABLEINFO_ORDER) {
|
||||||
|
$res['order'][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
||||||
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,769 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The PEAR DB driver for PHP's fbsql extension
|
||||||
|
* for interacting with FrontBase databases
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Frank M. Kromann <frank@frontbase.com>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: fbsql.php,v 1.88 2007/07/06 05:19:21 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB_common class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB/common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The methods PEAR DB uses to interact with PHP's fbsql extension
|
||||||
|
* for interacting with FrontBase databases
|
||||||
|
*
|
||||||
|
* These methods overload the ones declared in DB_common.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Frank M. Kromann <frank@frontbase.com>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
* @since Class functional since Release 1.7.0
|
||||||
|
*/
|
||||||
|
class DB_fbsql extends DB_common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $phptype = 'fbsql';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database syntax variant to be used (db2, access, etc.), if any
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $dbsyntax = 'fbsql';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The capabilities of this DB implementation
|
||||||
|
*
|
||||||
|
* The 'new_link' element contains the PHP version that first provided
|
||||||
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
||||||
|
*
|
||||||
|
* Meaning of the 'limit' element:
|
||||||
|
* + 'emulate' = emulate with fetch row by number
|
||||||
|
* + 'alter' = alter the query
|
||||||
|
* + false = skip rows
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $features = array(
|
||||||
|
'limit' => 'alter',
|
||||||
|
'new_link' => false,
|
||||||
|
'numrows' => true,
|
||||||
|
'pconnect' => true,
|
||||||
|
'prepare' => false,
|
||||||
|
'ssl' => false,
|
||||||
|
'transactions' => true,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A mapping of native error codes to DB error codes
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $errorcode_map = array(
|
||||||
|
22 => DB_ERROR_SYNTAX,
|
||||||
|
85 => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
108 => DB_ERROR_SYNTAX,
|
||||||
|
116 => DB_ERROR_NOSUCHTABLE,
|
||||||
|
124 => DB_ERROR_VALUE_COUNT_ON_ROW,
|
||||||
|
215 => DB_ERROR_NOSUCHFIELD,
|
||||||
|
217 => DB_ERROR_INVALID_NUMBER,
|
||||||
|
226 => DB_ERROR_NOSUCHFIELD,
|
||||||
|
231 => DB_ERROR_INVALID,
|
||||||
|
239 => DB_ERROR_TRUNCATED,
|
||||||
|
251 => DB_ERROR_SYNTAX,
|
||||||
|
266 => DB_ERROR_NOT_FOUND,
|
||||||
|
357 => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
358 => DB_ERROR_CONSTRAINT,
|
||||||
|
360 => DB_ERROR_CONSTRAINT,
|
||||||
|
361 => DB_ERROR_CONSTRAINT,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The raw database connection created by PHP
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $connection;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DSN information for connecting to a database
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $dsn = array();
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This constructor calls <kbd>$this->DB_common()</kbd>
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function DB_fbsql()
|
||||||
|
{
|
||||||
|
$this->DB_common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ connect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Connect to the database server, log in and open the database
|
||||||
|
*
|
||||||
|
* Don't call this method directly. Use DB::connect() instead.
|
||||||
|
*
|
||||||
|
* @param array $dsn the data source name
|
||||||
|
* @param bool $persistent should the connection be persistent?
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function connect($dsn, $persistent = false)
|
||||||
|
{
|
||||||
|
if (!PEAR::loadExtension('fbsql')) {
|
||||||
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->dsn = $dsn;
|
||||||
|
if ($dsn['dbsyntax']) {
|
||||||
|
$this->dbsyntax = $dsn['dbsyntax'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$params = array(
|
||||||
|
$dsn['hostspec'] ? $dsn['hostspec'] : 'localhost',
|
||||||
|
$dsn['username'] ? $dsn['username'] : null,
|
||||||
|
$dsn['password'] ? $dsn['password'] : null,
|
||||||
|
);
|
||||||
|
|
||||||
|
$connect_function = $persistent ? 'fbsql_pconnect' : 'fbsql_connect';
|
||||||
|
|
||||||
|
$ini = ini_get('track_errors');
|
||||||
|
$php_errormsg = '';
|
||||||
|
if ($ini) {
|
||||||
|
$this->connection = @call_user_func_array($connect_function,
|
||||||
|
$params);
|
||||||
|
} else {
|
||||||
|
@ini_set('track_errors', 1);
|
||||||
|
$this->connection = @call_user_func_array($connect_function,
|
||||||
|
$params);
|
||||||
|
@ini_set('track_errors', $ini);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$this->connection) {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
$php_errormsg);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($dsn['database']) {
|
||||||
|
if (!@fbsql_select_db($dsn['database'], $this->connection)) {
|
||||||
|
return $this->fbsqlRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ disconnect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Disconnects from the database server
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE on failure
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
$ret = @fbsql_close($this->connection);
|
||||||
|
$this->connection = null;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ simpleQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sends a query to the database server
|
||||||
|
*
|
||||||
|
* @param string the SQL query string
|
||||||
|
*
|
||||||
|
* @return mixed + a PHP result resrouce for successful SELECT queries
|
||||||
|
* + the DB_OK constant for other successful queries
|
||||||
|
* + a DB_Error object on failure
|
||||||
|
*/
|
||||||
|
function simpleQuery($query)
|
||||||
|
{
|
||||||
|
$this->last_query = $query;
|
||||||
|
$query = $this->modifyQuery($query);
|
||||||
|
$result = @fbsql_query("$query;", $this->connection);
|
||||||
|
if (!$result) {
|
||||||
|
return $this->fbsqlRaiseError();
|
||||||
|
}
|
||||||
|
// Determine which queries that should return data, and which
|
||||||
|
// should return an error code only.
|
||||||
|
if ($this->_checkManip($query)) {
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Move the internal fbsql result pointer to the next available result
|
||||||
|
*
|
||||||
|
* @param a valid fbsql result resource
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
* @return true if a result is available otherwise return false
|
||||||
|
*/
|
||||||
|
function nextResult($result)
|
||||||
|
{
|
||||||
|
return @fbsql_next_result($result);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fetchInto()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Places a row from the result set into the given array
|
||||||
|
*
|
||||||
|
* Formating of the array and the data therein are configurable.
|
||||||
|
* See DB_result::fetchInto() for more information.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result the query result resource
|
||||||
|
* @param array $arr the referenced array to put the data in
|
||||||
|
* @param int $fetchmode how the resulting array should be indexed
|
||||||
|
* @param int $rownum the row number to fetch (0 = first row)
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
||||||
|
* reached or on failure
|
||||||
|
*
|
||||||
|
* @see DB_result::fetchInto()
|
||||||
|
*/
|
||||||
|
function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
||||||
|
{
|
||||||
|
if ($rownum !== null) {
|
||||||
|
if (!@fbsql_data_seek($result, $rownum)) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($fetchmode & DB_FETCHMODE_ASSOC) {
|
||||||
|
$arr = @fbsql_fetch_array($result, FBSQL_ASSOC);
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {
|
||||||
|
$arr = array_change_key_case($arr, CASE_LOWER);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$arr = @fbsql_fetch_row($result);
|
||||||
|
}
|
||||||
|
if (!$arr) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
||||||
|
$this->_rtrimArrayValues($arr);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
||||||
|
$this->_convertNullArrayValuesToEmpty($arr);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ freeResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes the result set and frees the memory occupied by the result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::free() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if $result is invalid
|
||||||
|
*
|
||||||
|
* @see DB_result::free()
|
||||||
|
*/
|
||||||
|
function freeResult($result)
|
||||||
|
{
|
||||||
|
return is_resource($result) ? fbsql_free_result($result) : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ autoCommit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Enables or disables automatic commits
|
||||||
|
*
|
||||||
|
* @param bool $onoff true turns it on, false turns it off
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object if the driver
|
||||||
|
* doesn't support auto-committing transactions.
|
||||||
|
*/
|
||||||
|
function autoCommit($onoff=false)
|
||||||
|
{
|
||||||
|
if ($onoff) {
|
||||||
|
$this->query("SET COMMIT TRUE");
|
||||||
|
} else {
|
||||||
|
$this->query("SET COMMIT FALSE");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ commit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Commits the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function commit()
|
||||||
|
{
|
||||||
|
@fbsql_commit($this->connection);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ rollback()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reverts the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function rollback()
|
||||||
|
{
|
||||||
|
@fbsql_rollback($this->connection);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numCols()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of columns in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numCols() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of columns. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numCols()
|
||||||
|
*/
|
||||||
|
function numCols($result)
|
||||||
|
{
|
||||||
|
$cols = @fbsql_num_fields($result);
|
||||||
|
if (!$cols) {
|
||||||
|
return $this->fbsqlRaiseError();
|
||||||
|
}
|
||||||
|
return $cols;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of rows in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numRows() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numRows()
|
||||||
|
*/
|
||||||
|
function numRows($result)
|
||||||
|
{
|
||||||
|
$rows = @fbsql_num_rows($result);
|
||||||
|
if ($rows === null) {
|
||||||
|
return $this->fbsqlRaiseError();
|
||||||
|
}
|
||||||
|
return $rows;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ affectedRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines the number of rows affected by a data maniuplation query
|
||||||
|
*
|
||||||
|
* 0 is returned for queries that don't manipulate data.
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function affectedRows()
|
||||||
|
{
|
||||||
|
if ($this->_last_query_manip) {
|
||||||
|
$result = @fbsql_affected_rows($this->connection);
|
||||||
|
} else {
|
||||||
|
$result = 0;
|
||||||
|
}
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextId()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the next free id in a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence
|
||||||
|
* @param boolean $ondemand when true, the seqence is automatically
|
||||||
|
* created if it does not exist
|
||||||
|
*
|
||||||
|
* @return int the next id number in the sequence.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::nextID(), DB_common::getSequenceName(),
|
||||||
|
* DB_fbsql::createSequence(), DB_fbsql::dropSequence()
|
||||||
|
*/
|
||||||
|
function nextId($seq_name, $ondemand = true)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
do {
|
||||||
|
$repeat = 0;
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$result = $this->query('SELECT UNIQUE FROM ' . $seqname);
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if ($ondemand && DB::isError($result) &&
|
||||||
|
$result->getCode() == DB_ERROR_NOSUCHTABLE) {
|
||||||
|
$repeat = 1;
|
||||||
|
$result = $this->createSequence($seq_name);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$repeat = 0;
|
||||||
|
}
|
||||||
|
} while ($repeat);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->fbsqlRaiseError();
|
||||||
|
}
|
||||||
|
$result->fetchInto($tmp, DB_FETCHMODE_ORDERED);
|
||||||
|
return $tmp[0];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates a new sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the new sequence
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::createSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_fbsql::nextID(), DB_fbsql::dropSequence()
|
||||||
|
*/
|
||||||
|
function createSequence($seq_name)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
$res = $this->query('CREATE TABLE ' . $seqname
|
||||||
|
. ' (id INTEGER NOT NULL,'
|
||||||
|
. ' PRIMARY KEY(id))');
|
||||||
|
if ($res) {
|
||||||
|
$res = $this->query('SET UNIQUE = 0 FOR ' . $seqname);
|
||||||
|
}
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ dropSequence()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence to be deleted
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::dropSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_fbsql::nextID(), DB_fbsql::createSequence()
|
||||||
|
*/
|
||||||
|
function dropSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('DROP TABLE ' . $this->getSequenceName($seq_name)
|
||||||
|
. ' RESTRICT');
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ modifyLimitQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Adds LIMIT clauses to a query string according to current DBMS standards
|
||||||
|
*
|
||||||
|
* @param string $query the query to modify
|
||||||
|
* @param int $from the row to start to fetching (0 = the first row)
|
||||||
|
* @param int $count the numbers of rows to fetch
|
||||||
|
* @param mixed $params array, string or numeric data to be used in
|
||||||
|
* execution of the statement. Quantity of items
|
||||||
|
* passed must match quantity of placeholders in
|
||||||
|
* query: meaning 1 placeholder for non-array
|
||||||
|
* parameters or 1 placeholder per array element.
|
||||||
|
*
|
||||||
|
* @return string the query string with LIMIT clauses added
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
*/
|
||||||
|
function modifyLimitQuery($query, $from, $count, $params = array())
|
||||||
|
{
|
||||||
|
if (DB::isManip($query) || $this->_next_query_manip) {
|
||||||
|
return preg_replace('/^([\s(])*SELECT/i',
|
||||||
|
"\\1SELECT TOP($count)", $query);
|
||||||
|
} else {
|
||||||
|
return preg_replace('/([\s(])*SELECT/i',
|
||||||
|
"\\1SELECT TOP($from, $count)", $query);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quoteBoolean()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Formats a boolean value for use within a query in a locale-independent
|
||||||
|
* manner.
|
||||||
|
*
|
||||||
|
* @param boolean the boolean value to be quoted.
|
||||||
|
* @return string the quoted string.
|
||||||
|
* @see DB_common::quoteSmart()
|
||||||
|
* @since Method available since release 1.7.8.
|
||||||
|
*/
|
||||||
|
function quoteBoolean($boolean) {
|
||||||
|
return $boolean ? 'TRUE' : 'FALSE';
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quoteFloat()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Formats a float value for use within a query in a locale-independent
|
||||||
|
* manner.
|
||||||
|
*
|
||||||
|
* @param float the float value to be quoted.
|
||||||
|
* @return string the quoted string.
|
||||||
|
* @see DB_common::quoteSmart()
|
||||||
|
* @since Method available since release 1.7.8.
|
||||||
|
*/
|
||||||
|
function quoteFloat($float) {
|
||||||
|
return $this->escapeSimple(str_replace(',', '.', strval(floatval($float))));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fbsqlRaiseError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Produces a DB_Error object regarding the current problem
|
||||||
|
*
|
||||||
|
* @param int $errno if the error is being manually raised pass a
|
||||||
|
* DB_ERROR* constant here. If this isn't passed
|
||||||
|
* the error information gathered from the DBMS.
|
||||||
|
*
|
||||||
|
* @return object the DB_Error object
|
||||||
|
*
|
||||||
|
* @see DB_common::raiseError(),
|
||||||
|
* DB_fbsql::errorNative(), DB_common::errorCode()
|
||||||
|
*/
|
||||||
|
function fbsqlRaiseError($errno = null)
|
||||||
|
{
|
||||||
|
if ($errno === null) {
|
||||||
|
$errno = $this->errorCode(fbsql_errno($this->connection));
|
||||||
|
}
|
||||||
|
return $this->raiseError($errno, null, null, null,
|
||||||
|
@fbsql_error($this->connection));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorNative()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the DBMS' native error code produced by the last query
|
||||||
|
*
|
||||||
|
* @return int the DBMS' error code
|
||||||
|
*/
|
||||||
|
function errorNative()
|
||||||
|
{
|
||||||
|
return @fbsql_errno($this->connection);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns information about a table or a result set
|
||||||
|
*
|
||||||
|
* @param object|string $result DB_result object from a query or a
|
||||||
|
* string containing the name of a table.
|
||||||
|
* While this also accepts a query result
|
||||||
|
* resource identifier, this behavior is
|
||||||
|
* deprecated.
|
||||||
|
* @param int $mode a valid tableInfo mode
|
||||||
|
*
|
||||||
|
* @return array an associative array with the information requested.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::tableInfo()
|
||||||
|
*/
|
||||||
|
function tableInfo($result, $mode = null)
|
||||||
|
{
|
||||||
|
if (is_string($result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a table name.
|
||||||
|
* Create a result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = @fbsql_list_fields($this->dsn['database'],
|
||||||
|
$result, $this->connection);
|
||||||
|
$got_string = true;
|
||||||
|
} elseif (isset($result->result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a result object.
|
||||||
|
* Extract the result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = $result->result;
|
||||||
|
$got_string = false;
|
||||||
|
} else {
|
||||||
|
/*
|
||||||
|
* Probably received a result resource identifier.
|
||||||
|
* Copy it.
|
||||||
|
* Deprecated. Here for compatibility only.
|
||||||
|
*/
|
||||||
|
$id = $result;
|
||||||
|
$got_string = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is_resource($id)) {
|
||||||
|
return $this->fbsqlRaiseError(DB_ERROR_NEED_MORE_DATA);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$case_func = 'strtolower';
|
||||||
|
} else {
|
||||||
|
$case_func = 'strval';
|
||||||
|
}
|
||||||
|
|
||||||
|
$count = @fbsql_num_fields($id);
|
||||||
|
$res = array();
|
||||||
|
|
||||||
|
if ($mode) {
|
||||||
|
$res['num_fields'] = $count;
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < $count; $i++) {
|
||||||
|
$res[$i] = array(
|
||||||
|
'table' => $case_func(@fbsql_field_table($id, $i)),
|
||||||
|
'name' => $case_func(@fbsql_field_name($id, $i)),
|
||||||
|
'type' => @fbsql_field_type($id, $i),
|
||||||
|
'len' => @fbsql_field_len($id, $i),
|
||||||
|
'flags' => @fbsql_field_flags($id, $i),
|
||||||
|
);
|
||||||
|
if ($mode & DB_TABLEINFO_ORDER) {
|
||||||
|
$res['order'][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
||||||
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// free the result only if we were called on a table
|
||||||
|
if ($got_string) {
|
||||||
|
@fbsql_free_result($id);
|
||||||
|
}
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getSpecialQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtains the query string needed for listing a given type of objects
|
||||||
|
*
|
||||||
|
* @param string $type the kind of objects you want to retrieve
|
||||||
|
*
|
||||||
|
* @return string the SQL query string or null if the driver doesn't
|
||||||
|
* support the object type requested
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
* @see DB_common::getListOf()
|
||||||
|
*/
|
||||||
|
function getSpecialQuery($type)
|
||||||
|
{
|
||||||
|
switch ($type) {
|
||||||
|
case 'tables':
|
||||||
|
return 'SELECT "table_name" FROM information_schema.tables'
|
||||||
|
. ' t0, information_schema.schemata t1'
|
||||||
|
. ' WHERE t0.schema_pk=t1.schema_pk AND'
|
||||||
|
. ' "table_type" = \'BASE TABLE\''
|
||||||
|
. ' AND "schema_name" = current_schema';
|
||||||
|
case 'views':
|
||||||
|
return 'SELECT "table_name" FROM information_schema.tables'
|
||||||
|
. ' t0, information_schema.schemata t1'
|
||||||
|
. ' WHERE t0.schema_pk=t1.schema_pk AND'
|
||||||
|
. ' "table_type" = \'VIEW\''
|
||||||
|
. ' AND "schema_name" = current_schema';
|
||||||
|
case 'users':
|
||||||
|
return 'SELECT "user_name" from information_schema.users';
|
||||||
|
case 'functions':
|
||||||
|
return 'SELECT "routine_name" FROM'
|
||||||
|
. ' information_schema.psm_routines'
|
||||||
|
. ' t0, information_schema.schemata t1'
|
||||||
|
. ' WHERE t0.schema_pk=t1.schema_pk'
|
||||||
|
. ' AND "routine_kind"=\'FUNCTION\''
|
||||||
|
. ' AND "schema_name" = current_schema';
|
||||||
|
case 'procedures':
|
||||||
|
return 'SELECT "routine_name" FROM'
|
||||||
|
. ' information_schema.psm_routines'
|
||||||
|
. ' t0, information_schema.schemata t1'
|
||||||
|
. ' WHERE t0.schema_pk=t1.schema_pk'
|
||||||
|
. ' AND "routine_kind"=\'PROCEDURE\''
|
||||||
|
. ' AND "schema_name" = current_schema';
|
||||||
|
default:
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,683 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The PEAR DB driver for PHP's ifx extension
|
||||||
|
* for interacting with Informix databases
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: ifx.php,v 1.75 2007/07/06 05:19:21 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB_common class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB/common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The methods PEAR DB uses to interact with PHP's ifx extension
|
||||||
|
* for interacting with Informix databases
|
||||||
|
*
|
||||||
|
* These methods overload the ones declared in DB_common.
|
||||||
|
*
|
||||||
|
* More info on Informix errors can be found at:
|
||||||
|
* http://www.informix.com/answers/english/ierrors.htm
|
||||||
|
*
|
||||||
|
* TODO:
|
||||||
|
* - set needed env Informix vars on connect
|
||||||
|
* - implement native prepare/execute
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
class DB_ifx extends DB_common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $phptype = 'ifx';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database syntax variant to be used (db2, access, etc.), if any
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $dbsyntax = 'ifx';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The capabilities of this DB implementation
|
||||||
|
*
|
||||||
|
* The 'new_link' element contains the PHP version that first provided
|
||||||
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
||||||
|
*
|
||||||
|
* Meaning of the 'limit' element:
|
||||||
|
* + 'emulate' = emulate with fetch row by number
|
||||||
|
* + 'alter' = alter the query
|
||||||
|
* + false = skip rows
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $features = array(
|
||||||
|
'limit' => 'emulate',
|
||||||
|
'new_link' => false,
|
||||||
|
'numrows' => 'emulate',
|
||||||
|
'pconnect' => true,
|
||||||
|
'prepare' => false,
|
||||||
|
'ssl' => false,
|
||||||
|
'transactions' => true,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A mapping of native error codes to DB error codes
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $errorcode_map = array(
|
||||||
|
'-201' => DB_ERROR_SYNTAX,
|
||||||
|
'-206' => DB_ERROR_NOSUCHTABLE,
|
||||||
|
'-217' => DB_ERROR_NOSUCHFIELD,
|
||||||
|
'-236' => DB_ERROR_VALUE_COUNT_ON_ROW,
|
||||||
|
'-239' => DB_ERROR_CONSTRAINT,
|
||||||
|
'-253' => DB_ERROR_SYNTAX,
|
||||||
|
'-268' => DB_ERROR_CONSTRAINT,
|
||||||
|
'-292' => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
'-310' => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'-316' => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'-319' => DB_ERROR_NOT_FOUND,
|
||||||
|
'-329' => DB_ERROR_NODBSELECTED,
|
||||||
|
'-346' => DB_ERROR_CONSTRAINT,
|
||||||
|
'-386' => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
'-391' => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
'-554' => DB_ERROR_SYNTAX,
|
||||||
|
'-691' => DB_ERROR_CONSTRAINT,
|
||||||
|
'-692' => DB_ERROR_CONSTRAINT,
|
||||||
|
'-703' => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
'-1202' => DB_ERROR_DIVZERO,
|
||||||
|
'-1204' => DB_ERROR_INVALID_DATE,
|
||||||
|
'-1205' => DB_ERROR_INVALID_DATE,
|
||||||
|
'-1206' => DB_ERROR_INVALID_DATE,
|
||||||
|
'-1209' => DB_ERROR_INVALID_DATE,
|
||||||
|
'-1210' => DB_ERROR_INVALID_DATE,
|
||||||
|
'-1212' => DB_ERROR_INVALID_DATE,
|
||||||
|
'-1213' => DB_ERROR_INVALID_NUMBER,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The raw database connection created by PHP
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $connection;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DSN information for connecting to a database
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $dsn = array();
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Should data manipulation queries be committed automatically?
|
||||||
|
* @var bool
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $autocommit = true;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The quantity of transactions begun
|
||||||
|
*
|
||||||
|
* {@internal While this is private, it can't actually be designated
|
||||||
|
* private in PHP 5 because it is directly accessed in the test suite.}}
|
||||||
|
*
|
||||||
|
* @var integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $transaction_opcount = 0;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The number of rows affected by a data manipulation query
|
||||||
|
* @var integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $affected = 0;
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This constructor calls <kbd>$this->DB_common()</kbd>
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function DB_ifx()
|
||||||
|
{
|
||||||
|
$this->DB_common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ connect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Connect to the database server, log in and open the database
|
||||||
|
*
|
||||||
|
* Don't call this method directly. Use DB::connect() instead.
|
||||||
|
*
|
||||||
|
* @param array $dsn the data source name
|
||||||
|
* @param bool $persistent should the connection be persistent?
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function connect($dsn, $persistent = false)
|
||||||
|
{
|
||||||
|
if (!PEAR::loadExtension('informix') &&
|
||||||
|
!PEAR::loadExtension('Informix'))
|
||||||
|
{
|
||||||
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->dsn = $dsn;
|
||||||
|
if ($dsn['dbsyntax']) {
|
||||||
|
$this->dbsyntax = $dsn['dbsyntax'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$dbhost = $dsn['hostspec'] ? '@' . $dsn['hostspec'] : '';
|
||||||
|
$dbname = $dsn['database'] ? $dsn['database'] . $dbhost : '';
|
||||||
|
$user = $dsn['username'] ? $dsn['username'] : '';
|
||||||
|
$pw = $dsn['password'] ? $dsn['password'] : '';
|
||||||
|
|
||||||
|
$connect_function = $persistent ? 'ifx_pconnect' : 'ifx_connect';
|
||||||
|
|
||||||
|
$this->connection = @$connect_function($dbname, $user, $pw);
|
||||||
|
if (!is_resource($this->connection)) {
|
||||||
|
return $this->ifxRaiseError(DB_ERROR_CONNECT_FAILED);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ disconnect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Disconnects from the database server
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE on failure
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
$ret = @ifx_close($this->connection);
|
||||||
|
$this->connection = null;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ simpleQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sends a query to the database server
|
||||||
|
*
|
||||||
|
* @param string the SQL query string
|
||||||
|
*
|
||||||
|
* @return mixed + a PHP result resrouce for successful SELECT queries
|
||||||
|
* + the DB_OK constant for other successful queries
|
||||||
|
* + a DB_Error object on failure
|
||||||
|
*/
|
||||||
|
function simpleQuery($query)
|
||||||
|
{
|
||||||
|
$ismanip = $this->_checkManip($query);
|
||||||
|
$this->last_query = $query;
|
||||||
|
$this->affected = null;
|
||||||
|
if (preg_match('/(SELECT|EXECUTE)/i', $query)) { //TESTME: Use !DB::isManip()?
|
||||||
|
// the scroll is needed for fetching absolute row numbers
|
||||||
|
// in a select query result
|
||||||
|
$result = @ifx_query($query, $this->connection, IFX_SCROLL);
|
||||||
|
} else {
|
||||||
|
if (!$this->autocommit && $ismanip) {
|
||||||
|
if ($this->transaction_opcount == 0) {
|
||||||
|
$result = @ifx_query('BEGIN WORK', $this->connection);
|
||||||
|
if (!$result) {
|
||||||
|
return $this->ifxRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->transaction_opcount++;
|
||||||
|
}
|
||||||
|
$result = @ifx_query($query, $this->connection);
|
||||||
|
}
|
||||||
|
if (!$result) {
|
||||||
|
return $this->ifxRaiseError();
|
||||||
|
}
|
||||||
|
$this->affected = @ifx_affected_rows($result);
|
||||||
|
// Determine which queries should return data, and which
|
||||||
|
// should return an error code only.
|
||||||
|
if (preg_match('/(SELECT|EXECUTE)/i', $query)) {
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
// XXX Testme: free results inside a transaction
|
||||||
|
// may cause to stop it and commit the work?
|
||||||
|
|
||||||
|
// Result has to be freed even with a insert or update
|
||||||
|
@ifx_free_result($result);
|
||||||
|
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Move the internal ifx result pointer to the next available result
|
||||||
|
*
|
||||||
|
* @param a valid fbsql result resource
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
* @return true if a result is available otherwise return false
|
||||||
|
*/
|
||||||
|
function nextResult($result)
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ affectedRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines the number of rows affected by a data maniuplation query
|
||||||
|
*
|
||||||
|
* 0 is returned for queries that don't manipulate data.
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function affectedRows()
|
||||||
|
{
|
||||||
|
if ($this->_last_query_manip) {
|
||||||
|
return $this->affected;
|
||||||
|
} else {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fetchInto()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Places a row from the result set into the given array
|
||||||
|
*
|
||||||
|
* Formating of the array and the data therein are configurable.
|
||||||
|
* See DB_result::fetchInto() for more information.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result the query result resource
|
||||||
|
* @param array $arr the referenced array to put the data in
|
||||||
|
* @param int $fetchmode how the resulting array should be indexed
|
||||||
|
* @param int $rownum the row number to fetch (0 = first row)
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
||||||
|
* reached or on failure
|
||||||
|
*
|
||||||
|
* @see DB_result::fetchInto()
|
||||||
|
*/
|
||||||
|
function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
||||||
|
{
|
||||||
|
if (($rownum !== null) && ($rownum < 0)) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($rownum === null) {
|
||||||
|
/*
|
||||||
|
* Even though fetch_row() should return the next row if
|
||||||
|
* $rownum is null, it doesn't in all cases. Bug 598.
|
||||||
|
*/
|
||||||
|
$rownum = 'NEXT';
|
||||||
|
} else {
|
||||||
|
// Index starts at row 1, unlike most DBMS's starting at 0.
|
||||||
|
$rownum++;
|
||||||
|
}
|
||||||
|
if (!$arr = @ifx_fetch_row($result, $rownum)) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($fetchmode !== DB_FETCHMODE_ASSOC) {
|
||||||
|
$i=0;
|
||||||
|
$order = array();
|
||||||
|
foreach ($arr as $val) {
|
||||||
|
$order[$i++] = $val;
|
||||||
|
}
|
||||||
|
$arr = $order;
|
||||||
|
} elseif ($fetchmode == DB_FETCHMODE_ASSOC &&
|
||||||
|
$this->options['portability'] & DB_PORTABILITY_LOWERCASE)
|
||||||
|
{
|
||||||
|
$arr = array_change_key_case($arr, CASE_LOWER);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
||||||
|
$this->_rtrimArrayValues($arr);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
||||||
|
$this->_convertNullArrayValuesToEmpty($arr);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numCols()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of columns in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numCols() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of columns. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numCols()
|
||||||
|
*/
|
||||||
|
function numCols($result)
|
||||||
|
{
|
||||||
|
if (!$cols = @ifx_num_fields($result)) {
|
||||||
|
return $this->ifxRaiseError();
|
||||||
|
}
|
||||||
|
return $cols;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ freeResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes the result set and frees the memory occupied by the result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::free() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if $result is invalid
|
||||||
|
*
|
||||||
|
* @see DB_result::free()
|
||||||
|
*/
|
||||||
|
function freeResult($result)
|
||||||
|
{
|
||||||
|
return is_resource($result) ? ifx_free_result($result) : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ autoCommit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Enables or disables automatic commits
|
||||||
|
*
|
||||||
|
* @param bool $onoff true turns it on, false turns it off
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object if the driver
|
||||||
|
* doesn't support auto-committing transactions.
|
||||||
|
*/
|
||||||
|
function autoCommit($onoff = true)
|
||||||
|
{
|
||||||
|
// XXX if $this->transaction_opcount > 0, we should probably
|
||||||
|
// issue a warning here.
|
||||||
|
$this->autocommit = $onoff ? true : false;
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ commit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Commits the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function commit()
|
||||||
|
{
|
||||||
|
if ($this->transaction_opcount > 0) {
|
||||||
|
$result = @ifx_query('COMMIT WORK', $this->connection);
|
||||||
|
$this->transaction_opcount = 0;
|
||||||
|
if (!$result) {
|
||||||
|
return $this->ifxRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ rollback()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reverts the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function rollback()
|
||||||
|
{
|
||||||
|
if ($this->transaction_opcount > 0) {
|
||||||
|
$result = @ifx_query('ROLLBACK WORK', $this->connection);
|
||||||
|
$this->transaction_opcount = 0;
|
||||||
|
if (!$result) {
|
||||||
|
return $this->ifxRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ ifxRaiseError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Produces a DB_Error object regarding the current problem
|
||||||
|
*
|
||||||
|
* @param int $errno if the error is being manually raised pass a
|
||||||
|
* DB_ERROR* constant here. If this isn't passed
|
||||||
|
* the error information gathered from the DBMS.
|
||||||
|
*
|
||||||
|
* @return object the DB_Error object
|
||||||
|
*
|
||||||
|
* @see DB_common::raiseError(),
|
||||||
|
* DB_ifx::errorNative(), DB_ifx::errorCode()
|
||||||
|
*/
|
||||||
|
function ifxRaiseError($errno = null)
|
||||||
|
{
|
||||||
|
if ($errno === null) {
|
||||||
|
$errno = $this->errorCode(ifx_error());
|
||||||
|
}
|
||||||
|
return $this->raiseError($errno, null, null, null,
|
||||||
|
$this->errorNative());
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorNative()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the DBMS' native error code and message produced by the last query
|
||||||
|
*
|
||||||
|
* @return string the DBMS' error code and message
|
||||||
|
*/
|
||||||
|
function errorNative()
|
||||||
|
{
|
||||||
|
return @ifx_error() . ' ' . @ifx_errormsg();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorCode()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Maps native error codes to DB's portable ones.
|
||||||
|
*
|
||||||
|
* Requires that the DB implementation's constructor fills
|
||||||
|
* in the <var>$errorcode_map</var> property.
|
||||||
|
*
|
||||||
|
* @param string $nativecode error code returned by the database
|
||||||
|
* @return int a portable DB error code, or DB_ERROR if this DB
|
||||||
|
* implementation has no mapping for the given error code.
|
||||||
|
*/
|
||||||
|
function errorCode($nativecode)
|
||||||
|
{
|
||||||
|
if (ereg('SQLCODE=(.*)]', $nativecode, $match)) {
|
||||||
|
$code = $match[1];
|
||||||
|
if (isset($this->errorcode_map[$code])) {
|
||||||
|
return $this->errorcode_map[$code];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns information about a table or a result set
|
||||||
|
*
|
||||||
|
* NOTE: only supports 'table' if <var>$result</var> is a table name.
|
||||||
|
*
|
||||||
|
* If analyzing a query result and the result has duplicate field names,
|
||||||
|
* an error will be raised saying
|
||||||
|
* <samp>can't distinguish duplicate field names</samp>.
|
||||||
|
*
|
||||||
|
* @param object|string $result DB_result object from a query or a
|
||||||
|
* string containing the name of a table.
|
||||||
|
* While this also accepts a query result
|
||||||
|
* resource identifier, this behavior is
|
||||||
|
* deprecated.
|
||||||
|
* @param int $mode a valid tableInfo mode
|
||||||
|
*
|
||||||
|
* @return array an associative array with the information requested.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::tableInfo()
|
||||||
|
* @since Method available since Release 1.6.0
|
||||||
|
*/
|
||||||
|
function tableInfo($result, $mode = null)
|
||||||
|
{
|
||||||
|
if (is_string($result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a table name.
|
||||||
|
* Create a result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = @ifx_query("SELECT * FROM $result WHERE 1=0",
|
||||||
|
$this->connection);
|
||||||
|
$got_string = true;
|
||||||
|
} elseif (isset($result->result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a result object.
|
||||||
|
* Extract the result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = $result->result;
|
||||||
|
$got_string = false;
|
||||||
|
} else {
|
||||||
|
/*
|
||||||
|
* Probably received a result resource identifier.
|
||||||
|
* Copy it.
|
||||||
|
*/
|
||||||
|
$id = $result;
|
||||||
|
$got_string = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is_resource($id)) {
|
||||||
|
return $this->ifxRaiseError(DB_ERROR_NEED_MORE_DATA);
|
||||||
|
}
|
||||||
|
|
||||||
|
$flds = @ifx_fieldproperties($id);
|
||||||
|
$count = @ifx_num_fields($id);
|
||||||
|
|
||||||
|
if (count($flds) != $count) {
|
||||||
|
return $this->raiseError("can't distinguish duplicate field names");
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$case_func = 'strtolower';
|
||||||
|
} else {
|
||||||
|
$case_func = 'strval';
|
||||||
|
}
|
||||||
|
|
||||||
|
$i = 0;
|
||||||
|
$res = array();
|
||||||
|
|
||||||
|
if ($mode) {
|
||||||
|
$res['num_fields'] = $count;
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($flds as $key => $value) {
|
||||||
|
$props = explode(';', $value);
|
||||||
|
$res[$i] = array(
|
||||||
|
'table' => $got_string ? $case_func($result) : '',
|
||||||
|
'name' => $case_func($key),
|
||||||
|
'type' => $props[0],
|
||||||
|
'len' => $props[1],
|
||||||
|
'flags' => $props[4] == 'N' ? 'not_null' : '',
|
||||||
|
);
|
||||||
|
if ($mode & DB_TABLEINFO_ORDER) {
|
||||||
|
$res['order'][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
||||||
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
|
||||||
|
// free the result only if we were called on a table
|
||||||
|
if ($got_string) {
|
||||||
|
@ifx_free_result($id);
|
||||||
|
}
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getSpecialQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtains the query string needed for listing a given type of objects
|
||||||
|
*
|
||||||
|
* @param string $type the kind of objects you want to retrieve
|
||||||
|
*
|
||||||
|
* @return string the SQL query string or null if the driver doesn't
|
||||||
|
* support the object type requested
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
* @see DB_common::getListOf()
|
||||||
|
*/
|
||||||
|
function getSpecialQuery($type)
|
||||||
|
{
|
||||||
|
switch ($type) {
|
||||||
|
case 'tables':
|
||||||
|
return 'SELECT tabname FROM systables WHERE tabid >= 100';
|
||||||
|
default:
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,831 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The PEAR DB driver for PHP's msql extension
|
||||||
|
* for interacting with Mini SQL databases
|
||||||
|
*
|
||||||
|
* PHP's mSQL extension did weird things with NULL values prior to PHP
|
||||||
|
* 4.3.11 and 5.0.4. Make sure your version of PHP meets or exceeds
|
||||||
|
* those versions.
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: msql.php,v 1.64 2007/09/21 13:40:41 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB_common class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB/common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The methods PEAR DB uses to interact with PHP's msql extension
|
||||||
|
* for interacting with Mini SQL databases
|
||||||
|
*
|
||||||
|
* These methods overload the ones declared in DB_common.
|
||||||
|
*
|
||||||
|
* PHP's mSQL extension did weird things with NULL values prior to PHP
|
||||||
|
* 4.3.11 and 5.0.4. Make sure your version of PHP meets or exceeds
|
||||||
|
* those versions.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
* @since Class not functional until Release 1.7.0
|
||||||
|
*/
|
||||||
|
class DB_msql extends DB_common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $phptype = 'msql';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database syntax variant to be used (db2, access, etc.), if any
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $dbsyntax = 'msql';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The capabilities of this DB implementation
|
||||||
|
*
|
||||||
|
* The 'new_link' element contains the PHP version that first provided
|
||||||
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
||||||
|
*
|
||||||
|
* Meaning of the 'limit' element:
|
||||||
|
* + 'emulate' = emulate with fetch row by number
|
||||||
|
* + 'alter' = alter the query
|
||||||
|
* + false = skip rows
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $features = array(
|
||||||
|
'limit' => 'emulate',
|
||||||
|
'new_link' => false,
|
||||||
|
'numrows' => true,
|
||||||
|
'pconnect' => true,
|
||||||
|
'prepare' => false,
|
||||||
|
'ssl' => false,
|
||||||
|
'transactions' => false,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A mapping of native error codes to DB error codes
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $errorcode_map = array(
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The raw database connection created by PHP
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $connection;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DSN information for connecting to a database
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $dsn = array();
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The query result resource created by PHP
|
||||||
|
*
|
||||||
|
* Used to make affectedRows() work. Only contains the result for
|
||||||
|
* data manipulation queries. Contains false for other queries.
|
||||||
|
*
|
||||||
|
* @var resource
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_result;
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This constructor calls <kbd>$this->DB_common()</kbd>
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function DB_msql()
|
||||||
|
{
|
||||||
|
$this->DB_common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ connect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Connect to the database server, log in and open the database
|
||||||
|
*
|
||||||
|
* Don't call this method directly. Use DB::connect() instead.
|
||||||
|
*
|
||||||
|
* Example of how to connect:
|
||||||
|
* <code>
|
||||||
|
* require_once 'DB.php';
|
||||||
|
*
|
||||||
|
* // $dsn = 'msql://hostname/dbname'; // use a TCP connection
|
||||||
|
* $dsn = 'msql:///dbname'; // use a socket
|
||||||
|
* $options = array(
|
||||||
|
* 'portability' => DB_PORTABILITY_ALL,
|
||||||
|
* );
|
||||||
|
*
|
||||||
|
* $db = DB::connect($dsn, $options);
|
||||||
|
* if (PEAR::isError($db)) {
|
||||||
|
* die($db->getMessage());
|
||||||
|
* }
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @param array $dsn the data source name
|
||||||
|
* @param bool $persistent should the connection be persistent?
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function connect($dsn, $persistent = false)
|
||||||
|
{
|
||||||
|
if (!PEAR::loadExtension('msql')) {
|
||||||
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->dsn = $dsn;
|
||||||
|
if ($dsn['dbsyntax']) {
|
||||||
|
$this->dbsyntax = $dsn['dbsyntax'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$params = array();
|
||||||
|
if ($dsn['hostspec']) {
|
||||||
|
$params[] = $dsn['port']
|
||||||
|
? $dsn['hostspec'] . ',' . $dsn['port']
|
||||||
|
: $dsn['hostspec'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$connect_function = $persistent ? 'msql_pconnect' : 'msql_connect';
|
||||||
|
|
||||||
|
$ini = ini_get('track_errors');
|
||||||
|
$php_errormsg = '';
|
||||||
|
if ($ini) {
|
||||||
|
$this->connection = @call_user_func_array($connect_function,
|
||||||
|
$params);
|
||||||
|
} else {
|
||||||
|
@ini_set('track_errors', 1);
|
||||||
|
$this->connection = @call_user_func_array($connect_function,
|
||||||
|
$params);
|
||||||
|
@ini_set('track_errors', $ini);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$this->connection) {
|
||||||
|
if (($err = @msql_error()) != '') {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
$err);
|
||||||
|
} else {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
$php_errormsg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!@msql_select_db($dsn['database'], $this->connection)) {
|
||||||
|
return $this->msqlRaiseError();
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ disconnect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Disconnects from the database server
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE on failure
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
$ret = @msql_close($this->connection);
|
||||||
|
$this->connection = null;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ simpleQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sends a query to the database server
|
||||||
|
*
|
||||||
|
* @param string the SQL query string
|
||||||
|
*
|
||||||
|
* @return mixed + a PHP result resrouce for successful SELECT queries
|
||||||
|
* + the DB_OK constant for other successful queries
|
||||||
|
* + a DB_Error object on failure
|
||||||
|
*/
|
||||||
|
function simpleQuery($query)
|
||||||
|
{
|
||||||
|
$this->last_query = $query;
|
||||||
|
$query = $this->modifyQuery($query);
|
||||||
|
$result = @msql_query($query, $this->connection);
|
||||||
|
if (!$result) {
|
||||||
|
return $this->msqlRaiseError();
|
||||||
|
}
|
||||||
|
// Determine which queries that should return data, and which
|
||||||
|
// should return an error code only.
|
||||||
|
if ($this->_checkManip($query)) {
|
||||||
|
$this->_result = $result;
|
||||||
|
return DB_OK;
|
||||||
|
} else {
|
||||||
|
$this->_result = false;
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Move the internal msql result pointer to the next available result
|
||||||
|
*
|
||||||
|
* @param a valid fbsql result resource
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
* @return true if a result is available otherwise return false
|
||||||
|
*/
|
||||||
|
function nextResult($result)
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fetchInto()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Places a row from the result set into the given array
|
||||||
|
*
|
||||||
|
* Formating of the array and the data therein are configurable.
|
||||||
|
* See DB_result::fetchInto() for more information.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* PHP's mSQL extension did weird things with NULL values prior to PHP
|
||||||
|
* 4.3.11 and 5.0.4. Make sure your version of PHP meets or exceeds
|
||||||
|
* those versions.
|
||||||
|
*
|
||||||
|
* @param resource $result the query result resource
|
||||||
|
* @param array $arr the referenced array to put the data in
|
||||||
|
* @param int $fetchmode how the resulting array should be indexed
|
||||||
|
* @param int $rownum the row number to fetch (0 = first row)
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
||||||
|
* reached or on failure
|
||||||
|
*
|
||||||
|
* @see DB_result::fetchInto()
|
||||||
|
*/
|
||||||
|
function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
||||||
|
{
|
||||||
|
if ($rownum !== null) {
|
||||||
|
if (!@msql_data_seek($result, $rownum)) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($fetchmode & DB_FETCHMODE_ASSOC) {
|
||||||
|
$arr = @msql_fetch_array($result, MSQL_ASSOC);
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {
|
||||||
|
$arr = array_change_key_case($arr, CASE_LOWER);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$arr = @msql_fetch_row($result);
|
||||||
|
}
|
||||||
|
if (!$arr) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
||||||
|
$this->_rtrimArrayValues($arr);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
||||||
|
$this->_convertNullArrayValuesToEmpty($arr);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ freeResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes the result set and frees the memory occupied by the result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::free() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if $result is invalid
|
||||||
|
*
|
||||||
|
* @see DB_result::free()
|
||||||
|
*/
|
||||||
|
function freeResult($result)
|
||||||
|
{
|
||||||
|
return is_resource($result) ? msql_free_result($result) : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numCols()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of columns in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numCols() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of columns. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numCols()
|
||||||
|
*/
|
||||||
|
function numCols($result)
|
||||||
|
{
|
||||||
|
$cols = @msql_num_fields($result);
|
||||||
|
if (!$cols) {
|
||||||
|
return $this->msqlRaiseError();
|
||||||
|
}
|
||||||
|
return $cols;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of rows in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numRows() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numRows()
|
||||||
|
*/
|
||||||
|
function numRows($result)
|
||||||
|
{
|
||||||
|
$rows = @msql_num_rows($result);
|
||||||
|
if ($rows === false) {
|
||||||
|
return $this->msqlRaiseError();
|
||||||
|
}
|
||||||
|
return $rows;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ affected()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines the number of rows affected by a data maniuplation query
|
||||||
|
*
|
||||||
|
* 0 is returned for queries that don't manipulate data.
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function affectedRows()
|
||||||
|
{
|
||||||
|
if (!$this->_result) {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
return msql_affected_rows($this->_result);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextId()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the next free id in a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence
|
||||||
|
* @param boolean $ondemand when true, the seqence is automatically
|
||||||
|
* created if it does not exist
|
||||||
|
*
|
||||||
|
* @return int the next id number in the sequence.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::nextID(), DB_common::getSequenceName(),
|
||||||
|
* DB_msql::createSequence(), DB_msql::dropSequence()
|
||||||
|
*/
|
||||||
|
function nextId($seq_name, $ondemand = true)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
$repeat = false;
|
||||||
|
do {
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$result = $this->query("SELECT _seq FROM ${seqname}");
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if ($ondemand && DB::isError($result) &&
|
||||||
|
$result->getCode() == DB_ERROR_NOSUCHTABLE) {
|
||||||
|
$repeat = true;
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$result = $this->createSequence($seq_name);
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$repeat = false;
|
||||||
|
}
|
||||||
|
} while ($repeat);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
$arr = $result->fetchRow(DB_FETCHMODE_ORDERED);
|
||||||
|
$result->free();
|
||||||
|
return $arr[0];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ createSequence()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates a new sequence
|
||||||
|
*
|
||||||
|
* Also creates a new table to associate the sequence with. Uses
|
||||||
|
* a separate table to ensure portability with other drivers.
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the new sequence
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::createSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_msql::nextID(), DB_msql::dropSequence()
|
||||||
|
*/
|
||||||
|
function createSequence($seq_name)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
$res = $this->query('CREATE TABLE ' . $seqname
|
||||||
|
. ' (id INTEGER NOT NULL)');
|
||||||
|
if (DB::isError($res)) {
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
$res = $this->query("CREATE SEQUENCE ON ${seqname}");
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ dropSequence()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence to be deleted
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::dropSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_msql::nextID(), DB_msql::createSequence()
|
||||||
|
*/
|
||||||
|
function dropSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('DROP TABLE ' . $this->getSequenceName($seq_name));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quoteIdentifier()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* mSQL does not support delimited identifiers
|
||||||
|
*
|
||||||
|
* @param string $str the identifier name to be quoted
|
||||||
|
*
|
||||||
|
* @return object a DB_Error object
|
||||||
|
*
|
||||||
|
* @see DB_common::quoteIdentifier()
|
||||||
|
* @since Method available since Release 1.7.0
|
||||||
|
*/
|
||||||
|
function quoteIdentifier($str)
|
||||||
|
{
|
||||||
|
return $this->raiseError(DB_ERROR_UNSUPPORTED);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quoteFloat()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Formats a float value for use within a query in a locale-independent
|
||||||
|
* manner.
|
||||||
|
*
|
||||||
|
* @param float the float value to be quoted.
|
||||||
|
* @return string the quoted string.
|
||||||
|
* @see DB_common::quoteSmart()
|
||||||
|
* @since Method available since release 1.7.8.
|
||||||
|
*/
|
||||||
|
function quoteFloat($float) {
|
||||||
|
return $this->escapeSimple(str_replace(',', '.', strval(floatval($float))));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ escapeSimple()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Escapes a string according to the current DBMS's standards
|
||||||
|
*
|
||||||
|
* @param string $str the string to be escaped
|
||||||
|
*
|
||||||
|
* @return string the escaped string
|
||||||
|
*
|
||||||
|
* @see DB_common::quoteSmart()
|
||||||
|
* @since Method available since Release 1.7.0
|
||||||
|
*/
|
||||||
|
function escapeSimple($str)
|
||||||
|
{
|
||||||
|
return addslashes($str);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ msqlRaiseError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Produces a DB_Error object regarding the current problem
|
||||||
|
*
|
||||||
|
* @param int $errno if the error is being manually raised pass a
|
||||||
|
* DB_ERROR* constant here. If this isn't passed
|
||||||
|
* the error information gathered from the DBMS.
|
||||||
|
*
|
||||||
|
* @return object the DB_Error object
|
||||||
|
*
|
||||||
|
* @see DB_common::raiseError(),
|
||||||
|
* DB_msql::errorNative(), DB_msql::errorCode()
|
||||||
|
*/
|
||||||
|
function msqlRaiseError($errno = null)
|
||||||
|
{
|
||||||
|
$native = $this->errorNative();
|
||||||
|
if ($errno === null) {
|
||||||
|
$errno = $this->errorCode($native);
|
||||||
|
}
|
||||||
|
return $this->raiseError($errno, null, null, null, $native);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorNative()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the DBMS' native error message produced by the last query
|
||||||
|
*
|
||||||
|
* @return string the DBMS' error message
|
||||||
|
*/
|
||||||
|
function errorNative()
|
||||||
|
{
|
||||||
|
return @msql_error();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorCode()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines PEAR::DB error code from the database's text error message
|
||||||
|
*
|
||||||
|
* @param string $errormsg the error message returned from the database
|
||||||
|
*
|
||||||
|
* @return integer the error number from a DB_ERROR* constant
|
||||||
|
*/
|
||||||
|
function errorCode($errormsg)
|
||||||
|
{
|
||||||
|
static $error_regexps;
|
||||||
|
|
||||||
|
// PHP 5.2+ prepends the function name to $php_errormsg, so we need
|
||||||
|
// this hack to work around it, per bug #9599.
|
||||||
|
$errormsg = preg_replace('/^msql[a-z_]+\(\): /', '', $errormsg);
|
||||||
|
|
||||||
|
if (!isset($error_regexps)) {
|
||||||
|
$error_regexps = array(
|
||||||
|
'/^Access to database denied/i'
|
||||||
|
=> DB_ERROR_ACCESS_VIOLATION,
|
||||||
|
'/^Bad index name/i'
|
||||||
|
=> DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'/^Bad order field/i'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/^Bad type for comparison/i'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/^Can\'t perform LIKE on/i'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/^Can\'t use TEXT fields in LIKE comparison/i'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/^Couldn\'t create temporary table/i'
|
||||||
|
=> DB_ERROR_CANNOT_CREATE,
|
||||||
|
'/^Error creating table file/i'
|
||||||
|
=> DB_ERROR_CANNOT_CREATE,
|
||||||
|
'/^Field .* cannot be null$/i'
|
||||||
|
=> DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
'/^Index (field|condition) .* cannot be null$/i'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/^Invalid date format/i'
|
||||||
|
=> DB_ERROR_INVALID_DATE,
|
||||||
|
'/^Invalid time format/i'
|
||||||
|
=> DB_ERROR_INVALID,
|
||||||
|
'/^Literal value for .* is wrong type$/i'
|
||||||
|
=> DB_ERROR_INVALID_NUMBER,
|
||||||
|
'/^No Database Selected/i'
|
||||||
|
=> DB_ERROR_NODBSELECTED,
|
||||||
|
'/^No value specified for field/i'
|
||||||
|
=> DB_ERROR_VALUE_COUNT_ON_ROW,
|
||||||
|
'/^Non unique value for unique index/i'
|
||||||
|
=> DB_ERROR_CONSTRAINT,
|
||||||
|
'/^Out of memory for temporary table/i'
|
||||||
|
=> DB_ERROR_CANNOT_CREATE,
|
||||||
|
'/^Permission denied/i'
|
||||||
|
=> DB_ERROR_ACCESS_VIOLATION,
|
||||||
|
'/^Reference to un-selected table/i'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/^syntax error/i'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/^Table .* exists$/i'
|
||||||
|
=> DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'/^Unknown database/i'
|
||||||
|
=> DB_ERROR_NOSUCHDB,
|
||||||
|
'/^Unknown field/i'
|
||||||
|
=> DB_ERROR_NOSUCHFIELD,
|
||||||
|
'/^Unknown (index|system variable)/i'
|
||||||
|
=> DB_ERROR_NOT_FOUND,
|
||||||
|
'/^Unknown table/i'
|
||||||
|
=> DB_ERROR_NOSUCHTABLE,
|
||||||
|
'/^Unqualified field/i'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($error_regexps as $regexp => $code) {
|
||||||
|
if (preg_match($regexp, $errormsg)) {
|
||||||
|
return $code;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns information about a table or a result set
|
||||||
|
*
|
||||||
|
* @param object|string $result DB_result object from a query or a
|
||||||
|
* string containing the name of a table.
|
||||||
|
* While this also accepts a query result
|
||||||
|
* resource identifier, this behavior is
|
||||||
|
* deprecated.
|
||||||
|
* @param int $mode a valid tableInfo mode
|
||||||
|
*
|
||||||
|
* @return array an associative array with the information requested.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::setOption()
|
||||||
|
*/
|
||||||
|
function tableInfo($result, $mode = null)
|
||||||
|
{
|
||||||
|
if (is_string($result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a table name.
|
||||||
|
* Create a result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = @msql_query("SELECT * FROM $result",
|
||||||
|
$this->connection);
|
||||||
|
$got_string = true;
|
||||||
|
} elseif (isset($result->result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a result object.
|
||||||
|
* Extract the result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = $result->result;
|
||||||
|
$got_string = false;
|
||||||
|
} else {
|
||||||
|
/*
|
||||||
|
* Probably received a result resource identifier.
|
||||||
|
* Copy it.
|
||||||
|
* Deprecated. Here for compatibility only.
|
||||||
|
*/
|
||||||
|
$id = $result;
|
||||||
|
$got_string = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is_resource($id)) {
|
||||||
|
return $this->raiseError(DB_ERROR_NEED_MORE_DATA);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$case_func = 'strtolower';
|
||||||
|
} else {
|
||||||
|
$case_func = 'strval';
|
||||||
|
}
|
||||||
|
|
||||||
|
$count = @msql_num_fields($id);
|
||||||
|
$res = array();
|
||||||
|
|
||||||
|
if ($mode) {
|
||||||
|
$res['num_fields'] = $count;
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < $count; $i++) {
|
||||||
|
$tmp = @msql_fetch_field($id);
|
||||||
|
|
||||||
|
$flags = '';
|
||||||
|
if ($tmp->not_null) {
|
||||||
|
$flags .= 'not_null ';
|
||||||
|
}
|
||||||
|
if ($tmp->unique) {
|
||||||
|
$flags .= 'unique_key ';
|
||||||
|
}
|
||||||
|
$flags = trim($flags);
|
||||||
|
|
||||||
|
$res[$i] = array(
|
||||||
|
'table' => $case_func($tmp->table),
|
||||||
|
'name' => $case_func($tmp->name),
|
||||||
|
'type' => $tmp->type,
|
||||||
|
'len' => msql_field_len($id, $i),
|
||||||
|
'flags' => $flags,
|
||||||
|
);
|
||||||
|
|
||||||
|
if ($mode & DB_TABLEINFO_ORDER) {
|
||||||
|
$res['order'][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
||||||
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// free the result only if we were called on a table
|
||||||
|
if ($got_string) {
|
||||||
|
@msql_free_result($id);
|
||||||
|
}
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getSpecialQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain a list of a given type of objects
|
||||||
|
*
|
||||||
|
* @param string $type the kind of objects you want to retrieve
|
||||||
|
*
|
||||||
|
* @return array the array containing the list of objects requested
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
* @see DB_common::getListOf()
|
||||||
|
*/
|
||||||
|
function getSpecialQuery($type)
|
||||||
|
{
|
||||||
|
switch ($type) {
|
||||||
|
case 'databases':
|
||||||
|
$id = @msql_list_dbs($this->connection);
|
||||||
|
break;
|
||||||
|
case 'tables':
|
||||||
|
$id = @msql_list_tables($this->dsn['database'],
|
||||||
|
$this->connection);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if (!$id) {
|
||||||
|
return $this->msqlRaiseError();
|
||||||
|
}
|
||||||
|
$out = array();
|
||||||
|
while ($row = @msql_fetch_row($id)) {
|
||||||
|
$out[] = $row[0];
|
||||||
|
}
|
||||||
|
return $out;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,963 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The PEAR DB driver for PHP's mssql extension
|
||||||
|
* for interacting with Microsoft SQL Server databases
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Sterling Hughes <sterling@php.net>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: mssql.php,v 1.92 2007/09/21 13:40:41 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB_common class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB/common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The methods PEAR DB uses to interact with PHP's mssql extension
|
||||||
|
* for interacting with Microsoft SQL Server databases
|
||||||
|
*
|
||||||
|
* These methods overload the ones declared in DB_common.
|
||||||
|
*
|
||||||
|
* DB's mssql driver is only for Microsfoft SQL Server databases.
|
||||||
|
*
|
||||||
|
* If you're connecting to a Sybase database, you MUST specify "sybase"
|
||||||
|
* as the "phptype" in the DSN.
|
||||||
|
*
|
||||||
|
* This class only works correctly if you have compiled PHP using
|
||||||
|
* --with-mssql=[dir_to_FreeTDS].
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Sterling Hughes <sterling@php.net>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
class DB_mssql extends DB_common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $phptype = 'mssql';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database syntax variant to be used (db2, access, etc.), if any
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $dbsyntax = 'mssql';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The capabilities of this DB implementation
|
||||||
|
*
|
||||||
|
* The 'new_link' element contains the PHP version that first provided
|
||||||
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
||||||
|
*
|
||||||
|
* Meaning of the 'limit' element:
|
||||||
|
* + 'emulate' = emulate with fetch row by number
|
||||||
|
* + 'alter' = alter the query
|
||||||
|
* + false = skip rows
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $features = array(
|
||||||
|
'limit' => 'emulate',
|
||||||
|
'new_link' => false,
|
||||||
|
'numrows' => true,
|
||||||
|
'pconnect' => true,
|
||||||
|
'prepare' => false,
|
||||||
|
'ssl' => false,
|
||||||
|
'transactions' => true,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A mapping of native error codes to DB error codes
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
// XXX Add here error codes ie: 'S100E' => DB_ERROR_SYNTAX
|
||||||
|
var $errorcode_map = array(
|
||||||
|
102 => DB_ERROR_SYNTAX,
|
||||||
|
110 => DB_ERROR_VALUE_COUNT_ON_ROW,
|
||||||
|
155 => DB_ERROR_NOSUCHFIELD,
|
||||||
|
156 => DB_ERROR_SYNTAX,
|
||||||
|
170 => DB_ERROR_SYNTAX,
|
||||||
|
207 => DB_ERROR_NOSUCHFIELD,
|
||||||
|
208 => DB_ERROR_NOSUCHTABLE,
|
||||||
|
245 => DB_ERROR_INVALID_NUMBER,
|
||||||
|
319 => DB_ERROR_SYNTAX,
|
||||||
|
321 => DB_ERROR_NOSUCHFIELD,
|
||||||
|
325 => DB_ERROR_SYNTAX,
|
||||||
|
336 => DB_ERROR_SYNTAX,
|
||||||
|
515 => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
547 => DB_ERROR_CONSTRAINT,
|
||||||
|
1018 => DB_ERROR_SYNTAX,
|
||||||
|
1035 => DB_ERROR_SYNTAX,
|
||||||
|
1913 => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
2209 => DB_ERROR_SYNTAX,
|
||||||
|
2223 => DB_ERROR_SYNTAX,
|
||||||
|
2248 => DB_ERROR_SYNTAX,
|
||||||
|
2256 => DB_ERROR_SYNTAX,
|
||||||
|
2257 => DB_ERROR_SYNTAX,
|
||||||
|
2627 => DB_ERROR_CONSTRAINT,
|
||||||
|
2714 => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
3607 => DB_ERROR_DIVZERO,
|
||||||
|
3701 => DB_ERROR_NOSUCHTABLE,
|
||||||
|
7630 => DB_ERROR_SYNTAX,
|
||||||
|
8134 => DB_ERROR_DIVZERO,
|
||||||
|
9303 => DB_ERROR_SYNTAX,
|
||||||
|
9317 => DB_ERROR_SYNTAX,
|
||||||
|
9318 => DB_ERROR_SYNTAX,
|
||||||
|
9331 => DB_ERROR_SYNTAX,
|
||||||
|
9332 => DB_ERROR_SYNTAX,
|
||||||
|
15253 => DB_ERROR_SYNTAX,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The raw database connection created by PHP
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $connection;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DSN information for connecting to a database
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $dsn = array();
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Should data manipulation queries be committed automatically?
|
||||||
|
* @var bool
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $autocommit = true;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The quantity of transactions begun
|
||||||
|
*
|
||||||
|
* {@internal While this is private, it can't actually be designated
|
||||||
|
* private in PHP 5 because it is directly accessed in the test suite.}}
|
||||||
|
*
|
||||||
|
* @var integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $transaction_opcount = 0;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database specified in the DSN
|
||||||
|
*
|
||||||
|
* It's a fix to allow calls to different databases in the same script.
|
||||||
|
*
|
||||||
|
* @var string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_db = null;
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This constructor calls <kbd>$this->DB_common()</kbd>
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function DB_mssql()
|
||||||
|
{
|
||||||
|
$this->DB_common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ connect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Connect to the database server, log in and open the database
|
||||||
|
*
|
||||||
|
* Don't call this method directly. Use DB::connect() instead.
|
||||||
|
*
|
||||||
|
* @param array $dsn the data source name
|
||||||
|
* @param bool $persistent should the connection be persistent?
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function connect($dsn, $persistent = false)
|
||||||
|
{
|
||||||
|
if (!PEAR::loadExtension('mssql') && !PEAR::loadExtension('sybase')
|
||||||
|
&& !PEAR::loadExtension('sybase_ct'))
|
||||||
|
{
|
||||||
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->dsn = $dsn;
|
||||||
|
if ($dsn['dbsyntax']) {
|
||||||
|
$this->dbsyntax = $dsn['dbsyntax'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$params = array(
|
||||||
|
$dsn['hostspec'] ? $dsn['hostspec'] : 'localhost',
|
||||||
|
$dsn['username'] ? $dsn['username'] : null,
|
||||||
|
$dsn['password'] ? $dsn['password'] : null,
|
||||||
|
);
|
||||||
|
if ($dsn['port']) {
|
||||||
|
$params[0] .= ((substr(PHP_OS, 0, 3) == 'WIN') ? ',' : ':')
|
||||||
|
. $dsn['port'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$connect_function = $persistent ? 'mssql_pconnect' : 'mssql_connect';
|
||||||
|
|
||||||
|
$this->connection = @call_user_func_array($connect_function, $params);
|
||||||
|
|
||||||
|
if (!$this->connection) {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
@mssql_get_last_message());
|
||||||
|
}
|
||||||
|
if ($dsn['database']) {
|
||||||
|
if (!@mssql_select_db($dsn['database'], $this->connection)) {
|
||||||
|
return $this->raiseError(DB_ERROR_NODBSELECTED,
|
||||||
|
null, null, null,
|
||||||
|
@mssql_get_last_message());
|
||||||
|
}
|
||||||
|
$this->_db = $dsn['database'];
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ disconnect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Disconnects from the database server
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE on failure
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
$ret = @mssql_close($this->connection);
|
||||||
|
$this->connection = null;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ simpleQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sends a query to the database server
|
||||||
|
*
|
||||||
|
* @param string the SQL query string
|
||||||
|
*
|
||||||
|
* @return mixed + a PHP result resrouce for successful SELECT queries
|
||||||
|
* + the DB_OK constant for other successful queries
|
||||||
|
* + a DB_Error object on failure
|
||||||
|
*/
|
||||||
|
function simpleQuery($query)
|
||||||
|
{
|
||||||
|
$ismanip = $this->_checkManip($query);
|
||||||
|
$this->last_query = $query;
|
||||||
|
if (!@mssql_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->mssqlRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$query = $this->modifyQuery($query);
|
||||||
|
if (!$this->autocommit && $ismanip) {
|
||||||
|
if ($this->transaction_opcount == 0) {
|
||||||
|
$result = @mssql_query('BEGIN TRAN', $this->connection);
|
||||||
|
if (!$result) {
|
||||||
|
return $this->mssqlRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->transaction_opcount++;
|
||||||
|
}
|
||||||
|
$result = @mssql_query($query, $this->connection);
|
||||||
|
if (!$result) {
|
||||||
|
return $this->mssqlRaiseError();
|
||||||
|
}
|
||||||
|
// Determine which queries that should return data, and which
|
||||||
|
// should return an error code only.
|
||||||
|
return $ismanip ? DB_OK : $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Move the internal mssql result pointer to the next available result
|
||||||
|
*
|
||||||
|
* @param a valid fbsql result resource
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
* @return true if a result is available otherwise return false
|
||||||
|
*/
|
||||||
|
function nextResult($result)
|
||||||
|
{
|
||||||
|
return @mssql_next_result($result);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fetchInto()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Places a row from the result set into the given array
|
||||||
|
*
|
||||||
|
* Formating of the array and the data therein are configurable.
|
||||||
|
* See DB_result::fetchInto() for more information.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result the query result resource
|
||||||
|
* @param array $arr the referenced array to put the data in
|
||||||
|
* @param int $fetchmode how the resulting array should be indexed
|
||||||
|
* @param int $rownum the row number to fetch (0 = first row)
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
||||||
|
* reached or on failure
|
||||||
|
*
|
||||||
|
* @see DB_result::fetchInto()
|
||||||
|
*/
|
||||||
|
function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
||||||
|
{
|
||||||
|
if ($rownum !== null) {
|
||||||
|
if (!@mssql_data_seek($result, $rownum)) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($fetchmode & DB_FETCHMODE_ASSOC) {
|
||||||
|
$arr = @mssql_fetch_assoc($result);
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {
|
||||||
|
$arr = array_change_key_case($arr, CASE_LOWER);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$arr = @mssql_fetch_row($result);
|
||||||
|
}
|
||||||
|
if (!$arr) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
||||||
|
$this->_rtrimArrayValues($arr);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
||||||
|
$this->_convertNullArrayValuesToEmpty($arr);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ freeResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes the result set and frees the memory occupied by the result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::free() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if $result is invalid
|
||||||
|
*
|
||||||
|
* @see DB_result::free()
|
||||||
|
*/
|
||||||
|
function freeResult($result)
|
||||||
|
{
|
||||||
|
return is_resource($result) ? mssql_free_result($result) : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numCols()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of columns in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numCols() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of columns. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numCols()
|
||||||
|
*/
|
||||||
|
function numCols($result)
|
||||||
|
{
|
||||||
|
$cols = @mssql_num_fields($result);
|
||||||
|
if (!$cols) {
|
||||||
|
return $this->mssqlRaiseError();
|
||||||
|
}
|
||||||
|
return $cols;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of rows in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numRows() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numRows()
|
||||||
|
*/
|
||||||
|
function numRows($result)
|
||||||
|
{
|
||||||
|
$rows = @mssql_num_rows($result);
|
||||||
|
if ($rows === false) {
|
||||||
|
return $this->mssqlRaiseError();
|
||||||
|
}
|
||||||
|
return $rows;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ autoCommit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Enables or disables automatic commits
|
||||||
|
*
|
||||||
|
* @param bool $onoff true turns it on, false turns it off
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object if the driver
|
||||||
|
* doesn't support auto-committing transactions.
|
||||||
|
*/
|
||||||
|
function autoCommit($onoff = false)
|
||||||
|
{
|
||||||
|
// XXX if $this->transaction_opcount > 0, we should probably
|
||||||
|
// issue a warning here.
|
||||||
|
$this->autocommit = $onoff ? true : false;
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ commit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Commits the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function commit()
|
||||||
|
{
|
||||||
|
if ($this->transaction_opcount > 0) {
|
||||||
|
if (!@mssql_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->mssqlRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$result = @mssql_query('COMMIT TRAN', $this->connection);
|
||||||
|
$this->transaction_opcount = 0;
|
||||||
|
if (!$result) {
|
||||||
|
return $this->mssqlRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ rollback()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reverts the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function rollback()
|
||||||
|
{
|
||||||
|
if ($this->transaction_opcount > 0) {
|
||||||
|
if (!@mssql_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->mssqlRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$result = @mssql_query('ROLLBACK TRAN', $this->connection);
|
||||||
|
$this->transaction_opcount = 0;
|
||||||
|
if (!$result) {
|
||||||
|
return $this->mssqlRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ affectedRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines the number of rows affected by a data maniuplation query
|
||||||
|
*
|
||||||
|
* 0 is returned for queries that don't manipulate data.
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function affectedRows()
|
||||||
|
{
|
||||||
|
if ($this->_last_query_manip) {
|
||||||
|
$res = @mssql_query('select @@rowcount', $this->connection);
|
||||||
|
if (!$res) {
|
||||||
|
return $this->mssqlRaiseError();
|
||||||
|
}
|
||||||
|
$ar = @mssql_fetch_row($res);
|
||||||
|
if (!$ar) {
|
||||||
|
$result = 0;
|
||||||
|
} else {
|
||||||
|
@mssql_free_result($res);
|
||||||
|
$result = $ar[0];
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$result = 0;
|
||||||
|
}
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextId()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the next free id in a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence
|
||||||
|
* @param boolean $ondemand when true, the seqence is automatically
|
||||||
|
* created if it does not exist
|
||||||
|
*
|
||||||
|
* @return int the next id number in the sequence.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::nextID(), DB_common::getSequenceName(),
|
||||||
|
* DB_mssql::createSequence(), DB_mssql::dropSequence()
|
||||||
|
*/
|
||||||
|
function nextId($seq_name, $ondemand = true)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
if (!@mssql_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->mssqlRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$repeat = 0;
|
||||||
|
do {
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$result = $this->query("INSERT INTO $seqname (vapor) VALUES (0)");
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if ($ondemand && DB::isError($result) &&
|
||||||
|
($result->getCode() == DB_ERROR || $result->getCode() == DB_ERROR_NOSUCHTABLE))
|
||||||
|
{
|
||||||
|
$repeat = 1;
|
||||||
|
$result = $this->createSequence($seq_name);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
} elseif (!DB::isError($result)) {
|
||||||
|
$result = $this->query("SELECT IDENT_CURRENT('$seqname')");
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
/* Fallback code for MS SQL Server 7.0, which doesn't have
|
||||||
|
* IDENT_CURRENT. This is *not* safe for concurrent
|
||||||
|
* requests, and really, if you're using it, you're in a
|
||||||
|
* world of hurt. Nevertheless, it's here to ensure BC. See
|
||||||
|
* bug #181 for the gory details.*/
|
||||||
|
$result = $this->query("SELECT @@IDENTITY FROM $seqname");
|
||||||
|
}
|
||||||
|
$repeat = 0;
|
||||||
|
} else {
|
||||||
|
$repeat = false;
|
||||||
|
}
|
||||||
|
} while ($repeat);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
$result = $result->fetchRow(DB_FETCHMODE_ORDERED);
|
||||||
|
return $result[0];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates a new sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the new sequence
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::createSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_mssql::nextID(), DB_mssql::dropSequence()
|
||||||
|
*/
|
||||||
|
function createSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('CREATE TABLE '
|
||||||
|
. $this->getSequenceName($seq_name)
|
||||||
|
. ' ([id] [int] IDENTITY (1, 1) NOT NULL,'
|
||||||
|
. ' [vapor] [int] NULL)');
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ dropSequence()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence to be deleted
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::dropSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_mssql::nextID(), DB_mssql::createSequence()
|
||||||
|
*/
|
||||||
|
function dropSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('DROP TABLE ' . $this->getSequenceName($seq_name));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quoteIdentifier()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Quotes a string so it can be safely used as a table or column name
|
||||||
|
*
|
||||||
|
* @param string $str identifier name to be quoted
|
||||||
|
*
|
||||||
|
* @return string quoted identifier string
|
||||||
|
*
|
||||||
|
* @see DB_common::quoteIdentifier()
|
||||||
|
* @since Method available since Release 1.6.0
|
||||||
|
*/
|
||||||
|
function quoteIdentifier($str)
|
||||||
|
{
|
||||||
|
return '[' . str_replace(']', ']]', $str) . ']';
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ mssqlRaiseError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Produces a DB_Error object regarding the current problem
|
||||||
|
*
|
||||||
|
* @param int $errno if the error is being manually raised pass a
|
||||||
|
* DB_ERROR* constant here. If this isn't passed
|
||||||
|
* the error information gathered from the DBMS.
|
||||||
|
*
|
||||||
|
* @return object the DB_Error object
|
||||||
|
*
|
||||||
|
* @see DB_common::raiseError(),
|
||||||
|
* DB_mssql::errorNative(), DB_mssql::errorCode()
|
||||||
|
*/
|
||||||
|
function mssqlRaiseError($code = null)
|
||||||
|
{
|
||||||
|
$message = @mssql_get_last_message();
|
||||||
|
if (!$code) {
|
||||||
|
$code = $this->errorNative();
|
||||||
|
}
|
||||||
|
return $this->raiseError($this->errorCode($code, $message),
|
||||||
|
null, null, null, "$code - $message");
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorNative()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the DBMS' native error code produced by the last query
|
||||||
|
*
|
||||||
|
* @return int the DBMS' error code
|
||||||
|
*/
|
||||||
|
function errorNative()
|
||||||
|
{
|
||||||
|
$res = @mssql_query('select @@ERROR as ErrorCode', $this->connection);
|
||||||
|
if (!$res) {
|
||||||
|
return DB_ERROR;
|
||||||
|
}
|
||||||
|
$row = @mssql_fetch_row($res);
|
||||||
|
return $row[0];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorCode()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines PEAR::DB error code from mssql's native codes.
|
||||||
|
*
|
||||||
|
* If <var>$nativecode</var> isn't known yet, it will be looked up.
|
||||||
|
*
|
||||||
|
* @param mixed $nativecode mssql error code, if known
|
||||||
|
* @return integer an error number from a DB error constant
|
||||||
|
* @see errorNative()
|
||||||
|
*/
|
||||||
|
function errorCode($nativecode = null, $msg = '')
|
||||||
|
{
|
||||||
|
if (!$nativecode) {
|
||||||
|
$nativecode = $this->errorNative();
|
||||||
|
}
|
||||||
|
if (isset($this->errorcode_map[$nativecode])) {
|
||||||
|
if ($nativecode == 3701
|
||||||
|
&& preg_match('/Cannot drop the index/i', $msg))
|
||||||
|
{
|
||||||
|
return DB_ERROR_NOT_FOUND;
|
||||||
|
}
|
||||||
|
return $this->errorcode_map[$nativecode];
|
||||||
|
} else {
|
||||||
|
return DB_ERROR;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns information about a table or a result set
|
||||||
|
*
|
||||||
|
* NOTE: only supports 'table' and 'flags' if <var>$result</var>
|
||||||
|
* is a table name.
|
||||||
|
*
|
||||||
|
* @param object|string $result DB_result object from a query or a
|
||||||
|
* string containing the name of a table.
|
||||||
|
* While this also accepts a query result
|
||||||
|
* resource identifier, this behavior is
|
||||||
|
* deprecated.
|
||||||
|
* @param int $mode a valid tableInfo mode
|
||||||
|
*
|
||||||
|
* @return array an associative array with the information requested.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::tableInfo()
|
||||||
|
*/
|
||||||
|
function tableInfo($result, $mode = null)
|
||||||
|
{
|
||||||
|
if (is_string($result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a table name.
|
||||||
|
* Create a result resource identifier.
|
||||||
|
*/
|
||||||
|
if (!@mssql_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->mssqlRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$id = @mssql_query("SELECT * FROM $result WHERE 1=0",
|
||||||
|
$this->connection);
|
||||||
|
$got_string = true;
|
||||||
|
} elseif (isset($result->result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a result object.
|
||||||
|
* Extract the result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = $result->result;
|
||||||
|
$got_string = false;
|
||||||
|
} else {
|
||||||
|
/*
|
||||||
|
* Probably received a result resource identifier.
|
||||||
|
* Copy it.
|
||||||
|
* Deprecated. Here for compatibility only.
|
||||||
|
*/
|
||||||
|
$id = $result;
|
||||||
|
$got_string = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is_resource($id)) {
|
||||||
|
return $this->mssqlRaiseError(DB_ERROR_NEED_MORE_DATA);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$case_func = 'strtolower';
|
||||||
|
} else {
|
||||||
|
$case_func = 'strval';
|
||||||
|
}
|
||||||
|
|
||||||
|
$count = @mssql_num_fields($id);
|
||||||
|
$res = array();
|
||||||
|
|
||||||
|
if ($mode) {
|
||||||
|
$res['num_fields'] = $count;
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < $count; $i++) {
|
||||||
|
if ($got_string) {
|
||||||
|
$flags = $this->_mssql_field_flags($result,
|
||||||
|
@mssql_field_name($id, $i));
|
||||||
|
if (DB::isError($flags)) {
|
||||||
|
return $flags;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$flags = '';
|
||||||
|
}
|
||||||
|
|
||||||
|
$res[$i] = array(
|
||||||
|
'table' => $got_string ? $case_func($result) : '',
|
||||||
|
'name' => $case_func(@mssql_field_name($id, $i)),
|
||||||
|
'type' => @mssql_field_type($id, $i),
|
||||||
|
'len' => @mssql_field_length($id, $i),
|
||||||
|
'flags' => $flags,
|
||||||
|
);
|
||||||
|
if ($mode & DB_TABLEINFO_ORDER) {
|
||||||
|
$res['order'][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
||||||
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// free the result only if we were called on a table
|
||||||
|
if ($got_string) {
|
||||||
|
@mssql_free_result($id);
|
||||||
|
}
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _mssql_field_flags()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get a column's flags
|
||||||
|
*
|
||||||
|
* Supports "not_null", "primary_key",
|
||||||
|
* "auto_increment" (mssql identity), "timestamp" (mssql timestamp),
|
||||||
|
* "unique_key" (mssql unique index, unique check or primary_key) and
|
||||||
|
* "multiple_key" (multikey index)
|
||||||
|
*
|
||||||
|
* mssql timestamp is NOT similar to the mysql timestamp so this is maybe
|
||||||
|
* not useful at all - is the behaviour of mysql_field_flags that primary
|
||||||
|
* keys are alway unique? is the interpretation of multiple_key correct?
|
||||||
|
*
|
||||||
|
* @param string $table the table name
|
||||||
|
* @param string $column the field name
|
||||||
|
*
|
||||||
|
* @return string the flags
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @author Joern Barthel <j_barthel@web.de>
|
||||||
|
*/
|
||||||
|
function _mssql_field_flags($table, $column)
|
||||||
|
{
|
||||||
|
static $tableName = null;
|
||||||
|
static $flags = array();
|
||||||
|
|
||||||
|
if ($table != $tableName) {
|
||||||
|
|
||||||
|
$flags = array();
|
||||||
|
$tableName = $table;
|
||||||
|
|
||||||
|
// get unique and primary keys
|
||||||
|
$res = $this->getAll("EXEC SP_HELPINDEX $table", DB_FETCHMODE_ASSOC);
|
||||||
|
if (DB::isError($res)) {
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($res as $val) {
|
||||||
|
$keys = explode(', ', $val['index_keys']);
|
||||||
|
|
||||||
|
if (sizeof($keys) > 1) {
|
||||||
|
foreach ($keys as $key) {
|
||||||
|
$this->_add_flag($flags[$key], 'multiple_key');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (strpos($val['index_description'], 'primary key')) {
|
||||||
|
foreach ($keys as $key) {
|
||||||
|
$this->_add_flag($flags[$key], 'primary_key');
|
||||||
|
}
|
||||||
|
} elseif (strpos($val['index_description'], 'unique')) {
|
||||||
|
foreach ($keys as $key) {
|
||||||
|
$this->_add_flag($flags[$key], 'unique_key');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// get auto_increment, not_null and timestamp
|
||||||
|
$res = $this->getAll("EXEC SP_COLUMNS $table", DB_FETCHMODE_ASSOC);
|
||||||
|
if (DB::isError($res)) {
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($res as $val) {
|
||||||
|
$val = array_change_key_case($val, CASE_LOWER);
|
||||||
|
if ($val['nullable'] == '0') {
|
||||||
|
$this->_add_flag($flags[$val['column_name']], 'not_null');
|
||||||
|
}
|
||||||
|
if (strpos($val['type_name'], 'identity')) {
|
||||||
|
$this->_add_flag($flags[$val['column_name']], 'auto_increment');
|
||||||
|
}
|
||||||
|
if (strpos($val['type_name'], 'timestamp')) {
|
||||||
|
$this->_add_flag($flags[$val['column_name']], 'timestamp');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (array_key_exists($column, $flags)) {
|
||||||
|
return(implode(' ', $flags[$column]));
|
||||||
|
}
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _add_flag()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Adds a string to the flags array if the flag is not yet in there
|
||||||
|
* - if there is no flag present the array is created
|
||||||
|
*
|
||||||
|
* @param array &$array the reference to the flag-array
|
||||||
|
* @param string $value the flag value
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @author Joern Barthel <j_barthel@web.de>
|
||||||
|
*/
|
||||||
|
function _add_flag(&$array, $value)
|
||||||
|
{
|
||||||
|
if (!is_array($array)) {
|
||||||
|
$array = array($value);
|
||||||
|
} elseif (!in_array($value, $array)) {
|
||||||
|
array_push($array, $value);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getSpecialQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtains the query string needed for listing a given type of objects
|
||||||
|
*
|
||||||
|
* @param string $type the kind of objects you want to retrieve
|
||||||
|
*
|
||||||
|
* @return string the SQL query string or null if the driver doesn't
|
||||||
|
* support the object type requested
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
* @see DB_common::getListOf()
|
||||||
|
*/
|
||||||
|
function getSpecialQuery($type)
|
||||||
|
{
|
||||||
|
switch ($type) {
|
||||||
|
case 'tables':
|
||||||
|
return "SELECT name FROM sysobjects WHERE type = 'U'"
|
||||||
|
. ' ORDER BY name';
|
||||||
|
case 'views':
|
||||||
|
return "SELECT name FROM sysobjects WHERE type = 'V'";
|
||||||
|
default:
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,883 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The PEAR DB driver for PHP's odbc extension
|
||||||
|
* for interacting with databases via ODBC connections
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Stig Bakken <ssb@php.net>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: odbc.php,v 1.81 2007/07/06 05:19:21 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB_common class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB/common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The methods PEAR DB uses to interact with PHP's odbc extension
|
||||||
|
* for interacting with databases via ODBC connections
|
||||||
|
*
|
||||||
|
* These methods overload the ones declared in DB_common.
|
||||||
|
*
|
||||||
|
* More info on ODBC errors could be found here:
|
||||||
|
* http://msdn.microsoft.com/library/default.asp?url=/library/en-us/trblsql/tr_err_odbc_5stz.asp
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Stig Bakken <ssb@php.net>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
class DB_odbc extends DB_common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $phptype = 'odbc';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database syntax variant to be used (db2, access, etc.), if any
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $dbsyntax = 'sql92';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The capabilities of this DB implementation
|
||||||
|
*
|
||||||
|
* The 'new_link' element contains the PHP version that first provided
|
||||||
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
||||||
|
*
|
||||||
|
* Meaning of the 'limit' element:
|
||||||
|
* + 'emulate' = emulate with fetch row by number
|
||||||
|
* + 'alter' = alter the query
|
||||||
|
* + false = skip rows
|
||||||
|
*
|
||||||
|
* NOTE: The feature set of the following drivers are different than
|
||||||
|
* the default:
|
||||||
|
* + solid: 'transactions' = true
|
||||||
|
* + navision: 'limit' = false
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $features = array(
|
||||||
|
'limit' => 'emulate',
|
||||||
|
'new_link' => false,
|
||||||
|
'numrows' => true,
|
||||||
|
'pconnect' => true,
|
||||||
|
'prepare' => false,
|
||||||
|
'ssl' => false,
|
||||||
|
'transactions' => false,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A mapping of native error codes to DB error codes
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $errorcode_map = array(
|
||||||
|
'01004' => DB_ERROR_TRUNCATED,
|
||||||
|
'07001' => DB_ERROR_MISMATCH,
|
||||||
|
'21S01' => DB_ERROR_VALUE_COUNT_ON_ROW,
|
||||||
|
'21S02' => DB_ERROR_MISMATCH,
|
||||||
|
'22001' => DB_ERROR_INVALID,
|
||||||
|
'22003' => DB_ERROR_INVALID_NUMBER,
|
||||||
|
'22005' => DB_ERROR_INVALID_NUMBER,
|
||||||
|
'22008' => DB_ERROR_INVALID_DATE,
|
||||||
|
'22012' => DB_ERROR_DIVZERO,
|
||||||
|
'23000' => DB_ERROR_CONSTRAINT,
|
||||||
|
'23502' => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
'23503' => DB_ERROR_CONSTRAINT,
|
||||||
|
'23504' => DB_ERROR_CONSTRAINT,
|
||||||
|
'23505' => DB_ERROR_CONSTRAINT,
|
||||||
|
'24000' => DB_ERROR_INVALID,
|
||||||
|
'34000' => DB_ERROR_INVALID,
|
||||||
|
'37000' => DB_ERROR_SYNTAX,
|
||||||
|
'42000' => DB_ERROR_SYNTAX,
|
||||||
|
'42601' => DB_ERROR_SYNTAX,
|
||||||
|
'IM001' => DB_ERROR_UNSUPPORTED,
|
||||||
|
'S0000' => DB_ERROR_NOSUCHTABLE,
|
||||||
|
'S0001' => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'S0002' => DB_ERROR_NOSUCHTABLE,
|
||||||
|
'S0011' => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'S0012' => DB_ERROR_NOT_FOUND,
|
||||||
|
'S0021' => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'S0022' => DB_ERROR_NOSUCHFIELD,
|
||||||
|
'S1009' => DB_ERROR_INVALID,
|
||||||
|
'S1090' => DB_ERROR_INVALID,
|
||||||
|
'S1C00' => DB_ERROR_NOT_CAPABLE,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The raw database connection created by PHP
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $connection;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DSN information for connecting to a database
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $dsn = array();
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The number of rows affected by a data manipulation query
|
||||||
|
* @var integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $affected = 0;
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This constructor calls <kbd>$this->DB_common()</kbd>
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function DB_odbc()
|
||||||
|
{
|
||||||
|
$this->DB_common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ connect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Connect to the database server, log in and open the database
|
||||||
|
*
|
||||||
|
* Don't call this method directly. Use DB::connect() instead.
|
||||||
|
*
|
||||||
|
* PEAR DB's odbc driver supports the following extra DSN options:
|
||||||
|
* + cursor The type of cursor to be used for this connection.
|
||||||
|
*
|
||||||
|
* @param array $dsn the data source name
|
||||||
|
* @param bool $persistent should the connection be persistent?
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function connect($dsn, $persistent = false)
|
||||||
|
{
|
||||||
|
if (!PEAR::loadExtension('odbc')) {
|
||||||
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->dsn = $dsn;
|
||||||
|
if ($dsn['dbsyntax']) {
|
||||||
|
$this->dbsyntax = $dsn['dbsyntax'];
|
||||||
|
}
|
||||||
|
switch ($this->dbsyntax) {
|
||||||
|
case 'access':
|
||||||
|
case 'db2':
|
||||||
|
case 'solid':
|
||||||
|
$this->features['transactions'] = true;
|
||||||
|
break;
|
||||||
|
case 'navision':
|
||||||
|
$this->features['limit'] = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* This is hear for backwards compatibility. Should have been using
|
||||||
|
* 'database' all along, but prior to 1.6.0RC3 'hostspec' was used.
|
||||||
|
*/
|
||||||
|
if ($dsn['database']) {
|
||||||
|
$odbcdsn = $dsn['database'];
|
||||||
|
} elseif ($dsn['hostspec']) {
|
||||||
|
$odbcdsn = $dsn['hostspec'];
|
||||||
|
} else {
|
||||||
|
$odbcdsn = 'localhost';
|
||||||
|
}
|
||||||
|
|
||||||
|
$connect_function = $persistent ? 'odbc_pconnect' : 'odbc_connect';
|
||||||
|
|
||||||
|
if (empty($dsn['cursor'])) {
|
||||||
|
$this->connection = @$connect_function($odbcdsn, $dsn['username'],
|
||||||
|
$dsn['password']);
|
||||||
|
} else {
|
||||||
|
$this->connection = @$connect_function($odbcdsn, $dsn['username'],
|
||||||
|
$dsn['password'],
|
||||||
|
$dsn['cursor']);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is_resource($this->connection)) {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
$this->errorNative());
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ disconnect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Disconnects from the database server
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE on failure
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
$err = @odbc_close($this->connection);
|
||||||
|
$this->connection = null;
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ simpleQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sends a query to the database server
|
||||||
|
*
|
||||||
|
* @param string the SQL query string
|
||||||
|
*
|
||||||
|
* @return mixed + a PHP result resrouce for successful SELECT queries
|
||||||
|
* + the DB_OK constant for other successful queries
|
||||||
|
* + a DB_Error object on failure
|
||||||
|
*/
|
||||||
|
function simpleQuery($query)
|
||||||
|
{
|
||||||
|
$this->last_query = $query;
|
||||||
|
$query = $this->modifyQuery($query);
|
||||||
|
$result = @odbc_exec($this->connection, $query);
|
||||||
|
if (!$result) {
|
||||||
|
return $this->odbcRaiseError(); // XXX ERRORMSG
|
||||||
|
}
|
||||||
|
// Determine which queries that should return data, and which
|
||||||
|
// should return an error code only.
|
||||||
|
if ($this->_checkManip($query)) {
|
||||||
|
$this->affected = $result; // For affectedRows()
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
$this->affected = 0;
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Move the internal odbc result pointer to the next available result
|
||||||
|
*
|
||||||
|
* @param a valid fbsql result resource
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
* @return true if a result is available otherwise return false
|
||||||
|
*/
|
||||||
|
function nextResult($result)
|
||||||
|
{
|
||||||
|
return @odbc_next_result($result);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fetchInto()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Places a row from the result set into the given array
|
||||||
|
*
|
||||||
|
* Formating of the array and the data therein are configurable.
|
||||||
|
* See DB_result::fetchInto() for more information.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result the query result resource
|
||||||
|
* @param array $arr the referenced array to put the data in
|
||||||
|
* @param int $fetchmode how the resulting array should be indexed
|
||||||
|
* @param int $rownum the row number to fetch (0 = first row)
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
||||||
|
* reached or on failure
|
||||||
|
*
|
||||||
|
* @see DB_result::fetchInto()
|
||||||
|
*/
|
||||||
|
function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
||||||
|
{
|
||||||
|
$arr = array();
|
||||||
|
if ($rownum !== null) {
|
||||||
|
$rownum++; // ODBC first row is 1
|
||||||
|
if (version_compare(phpversion(), '4.2.0', 'ge')) {
|
||||||
|
$cols = @odbc_fetch_into($result, $arr, $rownum);
|
||||||
|
} else {
|
||||||
|
$cols = @odbc_fetch_into($result, $rownum, $arr);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$cols = @odbc_fetch_into($result, $arr);
|
||||||
|
}
|
||||||
|
if (!$cols) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($fetchmode !== DB_FETCHMODE_ORDERED) {
|
||||||
|
for ($i = 0; $i < count($arr); $i++) {
|
||||||
|
$colName = @odbc_field_name($result, $i+1);
|
||||||
|
$a[$colName] = $arr[$i];
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$a = array_change_key_case($a, CASE_LOWER);
|
||||||
|
}
|
||||||
|
$arr = $a;
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
||||||
|
$this->_rtrimArrayValues($arr);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
||||||
|
$this->_convertNullArrayValuesToEmpty($arr);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ freeResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes the result set and frees the memory occupied by the result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::free() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if $result is invalid
|
||||||
|
*
|
||||||
|
* @see DB_result::free()
|
||||||
|
*/
|
||||||
|
function freeResult($result)
|
||||||
|
{
|
||||||
|
return is_resource($result) ? odbc_free_result($result) : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numCols()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of columns in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numCols() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of columns. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numCols()
|
||||||
|
*/
|
||||||
|
function numCols($result)
|
||||||
|
{
|
||||||
|
$cols = @odbc_num_fields($result);
|
||||||
|
if (!$cols) {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
return $cols;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ affectedRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines the number of rows affected by a data maniuplation query
|
||||||
|
*
|
||||||
|
* 0 is returned for queries that don't manipulate data.
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function affectedRows()
|
||||||
|
{
|
||||||
|
if (empty($this->affected)) { // In case of SELECT stms
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
$nrows = @odbc_num_rows($this->affected);
|
||||||
|
if ($nrows == -1) {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
return $nrows;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of rows in a result set
|
||||||
|
*
|
||||||
|
* Not all ODBC drivers support this functionality. If they don't
|
||||||
|
* a DB_Error object for DB_ERROR_UNSUPPORTED is returned.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numRows() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numRows()
|
||||||
|
*/
|
||||||
|
function numRows($result)
|
||||||
|
{
|
||||||
|
$nrows = @odbc_num_rows($result);
|
||||||
|
if ($nrows == -1) {
|
||||||
|
return $this->odbcRaiseError(DB_ERROR_UNSUPPORTED);
|
||||||
|
}
|
||||||
|
if ($nrows === false) {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
return $nrows;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quoteIdentifier()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Quotes a string so it can be safely used as a table or column name
|
||||||
|
*
|
||||||
|
* Use 'mssql' as the dbsyntax in the DB DSN only if you've unchecked
|
||||||
|
* "Use ANSI quoted identifiers" when setting up the ODBC data source.
|
||||||
|
*
|
||||||
|
* @param string $str identifier name to be quoted
|
||||||
|
*
|
||||||
|
* @return string quoted identifier string
|
||||||
|
*
|
||||||
|
* @see DB_common::quoteIdentifier()
|
||||||
|
* @since Method available since Release 1.6.0
|
||||||
|
*/
|
||||||
|
function quoteIdentifier($str)
|
||||||
|
{
|
||||||
|
switch ($this->dsn['dbsyntax']) {
|
||||||
|
case 'access':
|
||||||
|
return '[' . $str . ']';
|
||||||
|
case 'mssql':
|
||||||
|
case 'sybase':
|
||||||
|
return '[' . str_replace(']', ']]', $str) . ']';
|
||||||
|
case 'mysql':
|
||||||
|
case 'mysqli':
|
||||||
|
return '`' . $str . '`';
|
||||||
|
default:
|
||||||
|
return '"' . str_replace('"', '""', $str) . '"';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quote()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated Deprecated in release 1.6.0
|
||||||
|
* @internal
|
||||||
|
*/
|
||||||
|
function quote($str)
|
||||||
|
{
|
||||||
|
return $this->quoteSmart($str);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextId()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the next free id in a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence
|
||||||
|
* @param boolean $ondemand when true, the seqence is automatically
|
||||||
|
* created if it does not exist
|
||||||
|
*
|
||||||
|
* @return int the next id number in the sequence.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::nextID(), DB_common::getSequenceName(),
|
||||||
|
* DB_odbc::createSequence(), DB_odbc::dropSequence()
|
||||||
|
*/
|
||||||
|
function nextId($seq_name, $ondemand = true)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
$repeat = 0;
|
||||||
|
do {
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$result = $this->query("update ${seqname} set id = id + 1");
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if ($ondemand && DB::isError($result) &&
|
||||||
|
$result->getCode() == DB_ERROR_NOSUCHTABLE) {
|
||||||
|
$repeat = 1;
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$result = $this->createSequence($seq_name);
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
$result = $this->query("insert into ${seqname} (id) values(0)");
|
||||||
|
} else {
|
||||||
|
$repeat = 0;
|
||||||
|
}
|
||||||
|
} while ($repeat);
|
||||||
|
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
|
||||||
|
$result = $this->query("select id from ${seqname}");
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
$row = $result->fetchRow(DB_FETCHMODE_ORDERED);
|
||||||
|
if (DB::isError($row || !$row)) {
|
||||||
|
return $row;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $row[0];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates a new sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the new sequence
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::createSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_odbc::nextID(), DB_odbc::dropSequence()
|
||||||
|
*/
|
||||||
|
function createSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('CREATE TABLE '
|
||||||
|
. $this->getSequenceName($seq_name)
|
||||||
|
. ' (id integer NOT NULL,'
|
||||||
|
. ' PRIMARY KEY(id))');
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ dropSequence()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence to be deleted
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::dropSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_odbc::nextID(), DB_odbc::createSequence()
|
||||||
|
*/
|
||||||
|
function dropSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('DROP TABLE ' . $this->getSequenceName($seq_name));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ autoCommit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Enables or disables automatic commits
|
||||||
|
*
|
||||||
|
* @param bool $onoff true turns it on, false turns it off
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object if the driver
|
||||||
|
* doesn't support auto-committing transactions.
|
||||||
|
*/
|
||||||
|
function autoCommit($onoff = false)
|
||||||
|
{
|
||||||
|
if (!@odbc_autocommit($this->connection, $onoff)) {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ commit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Commits the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function commit()
|
||||||
|
{
|
||||||
|
if (!@odbc_commit($this->connection)) {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ rollback()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reverts the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function rollback()
|
||||||
|
{
|
||||||
|
if (!@odbc_rollback($this->connection)) {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ odbcRaiseError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Produces a DB_Error object regarding the current problem
|
||||||
|
*
|
||||||
|
* @param int $errno if the error is being manually raised pass a
|
||||||
|
* DB_ERROR* constant here. If this isn't passed
|
||||||
|
* the error information gathered from the DBMS.
|
||||||
|
*
|
||||||
|
* @return object the DB_Error object
|
||||||
|
*
|
||||||
|
* @see DB_common::raiseError(),
|
||||||
|
* DB_odbc::errorNative(), DB_common::errorCode()
|
||||||
|
*/
|
||||||
|
function odbcRaiseError($errno = null)
|
||||||
|
{
|
||||||
|
if ($errno === null) {
|
||||||
|
switch ($this->dbsyntax) {
|
||||||
|
case 'access':
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_ERRORS) {
|
||||||
|
$this->errorcode_map['07001'] = DB_ERROR_NOSUCHFIELD;
|
||||||
|
} else {
|
||||||
|
// Doing this in case mode changes during runtime.
|
||||||
|
$this->errorcode_map['07001'] = DB_ERROR_MISMATCH;
|
||||||
|
}
|
||||||
|
|
||||||
|
$native_code = odbc_error($this->connection);
|
||||||
|
|
||||||
|
// S1000 is for "General Error." Let's be more specific.
|
||||||
|
if ($native_code == 'S1000') {
|
||||||
|
$errormsg = odbc_errormsg($this->connection);
|
||||||
|
static $error_regexps;
|
||||||
|
if (!isset($error_regexps)) {
|
||||||
|
$error_regexps = array(
|
||||||
|
'/includes related records.$/i' => DB_ERROR_CONSTRAINT,
|
||||||
|
'/cannot contain a Null value/i' => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
);
|
||||||
|
}
|
||||||
|
foreach ($error_regexps as $regexp => $code) {
|
||||||
|
if (preg_match($regexp, $errormsg)) {
|
||||||
|
return $this->raiseError($code,
|
||||||
|
null, null, null,
|
||||||
|
$native_code . ' ' . $errormsg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$errno = DB_ERROR;
|
||||||
|
} else {
|
||||||
|
$errno = $this->errorCode($native_code);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$errno = $this->errorCode(odbc_error($this->connection));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $this->raiseError($errno, null, null, null,
|
||||||
|
$this->errorNative());
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorNative()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the DBMS' native error code and message produced by the last query
|
||||||
|
*
|
||||||
|
* @return string the DBMS' error code and message
|
||||||
|
*/
|
||||||
|
function errorNative()
|
||||||
|
{
|
||||||
|
if (!is_resource($this->connection)) {
|
||||||
|
return @odbc_error() . ' ' . @odbc_errormsg();
|
||||||
|
}
|
||||||
|
return @odbc_error($this->connection) . ' ' . @odbc_errormsg($this->connection);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns information about a table or a result set
|
||||||
|
*
|
||||||
|
* @param object|string $result DB_result object from a query or a
|
||||||
|
* string containing the name of a table.
|
||||||
|
* While this also accepts a query result
|
||||||
|
* resource identifier, this behavior is
|
||||||
|
* deprecated.
|
||||||
|
* @param int $mode a valid tableInfo mode
|
||||||
|
*
|
||||||
|
* @return array an associative array with the information requested.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::tableInfo()
|
||||||
|
* @since Method available since Release 1.7.0
|
||||||
|
*/
|
||||||
|
function tableInfo($result, $mode = null)
|
||||||
|
{
|
||||||
|
if (is_string($result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a table name.
|
||||||
|
* Create a result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = @odbc_exec($this->connection, "SELECT * FROM $result");
|
||||||
|
if (!$id) {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
$got_string = true;
|
||||||
|
} elseif (isset($result->result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a result object.
|
||||||
|
* Extract the result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = $result->result;
|
||||||
|
$got_string = false;
|
||||||
|
} else {
|
||||||
|
/*
|
||||||
|
* Probably received a result resource identifier.
|
||||||
|
* Copy it.
|
||||||
|
* Deprecated. Here for compatibility only.
|
||||||
|
*/
|
||||||
|
$id = $result;
|
||||||
|
$got_string = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is_resource($id)) {
|
||||||
|
return $this->odbcRaiseError(DB_ERROR_NEED_MORE_DATA);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$case_func = 'strtolower';
|
||||||
|
} else {
|
||||||
|
$case_func = 'strval';
|
||||||
|
}
|
||||||
|
|
||||||
|
$count = @odbc_num_fields($id);
|
||||||
|
$res = array();
|
||||||
|
|
||||||
|
if ($mode) {
|
||||||
|
$res['num_fields'] = $count;
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < $count; $i++) {
|
||||||
|
$col = $i + 1;
|
||||||
|
$res[$i] = array(
|
||||||
|
'table' => $got_string ? $case_func($result) : '',
|
||||||
|
'name' => $case_func(@odbc_field_name($id, $col)),
|
||||||
|
'type' => @odbc_field_type($id, $col),
|
||||||
|
'len' => @odbc_field_len($id, $col),
|
||||||
|
'flags' => '',
|
||||||
|
);
|
||||||
|
if ($mode & DB_TABLEINFO_ORDER) {
|
||||||
|
$res['order'][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
||||||
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// free the result only if we were called on a table
|
||||||
|
if ($got_string) {
|
||||||
|
@odbc_free_result($id);
|
||||||
|
}
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getSpecialQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtains the query string needed for listing a given type of objects
|
||||||
|
*
|
||||||
|
* Thanks to symbol1@gmail.com and Philippe.Jausions@11abacus.com.
|
||||||
|
*
|
||||||
|
* @param string $type the kind of objects you want to retrieve
|
||||||
|
*
|
||||||
|
* @return string the list of objects requested
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
* @see DB_common::getListOf()
|
||||||
|
* @since Method available since Release 1.7.0
|
||||||
|
*/
|
||||||
|
function getSpecialQuery($type)
|
||||||
|
{
|
||||||
|
switch ($type) {
|
||||||
|
case 'databases':
|
||||||
|
if (!function_exists('odbc_data_source')) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
$res = @odbc_data_source($this->connection, SQL_FETCH_FIRST);
|
||||||
|
if (is_array($res)) {
|
||||||
|
$out = array($res['server']);
|
||||||
|
while($res = @odbc_data_source($this->connection,
|
||||||
|
SQL_FETCH_NEXT))
|
||||||
|
{
|
||||||
|
$out[] = $res['server'];
|
||||||
|
}
|
||||||
|
return $out;
|
||||||
|
} else {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 'tables':
|
||||||
|
case 'schema.tables':
|
||||||
|
$keep = 'TABLE';
|
||||||
|
break;
|
||||||
|
case 'views':
|
||||||
|
$keep = 'VIEW';
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Removing non-conforming items in the while loop rather than
|
||||||
|
* in the odbc_tables() call because some backends choke on this:
|
||||||
|
* odbc_tables($this->connection, '', '', '', 'TABLE')
|
||||||
|
*/
|
||||||
|
$res = @odbc_tables($this->connection);
|
||||||
|
if (!$res) {
|
||||||
|
return $this->odbcRaiseError();
|
||||||
|
}
|
||||||
|
$out = array();
|
||||||
|
while ($row = odbc_fetch_array($res)) {
|
||||||
|
if ($row['TABLE_TYPE'] != $keep) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if ($type == 'schema.tables') {
|
||||||
|
$out[] = $row['TABLE_SCHEM'] . '.' . $row['TABLE_NAME'];
|
||||||
|
} else {
|
||||||
|
$out[] = $row['TABLE_NAME'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $out;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,959 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The PEAR DB driver for PHP's sqlite extension
|
||||||
|
* for interacting with SQLite databases
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Urs Gehrig <urs@circle.ch>
|
||||||
|
* @author Mika Tuupola <tuupola@appelsiini.net>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0 3.0
|
||||||
|
* @version CVS: $Id: sqlite.php,v 1.117 2007/09/21 14:23:28 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB_common class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB/common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The methods PEAR DB uses to interact with PHP's sqlite extension
|
||||||
|
* for interacting with SQLite databases
|
||||||
|
*
|
||||||
|
* These methods overload the ones declared in DB_common.
|
||||||
|
*
|
||||||
|
* NOTICE: This driver needs PHP's track_errors ini setting to be on.
|
||||||
|
* It is automatically turned on when connecting to the database.
|
||||||
|
* Make sure your scripts don't turn it off.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Urs Gehrig <urs@circle.ch>
|
||||||
|
* @author Mika Tuupola <tuupola@appelsiini.net>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
class DB_sqlite extends DB_common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $phptype = 'sqlite';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database syntax variant to be used (db2, access, etc.), if any
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $dbsyntax = 'sqlite';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The capabilities of this DB implementation
|
||||||
|
*
|
||||||
|
* The 'new_link' element contains the PHP version that first provided
|
||||||
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
||||||
|
*
|
||||||
|
* Meaning of the 'limit' element:
|
||||||
|
* + 'emulate' = emulate with fetch row by number
|
||||||
|
* + 'alter' = alter the query
|
||||||
|
* + false = skip rows
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $features = array(
|
||||||
|
'limit' => 'alter',
|
||||||
|
'new_link' => false,
|
||||||
|
'numrows' => true,
|
||||||
|
'pconnect' => true,
|
||||||
|
'prepare' => false,
|
||||||
|
'ssl' => false,
|
||||||
|
'transactions' => false,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A mapping of native error codes to DB error codes
|
||||||
|
*
|
||||||
|
* {@internal Error codes according to sqlite_exec. See the online
|
||||||
|
* manual at http://sqlite.org/c_interface.html for info.
|
||||||
|
* This error handling based on sqlite_exec is not yet implemented.}}
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $errorcode_map = array(
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The raw database connection created by PHP
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $connection;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DSN information for connecting to a database
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $dsn = array();
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* SQLite data types
|
||||||
|
*
|
||||||
|
* @link http://www.sqlite.org/datatypes.html
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $keywords = array (
|
||||||
|
'BLOB' => '',
|
||||||
|
'BOOLEAN' => '',
|
||||||
|
'CHARACTER' => '',
|
||||||
|
'CLOB' => '',
|
||||||
|
'FLOAT' => '',
|
||||||
|
'INTEGER' => '',
|
||||||
|
'KEY' => '',
|
||||||
|
'NATIONAL' => '',
|
||||||
|
'NUMERIC' => '',
|
||||||
|
'NVARCHAR' => '',
|
||||||
|
'PRIMARY' => '',
|
||||||
|
'TEXT' => '',
|
||||||
|
'TIMESTAMP' => '',
|
||||||
|
'UNIQUE' => '',
|
||||||
|
'VARCHAR' => '',
|
||||||
|
'VARYING' => '',
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The most recent error message from $php_errormsg
|
||||||
|
* @var string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_lasterror = '';
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This constructor calls <kbd>$this->DB_common()</kbd>
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function DB_sqlite()
|
||||||
|
{
|
||||||
|
$this->DB_common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ connect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Connect to the database server, log in and open the database
|
||||||
|
*
|
||||||
|
* Don't call this method directly. Use DB::connect() instead.
|
||||||
|
*
|
||||||
|
* PEAR DB's sqlite driver supports the following extra DSN options:
|
||||||
|
* + mode The permissions for the database file, in four digit
|
||||||
|
* chmod octal format (eg "0600").
|
||||||
|
*
|
||||||
|
* Example of connecting to a database in read-only mode:
|
||||||
|
* <code>
|
||||||
|
* require_once 'DB.php';
|
||||||
|
*
|
||||||
|
* $dsn = 'sqlite:///path/and/name/of/db/file?mode=0400';
|
||||||
|
* $options = array(
|
||||||
|
* 'portability' => DB_PORTABILITY_ALL,
|
||||||
|
* );
|
||||||
|
*
|
||||||
|
* $db = DB::connect($dsn, $options);
|
||||||
|
* if (PEAR::isError($db)) {
|
||||||
|
* die($db->getMessage());
|
||||||
|
* }
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @param array $dsn the data source name
|
||||||
|
* @param bool $persistent should the connection be persistent?
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function connect($dsn, $persistent = false)
|
||||||
|
{
|
||||||
|
if (!PEAR::loadExtension('sqlite')) {
|
||||||
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->dsn = $dsn;
|
||||||
|
if ($dsn['dbsyntax']) {
|
||||||
|
$this->dbsyntax = $dsn['dbsyntax'];
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$dsn['database']) {
|
||||||
|
return $this->sqliteRaiseError(DB_ERROR_ACCESS_VIOLATION);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($dsn['database'] !== ':memory:') {
|
||||||
|
if (!file_exists($dsn['database'])) {
|
||||||
|
if (!touch($dsn['database'])) {
|
||||||
|
return $this->sqliteRaiseError(DB_ERROR_NOT_FOUND);
|
||||||
|
}
|
||||||
|
if (!isset($dsn['mode']) ||
|
||||||
|
!is_numeric($dsn['mode']))
|
||||||
|
{
|
||||||
|
$mode = 0644;
|
||||||
|
} else {
|
||||||
|
$mode = octdec($dsn['mode']);
|
||||||
|
}
|
||||||
|
if (!chmod($dsn['database'], $mode)) {
|
||||||
|
return $this->sqliteRaiseError(DB_ERROR_NOT_FOUND);
|
||||||
|
}
|
||||||
|
if (!file_exists($dsn['database'])) {
|
||||||
|
return $this->sqliteRaiseError(DB_ERROR_NOT_FOUND);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!is_file($dsn['database'])) {
|
||||||
|
return $this->sqliteRaiseError(DB_ERROR_INVALID);
|
||||||
|
}
|
||||||
|
if (!is_readable($dsn['database'])) {
|
||||||
|
return $this->sqliteRaiseError(DB_ERROR_ACCESS_VIOLATION);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$connect_function = $persistent ? 'sqlite_popen' : 'sqlite_open';
|
||||||
|
|
||||||
|
// track_errors must remain on for simpleQuery()
|
||||||
|
@ini_set('track_errors', 1);
|
||||||
|
$php_errormsg = '';
|
||||||
|
|
||||||
|
if (!$this->connection = @$connect_function($dsn['database'])) {
|
||||||
|
return $this->raiseError(DB_ERROR_NODBSELECTED,
|
||||||
|
null, null, null,
|
||||||
|
$php_errormsg);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ disconnect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Disconnects from the database server
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE on failure
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
$ret = @sqlite_close($this->connection);
|
||||||
|
$this->connection = null;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ simpleQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sends a query to the database server
|
||||||
|
*
|
||||||
|
* NOTICE: This method needs PHP's track_errors ini setting to be on.
|
||||||
|
* It is automatically turned on when connecting to the database.
|
||||||
|
* Make sure your scripts don't turn it off.
|
||||||
|
*
|
||||||
|
* @param string the SQL query string
|
||||||
|
*
|
||||||
|
* @return mixed + a PHP result resrouce for successful SELECT queries
|
||||||
|
* + the DB_OK constant for other successful queries
|
||||||
|
* + a DB_Error object on failure
|
||||||
|
*/
|
||||||
|
function simpleQuery($query)
|
||||||
|
{
|
||||||
|
$ismanip = $this->_checkManip($query);
|
||||||
|
$this->last_query = $query;
|
||||||
|
$query = $this->modifyQuery($query);
|
||||||
|
|
||||||
|
$php_errormsg = '';
|
||||||
|
|
||||||
|
$result = @sqlite_query($query, $this->connection);
|
||||||
|
$this->_lasterror = $php_errormsg ? $php_errormsg : '';
|
||||||
|
|
||||||
|
$this->result = $result;
|
||||||
|
if (!$this->result) {
|
||||||
|
return $this->sqliteRaiseError(null);
|
||||||
|
}
|
||||||
|
|
||||||
|
// sqlite_query() seems to allways return a resource
|
||||||
|
// so cant use that. Using $ismanip instead
|
||||||
|
if (!$ismanip) {
|
||||||
|
$numRows = $this->numRows($result);
|
||||||
|
if (is_object($numRows)) {
|
||||||
|
// we've got PEAR_Error
|
||||||
|
return $numRows;
|
||||||
|
}
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Move the internal sqlite result pointer to the next available result
|
||||||
|
*
|
||||||
|
* @param resource $result the valid sqlite result resource
|
||||||
|
*
|
||||||
|
* @return bool true if a result is available otherwise return false
|
||||||
|
*/
|
||||||
|
function nextResult($result)
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fetchInto()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Places a row from the result set into the given array
|
||||||
|
*
|
||||||
|
* Formating of the array and the data therein are configurable.
|
||||||
|
* See DB_result::fetchInto() for more information.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result the query result resource
|
||||||
|
* @param array $arr the referenced array to put the data in
|
||||||
|
* @param int $fetchmode how the resulting array should be indexed
|
||||||
|
* @param int $rownum the row number to fetch (0 = first row)
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
||||||
|
* reached or on failure
|
||||||
|
*
|
||||||
|
* @see DB_result::fetchInto()
|
||||||
|
*/
|
||||||
|
function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
||||||
|
{
|
||||||
|
if ($rownum !== null) {
|
||||||
|
if (!@sqlite_seek($this->result, $rownum)) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($fetchmode & DB_FETCHMODE_ASSOC) {
|
||||||
|
$arr = @sqlite_fetch_array($result, SQLITE_ASSOC);
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {
|
||||||
|
$arr = array_change_key_case($arr, CASE_LOWER);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Remove extraneous " characters from the fields in the result.
|
||||||
|
* Fixes bug #11716. */
|
||||||
|
if (is_array($arr) && count($arr) > 0) {
|
||||||
|
$strippedArr = array();
|
||||||
|
foreach ($arr as $field => $value) {
|
||||||
|
$strippedArr[trim($field, '"')] = $value;
|
||||||
|
}
|
||||||
|
$arr = $strippedArr;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$arr = @sqlite_fetch_array($result, SQLITE_NUM);
|
||||||
|
}
|
||||||
|
if (!$arr) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
||||||
|
/*
|
||||||
|
* Even though this DBMS already trims output, we do this because
|
||||||
|
* a field might have intentional whitespace at the end that
|
||||||
|
* gets removed by DB_PORTABILITY_RTRIM under another driver.
|
||||||
|
*/
|
||||||
|
$this->_rtrimArrayValues($arr);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
||||||
|
$this->_convertNullArrayValuesToEmpty($arr);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ freeResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes the result set and frees the memory occupied by the result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::free() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if $result is invalid
|
||||||
|
*
|
||||||
|
* @see DB_result::free()
|
||||||
|
*/
|
||||||
|
function freeResult(&$result)
|
||||||
|
{
|
||||||
|
// XXX No native free?
|
||||||
|
if (!is_resource($result)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$result = null;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numCols()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of columns in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numCols() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of columns. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numCols()
|
||||||
|
*/
|
||||||
|
function numCols($result)
|
||||||
|
{
|
||||||
|
$cols = @sqlite_num_fields($result);
|
||||||
|
if (!$cols) {
|
||||||
|
return $this->sqliteRaiseError();
|
||||||
|
}
|
||||||
|
return $cols;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of rows in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numRows() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numRows()
|
||||||
|
*/
|
||||||
|
function numRows($result)
|
||||||
|
{
|
||||||
|
$rows = @sqlite_num_rows($result);
|
||||||
|
if ($rows === null) {
|
||||||
|
return $this->sqliteRaiseError();
|
||||||
|
}
|
||||||
|
return $rows;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ affected()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines the number of rows affected by a data maniuplation query
|
||||||
|
*
|
||||||
|
* 0 is returned for queries that don't manipulate data.
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function affectedRows()
|
||||||
|
{
|
||||||
|
return @sqlite_changes($this->connection);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ dropSequence()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence to be deleted
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::dropSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_sqlite::nextID(), DB_sqlite::createSequence()
|
||||||
|
*/
|
||||||
|
function dropSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('DROP TABLE ' . $this->getSequenceName($seq_name));
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates a new sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the new sequence
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::createSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_sqlite::nextID(), DB_sqlite::dropSequence()
|
||||||
|
*/
|
||||||
|
function createSequence($seq_name)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
$query = 'CREATE TABLE ' . $seqname .
|
||||||
|
' (id INTEGER UNSIGNED PRIMARY KEY) ';
|
||||||
|
$result = $this->query($query);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return($result);
|
||||||
|
}
|
||||||
|
$query = "CREATE TRIGGER ${seqname}_cleanup AFTER INSERT ON $seqname
|
||||||
|
BEGIN
|
||||||
|
DELETE FROM $seqname WHERE id<LAST_INSERT_ROWID();
|
||||||
|
END ";
|
||||||
|
$result = $this->query($query);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return($result);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextId()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the next free id in a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence
|
||||||
|
* @param boolean $ondemand when true, the seqence is automatically
|
||||||
|
* created if it does not exist
|
||||||
|
*
|
||||||
|
* @return int the next id number in the sequence.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::nextID(), DB_common::getSequenceName(),
|
||||||
|
* DB_sqlite::createSequence(), DB_sqlite::dropSequence()
|
||||||
|
*/
|
||||||
|
function nextId($seq_name, $ondemand = true)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
|
||||||
|
do {
|
||||||
|
$repeat = 0;
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$result = $this->query("INSERT INTO $seqname (id) VALUES (NULL)");
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if ($result === DB_OK) {
|
||||||
|
$id = @sqlite_last_insert_rowid($this->connection);
|
||||||
|
if ($id != 0) {
|
||||||
|
return $id;
|
||||||
|
}
|
||||||
|
} elseif ($ondemand && DB::isError($result) &&
|
||||||
|
$result->getCode() == DB_ERROR_NOSUCHTABLE)
|
||||||
|
{
|
||||||
|
$result = $this->createSequence($seq_name);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
} else {
|
||||||
|
$repeat = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} while ($repeat);
|
||||||
|
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getDbFileStats()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the file stats for the current database
|
||||||
|
*
|
||||||
|
* Possible arguments are dev, ino, mode, nlink, uid, gid, rdev, size,
|
||||||
|
* atime, mtime, ctime, blksize, blocks or a numeric key between
|
||||||
|
* 0 and 12.
|
||||||
|
*
|
||||||
|
* @param string $arg the array key for stats()
|
||||||
|
*
|
||||||
|
* @return mixed an array on an unspecified key, integer on a passed
|
||||||
|
* arg and false at a stats error
|
||||||
|
*/
|
||||||
|
function getDbFileStats($arg = '')
|
||||||
|
{
|
||||||
|
$stats = stat($this->dsn['database']);
|
||||||
|
if ($stats == false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (is_array($stats)) {
|
||||||
|
if (is_numeric($arg)) {
|
||||||
|
if (((int)$arg <= 12) & ((int)$arg >= 0)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return $stats[$arg ];
|
||||||
|
}
|
||||||
|
if (array_key_exists(trim($arg), $stats)) {
|
||||||
|
return $stats[$arg ];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $stats;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ escapeSimple()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Escapes a string according to the current DBMS's standards
|
||||||
|
*
|
||||||
|
* In SQLite, this makes things safe for inserts/updates, but may
|
||||||
|
* cause problems when performing text comparisons against columns
|
||||||
|
* containing binary data. See the
|
||||||
|
* {@link http://php.net/sqlite_escape_string PHP manual} for more info.
|
||||||
|
*
|
||||||
|
* @param string $str the string to be escaped
|
||||||
|
*
|
||||||
|
* @return string the escaped string
|
||||||
|
*
|
||||||
|
* @since Method available since Release 1.6.1
|
||||||
|
* @see DB_common::escapeSimple()
|
||||||
|
*/
|
||||||
|
function escapeSimple($str)
|
||||||
|
{
|
||||||
|
return @sqlite_escape_string($str);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ modifyLimitQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Adds LIMIT clauses to a query string according to current DBMS standards
|
||||||
|
*
|
||||||
|
* @param string $query the query to modify
|
||||||
|
* @param int $from the row to start to fetching (0 = the first row)
|
||||||
|
* @param int $count the numbers of rows to fetch
|
||||||
|
* @param mixed $params array, string or numeric data to be used in
|
||||||
|
* execution of the statement. Quantity of items
|
||||||
|
* passed must match quantity of placeholders in
|
||||||
|
* query: meaning 1 placeholder for non-array
|
||||||
|
* parameters or 1 placeholder per array element.
|
||||||
|
*
|
||||||
|
* @return string the query string with LIMIT clauses added
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
*/
|
||||||
|
function modifyLimitQuery($query, $from, $count, $params = array())
|
||||||
|
{
|
||||||
|
return "$query LIMIT $count OFFSET $from";
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ modifyQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Changes a query string for various DBMS specific reasons
|
||||||
|
*
|
||||||
|
* This little hack lets you know how many rows were deleted
|
||||||
|
* when running a "DELETE FROM table" query. Only implemented
|
||||||
|
* if the DB_PORTABILITY_DELETE_COUNT portability option is on.
|
||||||
|
*
|
||||||
|
* @param string $query the query string to modify
|
||||||
|
*
|
||||||
|
* @return string the modified query string
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
* @see DB_common::setOption()
|
||||||
|
*/
|
||||||
|
function modifyQuery($query)
|
||||||
|
{
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_DELETE_COUNT) {
|
||||||
|
if (preg_match('/^\s*DELETE\s+FROM\s+(\S+)\s*$/i', $query)) {
|
||||||
|
$query = preg_replace('/^\s*DELETE\s+FROM\s+(\S+)\s*$/',
|
||||||
|
'DELETE FROM \1 WHERE 1=1', $query);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $query;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ sqliteRaiseError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Produces a DB_Error object regarding the current problem
|
||||||
|
*
|
||||||
|
* @param int $errno if the error is being manually raised pass a
|
||||||
|
* DB_ERROR* constant here. If this isn't passed
|
||||||
|
* the error information gathered from the DBMS.
|
||||||
|
*
|
||||||
|
* @return object the DB_Error object
|
||||||
|
*
|
||||||
|
* @see DB_common::raiseError(),
|
||||||
|
* DB_sqlite::errorNative(), DB_sqlite::errorCode()
|
||||||
|
*/
|
||||||
|
function sqliteRaiseError($errno = null)
|
||||||
|
{
|
||||||
|
$native = $this->errorNative();
|
||||||
|
if ($errno === null) {
|
||||||
|
$errno = $this->errorCode($native);
|
||||||
|
}
|
||||||
|
|
||||||
|
$errorcode = @sqlite_last_error($this->connection);
|
||||||
|
$userinfo = "$errorcode ** $this->last_query";
|
||||||
|
|
||||||
|
return $this->raiseError($errno, null, null, $userinfo, $native);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorNative()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the DBMS' native error message produced by the last query
|
||||||
|
*
|
||||||
|
* {@internal This is used to retrieve more meaningfull error messages
|
||||||
|
* because sqlite_last_error() does not provide adequate info.}}
|
||||||
|
*
|
||||||
|
* @return string the DBMS' error message
|
||||||
|
*/
|
||||||
|
function errorNative()
|
||||||
|
{
|
||||||
|
return $this->_lasterror;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorCode()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines PEAR::DB error code from the database's text error message
|
||||||
|
*
|
||||||
|
* @param string $errormsg the error message returned from the database
|
||||||
|
*
|
||||||
|
* @return integer the DB error number
|
||||||
|
*/
|
||||||
|
function errorCode($errormsg)
|
||||||
|
{
|
||||||
|
static $error_regexps;
|
||||||
|
|
||||||
|
// PHP 5.2+ prepends the function name to $php_errormsg, so we need
|
||||||
|
// this hack to work around it, per bug #9599.
|
||||||
|
$errormsg = preg_replace('/^sqlite[a-z_]+\(\): /', '', $errormsg);
|
||||||
|
|
||||||
|
if (!isset($error_regexps)) {
|
||||||
|
$error_regexps = array(
|
||||||
|
'/^no such table:/' => DB_ERROR_NOSUCHTABLE,
|
||||||
|
'/^no such index:/' => DB_ERROR_NOT_FOUND,
|
||||||
|
'/^(table|index) .* already exists$/' => DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'/PRIMARY KEY must be unique/i' => DB_ERROR_CONSTRAINT,
|
||||||
|
'/is not unique/' => DB_ERROR_CONSTRAINT,
|
||||||
|
'/columns .* are not unique/i' => DB_ERROR_CONSTRAINT,
|
||||||
|
'/uniqueness constraint failed/' => DB_ERROR_CONSTRAINT,
|
||||||
|
'/may not be NULL/' => DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
'/^no such column:/' => DB_ERROR_NOSUCHFIELD,
|
||||||
|
'/column not present in both tables/i' => DB_ERROR_NOSUCHFIELD,
|
||||||
|
'/^near ".*": syntax error$/' => DB_ERROR_SYNTAX,
|
||||||
|
'/[0-9]+ values for [0-9]+ columns/i' => DB_ERROR_VALUE_COUNT_ON_ROW,
|
||||||
|
);
|
||||||
|
}
|
||||||
|
foreach ($error_regexps as $regexp => $code) {
|
||||||
|
if (preg_match($regexp, $errormsg)) {
|
||||||
|
return $code;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// Fall back to DB_ERROR if there was no mapping.
|
||||||
|
return DB_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns information about a table
|
||||||
|
*
|
||||||
|
* @param string $result a string containing the name of a table
|
||||||
|
* @param int $mode a valid tableInfo mode
|
||||||
|
*
|
||||||
|
* @return array an associative array with the information requested.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::tableInfo()
|
||||||
|
* @since Method available since Release 1.7.0
|
||||||
|
*/
|
||||||
|
function tableInfo($result, $mode = null)
|
||||||
|
{
|
||||||
|
if (is_string($result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a table name.
|
||||||
|
* Create a result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = @sqlite_array_query($this->connection,
|
||||||
|
"PRAGMA table_info('$result');",
|
||||||
|
SQLITE_ASSOC);
|
||||||
|
$got_string = true;
|
||||||
|
} else {
|
||||||
|
$this->last_query = '';
|
||||||
|
return $this->raiseError(DB_ERROR_NOT_CAPABLE, null, null, null,
|
||||||
|
'This DBMS can not obtain tableInfo' .
|
||||||
|
' from result sets');
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$case_func = 'strtolower';
|
||||||
|
} else {
|
||||||
|
$case_func = 'strval';
|
||||||
|
}
|
||||||
|
|
||||||
|
$count = count($id);
|
||||||
|
$res = array();
|
||||||
|
|
||||||
|
if ($mode) {
|
||||||
|
$res['num_fields'] = $count;
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < $count; $i++) {
|
||||||
|
if (strpos($id[$i]['type'], '(') !== false) {
|
||||||
|
$bits = explode('(', $id[$i]['type']);
|
||||||
|
$type = $bits[0];
|
||||||
|
$len = rtrim($bits[1],')');
|
||||||
|
} else {
|
||||||
|
$type = $id[$i]['type'];
|
||||||
|
$len = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
$flags = '';
|
||||||
|
if ($id[$i]['pk']) {
|
||||||
|
$flags .= 'primary_key ';
|
||||||
|
}
|
||||||
|
if ($id[$i]['notnull']) {
|
||||||
|
$flags .= 'not_null ';
|
||||||
|
}
|
||||||
|
if ($id[$i]['dflt_value'] !== null) {
|
||||||
|
$flags .= 'default_' . rawurlencode($id[$i]['dflt_value']);
|
||||||
|
}
|
||||||
|
$flags = trim($flags);
|
||||||
|
|
||||||
|
$res[$i] = array(
|
||||||
|
'table' => $case_func($result),
|
||||||
|
'name' => $case_func($id[$i]['name']),
|
||||||
|
'type' => $type,
|
||||||
|
'len' => $len,
|
||||||
|
'flags' => $flags,
|
||||||
|
);
|
||||||
|
|
||||||
|
if ($mode & DB_TABLEINFO_ORDER) {
|
||||||
|
$res['order'][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
||||||
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getSpecialQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtains the query string needed for listing a given type of objects
|
||||||
|
*
|
||||||
|
* @param string $type the kind of objects you want to retrieve
|
||||||
|
* @param array $args SQLITE DRIVER ONLY: a private array of arguments
|
||||||
|
* used by the getSpecialQuery(). Do not use
|
||||||
|
* this directly.
|
||||||
|
*
|
||||||
|
* @return string the SQL query string or null if the driver doesn't
|
||||||
|
* support the object type requested
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
* @see DB_common::getListOf()
|
||||||
|
*/
|
||||||
|
function getSpecialQuery($type, $args = array())
|
||||||
|
{
|
||||||
|
if (!is_array($args)) {
|
||||||
|
return $this->raiseError('no key specified', null, null, null,
|
||||||
|
'Argument has to be an array.');
|
||||||
|
}
|
||||||
|
|
||||||
|
switch ($type) {
|
||||||
|
case 'master':
|
||||||
|
return 'SELECT * FROM sqlite_master;';
|
||||||
|
case 'tables':
|
||||||
|
return "SELECT name FROM sqlite_master WHERE type='table' "
|
||||||
|
. 'UNION ALL SELECT name FROM sqlite_temp_master '
|
||||||
|
. "WHERE type='table' ORDER BY name;";
|
||||||
|
case 'schema':
|
||||||
|
return 'SELECT sql FROM (SELECT * FROM sqlite_master '
|
||||||
|
. 'UNION ALL SELECT * FROM sqlite_temp_master) '
|
||||||
|
. "WHERE type!='meta' "
|
||||||
|
. 'ORDER BY tbl_name, type DESC, name;';
|
||||||
|
case 'schemax':
|
||||||
|
case 'schema_x':
|
||||||
|
/*
|
||||||
|
* Use like:
|
||||||
|
* $res = $db->query($db->getSpecialQuery('schema_x',
|
||||||
|
* array('table' => 'table3')));
|
||||||
|
*/
|
||||||
|
return 'SELECT sql FROM (SELECT * FROM sqlite_master '
|
||||||
|
. 'UNION ALL SELECT * FROM sqlite_temp_master) '
|
||||||
|
. "WHERE tbl_name LIKE '{$args['table']}' "
|
||||||
|
. "AND type!='meta' "
|
||||||
|
. 'ORDER BY type DESC, name;';
|
||||||
|
case 'alter':
|
||||||
|
/*
|
||||||
|
* SQLite does not support ALTER TABLE; this is a helper query
|
||||||
|
* to handle this. 'table' represents the table name, 'rows'
|
||||||
|
* the news rows to create, 'save' the row(s) to keep _with_
|
||||||
|
* the data.
|
||||||
|
*
|
||||||
|
* Use like:
|
||||||
|
* $args = array(
|
||||||
|
* 'table' => $table,
|
||||||
|
* 'rows' => "id INTEGER PRIMARY KEY, firstname TEXT, surname TEXT, datetime TEXT",
|
||||||
|
* 'save' => "NULL, titel, content, datetime"
|
||||||
|
* );
|
||||||
|
* $res = $db->query( $db->getSpecialQuery('alter', $args));
|
||||||
|
*/
|
||||||
|
$rows = strtr($args['rows'], $this->keywords);
|
||||||
|
|
||||||
|
$q = array(
|
||||||
|
'BEGIN TRANSACTION',
|
||||||
|
"CREATE TEMPORARY TABLE {$args['table']}_backup ({$args['rows']})",
|
||||||
|
"INSERT INTO {$args['table']}_backup SELECT {$args['save']} FROM {$args['table']}",
|
||||||
|
"DROP TABLE {$args['table']}",
|
||||||
|
"CREATE TABLE {$args['table']} ({$args['rows']})",
|
||||||
|
"INSERT INTO {$args['table']} SELECT {$rows} FROM {$args['table']}_backup",
|
||||||
|
"DROP TABLE {$args['table']}_backup",
|
||||||
|
'COMMIT',
|
||||||
|
);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* This is a dirty hack, since the above query will not get
|
||||||
|
* executed with a single query call so here the query method
|
||||||
|
* will be called directly and return a select instead.
|
||||||
|
*/
|
||||||
|
foreach ($q as $query) {
|
||||||
|
$this->query($query);
|
||||||
|
}
|
||||||
|
return "SELECT * FROM {$args['table']};";
|
||||||
|
default:
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,506 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Provides an object interface to a table row
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Stig Bakken <stig@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: storage.php,v 1.24 2007/08/12 05:27:25 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Provides an object interface to a table row
|
||||||
|
*
|
||||||
|
* It lets you add, delete and change rows using objects rather than SQL
|
||||||
|
* statements.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Stig Bakken <stig@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
class DB_storage extends PEAR
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/** the name of the table (or view, if the backend database supports
|
||||||
|
updates in views) we hold data from */
|
||||||
|
var $_table = null;
|
||||||
|
|
||||||
|
/** which column(s) in the table contains primary keys, can be a
|
||||||
|
string for single-column primary keys, or an array of strings
|
||||||
|
for multiple-column primary keys */
|
||||||
|
var $_keycolumn = null;
|
||||||
|
|
||||||
|
/** DB connection handle used for all transactions */
|
||||||
|
var $_dbh = null;
|
||||||
|
|
||||||
|
/** an assoc with the names of database fields stored as properties
|
||||||
|
in this object */
|
||||||
|
var $_properties = array();
|
||||||
|
|
||||||
|
/** an assoc with the names of the properties in this object that
|
||||||
|
have been changed since they were fetched from the database */
|
||||||
|
var $_changes = array();
|
||||||
|
|
||||||
|
/** flag that decides if data in this object can be changed.
|
||||||
|
objects that don't have their table's key column in their
|
||||||
|
property lists will be flagged as read-only. */
|
||||||
|
var $_readonly = false;
|
||||||
|
|
||||||
|
/** function or method that implements a validator for fields that
|
||||||
|
are set, this validator function returns true if the field is
|
||||||
|
valid, false if not */
|
||||||
|
var $_validator = null;
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor
|
||||||
|
*
|
||||||
|
* @param $table string the name of the database table
|
||||||
|
*
|
||||||
|
* @param $keycolumn mixed string with name of key column, or array of
|
||||||
|
* strings if the table has a primary key of more than one column
|
||||||
|
*
|
||||||
|
* @param $dbh object database connection object
|
||||||
|
*
|
||||||
|
* @param $validator mixed function or method used to validate
|
||||||
|
* each new value, called with three parameters: the name of the
|
||||||
|
* field/column that is changing, a reference to the new value and
|
||||||
|
* a reference to this object
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
function DB_storage($table, $keycolumn, &$dbh, $validator = null)
|
||||||
|
{
|
||||||
|
$this->PEAR('DB_Error');
|
||||||
|
$this->_table = $table;
|
||||||
|
$this->_keycolumn = $keycolumn;
|
||||||
|
$this->_dbh = $dbh;
|
||||||
|
$this->_readonly = false;
|
||||||
|
$this->_validator = $validator;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _makeWhere()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Utility method to build a "WHERE" clause to locate ourselves in
|
||||||
|
* the table.
|
||||||
|
*
|
||||||
|
* XXX future improvement: use rowids?
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _makeWhere($keyval = null)
|
||||||
|
{
|
||||||
|
if (is_array($this->_keycolumn)) {
|
||||||
|
if ($keyval === null) {
|
||||||
|
for ($i = 0; $i < sizeof($this->_keycolumn); $i++) {
|
||||||
|
$keyval[] = $this->{$this->_keycolumn[$i]};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$whereclause = '';
|
||||||
|
for ($i = 0; $i < sizeof($this->_keycolumn); $i++) {
|
||||||
|
if ($i > 0) {
|
||||||
|
$whereclause .= ' AND ';
|
||||||
|
}
|
||||||
|
$whereclause .= $this->_keycolumn[$i];
|
||||||
|
if (is_null($keyval[$i])) {
|
||||||
|
// there's not much point in having a NULL key,
|
||||||
|
// but we support it anyway
|
||||||
|
$whereclause .= ' IS NULL';
|
||||||
|
} else {
|
||||||
|
$whereclause .= ' = ' . $this->_dbh->quote($keyval[$i]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if ($keyval === null) {
|
||||||
|
$keyval = @$this->{$this->_keycolumn};
|
||||||
|
}
|
||||||
|
$whereclause = $this->_keycolumn;
|
||||||
|
if (is_null($keyval)) {
|
||||||
|
// there's not much point in having a NULL key,
|
||||||
|
// but we support it anyway
|
||||||
|
$whereclause .= ' IS NULL';
|
||||||
|
} else {
|
||||||
|
$whereclause .= ' = ' . $this->_dbh->quote($keyval);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $whereclause;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ setup()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Method used to initialize a DB_storage object from the
|
||||||
|
* configured table.
|
||||||
|
*
|
||||||
|
* @param $keyval mixed the key[s] of the row to fetch (string or array)
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success, a DB error if not
|
||||||
|
*/
|
||||||
|
function setup($keyval)
|
||||||
|
{
|
||||||
|
$whereclause = $this->_makeWhere($keyval);
|
||||||
|
$query = 'SELECT * FROM ' . $this->_table . ' WHERE ' . $whereclause;
|
||||||
|
$sth = $this->_dbh->query($query);
|
||||||
|
if (DB::isError($sth)) {
|
||||||
|
return $sth;
|
||||||
|
}
|
||||||
|
$row = $sth->fetchRow(DB_FETCHMODE_ASSOC);
|
||||||
|
if (DB::isError($row)) {
|
||||||
|
return $row;
|
||||||
|
}
|
||||||
|
if (!$row) {
|
||||||
|
return $this->raiseError(null, DB_ERROR_NOT_FOUND, null, null,
|
||||||
|
$query, null, true);
|
||||||
|
}
|
||||||
|
foreach ($row as $key => $value) {
|
||||||
|
$this->_properties[$key] = true;
|
||||||
|
$this->$key = $value;
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ insert()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Create a new (empty) row in the configured table for this
|
||||||
|
* object.
|
||||||
|
*/
|
||||||
|
function insert($newpk)
|
||||||
|
{
|
||||||
|
if (is_array($this->_keycolumn)) {
|
||||||
|
$primarykey = $this->_keycolumn;
|
||||||
|
} else {
|
||||||
|
$primarykey = array($this->_keycolumn);
|
||||||
|
}
|
||||||
|
settype($newpk, "array");
|
||||||
|
for ($i = 0; $i < sizeof($primarykey); $i++) {
|
||||||
|
$pkvals[] = $this->_dbh->quote($newpk[$i]);
|
||||||
|
}
|
||||||
|
|
||||||
|
$sth = $this->_dbh->query("INSERT INTO $this->_table (" .
|
||||||
|
implode(",", $primarykey) . ") VALUES(" .
|
||||||
|
implode(",", $pkvals) . ")");
|
||||||
|
if (DB::isError($sth)) {
|
||||||
|
return $sth;
|
||||||
|
}
|
||||||
|
if (sizeof($newpk) == 1) {
|
||||||
|
$newpk = $newpk[0];
|
||||||
|
}
|
||||||
|
$this->setup($newpk);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ toString()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Output a simple description of this DB_storage object.
|
||||||
|
* @return string object description
|
||||||
|
*/
|
||||||
|
function toString()
|
||||||
|
{
|
||||||
|
$info = strtolower(get_class($this));
|
||||||
|
$info .= " (table=";
|
||||||
|
$info .= $this->_table;
|
||||||
|
$info .= ", keycolumn=";
|
||||||
|
if (is_array($this->_keycolumn)) {
|
||||||
|
$info .= "(" . implode(",", $this->_keycolumn) . ")";
|
||||||
|
} else {
|
||||||
|
$info .= $this->_keycolumn;
|
||||||
|
}
|
||||||
|
$info .= ", dbh=";
|
||||||
|
if (is_object($this->_dbh)) {
|
||||||
|
$info .= $this->_dbh->toString();
|
||||||
|
} else {
|
||||||
|
$info .= "null";
|
||||||
|
}
|
||||||
|
$info .= ")";
|
||||||
|
if (sizeof($this->_properties)) {
|
||||||
|
$info .= " [loaded, key=";
|
||||||
|
$keyname = $this->_keycolumn;
|
||||||
|
if (is_array($keyname)) {
|
||||||
|
$info .= "(";
|
||||||
|
for ($i = 0; $i < sizeof($keyname); $i++) {
|
||||||
|
if ($i > 0) {
|
||||||
|
$info .= ",";
|
||||||
|
}
|
||||||
|
$info .= $this->$keyname[$i];
|
||||||
|
}
|
||||||
|
$info .= ")";
|
||||||
|
} else {
|
||||||
|
$info .= $this->$keyname;
|
||||||
|
}
|
||||||
|
$info .= "]";
|
||||||
|
}
|
||||||
|
if (sizeof($this->_changes)) {
|
||||||
|
$info .= " [modified]";
|
||||||
|
}
|
||||||
|
return $info;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ dump()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Dump the contents of this object to "standard output".
|
||||||
|
*/
|
||||||
|
function dump()
|
||||||
|
{
|
||||||
|
foreach ($this->_properties as $prop => $foo) {
|
||||||
|
print "$prop = ";
|
||||||
|
print htmlentities($this->$prop);
|
||||||
|
print "<br />\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ &create()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Static method used to create new DB storage objects.
|
||||||
|
* @param $data assoc. array where the keys are the names
|
||||||
|
* of properties/columns
|
||||||
|
* @return object a new instance of DB_storage or a subclass of it
|
||||||
|
*/
|
||||||
|
function &create($table, &$data)
|
||||||
|
{
|
||||||
|
$classname = strtolower(get_class($this));
|
||||||
|
$obj = new $classname($table);
|
||||||
|
foreach ($data as $name => $value) {
|
||||||
|
$obj->_properties[$name] = true;
|
||||||
|
$obj->$name = &$value;
|
||||||
|
}
|
||||||
|
return $obj;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ loadFromQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Loads data into this object from the given query. If this
|
||||||
|
* object already contains table data, changes will be saved and
|
||||||
|
* the object re-initialized first.
|
||||||
|
*
|
||||||
|
* @param $query SQL query
|
||||||
|
*
|
||||||
|
* @param $params parameter list in case you want to use
|
||||||
|
* prepare/execute mode
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success, DB_WARNING_READ_ONLY if the
|
||||||
|
* returned object is read-only (because the object's specified
|
||||||
|
* key column was not found among the columns returned by $query),
|
||||||
|
* or another DB error code in case of errors.
|
||||||
|
*/
|
||||||
|
// XXX commented out for now
|
||||||
|
/*
|
||||||
|
function loadFromQuery($query, $params = null)
|
||||||
|
{
|
||||||
|
if (sizeof($this->_properties)) {
|
||||||
|
if (sizeof($this->_changes)) {
|
||||||
|
$this->store();
|
||||||
|
$this->_changes = array();
|
||||||
|
}
|
||||||
|
$this->_properties = array();
|
||||||
|
}
|
||||||
|
$rowdata = $this->_dbh->getRow($query, DB_FETCHMODE_ASSOC, $params);
|
||||||
|
if (DB::isError($rowdata)) {
|
||||||
|
return $rowdata;
|
||||||
|
}
|
||||||
|
reset($rowdata);
|
||||||
|
$found_keycolumn = false;
|
||||||
|
while (list($key, $value) = each($rowdata)) {
|
||||||
|
if ($key == $this->_keycolumn) {
|
||||||
|
$found_keycolumn = true;
|
||||||
|
}
|
||||||
|
$this->_properties[$key] = true;
|
||||||
|
$this->$key = &$value;
|
||||||
|
unset($value); // have to unset, or all properties will
|
||||||
|
// refer to the same value
|
||||||
|
}
|
||||||
|
if (!$found_keycolumn) {
|
||||||
|
$this->_readonly = true;
|
||||||
|
return DB_WARNING_READ_ONLY;
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
*/
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ set()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Modify an attriute value.
|
||||||
|
*/
|
||||||
|
function set($property, $newvalue)
|
||||||
|
{
|
||||||
|
// only change if $property is known and object is not
|
||||||
|
// read-only
|
||||||
|
if ($this->_readonly) {
|
||||||
|
return $this->raiseError(null, DB_WARNING_READ_ONLY, null,
|
||||||
|
null, null, null, true);
|
||||||
|
}
|
||||||
|
if (@isset($this->_properties[$property])) {
|
||||||
|
if (empty($this->_validator)) {
|
||||||
|
$valid = true;
|
||||||
|
} else {
|
||||||
|
$valid = @call_user_func($this->_validator,
|
||||||
|
$this->_table,
|
||||||
|
$property,
|
||||||
|
$newvalue,
|
||||||
|
$this->$property,
|
||||||
|
$this);
|
||||||
|
}
|
||||||
|
if ($valid) {
|
||||||
|
$this->$property = $newvalue;
|
||||||
|
if (empty($this->_changes[$property])) {
|
||||||
|
$this->_changes[$property] = 0;
|
||||||
|
} else {
|
||||||
|
$this->_changes[$property]++;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return $this->raiseError(null, DB_ERROR_INVALID, null,
|
||||||
|
null, "invalid field: $property",
|
||||||
|
null, true);
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $this->raiseError(null, DB_ERROR_NOSUCHFIELD, null,
|
||||||
|
null, "unknown field: $property",
|
||||||
|
null, true);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ &get()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Fetch an attribute value.
|
||||||
|
*
|
||||||
|
* @param string attribute name
|
||||||
|
*
|
||||||
|
* @return attribute contents, or null if the attribute name is
|
||||||
|
* unknown
|
||||||
|
*/
|
||||||
|
function &get($property)
|
||||||
|
{
|
||||||
|
// only return if $property is known
|
||||||
|
if (isset($this->_properties[$property])) {
|
||||||
|
return $this->$property;
|
||||||
|
}
|
||||||
|
$tmp = null;
|
||||||
|
return $tmp;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _DB_storage()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Destructor, calls DB_storage::store() if there are changes
|
||||||
|
* that are to be kept.
|
||||||
|
*/
|
||||||
|
function _DB_storage()
|
||||||
|
{
|
||||||
|
if (sizeof($this->_changes)) {
|
||||||
|
$this->store();
|
||||||
|
}
|
||||||
|
$this->_properties = array();
|
||||||
|
$this->_changes = array();
|
||||||
|
$this->_table = null;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ store()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Stores changes to this object in the database.
|
||||||
|
*
|
||||||
|
* @return DB_OK or a DB error
|
||||||
|
*/
|
||||||
|
function store()
|
||||||
|
{
|
||||||
|
$params = array();
|
||||||
|
$vars = array();
|
||||||
|
foreach ($this->_changes as $name => $foo) {
|
||||||
|
$params[] = &$this->$name;
|
||||||
|
$vars[] = $name . ' = ?';
|
||||||
|
}
|
||||||
|
if ($vars) {
|
||||||
|
$query = 'UPDATE ' . $this->_table . ' SET ' .
|
||||||
|
implode(', ', $vars) . ' WHERE ' .
|
||||||
|
$this->_makeWhere();
|
||||||
|
$stmt = $this->_dbh->prepare($query);
|
||||||
|
$res = $this->_dbh->execute($stmt, $params);
|
||||||
|
if (DB::isError($res)) {
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
$this->_changes = array();
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ remove()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Remove the row represented by this object from the database.
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK or a DB error
|
||||||
|
*/
|
||||||
|
function remove()
|
||||||
|
{
|
||||||
|
if ($this->_readonly) {
|
||||||
|
return $this->raiseError(null, DB_WARNING_READ_ONLY, null,
|
||||||
|
null, null, null, true);
|
||||||
|
}
|
||||||
|
$query = 'DELETE FROM ' . $this->_table .' WHERE '.
|
||||||
|
$this->_makeWhere();
|
||||||
|
$res = $this->_dbh->query($query);
|
||||||
|
if (DB::isError($res)) {
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
foreach ($this->_properties as $prop => $foo) {
|
||||||
|
unset($this->$prop);
|
||||||
|
}
|
||||||
|
$this->_properties = array();
|
||||||
|
$this->_changes = array();
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,942 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The PEAR DB driver for PHP's sybase extension
|
||||||
|
* for interacting with Sybase databases
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Sterling Hughes <sterling@php.net>
|
||||||
|
* @author Antônio Carlos Venâncio Júnior <floripa@php.net>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: sybase.php,v 1.87 2007/09/21 13:40:42 aharvey Exp $
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtain the DB_common class so it can be extended from
|
||||||
|
*/
|
||||||
|
require_once 'DB/common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The methods PEAR DB uses to interact with PHP's sybase extension
|
||||||
|
* for interacting with Sybase databases
|
||||||
|
*
|
||||||
|
* These methods overload the ones declared in DB_common.
|
||||||
|
*
|
||||||
|
* WARNING: This driver may fail with multiple connections under the
|
||||||
|
* same user/pass/host and different databases.
|
||||||
|
*
|
||||||
|
* @category Database
|
||||||
|
* @package DB
|
||||||
|
* @author Sterling Hughes <sterling@php.net>
|
||||||
|
* @author Antônio Carlos Venâncio Júnior <floripa@php.net>
|
||||||
|
* @author Daniel Convissor <danielc@php.net>
|
||||||
|
* @copyright 1997-2007 The PHP Group
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version Release: 1.7.13
|
||||||
|
* @link http://pear.php.net/package/DB
|
||||||
|
*/
|
||||||
|
class DB_sybase extends DB_common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DB driver type (mysql, oci8, odbc, etc.)
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $phptype = 'sybase';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database syntax variant to be used (db2, access, etc.), if any
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $dbsyntax = 'sybase';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The capabilities of this DB implementation
|
||||||
|
*
|
||||||
|
* The 'new_link' element contains the PHP version that first provided
|
||||||
|
* new_link support for this DBMS. Contains false if it's unsupported.
|
||||||
|
*
|
||||||
|
* Meaning of the 'limit' element:
|
||||||
|
* + 'emulate' = emulate with fetch row by number
|
||||||
|
* + 'alter' = alter the query
|
||||||
|
* + false = skip rows
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $features = array(
|
||||||
|
'limit' => 'emulate',
|
||||||
|
'new_link' => false,
|
||||||
|
'numrows' => true,
|
||||||
|
'pconnect' => true,
|
||||||
|
'prepare' => false,
|
||||||
|
'ssl' => false,
|
||||||
|
'transactions' => true,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A mapping of native error codes to DB error codes
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $errorcode_map = array(
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The raw database connection created by PHP
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $connection;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The DSN information for connecting to a database
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $dsn = array();
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Should data manipulation queries be committed automatically?
|
||||||
|
* @var bool
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $autocommit = true;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The quantity of transactions begun
|
||||||
|
*
|
||||||
|
* {@internal While this is private, it can't actually be designated
|
||||||
|
* private in PHP 5 because it is directly accessed in the test suite.}}
|
||||||
|
*
|
||||||
|
* @var integer
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $transaction_opcount = 0;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The database specified in the DSN
|
||||||
|
*
|
||||||
|
* It's a fix to allow calls to different databases in the same script.
|
||||||
|
*
|
||||||
|
* @var string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_db = '';
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This constructor calls <kbd>$this->DB_common()</kbd>
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function DB_sybase()
|
||||||
|
{
|
||||||
|
$this->DB_common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ connect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Connect to the database server, log in and open the database
|
||||||
|
*
|
||||||
|
* Don't call this method directly. Use DB::connect() instead.
|
||||||
|
*
|
||||||
|
* PEAR DB's sybase driver supports the following extra DSN options:
|
||||||
|
* + appname The application name to use on this connection.
|
||||||
|
* Available since PEAR DB 1.7.0.
|
||||||
|
* + charset The character set to use on this connection.
|
||||||
|
* Available since PEAR DB 1.7.0.
|
||||||
|
*
|
||||||
|
* @param array $dsn the data source name
|
||||||
|
* @param bool $persistent should the connection be persistent?
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function connect($dsn, $persistent = false)
|
||||||
|
{
|
||||||
|
if (!PEAR::loadExtension('sybase') &&
|
||||||
|
!PEAR::loadExtension('sybase_ct'))
|
||||||
|
{
|
||||||
|
return $this->raiseError(DB_ERROR_EXTENSION_NOT_FOUND);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->dsn = $dsn;
|
||||||
|
if ($dsn['dbsyntax']) {
|
||||||
|
$this->dbsyntax = $dsn['dbsyntax'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$dsn['hostspec'] = $dsn['hostspec'] ? $dsn['hostspec'] : 'localhost';
|
||||||
|
$dsn['password'] = !empty($dsn['password']) ? $dsn['password'] : false;
|
||||||
|
$dsn['charset'] = isset($dsn['charset']) ? $dsn['charset'] : false;
|
||||||
|
$dsn['appname'] = isset($dsn['appname']) ? $dsn['appname'] : false;
|
||||||
|
|
||||||
|
$connect_function = $persistent ? 'sybase_pconnect' : 'sybase_connect';
|
||||||
|
|
||||||
|
if ($dsn['username']) {
|
||||||
|
$this->connection = @$connect_function($dsn['hostspec'],
|
||||||
|
$dsn['username'],
|
||||||
|
$dsn['password'],
|
||||||
|
$dsn['charset'],
|
||||||
|
$dsn['appname']);
|
||||||
|
} else {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
'The DSN did not contain a username.');
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$this->connection) {
|
||||||
|
return $this->raiseError(DB_ERROR_CONNECT_FAILED,
|
||||||
|
null, null, null,
|
||||||
|
@sybase_get_last_message());
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($dsn['database']) {
|
||||||
|
if (!@sybase_select_db($dsn['database'], $this->connection)) {
|
||||||
|
return $this->raiseError(DB_ERROR_NODBSELECTED,
|
||||||
|
null, null, null,
|
||||||
|
@sybase_get_last_message());
|
||||||
|
}
|
||||||
|
$this->_db = $dsn['database'];
|
||||||
|
}
|
||||||
|
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ disconnect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Disconnects from the database server
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE on failure
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
$ret = @sybase_close($this->connection);
|
||||||
|
$this->connection = null;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ simpleQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sends a query to the database server
|
||||||
|
*
|
||||||
|
* @param string the SQL query string
|
||||||
|
*
|
||||||
|
* @return mixed + a PHP result resrouce for successful SELECT queries
|
||||||
|
* + the DB_OK constant for other successful queries
|
||||||
|
* + a DB_Error object on failure
|
||||||
|
*/
|
||||||
|
function simpleQuery($query)
|
||||||
|
{
|
||||||
|
$ismanip = $this->_checkManip($query);
|
||||||
|
$this->last_query = $query;
|
||||||
|
if ($this->_db && !@sybase_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->sybaseRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$query = $this->modifyQuery($query);
|
||||||
|
if (!$this->autocommit && $ismanip) {
|
||||||
|
if ($this->transaction_opcount == 0) {
|
||||||
|
$result = @sybase_query('BEGIN TRANSACTION', $this->connection);
|
||||||
|
if (!$result) {
|
||||||
|
return $this->sybaseRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->transaction_opcount++;
|
||||||
|
}
|
||||||
|
$result = @sybase_query($query, $this->connection);
|
||||||
|
if (!$result) {
|
||||||
|
return $this->sybaseRaiseError();
|
||||||
|
}
|
||||||
|
if (is_resource($result)) {
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
// Determine which queries that should return data, and which
|
||||||
|
// should return an error code only.
|
||||||
|
return $ismanip ? DB_OK : $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Move the internal sybase result pointer to the next available result
|
||||||
|
*
|
||||||
|
* @param a valid sybase result resource
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
* @return true if a result is available otherwise return false
|
||||||
|
*/
|
||||||
|
function nextResult($result)
|
||||||
|
{
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ fetchInto()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Places a row from the result set into the given array
|
||||||
|
*
|
||||||
|
* Formating of the array and the data therein are configurable.
|
||||||
|
* See DB_result::fetchInto() for more information.
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::fetchInto() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result the query result resource
|
||||||
|
* @param array $arr the referenced array to put the data in
|
||||||
|
* @param int $fetchmode how the resulting array should be indexed
|
||||||
|
* @param int $rownum the row number to fetch (0 = first row)
|
||||||
|
*
|
||||||
|
* @return mixed DB_OK on success, NULL when the end of a result set is
|
||||||
|
* reached or on failure
|
||||||
|
*
|
||||||
|
* @see DB_result::fetchInto()
|
||||||
|
*/
|
||||||
|
function fetchInto($result, &$arr, $fetchmode, $rownum = null)
|
||||||
|
{
|
||||||
|
if ($rownum !== null) {
|
||||||
|
if (!@sybase_data_seek($result, $rownum)) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($fetchmode & DB_FETCHMODE_ASSOC) {
|
||||||
|
if (function_exists('sybase_fetch_assoc')) {
|
||||||
|
$arr = @sybase_fetch_assoc($result);
|
||||||
|
} else {
|
||||||
|
if ($arr = @sybase_fetch_array($result)) {
|
||||||
|
foreach ($arr as $key => $value) {
|
||||||
|
if (is_int($key)) {
|
||||||
|
unset($arr[$key]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE && $arr) {
|
||||||
|
$arr = array_change_key_case($arr, CASE_LOWER);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$arr = @sybase_fetch_row($result);
|
||||||
|
}
|
||||||
|
if (!$arr) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_RTRIM) {
|
||||||
|
$this->_rtrimArrayValues($arr);
|
||||||
|
}
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_NULL_TO_EMPTY) {
|
||||||
|
$this->_convertNullArrayValuesToEmpty($arr);
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ freeResult()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes the result set and frees the memory occupied by the result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::free() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if $result is invalid
|
||||||
|
*
|
||||||
|
* @see DB_result::free()
|
||||||
|
*/
|
||||||
|
function freeResult($result)
|
||||||
|
{
|
||||||
|
return is_resource($result) ? sybase_free_result($result) : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numCols()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of columns in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numCols() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of columns. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numCols()
|
||||||
|
*/
|
||||||
|
function numCols($result)
|
||||||
|
{
|
||||||
|
$cols = @sybase_num_fields($result);
|
||||||
|
if (!$cols) {
|
||||||
|
return $this->sybaseRaiseError();
|
||||||
|
}
|
||||||
|
return $cols;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ numRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the number of rows in a result set
|
||||||
|
*
|
||||||
|
* This method is not meant to be called directly. Use
|
||||||
|
* DB_result::numRows() instead. It can't be declared "protected"
|
||||||
|
* because DB_result is a separate object.
|
||||||
|
*
|
||||||
|
* @param resource $result PHP's query result resource
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_result::numRows()
|
||||||
|
*/
|
||||||
|
function numRows($result)
|
||||||
|
{
|
||||||
|
$rows = @sybase_num_rows($result);
|
||||||
|
if ($rows === false) {
|
||||||
|
return $this->sybaseRaiseError();
|
||||||
|
}
|
||||||
|
return $rows;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ affectedRows()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines the number of rows affected by a data maniuplation query
|
||||||
|
*
|
||||||
|
* 0 is returned for queries that don't manipulate data.
|
||||||
|
*
|
||||||
|
* @return int the number of rows. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function affectedRows()
|
||||||
|
{
|
||||||
|
if ($this->_last_query_manip) {
|
||||||
|
$result = @sybase_affected_rows($this->connection);
|
||||||
|
} else {
|
||||||
|
$result = 0;
|
||||||
|
}
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ nextId()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the next free id in a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence
|
||||||
|
* @param boolean $ondemand when true, the seqence is automatically
|
||||||
|
* created if it does not exist
|
||||||
|
*
|
||||||
|
* @return int the next id number in the sequence.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::nextID(), DB_common::getSequenceName(),
|
||||||
|
* DB_sybase::createSequence(), DB_sybase::dropSequence()
|
||||||
|
*/
|
||||||
|
function nextId($seq_name, $ondemand = true)
|
||||||
|
{
|
||||||
|
$seqname = $this->getSequenceName($seq_name);
|
||||||
|
if ($this->_db && !@sybase_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->sybaseRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$repeat = 0;
|
||||||
|
do {
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$result = $this->query("INSERT INTO $seqname (vapor) VALUES (0)");
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if ($ondemand && DB::isError($result) &&
|
||||||
|
($result->getCode() == DB_ERROR || $result->getCode() == DB_ERROR_NOSUCHTABLE))
|
||||||
|
{
|
||||||
|
$repeat = 1;
|
||||||
|
$result = $this->createSequence($seq_name);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
} elseif (!DB::isError($result)) {
|
||||||
|
$result = $this->query("SELECT @@IDENTITY FROM $seqname");
|
||||||
|
$repeat = 0;
|
||||||
|
} else {
|
||||||
|
$repeat = false;
|
||||||
|
}
|
||||||
|
} while ($repeat);
|
||||||
|
if (DB::isError($result)) {
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
$result = $result->fetchRow(DB_FETCHMODE_ORDERED);
|
||||||
|
return $result[0];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates a new sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the new sequence
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::createSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_sybase::nextID(), DB_sybase::dropSequence()
|
||||||
|
*/
|
||||||
|
function createSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('CREATE TABLE '
|
||||||
|
. $this->getSequenceName($seq_name)
|
||||||
|
. ' (id numeric(10, 0) IDENTITY NOT NULL,'
|
||||||
|
. ' vapor int NULL)');
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ dropSequence()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Deletes a sequence
|
||||||
|
*
|
||||||
|
* @param string $seq_name name of the sequence to be deleted
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::dropSequence(), DB_common::getSequenceName(),
|
||||||
|
* DB_sybase::nextID(), DB_sybase::createSequence()
|
||||||
|
*/
|
||||||
|
function dropSequence($seq_name)
|
||||||
|
{
|
||||||
|
return $this->query('DROP TABLE ' . $this->getSequenceName($seq_name));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ quoteFloat()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Formats a float value for use within a query in a locale-independent
|
||||||
|
* manner.
|
||||||
|
*
|
||||||
|
* @param float the float value to be quoted.
|
||||||
|
* @return string the quoted string.
|
||||||
|
* @see DB_common::quoteSmart()
|
||||||
|
* @since Method available since release 1.7.8.
|
||||||
|
*/
|
||||||
|
function quoteFloat($float) {
|
||||||
|
return $this->escapeSimple(str_replace(',', '.', strval(floatval($float))));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ autoCommit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Enables or disables automatic commits
|
||||||
|
*
|
||||||
|
* @param bool $onoff true turns it on, false turns it off
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object if the driver
|
||||||
|
* doesn't support auto-committing transactions.
|
||||||
|
*/
|
||||||
|
function autoCommit($onoff = false)
|
||||||
|
{
|
||||||
|
// XXX if $this->transaction_opcount > 0, we should probably
|
||||||
|
// issue a warning here.
|
||||||
|
$this->autocommit = $onoff ? true : false;
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ commit()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Commits the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function commit()
|
||||||
|
{
|
||||||
|
if ($this->transaction_opcount > 0) {
|
||||||
|
if ($this->_db && !@sybase_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->sybaseRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$result = @sybase_query('COMMIT', $this->connection);
|
||||||
|
$this->transaction_opcount = 0;
|
||||||
|
if (!$result) {
|
||||||
|
return $this->sybaseRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ rollback()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reverts the current transaction
|
||||||
|
*
|
||||||
|
* @return int DB_OK on success. A DB_Error object on failure.
|
||||||
|
*/
|
||||||
|
function rollback()
|
||||||
|
{
|
||||||
|
if ($this->transaction_opcount > 0) {
|
||||||
|
if ($this->_db && !@sybase_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->sybaseRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$result = @sybase_query('ROLLBACK', $this->connection);
|
||||||
|
$this->transaction_opcount = 0;
|
||||||
|
if (!$result) {
|
||||||
|
return $this->sybaseRaiseError();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_OK;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ sybaseRaiseError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Produces a DB_Error object regarding the current problem
|
||||||
|
*
|
||||||
|
* @param int $errno if the error is being manually raised pass a
|
||||||
|
* DB_ERROR* constant here. If this isn't passed
|
||||||
|
* the error information gathered from the DBMS.
|
||||||
|
*
|
||||||
|
* @return object the DB_Error object
|
||||||
|
*
|
||||||
|
* @see DB_common::raiseError(),
|
||||||
|
* DB_sybase::errorNative(), DB_sybase::errorCode()
|
||||||
|
*/
|
||||||
|
function sybaseRaiseError($errno = null)
|
||||||
|
{
|
||||||
|
$native = $this->errorNative();
|
||||||
|
if ($errno === null) {
|
||||||
|
$errno = $this->errorCode($native);
|
||||||
|
}
|
||||||
|
return $this->raiseError($errno, null, null, null, $native);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorNative()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Gets the DBMS' native error message produced by the last query
|
||||||
|
*
|
||||||
|
* @return string the DBMS' error message
|
||||||
|
*/
|
||||||
|
function errorNative()
|
||||||
|
{
|
||||||
|
return @sybase_get_last_message();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ errorCode()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines PEAR::DB error code from the database's text error message.
|
||||||
|
*
|
||||||
|
* @param string $errormsg error message returned from the database
|
||||||
|
* @return integer an error number from a DB error constant
|
||||||
|
*/
|
||||||
|
function errorCode($errormsg)
|
||||||
|
{
|
||||||
|
static $error_regexps;
|
||||||
|
|
||||||
|
// PHP 5.2+ prepends the function name to $php_errormsg, so we need
|
||||||
|
// this hack to work around it, per bug #9599.
|
||||||
|
$errormsg = preg_replace('/^sybase[a-z_]+\(\): /', '', $errormsg);
|
||||||
|
|
||||||
|
if (!isset($error_regexps)) {
|
||||||
|
$error_regexps = array(
|
||||||
|
'/Incorrect syntax near/'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/^Unclosed quote before the character string [\"\'].*[\"\']\./'
|
||||||
|
=> DB_ERROR_SYNTAX,
|
||||||
|
'/Implicit conversion (from datatype|of NUMERIC value)/i'
|
||||||
|
=> DB_ERROR_INVALID_NUMBER,
|
||||||
|
'/Cannot drop the table [\"\'].+[\"\'], because it doesn\'t exist in the system catalogs\./'
|
||||||
|
=> DB_ERROR_NOSUCHTABLE,
|
||||||
|
'/Only the owner of object [\"\'].+[\"\'] or a user with System Administrator \(SA\) role can run this command\./'
|
||||||
|
=> DB_ERROR_ACCESS_VIOLATION,
|
||||||
|
'/^.+ permission denied on object .+, database .+, owner .+/'
|
||||||
|
=> DB_ERROR_ACCESS_VIOLATION,
|
||||||
|
'/^.* permission denied, database .+, owner .+/'
|
||||||
|
=> DB_ERROR_ACCESS_VIOLATION,
|
||||||
|
'/[^.*] not found\./'
|
||||||
|
=> DB_ERROR_NOSUCHTABLE,
|
||||||
|
'/There is already an object named/'
|
||||||
|
=> DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'/Invalid column name/'
|
||||||
|
=> DB_ERROR_NOSUCHFIELD,
|
||||||
|
'/does not allow null values/'
|
||||||
|
=> DB_ERROR_CONSTRAINT_NOT_NULL,
|
||||||
|
'/Command has been aborted/'
|
||||||
|
=> DB_ERROR_CONSTRAINT,
|
||||||
|
'/^Cannot drop the index .* because it doesn\'t exist/i'
|
||||||
|
=> DB_ERROR_NOT_FOUND,
|
||||||
|
'/^There is already an index/i'
|
||||||
|
=> DB_ERROR_ALREADY_EXISTS,
|
||||||
|
'/^There are fewer columns in the INSERT statement than values specified/i'
|
||||||
|
=> DB_ERROR_VALUE_COUNT_ON_ROW,
|
||||||
|
'/Divide by zero/i'
|
||||||
|
=> DB_ERROR_DIVZERO,
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($error_regexps as $regexp => $code) {
|
||||||
|
if (preg_match($regexp, $errormsg)) {
|
||||||
|
return $code;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return DB_ERROR;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns information about a table or a result set
|
||||||
|
*
|
||||||
|
* NOTE: only supports 'table' and 'flags' if <var>$result</var>
|
||||||
|
* is a table name.
|
||||||
|
*
|
||||||
|
* @param object|string $result DB_result object from a query or a
|
||||||
|
* string containing the name of a table.
|
||||||
|
* While this also accepts a query result
|
||||||
|
* resource identifier, this behavior is
|
||||||
|
* deprecated.
|
||||||
|
* @param int $mode a valid tableInfo mode
|
||||||
|
*
|
||||||
|
* @return array an associative array with the information requested.
|
||||||
|
* A DB_Error object on failure.
|
||||||
|
*
|
||||||
|
* @see DB_common::tableInfo()
|
||||||
|
* @since Method available since Release 1.6.0
|
||||||
|
*/
|
||||||
|
function tableInfo($result, $mode = null)
|
||||||
|
{
|
||||||
|
if (is_string($result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a table name.
|
||||||
|
* Create a result resource identifier.
|
||||||
|
*/
|
||||||
|
if ($this->_db && !@sybase_select_db($this->_db, $this->connection)) {
|
||||||
|
return $this->sybaseRaiseError(DB_ERROR_NODBSELECTED);
|
||||||
|
}
|
||||||
|
$id = @sybase_query("SELECT * FROM $result WHERE 1=0",
|
||||||
|
$this->connection);
|
||||||
|
$got_string = true;
|
||||||
|
} elseif (isset($result->result)) {
|
||||||
|
/*
|
||||||
|
* Probably received a result object.
|
||||||
|
* Extract the result resource identifier.
|
||||||
|
*/
|
||||||
|
$id = $result->result;
|
||||||
|
$got_string = false;
|
||||||
|
} else {
|
||||||
|
/*
|
||||||
|
* Probably received a result resource identifier.
|
||||||
|
* Copy it.
|
||||||
|
* Deprecated. Here for compatibility only.
|
||||||
|
*/
|
||||||
|
$id = $result;
|
||||||
|
$got_string = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!is_resource($id)) {
|
||||||
|
return $this->sybaseRaiseError(DB_ERROR_NEED_MORE_DATA);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->options['portability'] & DB_PORTABILITY_LOWERCASE) {
|
||||||
|
$case_func = 'strtolower';
|
||||||
|
} else {
|
||||||
|
$case_func = 'strval';
|
||||||
|
}
|
||||||
|
|
||||||
|
$count = @sybase_num_fields($id);
|
||||||
|
$res = array();
|
||||||
|
|
||||||
|
if ($mode) {
|
||||||
|
$res['num_fields'] = $count;
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < $count; $i++) {
|
||||||
|
$f = @sybase_fetch_field($id, $i);
|
||||||
|
// column_source is often blank
|
||||||
|
$res[$i] = array(
|
||||||
|
'table' => $got_string
|
||||||
|
? $case_func($result)
|
||||||
|
: $case_func($f->column_source),
|
||||||
|
'name' => $case_func($f->name),
|
||||||
|
'type' => $f->type,
|
||||||
|
'len' => $f->max_length,
|
||||||
|
'flags' => '',
|
||||||
|
);
|
||||||
|
if ($res[$i]['table']) {
|
||||||
|
$res[$i]['flags'] = $this->_sybase_field_flags(
|
||||||
|
$res[$i]['table'], $res[$i]['name']);
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDER) {
|
||||||
|
$res['order'][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
if ($mode & DB_TABLEINFO_ORDERTABLE) {
|
||||||
|
$res['ordertable'][$res[$i]['table']][$res[$i]['name']] = $i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// free the result only if we were called on a table
|
||||||
|
if ($got_string) {
|
||||||
|
@sybase_free_result($id);
|
||||||
|
}
|
||||||
|
return $res;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _sybase_field_flags()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the flags for a field
|
||||||
|
*
|
||||||
|
* Currently supports:
|
||||||
|
* + <samp>unique_key</samp> (unique index, unique check or primary_key)
|
||||||
|
* + <samp>multiple_key</samp> (multi-key index)
|
||||||
|
*
|
||||||
|
* @param string $table the table name
|
||||||
|
* @param string $column the field name
|
||||||
|
*
|
||||||
|
* @return string space delimited string of flags. Empty string if none.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _sybase_field_flags($table, $column)
|
||||||
|
{
|
||||||
|
static $tableName = null;
|
||||||
|
static $flags = array();
|
||||||
|
|
||||||
|
if ($table != $tableName) {
|
||||||
|
$flags = array();
|
||||||
|
$tableName = $table;
|
||||||
|
|
||||||
|
/* We're running sp_helpindex directly because it doesn't exist in
|
||||||
|
* older versions of ASE -- unfortunately, we can't just use
|
||||||
|
* DB::isError() because the user may be using callback error
|
||||||
|
* handling. */
|
||||||
|
$res = @sybase_query("sp_helpindex $table", $this->connection);
|
||||||
|
|
||||||
|
if ($res === false || $res === true) {
|
||||||
|
// Fake a valid response for BC reasons.
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
|
||||||
|
while (($val = sybase_fetch_assoc($res)) !== false) {
|
||||||
|
if (!isset($val['index_keys'])) {
|
||||||
|
/* No useful information returned. Break and be done with
|
||||||
|
* it, which preserves the pre-1.7.9 behaviour. */
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
$keys = explode(', ', trim($val['index_keys']));
|
||||||
|
|
||||||
|
if (sizeof($keys) > 1) {
|
||||||
|
foreach ($keys as $key) {
|
||||||
|
$this->_add_flag($flags[$key], 'multiple_key');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (strpos($val['index_description'], 'unique')) {
|
||||||
|
foreach ($keys as $key) {
|
||||||
|
$this->_add_flag($flags[$key], 'unique_key');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sybase_free_result($res);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
if (array_key_exists($column, $flags)) {
|
||||||
|
return(implode(' ', $flags[$column]));
|
||||||
|
}
|
||||||
|
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _add_flag()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Adds a string to the flags array if the flag is not yet in there
|
||||||
|
* - if there is no flag present the array is created
|
||||||
|
*
|
||||||
|
* @param array $array reference of flags array to add a value to
|
||||||
|
* @param mixed $value value to add to the flag array
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _add_flag(&$array, $value)
|
||||||
|
{
|
||||||
|
if (!is_array($array)) {
|
||||||
|
$array = array($value);
|
||||||
|
} elseif (!in_array($value, $array)) {
|
||||||
|
array_push($array, $value);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getSpecialQuery()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Obtains the query string needed for listing a given type of objects
|
||||||
|
*
|
||||||
|
* @param string $type the kind of objects you want to retrieve
|
||||||
|
*
|
||||||
|
* @return string the SQL query string or null if the driver doesn't
|
||||||
|
* support the object type requested
|
||||||
|
*
|
||||||
|
* @access protected
|
||||||
|
* @see DB_common::getListOf()
|
||||||
|
*/
|
||||||
|
function getSpecialQuery($type)
|
||||||
|
{
|
||||||
|
switch ($type) {
|
||||||
|
case 'tables':
|
||||||
|
return "SELECT name FROM sysobjects WHERE type = 'U'"
|
||||||
|
. ' ORDER BY name';
|
||||||
|
case 'views':
|
||||||
|
return "SELECT name FROM sysobjects WHERE type = 'V'";
|
||||||
|
default:
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables:
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,534 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* File
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category File
|
||||||
|
* @package File
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @author Tal Peer <tal@php.net>
|
||||||
|
* @author Michael Wallner <mike@php.net>
|
||||||
|
* @copyright 2002-2005 The Authors
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: File.php,v 1.31 2005/07/21 07:53:09 mike Exp $
|
||||||
|
* @link http://pear.php.net/package/File
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Requires PEAR
|
||||||
|
*/
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The default number of bytes for reading
|
||||||
|
*/
|
||||||
|
if (!defined('FILE_DEFAULT_READSIZE')) {
|
||||||
|
define('FILE_DEFAULT_READSIZE', 1024, true);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The maximum number of bytes for reading lines
|
||||||
|
*/
|
||||||
|
if (!defined('FILE_MAX_LINE_READSIZE')) {
|
||||||
|
define('FILE_MAX_LINE_READSIZE', 40960, true);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Whether file locks should block
|
||||||
|
*/
|
||||||
|
if (!defined('FILE_LOCKS_BLOCK')) {
|
||||||
|
define('FILE_LOCKS_BLOCK', true, true);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Mode to use for reading from files
|
||||||
|
*/
|
||||||
|
define('FILE_MODE_READ', 'rb', true);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Mode to use for truncating files, then writing
|
||||||
|
*/
|
||||||
|
define('FILE_MODE_WRITE', 'wb', true);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Mode to use for appending to files
|
||||||
|
*/
|
||||||
|
define('FILE_MODE_APPEND', 'ab', true);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Use this when a shared (read) lock is required
|
||||||
|
*/
|
||||||
|
define('FILE_LOCK_SHARED', LOCK_SH | (FILE_LOCKS_BLOCK ? 0 : LOCK_NB), true);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Use this when an exclusive (write) lock is required
|
||||||
|
*/
|
||||||
|
define('FILE_LOCK_EXCLUSIVE', LOCK_EX | (FILE_LOCKS_BLOCK ? 0 : LOCK_NB), true);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Class for handling files
|
||||||
|
*
|
||||||
|
* A class with common functions for writing,
|
||||||
|
* reading and handling files and directories
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @author Tal Peer <tal@php.net>
|
||||||
|
* @author Michael Wallner <mike@php.net>
|
||||||
|
* @access public
|
||||||
|
* @package File
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
class File extends PEAR
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Destructor
|
||||||
|
*
|
||||||
|
* Unlocks any locked file pointers and closes all filepointers
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _File()
|
||||||
|
{
|
||||||
|
File::closeAll();
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Handles file pointers. If a file pointer needs to be opened,
|
||||||
|
* it will be. If it already exists (based on filename and mode)
|
||||||
|
* then the existing one will be returned.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $filename Filename to be used
|
||||||
|
* @param string $mode Mode to open the file in
|
||||||
|
* @param mixed $lock Type of lock to use
|
||||||
|
* @return mixed PEAR_Error on error or file pointer resource on success
|
||||||
|
*/
|
||||||
|
function &_getFilePointer($filename, $mode, $lock = false)
|
||||||
|
{
|
||||||
|
$filePointers = &PEAR::getStaticProperty('File', 'filePointers');
|
||||||
|
|
||||||
|
// Win32 is case-insensitive
|
||||||
|
if (OS_WINDOWS) {
|
||||||
|
$filename = strToLower($filename);
|
||||||
|
}
|
||||||
|
|
||||||
|
// check if file pointer already exists
|
||||||
|
if ( !isset($filePointers[$filename][$mode]) ||
|
||||||
|
!is_resource($filePointers[$filename][$mode])) {
|
||||||
|
|
||||||
|
// check if we can open the file in the desired mode
|
||||||
|
switch ($mode)
|
||||||
|
{
|
||||||
|
case FILE_MODE_READ:
|
||||||
|
if ( !preg_match('/^.+(?<!file):\/\//i', $filename) &&
|
||||||
|
!file_exists($filename)) {
|
||||||
|
return PEAR::raiseError("File does not exist: $filename");
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
case FILE_MODE_APPEND:
|
||||||
|
case FILE_MODE_WRITE:
|
||||||
|
if (file_exists($filename)) {
|
||||||
|
if (!is_writable($filename)) {
|
||||||
|
return PEAR::raiseError("File is not writable: $filename");
|
||||||
|
}
|
||||||
|
} elseif (!is_writable($dir = dirname($filename))) {
|
||||||
|
return PEAR::raiseError("Cannot create file in directory: $dir");
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
return PEAR::raiseError("Invalid access mode: $mode");
|
||||||
|
}
|
||||||
|
|
||||||
|
// open file
|
||||||
|
$filePointers[$filename][$mode] = @fopen($filename, $mode);
|
||||||
|
if (!is_resource($filePointers[$filename][$mode])) {
|
||||||
|
return PEAR::raiseError('Failed to open file: ' . $filename);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// lock file
|
||||||
|
if ($lock) {
|
||||||
|
$lock = $mode == FILE_MODE_READ ? FILE_LOCK_SHARED : FILE_LOCK_EXCLUSIVE;
|
||||||
|
$locks = &PEAR::getStaticProperty('File', 'locks');
|
||||||
|
if (@flock($filePointers[$filename][$mode], $lock)) {
|
||||||
|
$locks[] = &$filePointers[$filename][$mode];
|
||||||
|
} elseif (FILE_LOCKS_BLOCK) {
|
||||||
|
return PEAR::raiseError("File already locked: $filename");
|
||||||
|
} else {
|
||||||
|
return PEAR::raiseError("Could not lock file: $filename");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $filePointers[$filename][$mode];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reads an entire file and returns it.
|
||||||
|
* Uses file_get_contents if available.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename Name of file to read from
|
||||||
|
* @param mixed $lock Type of lock to use
|
||||||
|
* @return mixed PEAR_Error if an error has occured or a string with the contents of the the file
|
||||||
|
*/
|
||||||
|
function readAll($filename, $lock = false)
|
||||||
|
{
|
||||||
|
if (function_exists('file_get_contents')) {
|
||||||
|
if (false === $file = @file_get_contents($filename)) {
|
||||||
|
return PEAR::raiseError("Cannot read file: $filename");
|
||||||
|
}
|
||||||
|
return $file;
|
||||||
|
}
|
||||||
|
|
||||||
|
$file = '';
|
||||||
|
while (false !== $buf = File::read($filename, FILE_DEFAULT_READSIZE, $lock)) {
|
||||||
|
if (PEAR::isError($buf)) {
|
||||||
|
return $buf;
|
||||||
|
}
|
||||||
|
$file .= $buf;
|
||||||
|
}
|
||||||
|
|
||||||
|
// close the file pointer
|
||||||
|
File::close($filename, FILE_MODE_READ);
|
||||||
|
|
||||||
|
return $file;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a specified number of bytes of a file.
|
||||||
|
* Defaults to FILE_DEFAULT_READSIZE. If $size is 0, all file will be read.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename Name of file to read from
|
||||||
|
* @param integer $size Bytes to read
|
||||||
|
* @param mixed $lock Type of lock to use
|
||||||
|
* @return mixed PEAR_Error on error or a string which contains the data read
|
||||||
|
* Will also return false upon EOF
|
||||||
|
*/
|
||||||
|
function read($filename, $size = FILE_DEFAULT_READSIZE, $lock = false)
|
||||||
|
{
|
||||||
|
static $filePointers;
|
||||||
|
|
||||||
|
if (0 == $size) {
|
||||||
|
return File::readAll($filename, $lock);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( !isset($filePointers[$filename]) ||
|
||||||
|
!is_resource($filePointers[$filename])) {
|
||||||
|
if (PEAR::isError($fp = &File::_getFilePointer($filename, FILE_MODE_READ, $lock))) {
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
|
||||||
|
$filePointers[$filename] = &$fp;
|
||||||
|
} else {
|
||||||
|
$fp = &$filePointers[$filename];
|
||||||
|
}
|
||||||
|
|
||||||
|
return !feof($fp) ? fread($fp, $size) : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Writes the given data to the given filename.
|
||||||
|
* Defaults to no lock, append mode.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename Name of file to write to
|
||||||
|
* @param string $data Data to write to file
|
||||||
|
* @param string $mode Mode to open file in
|
||||||
|
* @param mixed $lock Type of lock to use
|
||||||
|
* @return mixed PEAR_Error on error or number of bytes written to file.
|
||||||
|
*/
|
||||||
|
function write($filename, $data, $mode = FILE_MODE_APPEND, $lock = false)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($fp = &File::_getFilePointer($filename, $mode, $lock))) {
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
if (-1 === $bytes = @fwrite($fp, $data, strlen($data))) {
|
||||||
|
return PEAR::raiseError("Cannot write data: '$data' to file: '$filename'");
|
||||||
|
}
|
||||||
|
return $bytes;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reads and returns a single character from given filename
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename Name of file to read from
|
||||||
|
* @param mixed $lock Type of lock to use
|
||||||
|
* @return mixed PEAR_Error on error or one character of the specified file
|
||||||
|
*/
|
||||||
|
function readChar($filename, $lock = false)
|
||||||
|
{
|
||||||
|
return File::read($filename, 1, $lock);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Writes a single character to a file
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename Name of file to write to
|
||||||
|
* @param string $char Character to write
|
||||||
|
* @param string $mode Mode to use when writing
|
||||||
|
* @param mixed $lock Type of lock to use
|
||||||
|
* @return mixed PEAR_Error on error, or 1 on success
|
||||||
|
*/
|
||||||
|
function writeChar($filename, $char, $mode = FILE_MODE_APPEND, $lock = false)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($fp = &File::_getFilePointer($filename, $mode, $lock))) {
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
if (-1 === @fwrite($fp, $char, 1)) {
|
||||||
|
return PEAR::raiseError("Cannot write data: '$data' to file: '$filename'");
|
||||||
|
}
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a line of the file (without trailing CRLF).
|
||||||
|
* Maximum read line length is FILE_MAX_LINE_READSIZE.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename Name of file to read from
|
||||||
|
* @param boolean $lock Whether file should be locked
|
||||||
|
* @return mixed PEAR_Error on error or a string containing the line read from file
|
||||||
|
*/
|
||||||
|
function readLine($filename, $lock = false)
|
||||||
|
{
|
||||||
|
static $filePointers; // Used to prevent unnecessary calls to _getFilePointer()
|
||||||
|
|
||||||
|
if ( !isset($filePointers[$filename]) ||
|
||||||
|
!is_resource($filePointers[$filename])) {
|
||||||
|
if (PEAR::isError($fp = &File::_getFilePointer($filename, FILE_MODE_READ, $lock))) {
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
|
||||||
|
$filePointers[$filename] = &$fp;
|
||||||
|
} else {
|
||||||
|
$fp = &$filePointers[$filename];
|
||||||
|
}
|
||||||
|
|
||||||
|
if (feof($fp)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return rtrim(fgets($fp, FILE_MAX_LINE_READSIZE), "\r\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Writes a single line, appending a LF (by default)
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename Name of file to write to
|
||||||
|
* @param string $line Line of data to be written to file
|
||||||
|
* @param string $mode Write mode, can be either FILE_MODE_WRITE or FILE_MODE_APPEND
|
||||||
|
* @param string $crlf The CRLF your system is using. UNIX = \n Windows = \r\n Mac = \r
|
||||||
|
* @param mixed $lock Whether to lock the file
|
||||||
|
* @return mixed PEAR_Error on error or number of bytes written to file (including appended crlf)
|
||||||
|
*/
|
||||||
|
function writeLine($filename, $line, $mode = FILE_MODE_APPEND, $crlf = "\n", $lock = false)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($fp = &File::_getFilePointer($filename, $mode, $lock))) {
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
if (-1 === $bytes = fwrite($fp, $line . $crlf)) {
|
||||||
|
return PEAR::raiseError("Cannot write data: '$data' to file: '$file'");
|
||||||
|
}
|
||||||
|
return $bytes;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This rewinds a filepointer to the start of a file
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename The filename
|
||||||
|
* @param string $mode Mode the file was opened in
|
||||||
|
* @return mixed PEAR Error on error, true on success
|
||||||
|
*/
|
||||||
|
function rewind($filename, $mode)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($fp = &File::_getFilePointer($filename, $mode))) {
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
if (!@rewind($fp)) {
|
||||||
|
return PEAR::raiseError("Cannot rewind file: $filename");
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Closes all open file pointers
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function closeAll()
|
||||||
|
{
|
||||||
|
$locks = &PEAR::getStaticProperty('File', 'locks');
|
||||||
|
$filePointers = &PEAR::getStaticProperty('File', 'filePointers');
|
||||||
|
|
||||||
|
// unlock files
|
||||||
|
for ($i = 0, $c = count($locks); $i < $c; $i++) {
|
||||||
|
is_resource($locks[$i]) and @flock($locks[$i], LOCK_UN);
|
||||||
|
}
|
||||||
|
|
||||||
|
// close files
|
||||||
|
if (!empty($filePointers)) {
|
||||||
|
foreach ($filePointers as $fname => $modes) {
|
||||||
|
foreach (array_keys($modes) as $mode) {
|
||||||
|
if (is_resource($filePointers[$fname][$mode])) {
|
||||||
|
@fclose($filePointers[$fname][$mode]);
|
||||||
|
}
|
||||||
|
unset($filePointers[$fname][$mode]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This closes an open file pointer
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename The filename that was opened
|
||||||
|
* @param string $mode Mode the file was opened in
|
||||||
|
* @return mixed PEAR Error on error, true otherwise
|
||||||
|
*/
|
||||||
|
function close($filename, $mode)
|
||||||
|
{
|
||||||
|
$filePointers = &PEAR::getStaticProperty('File', 'filePointers');
|
||||||
|
|
||||||
|
if (OS_WINDOWS) {
|
||||||
|
$filename = strToLower($filename);
|
||||||
|
}
|
||||||
|
if (!isset($filePointers[$filename][$mode])) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
$fp = $filePointers[$filename][$mode];
|
||||||
|
unset($filePointers[$filename][$mode]);
|
||||||
|
|
||||||
|
if (is_resource($fp)) {
|
||||||
|
// unlock file
|
||||||
|
@flock($fp, LOCK_UN);
|
||||||
|
// close file
|
||||||
|
if (!@fclose($fp)) {
|
||||||
|
return PEAR::raiseError("Cannot close file: $filename");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This unlocks a locked file pointer.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $filename The filename that was opened
|
||||||
|
* @param string $mode Mode the file was opened in
|
||||||
|
* @return mixed PEAR Error on error, true otherwise
|
||||||
|
*/
|
||||||
|
function unlock($filename, $mode)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($fp = &File::_getFilePointer($filename, $mode))) {
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
if (!@flock($fp, LOCK_UN)) {
|
||||||
|
return PEAR::raiseError("Cacnnot unlock file: $filename");
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated
|
||||||
|
*/
|
||||||
|
function stripTrailingSeparators($path, $separator = DIRECTORY_SEPARATOR)
|
||||||
|
{
|
||||||
|
return rtrim($path, $separator);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated
|
||||||
|
*/
|
||||||
|
function stripLeadingSeparators($path, $separator = DIRECTORY_SEPARATOR)
|
||||||
|
{
|
||||||
|
return ltrim($path, $separator);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated Use File_Util::buildPath() instead.
|
||||||
|
*/
|
||||||
|
function buildPath($parts, $separator = DIRECTORY_SEPARATOR)
|
||||||
|
{
|
||||||
|
require_once 'File/Util.php';
|
||||||
|
return File_Util::buildPath($parts, $separator);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated Use File_Util::skipRoot() instead.
|
||||||
|
*/
|
||||||
|
function skipRoot($path)
|
||||||
|
{
|
||||||
|
require_once 'File/Util.php';
|
||||||
|
return File_Util::skipRoot($path);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated Use File_Util::tmpDir() instead.
|
||||||
|
*/
|
||||||
|
function getTempDir()
|
||||||
|
{
|
||||||
|
require_once 'File/Util.php';
|
||||||
|
return File_Util::tmpDir();
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated Use File_Util::tmpFile() instead.
|
||||||
|
*/
|
||||||
|
function getTempFile($dirname = null)
|
||||||
|
{
|
||||||
|
require_once 'File/Util.php';
|
||||||
|
return File_Util::tmpFile($dirname);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated Use File_Util::isAbsolute() instead.
|
||||||
|
*/
|
||||||
|
function isAbsolute($path)
|
||||||
|
{
|
||||||
|
require_once 'File/Util.php';
|
||||||
|
return File_Util::isAbsolute($path);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated Use File_Util::relativePath() instead.
|
||||||
|
*/
|
||||||
|
function relativePath($path, $root, $separator = DIRECTORY_SEPARATOR)
|
||||||
|
{
|
||||||
|
require_once 'File/Util.php';
|
||||||
|
return File_Util::relativePath($path, $root, $separator);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @deprecated Use File_Util::realpath() instead.
|
||||||
|
*/
|
||||||
|
function realpath($path, $separator = DIRECTORY_SEPARATOR)
|
||||||
|
{
|
||||||
|
require_once 'File/Util.php';
|
||||||
|
return File_Util::realpath($path, $separator);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
PEAR::registerShutdownFunc(array('File', '_File'));
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,514 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* File::CSV
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category File
|
||||||
|
* @package File
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @author Helgi Þormar <dufuz@php.net>
|
||||||
|
* @copyright 2004-2005 The Authors
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: CSV.php,v 1.24 2005/08/09 08:16:02 dufuz Exp $
|
||||||
|
* @link http://pear.php.net/package/File
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
require_once 'File.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* File class for handling CSV files (Comma Separated Values), a common format
|
||||||
|
* for exchanging data.
|
||||||
|
*
|
||||||
|
* TODO:
|
||||||
|
* - Usage example and Doc
|
||||||
|
* - Use getPointer() in discoverFormat
|
||||||
|
* - Add a line counter for being able to output better error reports
|
||||||
|
* - Store the last error in GLOBALS and add File_CSV::getLastError()
|
||||||
|
*
|
||||||
|
* Wish:
|
||||||
|
* - Other methods like readAll(), writeAll(), numFields(), numRows()
|
||||||
|
* - Try to detect if a CSV has header or not in discoverFormat()
|
||||||
|
*
|
||||||
|
* Known Bugs:
|
||||||
|
* (they has been analyzed but for the moment the impact in the speed for
|
||||||
|
* properly handle this uncommon cases is too high and won't be supported)
|
||||||
|
* - A field which is composed only by a single quoted separator (ie -> ;";";)
|
||||||
|
* is not handled properly
|
||||||
|
* - When there is exactly one field minus than the expected number and there
|
||||||
|
* is a field with a separator inside, the parser will throw the "wrong count" error
|
||||||
|
*
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @author Helgi Þormar <dufuz@php.net>
|
||||||
|
* @package File
|
||||||
|
*/
|
||||||
|
class File_CSV
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* This raiseError method works in a different way. It will always return
|
||||||
|
* false (an error occurred) but it will call PEAR::raiseError() before
|
||||||
|
* it. If no default PEAR global handler is set, will trigger an error.
|
||||||
|
*
|
||||||
|
* @param string $error The error message
|
||||||
|
* @return bool always false
|
||||||
|
*/
|
||||||
|
function raiseError($error)
|
||||||
|
{
|
||||||
|
// If a default PEAR Error handler is not set trigger the error
|
||||||
|
// XXX Add a PEAR::isSetHandler() method?
|
||||||
|
if ($GLOBALS['_PEAR_default_error_mode'] == PEAR_ERROR_RETURN) {
|
||||||
|
PEAR::raiseError($error, null, PEAR_ERROR_TRIGGER, E_USER_WARNING);
|
||||||
|
} else {
|
||||||
|
PEAR::raiseError($error);
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks the configuration given by the user
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string &$error The error will be written here if any
|
||||||
|
* @param array &$conf The configuration assoc array
|
||||||
|
* @return string error Returns a error message
|
||||||
|
*/
|
||||||
|
function _conf(&$error, &$conf)
|
||||||
|
{
|
||||||
|
// check conf
|
||||||
|
if (!is_array($conf)) {
|
||||||
|
return $error = 'Invalid configuration';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isset($conf['fields']) || !is_numeric($conf['fields'])) {
|
||||||
|
return $error = 'The number of fields must be numeric (the "fields" key)';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($conf['sep'])) {
|
||||||
|
if (strlen($conf['sep']) != 1) {
|
||||||
|
return $error = 'Separator can only be one char';
|
||||||
|
}
|
||||||
|
} elseif ($conf['fields'] > 1) {
|
||||||
|
return $error = 'Missing separator (the "sep" key)';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($conf['quote'])) {
|
||||||
|
if (strlen($conf['quote']) != 1) {
|
||||||
|
return $error = 'The quote char must be one char (the "quote" key)';
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$conf['quote'] = null;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isset($conf['crlf'])) {
|
||||||
|
$conf['crlf'] = "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isset($conf['eol2unix'])) {
|
||||||
|
$conf['eol2unix'] = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Return or create the file descriptor associated with a file
|
||||||
|
*
|
||||||
|
* @param string $file The name of the file
|
||||||
|
* @param array &$conf The configuration
|
||||||
|
* @param string $mode The open node (ex: FILE_MODE_READ or FILE_MODE_WRITE)
|
||||||
|
* @param boolean $reset if passed as true and resource for the file exists
|
||||||
|
* than the file pointer will be moved to the beginning
|
||||||
|
*
|
||||||
|
* @return mixed A file resource or false
|
||||||
|
*/
|
||||||
|
function getPointer($file, &$conf, $mode = FILE_MODE_READ, $reset = false)
|
||||||
|
{
|
||||||
|
static $resources = array();
|
||||||
|
static $config;
|
||||||
|
if (isset($resources[$file])) {
|
||||||
|
$conf = $config;
|
||||||
|
if ($reset) {
|
||||||
|
fseek($resources[$file], 0);
|
||||||
|
}
|
||||||
|
return $resources[$file];
|
||||||
|
}
|
||||||
|
File_CSV::_conf($error, $conf);
|
||||||
|
if ($error) {
|
||||||
|
return File_CSV::raiseError($error);
|
||||||
|
}
|
||||||
|
$config = $conf;
|
||||||
|
PEAR::pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$fp = &File::_getFilePointer($file, $mode);
|
||||||
|
PEAR::popErrorHandling();
|
||||||
|
if (PEAR::isError($fp)) {
|
||||||
|
return File_CSV::raiseError($fp);
|
||||||
|
}
|
||||||
|
$resources[$file] = $fp;
|
||||||
|
|
||||||
|
if ($mode == FILE_MODE_READ && !empty($conf['header'])) {
|
||||||
|
if (!File_CSV::read($file, $conf)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Unquote data
|
||||||
|
*
|
||||||
|
* @param string $field The data to unquote
|
||||||
|
* @param string $quote The quote char
|
||||||
|
* @return string the unquoted data
|
||||||
|
*/
|
||||||
|
function unquote($field, $quote)
|
||||||
|
{
|
||||||
|
// Trim first the string.
|
||||||
|
$field = trim($field);
|
||||||
|
$quote = trim($quote);
|
||||||
|
|
||||||
|
// Incase null fields (form: ;;)
|
||||||
|
if (!strlen($field)) {
|
||||||
|
return $field;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($quote && $field{0} == $quote && $field{strlen($field)-1} == $quote) {
|
||||||
|
return substr($field, 1, -1);
|
||||||
|
}
|
||||||
|
return $field;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reads a row of data as an array from a CSV file. It's able to
|
||||||
|
* read memo fields with multiline data.
|
||||||
|
*
|
||||||
|
* @param string $file The filename where to write the data
|
||||||
|
* @param array &$conf The configuration of the dest CSV
|
||||||
|
*
|
||||||
|
* @return mixed Array with the data read or false on error/no more data
|
||||||
|
*/
|
||||||
|
function readQuoted($file, &$conf)
|
||||||
|
{
|
||||||
|
if (!$fp = File_CSV::getPointer($file, $conf, FILE_MODE_READ)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$buff = $c = '';
|
||||||
|
$ret = array();
|
||||||
|
$i = 1;
|
||||||
|
$in_quote = false;
|
||||||
|
$quote = $conf['quote'];
|
||||||
|
$f = $conf['fields'];
|
||||||
|
$eol2unix = $conf['eol2unix'];
|
||||||
|
while (($ch = fgetc($fp)) !== false) {
|
||||||
|
$prev = $c;
|
||||||
|
$c = $ch;
|
||||||
|
// Common case
|
||||||
|
if ($c != $quote && $c != $conf['sep'] && $c != "\n" && $c != "\r") {
|
||||||
|
$buff .= $c;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Start quote.
|
||||||
|
if ($quote && $c == $quote &&
|
||||||
|
($prev == $conf['sep'] || $prev == "\n" || $prev === null ||
|
||||||
|
$prev == "\r" || $prev == ''))
|
||||||
|
{
|
||||||
|
$in_quote = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($in_quote) {
|
||||||
|
// When ends quote
|
||||||
|
if ($c == $conf['sep'] && $prev == $conf['quote']) {
|
||||||
|
$in_quote = false;
|
||||||
|
} elseif ($c == "\n" || $c == "\r") {
|
||||||
|
$sub = ($prev == "\r") ? 2 : 1;
|
||||||
|
if ((strlen($buff) >= $sub) &&
|
||||||
|
($buff{strlen($buff) - $sub} == $quote))
|
||||||
|
{
|
||||||
|
$in_quote = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$in_quote && ($c == $conf['sep'] || $c == "\n" || $c == "\r") && $prev != '') {
|
||||||
|
// More fields than expected
|
||||||
|
if (($c == $conf['sep']) && ((count($ret) + 1) == $f)) {
|
||||||
|
// Seek the pointer into linebreak character.
|
||||||
|
while (true) {
|
||||||
|
$c = fgetc($fp);
|
||||||
|
if ($c == "\n" || $c == "\r") {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Insert last field value.
|
||||||
|
$ret[] = File_CSV::unquote($buff, $quote);
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Less fields than expected
|
||||||
|
if (($c == "\n" || $c == "\r") && ($i != $f)) {
|
||||||
|
// Insert last field value.
|
||||||
|
$ret[] = File_CSV::unquote($buff, $quote);
|
||||||
|
|
||||||
|
// Pair the array elements to fields count.
|
||||||
|
return array_merge($ret,
|
||||||
|
array_fill(count($ret),
|
||||||
|
($f - 1) - (count($ret) - 1),
|
||||||
|
'')
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($prev == "\r") {
|
||||||
|
$buff = substr($buff, 0, -1);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Convert EOL character to Unix EOL (LF).
|
||||||
|
if ($eol2unix) {
|
||||||
|
$buff = preg_replace('/(\r\n|\r)$/', "\n", $buff);
|
||||||
|
}
|
||||||
|
|
||||||
|
$ret[] = File_CSV::unquote($buff, $quote);
|
||||||
|
if (count($ret) == $f) {
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
$buff = '';
|
||||||
|
$i++;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
$buff .= $c;
|
||||||
|
}
|
||||||
|
return !feof($fp) ? $ret : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Reads a "row" from a CSV file and return it as an array
|
||||||
|
*
|
||||||
|
* @param string $file The CSV file
|
||||||
|
* @param array &$conf The configuration of the dest CSV
|
||||||
|
*
|
||||||
|
* @return mixed Array or false
|
||||||
|
*/
|
||||||
|
function read($file, &$conf)
|
||||||
|
{
|
||||||
|
if (!$fp = File_CSV::getPointer($file, $conf, FILE_MODE_READ)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
// The size is limited to 4K
|
||||||
|
if (!$line = fgets($fp, 4096)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$fields = $conf['fields'] == 1 ? array($line) : explode($conf['sep'], $line);
|
||||||
|
|
||||||
|
if ($conf['quote']) {
|
||||||
|
$last =& $fields[count($fields) - 1];
|
||||||
|
// Fallback to read the line with readQuoted when guess
|
||||||
|
// that the simple explode won't work right
|
||||||
|
if (($last{strlen($last) - 1} == "\n"
|
||||||
|
&& $last{0} == $conf['quote']
|
||||||
|
&& $last{strlen(rtrim($last)) - 1} != $conf['quote'])
|
||||||
|
||
|
||||||
|
(count($fields) != $conf['fields'])
|
||||||
|
// XXX perhaps there is a separator inside a quoted field
|
||||||
|
//preg_match("|{$conf['quote']}.*{$conf['sep']}.*{$conf['quote']}|U", $line)
|
||||||
|
)
|
||||||
|
{
|
||||||
|
fseek($fp, -1 * strlen($line), SEEK_CUR);
|
||||||
|
return File_CSV::readQuoted($file, $conf);
|
||||||
|
} else {
|
||||||
|
$last = rtrim($last);
|
||||||
|
foreach ($fields as $k => $v) {
|
||||||
|
$fields[$k] = File_CSV::unquote($v, $conf['quote']);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (count($fields) != $conf['fields']) {
|
||||||
|
File_CSV::raiseError("Read wrong fields number count: '". count($fields) .
|
||||||
|
"' expected ".$conf['fields']);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $fields;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Internal use only, will be removed in the future
|
||||||
|
*
|
||||||
|
* @param string $str The string to debug
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _dbgBuff($str)
|
||||||
|
{
|
||||||
|
if (strpos($str, "\r") !== false) {
|
||||||
|
$str = str_replace("\r", "_r_", $str);
|
||||||
|
}
|
||||||
|
if (strpos($str, "\n") !== false) {
|
||||||
|
$str = str_replace("\n", "_n_", $str);
|
||||||
|
}
|
||||||
|
if (strpos($str, "\t") !== false) {
|
||||||
|
$str = str_replace("\t", "_t_", $str);
|
||||||
|
}
|
||||||
|
echo "buff: ($str)\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Writes a struc (array) in a file as CSV
|
||||||
|
*
|
||||||
|
* @param string $file The filename where to write the data
|
||||||
|
* @param array $fields Ordered array with the data
|
||||||
|
* @param array &$conf The configuration of the dest CSV
|
||||||
|
*
|
||||||
|
* @return bool True on success false otherwise
|
||||||
|
*/
|
||||||
|
function write($file, $fields, &$conf)
|
||||||
|
{
|
||||||
|
if (!$fp = File_CSV::getPointer($file, $conf, FILE_MODE_WRITE)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (count($fields) != $conf['fields']) {
|
||||||
|
File_CSV::raiseError("Wrong fields number count: '". count($fields) .
|
||||||
|
"' expected ".$conf['fields']);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
$write = '';
|
||||||
|
for ($i = 0; $i < count($fields); $i++) {
|
||||||
|
if (!is_numeric($fields[$i]) && $conf['quote']) {
|
||||||
|
$write .= $conf['quote'] . $fields[$i] . $conf['quote'];
|
||||||
|
} else {
|
||||||
|
$write .= $fields[$i];
|
||||||
|
}
|
||||||
|
if ($i < (count($fields) - 1)) {
|
||||||
|
$write .= $conf['sep'];
|
||||||
|
} else {
|
||||||
|
$write .= $conf['crlf'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!fwrite($fp, $write)) {
|
||||||
|
return File_CSV::raiseError('Can not write to file');
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Discover the format of a CSV file (the number of fields, the separator
|
||||||
|
* and if it quote string fields)
|
||||||
|
*
|
||||||
|
* @param string the CSV file name
|
||||||
|
* @param array extra separators that should be checked for.
|
||||||
|
* @return mixed Assoc array or false
|
||||||
|
*/
|
||||||
|
function discoverFormat($file, $extraSeps = array())
|
||||||
|
{
|
||||||
|
if (!$fp = @fopen($file, 'r')) {
|
||||||
|
return File_CSV::raiseError("Could not open file: $file");
|
||||||
|
}
|
||||||
|
$seps = array("\t", ';', ':', ',');
|
||||||
|
$seps = array_merge($seps, $extraSeps);
|
||||||
|
$matches = array();
|
||||||
|
|
||||||
|
// Set auto detect line ending for Mac EOL support if < PHP 4.3.0.
|
||||||
|
$phpver = version_compare('4.3.0', phpversion(), '<');
|
||||||
|
if ($phpver) {
|
||||||
|
$oldini = ini_get('auto_detect_line_endings');
|
||||||
|
ini_set('auto_detect_line_endings', '1');
|
||||||
|
}
|
||||||
|
|
||||||
|
// Take the first 10 lines and store the number of ocurrences
|
||||||
|
// for each separator in each line
|
||||||
|
|
||||||
|
$lines = file($file);
|
||||||
|
if (count($lines) > 10) {
|
||||||
|
$lines = array_slice($lines, 0, 10);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($phpver) {
|
||||||
|
ini_set('auto_detect_line_endings', $oldini);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($lines as $line) {
|
||||||
|
foreach ($seps as $sep) {
|
||||||
|
$matches[$sep][] = substr_count($line, $sep);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$final = array();
|
||||||
|
// Group the results by amount of equal ocurrences
|
||||||
|
foreach ($matches as $sep => $res) {
|
||||||
|
$times = array();
|
||||||
|
$times[0] = 0;
|
||||||
|
foreach ($res as $k => $num) {
|
||||||
|
if ($num > 0) {
|
||||||
|
$times[$num] = (isset($times[$num])) ? $times[$num] + 1 : 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
arsort($times);
|
||||||
|
|
||||||
|
// Use max fields count.
|
||||||
|
$fields[$sep] = max(array_flip($times));
|
||||||
|
$amount[$sep] = $times[key($times)];
|
||||||
|
}
|
||||||
|
|
||||||
|
arsort($amount);
|
||||||
|
$sep = key($amount);
|
||||||
|
|
||||||
|
$conf['fields'] = $fields[$sep] + 1;
|
||||||
|
$conf['sep'] = $sep;
|
||||||
|
|
||||||
|
// Test if there are fields with quotes arround in the first 5 lines
|
||||||
|
$quotes = '"\'';
|
||||||
|
$quote = null;
|
||||||
|
if (count($lines) > 5) {
|
||||||
|
$lines = array_slice($lines, 0, 5);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($lines as $line) {
|
||||||
|
if (preg_match("|$sep([$quotes]).*([$quotes])$sep|U", $line, $match)) {
|
||||||
|
if ($match[1] == $match[2]) {
|
||||||
|
$quote = $match[1];
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (preg_match("|^([$quotes]).*([$quotes])$sep{0,1}|", $line, $match)
|
||||||
|
|| preg_match("|([$quotes]).*([$quotes])$sep\s$|Us", $line, $match))
|
||||||
|
{
|
||||||
|
if ($match[1] == $match[2]) {
|
||||||
|
$quote = $match[1];
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$conf['quote'] = $quote;
|
||||||
|
fclose($fp);
|
||||||
|
// XXX What about trying to discover the "header"?
|
||||||
|
return $conf;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Front to call getPointer and moving the resource to the
|
||||||
|
* beginning of the file
|
||||||
|
* Reset it if you like.
|
||||||
|
*
|
||||||
|
* @param string $file The name of the file
|
||||||
|
* @param array &$conf The configuration
|
||||||
|
* @param string $mode The open node (ex: FILE_MODE_READ or FILE_MODE_WRITE)
|
||||||
|
*
|
||||||
|
* @return boolean true on success false on failure
|
||||||
|
*/
|
||||||
|
function resetPointer($file, &$conf, $mode)
|
||||||
|
{
|
||||||
|
if (!File_CSV::getPointer($file, $conf, $mode, true)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,457 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* File::Util
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* LICENSE: This source file is subject to version 3.0 of the PHP license
|
||||||
|
* that is available through the world-wide-web at the following URI:
|
||||||
|
* http://www.php.net/license/3_0.txt. If you did not receive a copy of
|
||||||
|
* the PHP License and are unable to obtain it through the web, please
|
||||||
|
* send a note to license@php.net so we can mail you a copy immediately.
|
||||||
|
*
|
||||||
|
* @category File
|
||||||
|
* @package File
|
||||||
|
* @author Michael Wallner <mike@php.net>
|
||||||
|
* @copyright 2004-2005 Michael Wallner
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License 3.0
|
||||||
|
* @version CVS: $Id: Util.php,v 1.21 2005/08/09 07:52:13 mike Exp $
|
||||||
|
* @link http://pear.php.net/package/File
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* Sorting Constants
|
||||||
|
*/
|
||||||
|
define('FILE_SORT_NONE', 0);
|
||||||
|
define('FILE_SORT_REVERSE', 1);
|
||||||
|
define('FILE_SORT_NAME', 2);
|
||||||
|
define('FILE_SORT_SIZE', 4);
|
||||||
|
define('FILE_SORT_DATE', 8);
|
||||||
|
define('FILE_SORT_RANDOM', 16);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* Listing Constants
|
||||||
|
*/
|
||||||
|
define('FILE_LIST_FILES', 1);
|
||||||
|
define('FILE_LIST_DIRS', 2);
|
||||||
|
define('FILE_LIST_DOTS', 4);
|
||||||
|
define('FILE_LIST_ALL', FILE_LIST_FILES | FILE_LIST_DIRS | FILE_LIST_DOTS);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @ignore
|
||||||
|
*/
|
||||||
|
define('FILE_WIN32', defined('OS_WINDOWS') ? OS_WINDOWS : !strncasecmp(PHP_OS, 'win', 3));
|
||||||
|
|
||||||
|
/**
|
||||||
|
* File_Util
|
||||||
|
*
|
||||||
|
* File and directory utility functions.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
class File_Util
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Returns a string path built from the array $pathParts. Where a join
|
||||||
|
* occurs multiple separators are removed. Joins using the optional
|
||||||
|
* separator, defaulting to the PHP DIRECTORY_SEPARATOR constant.
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @param array $parts Array containing the parts to be joined
|
||||||
|
* @param string $separator The directory seperator
|
||||||
|
*/
|
||||||
|
function buildPath($parts, $separator = DIRECTORY_SEPARATOR)
|
||||||
|
{
|
||||||
|
$qs = '/^'. preg_quote($separator, '/') .'+$/';
|
||||||
|
for ($i = 0, $c = count($parts); $i < $c; $i++) {
|
||||||
|
if (!strlen($parts[$i]) || preg_match($qs, $parts[$i])) {
|
||||||
|
unset($parts[$i]);
|
||||||
|
} elseif (0 == $i) {
|
||||||
|
$parts[$i] = rtrim($parts[$i], $separator);
|
||||||
|
} elseif ($c - 1 == $i) {
|
||||||
|
$parts[$i] = ltrim($parts[$i], $separator);
|
||||||
|
} else {
|
||||||
|
$parts[$i] = trim($parts[$i], $separator);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return implode($separator, $parts);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a path without leading / or C:\. If this is not
|
||||||
|
* present the path is returned as is.
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @param string $path The path to be processed
|
||||||
|
* @return string The processed path or the path as is
|
||||||
|
*/
|
||||||
|
function skipRoot($path)
|
||||||
|
{
|
||||||
|
if (File_Util::isAbsolute($path)) {
|
||||||
|
if (FILE_WIN32) {
|
||||||
|
return substr($path, $path{3} == '\\' ? 4 : 3);
|
||||||
|
}
|
||||||
|
return ltrim($path, '/');
|
||||||
|
}
|
||||||
|
return $path;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the temp directory according to either the TMP, TMPDIR, or
|
||||||
|
* TEMP env variables. If these are not set it will also check for the
|
||||||
|
* existence of /tmp, %WINDIR%\temp
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return string The system tmp directory
|
||||||
|
*/
|
||||||
|
function tmpDir()
|
||||||
|
{
|
||||||
|
if (FILE_WIN32) {
|
||||||
|
if (isset($_ENV['TEMP'])) {
|
||||||
|
return $_ENV['TEMP'];
|
||||||
|
}
|
||||||
|
if (isset($_ENV['TMP'])) {
|
||||||
|
return $_ENV['TMP'];
|
||||||
|
}
|
||||||
|
if (isset($_ENV['windir'])) {
|
||||||
|
return $_ENV['windir'] . '\\temp';
|
||||||
|
}
|
||||||
|
if (isset($_ENV['SystemRoot'])) {
|
||||||
|
return $_ENV['SystemRoot'] . '\\temp';
|
||||||
|
}
|
||||||
|
if (isset($_SERVER['TEMP'])) {
|
||||||
|
return $_SERVER['TEMP'];
|
||||||
|
}
|
||||||
|
if (isset($_SERVER['TMP'])) {
|
||||||
|
return $_SERVER['TMP'];
|
||||||
|
}
|
||||||
|
if (isset($_SERVER['windir'])) {
|
||||||
|
return $_SERVER['windir'] . '\\temp';
|
||||||
|
}
|
||||||
|
if (isset($_SERVER['SystemRoot'])) {
|
||||||
|
return $_SERVER['SystemRoot'] . '\\temp';
|
||||||
|
}
|
||||||
|
return '\temp';
|
||||||
|
}
|
||||||
|
if (isset($_ENV['TMPDIR'])) {
|
||||||
|
return $_ENV['TMPDIR'];
|
||||||
|
}
|
||||||
|
if (isset($_SERVER['TMPDIR'])) {
|
||||||
|
return $_SERVER['TMPDIR'];
|
||||||
|
}
|
||||||
|
return '/tmp';
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a temporary filename using tempnam() and File::tmpDir().
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @param string $dirname Optional directory name for the tmp file
|
||||||
|
* @return string Filename and path of the tmp file
|
||||||
|
*/
|
||||||
|
function tmpFile($dirname = null)
|
||||||
|
{
|
||||||
|
if (!isset($dirname)) {
|
||||||
|
$dirname = File_Util::tmpDir();
|
||||||
|
}
|
||||||
|
return tempnam($dirname, 'temp.');
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns boolean based on whether given path is absolute or not.
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @param string $path Given path
|
||||||
|
* @return boolean True if the path is absolute, false if it is not
|
||||||
|
*/
|
||||||
|
function isAbsolute($path)
|
||||||
|
{
|
||||||
|
if (preg_match('/(?:\/|\\\)\.\.(?=\/|$)/', $path)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (FILE_WIN32) {
|
||||||
|
return preg_match('/^[a-zA-Z]:(\\\|\/)/', $path);
|
||||||
|
}
|
||||||
|
return ($path{0} == '/') || ($path{0} == '~');
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get path relative to another path
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return string
|
||||||
|
* @param string $path
|
||||||
|
* @param string $root
|
||||||
|
* @param string $separator
|
||||||
|
*/
|
||||||
|
function relativePath($path, $root, $separator = DIRECTORY_SEPARATOR)
|
||||||
|
{
|
||||||
|
$path = File_Util::realpath($path, $separator);
|
||||||
|
$root = File_Util::realpath($root, $separator);
|
||||||
|
$dirs = explode($separator, $path);
|
||||||
|
$comp = explode($separator, $root);
|
||||||
|
|
||||||
|
if (FILE_WIN32) {
|
||||||
|
if (strcasecmp($dirs[0], $comp[0])) {
|
||||||
|
return $path;
|
||||||
|
}
|
||||||
|
unset($dirs[0], $comp[0]);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($comp as $i => $part) {
|
||||||
|
if (isset($dirs[$i]) && $part == $dirs[$i]) {
|
||||||
|
unset($dirs[$i], $comp[$i]);
|
||||||
|
} else {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return str_repeat('..' . $separator, count($comp)) . implode($separator, $dirs);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get real path (works with non-existant paths)
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return string
|
||||||
|
* @param string $path
|
||||||
|
* @param string $separator
|
||||||
|
*/
|
||||||
|
function realPath($path, $separator = DIRECTORY_SEPARATOR)
|
||||||
|
{
|
||||||
|
if (!strlen($path)) {
|
||||||
|
return $separator;
|
||||||
|
}
|
||||||
|
|
||||||
|
$drive = '';
|
||||||
|
if (FILE_WIN32) {
|
||||||
|
$path = preg_replace('/[\\\\\/]/', $separator, $path);
|
||||||
|
if (preg_match('/([a-zA-Z]\:)(.*)/', $path, $matches)) {
|
||||||
|
$drive = $matches[1];
|
||||||
|
$path = $matches[2];
|
||||||
|
} else {
|
||||||
|
$cwd = getcwd();
|
||||||
|
$drive = substr($cwd, 0, 2);
|
||||||
|
if ($path{0} !== $separator{0}) {
|
||||||
|
$path = substr($cwd, 3) . $separator . $path;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} elseif ($path{0} !== $separator) {
|
||||||
|
$path = getcwd() . $separator . $path;
|
||||||
|
}
|
||||||
|
|
||||||
|
$dirStack = array();
|
||||||
|
foreach (explode($separator, $path) as $dir) {
|
||||||
|
if (strlen($dir) && $dir !== '.') {
|
||||||
|
if ($dir == '..') {
|
||||||
|
array_pop($dirStack);
|
||||||
|
} else {
|
||||||
|
$dirStack[] = $dir;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $drive . $separator . implode($separator, $dirStack);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Check whether path is in root path
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return bool
|
||||||
|
* @param string $path
|
||||||
|
* @param string $root
|
||||||
|
*/
|
||||||
|
function pathInRoot($path, $root)
|
||||||
|
{
|
||||||
|
static $realPaths = array();
|
||||||
|
|
||||||
|
if (!isset($realPaths[$root])) {
|
||||||
|
$realPaths[$root] = File_Util::realPath($root);
|
||||||
|
}
|
||||||
|
|
||||||
|
return false !== strstr(File_Util::realPath($path), $realPaths[$root]);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* List Directory
|
||||||
|
*
|
||||||
|
* The final argument, $cb, is a callback that either evaluates to true or
|
||||||
|
* false and performs a filter operation, or it can also modify the
|
||||||
|
* directory/file names returned. To achieve the latter effect use as
|
||||||
|
* follows:
|
||||||
|
*
|
||||||
|
* <code>
|
||||||
|
* <?php
|
||||||
|
* function uc(&$filename) {
|
||||||
|
* $filename = strtoupper($filename);
|
||||||
|
* return true;
|
||||||
|
* }
|
||||||
|
* $entries = File_Util::listDir('.', FILE_LIST_ALL, FILE_SORT_NONE, 'uc');
|
||||||
|
* foreach ($entries as $e) {
|
||||||
|
* echo $e->name, "\n";
|
||||||
|
* }
|
||||||
|
* ?>
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return array
|
||||||
|
* @param string $path
|
||||||
|
* @param int $list
|
||||||
|
* @param int $sort
|
||||||
|
* @param mixed $cb
|
||||||
|
*/
|
||||||
|
function listDir($path, $list = FILE_LIST_ALL, $sort = FILE_SORT_NONE, $cb = null)
|
||||||
|
{
|
||||||
|
if (!strlen($path) || !is_dir($path)) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
|
||||||
|
$entries = array();
|
||||||
|
for ($dir = dir($path); false !== $entry = $dir->read(); ) {
|
||||||
|
if ($list & FILE_LIST_DOTS || $entry{0} !== '.') {
|
||||||
|
$isRef = ($entry === '.' || $entry === '..');
|
||||||
|
$isDir = $isRef || is_dir($path .'/'. $entry);
|
||||||
|
if ( ((!$isDir && $list & FILE_LIST_FILES) ||
|
||||||
|
($isDir && $list & FILE_LIST_DIRS)) &&
|
||||||
|
(!is_callable($cb) ||
|
||||||
|
call_user_func_array($cb, array(&$entry)))) {
|
||||||
|
$entries[] = (object) array(
|
||||||
|
'name' => $entry,
|
||||||
|
'size' => $isDir ? null : filesize($path .'/'. $entry),
|
||||||
|
'date' => filemtime($path .'/'. $entry),
|
||||||
|
);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$dir->close();
|
||||||
|
|
||||||
|
if ($sort) {
|
||||||
|
$entries = File_Util::sortFiles($entries, $sort);
|
||||||
|
}
|
||||||
|
|
||||||
|
return $entries;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sort Files
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return array
|
||||||
|
* @param array $files
|
||||||
|
* @param int $sort
|
||||||
|
*/
|
||||||
|
function sortFiles($files, $sort)
|
||||||
|
{
|
||||||
|
if (!$files) {
|
||||||
|
return array();
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$sort) {
|
||||||
|
return $files;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($sort === 1) {
|
||||||
|
return array_reverse($files);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($sort & FILE_SORT_RANDOM) {
|
||||||
|
shuffle($files);
|
||||||
|
return $files;
|
||||||
|
}
|
||||||
|
|
||||||
|
$names = array();
|
||||||
|
$sizes = array();
|
||||||
|
$dates = array();
|
||||||
|
|
||||||
|
if ($sort & FILE_SORT_NAME) {
|
||||||
|
$r = &$names;
|
||||||
|
} elseif ($sort & FILE_SORT_DATE) {
|
||||||
|
$r = &$dates;
|
||||||
|
} elseif ($sort & FILE_SORT_SIZE) {
|
||||||
|
$r = &$sizes;
|
||||||
|
} else {
|
||||||
|
asort($files, SORT_REGULAR);
|
||||||
|
return $files;
|
||||||
|
}
|
||||||
|
|
||||||
|
$sortFlags = array(
|
||||||
|
FILE_SORT_NAME => SORT_STRING,
|
||||||
|
FILE_SORT_DATE => SORT_NUMERIC,
|
||||||
|
FILE_SORT_SIZE => SORT_NUMERIC,
|
||||||
|
);
|
||||||
|
|
||||||
|
foreach ($files as $file) {
|
||||||
|
$names[] = $file->name;
|
||||||
|
$sizes[] = $file->size;
|
||||||
|
$dates[] = $file->date;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($sort & FILE_SORT_REVERSE) {
|
||||||
|
arsort($r, $sortFlags[$sort & ~1]);
|
||||||
|
} else {
|
||||||
|
asort($r, $sortFlags[$sort]);
|
||||||
|
}
|
||||||
|
|
||||||
|
$result = array();
|
||||||
|
foreach ($r as $i => $f) {
|
||||||
|
$result[] = $files[$i];
|
||||||
|
}
|
||||||
|
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Switch File Extension
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return string|array
|
||||||
|
* @param string|array $filename
|
||||||
|
* @param string $to new file extension
|
||||||
|
* @param string $from change only files with this extension
|
||||||
|
* @param bool $reverse change only files not having $from extension
|
||||||
|
*/
|
||||||
|
function switchExt($filename, $to, $from = null, $reverse = false)
|
||||||
|
{
|
||||||
|
if (is_array($filename)) {
|
||||||
|
foreach ($filename as $key => $file) {
|
||||||
|
$filename[$key] = File_Util::switchExt($file, $to, $from);
|
||||||
|
}
|
||||||
|
return $filename;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($len = strlen($from)) {
|
||||||
|
$ext = substr($filename, -$len - 1);
|
||||||
|
$cfn = FILE_WIN32 ? 'strcasecmp' : 'strcmp';
|
||||||
|
if (!$reverse == $cfn($ext, '.'. $from)) {
|
||||||
|
return $filename;
|
||||||
|
}
|
||||||
|
return substr($filename, 0, -$len - 1) .'.'. $to;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($pos = strpos($filename, '.')) {
|
||||||
|
return substr($filename, 0, $pos) .'.'. $to;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $filename .'.'. $to;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,428 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4: */
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Adam Daniel <adaniel1@eesus.jnj.com> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Common.php,v 1.10 2005/09/01 10:28:57 thesaur Exp $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Base class for all HTML classes
|
||||||
|
*
|
||||||
|
* @author Adam Daniel <adaniel1@eesus.jnj.com>
|
||||||
|
* @category HTML
|
||||||
|
* @package HTML_Common
|
||||||
|
* @version 1.2.2
|
||||||
|
* @abstract
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Base class for all HTML classes
|
||||||
|
*
|
||||||
|
* @author Adam Daniel <adaniel1@eesus.jnj.com>
|
||||||
|
* @version 1.7
|
||||||
|
* @since PHP 4.0.3pl1
|
||||||
|
* @abstract
|
||||||
|
*/
|
||||||
|
class HTML_Common {
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Associative array of table attributes
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_attributes = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Tab offset of the table
|
||||||
|
* @var int
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_tabOffset = 0;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Tab string
|
||||||
|
* @var string
|
||||||
|
* @since 1.7
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_tab = "\11";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Contains the line end string
|
||||||
|
* @var string
|
||||||
|
* @since 1.7
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_lineEnd = "\12";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTML comment on the object
|
||||||
|
* @var string
|
||||||
|
* @since 1.5
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_comment = '';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Class constructor
|
||||||
|
* @param mixed $attributes Associative array of table tag attributes
|
||||||
|
* or HTML attributes name="value" pairs
|
||||||
|
* @param int $tabOffset Indent offset in tabs
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function HTML_Common($attributes = null, $tabOffset = 0)
|
||||||
|
{
|
||||||
|
$this->setAttributes($attributes);
|
||||||
|
$this->setTabOffset($tabOffset);
|
||||||
|
} // end constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the current API version
|
||||||
|
* @access public
|
||||||
|
* @returns double
|
||||||
|
*/
|
||||||
|
function apiVersion()
|
||||||
|
{
|
||||||
|
return 1.7;
|
||||||
|
} // end func apiVersion
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the lineEnd
|
||||||
|
*
|
||||||
|
* @since 1.7
|
||||||
|
* @access private
|
||||||
|
* @return string
|
||||||
|
* @throws
|
||||||
|
*/
|
||||||
|
function _getLineEnd()
|
||||||
|
{
|
||||||
|
return $this->_lineEnd;
|
||||||
|
} // end func getLineEnd
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a string containing the unit for indenting HTML
|
||||||
|
*
|
||||||
|
* @since 1.7
|
||||||
|
* @access private
|
||||||
|
* @return string
|
||||||
|
*/
|
||||||
|
function _getTab()
|
||||||
|
{
|
||||||
|
return $this->_tab;
|
||||||
|
} // end func _getTab
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a string containing the offset for the whole HTML code
|
||||||
|
*
|
||||||
|
* @return string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _getTabs()
|
||||||
|
{
|
||||||
|
return str_repeat($this->_getTab(), $this->_tabOffset);
|
||||||
|
} // end func _getTabs
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns an HTML formatted attribute string
|
||||||
|
* @param array $attributes
|
||||||
|
* @return string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _getAttrString($attributes)
|
||||||
|
{
|
||||||
|
$strAttr = '';
|
||||||
|
|
||||||
|
if (is_array($attributes)) {
|
||||||
|
foreach ($attributes as $key => $value) {
|
||||||
|
$strAttr .= ' ' . $key . '="' . htmlspecialchars($value) . '"';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $strAttr;
|
||||||
|
} // end func _getAttrString
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a valid atrributes array from either a string or array
|
||||||
|
* @param mixed $attributes Either a typical HTML attribute string or an associative array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _parseAttributes($attributes)
|
||||||
|
{
|
||||||
|
if (is_array($attributes)) {
|
||||||
|
$ret = array();
|
||||||
|
foreach ($attributes as $key => $value) {
|
||||||
|
if (is_int($key)) {
|
||||||
|
$key = $value = strtolower($value);
|
||||||
|
} else {
|
||||||
|
$key = strtolower($key);
|
||||||
|
}
|
||||||
|
$ret[$key] = $value;
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
|
||||||
|
} elseif (is_string($attributes)) {
|
||||||
|
$preg = "/(([A-Za-z_:]|[^\\x00-\\x7F])([A-Za-z0-9_:.-]|[^\\x00-\\x7F])*)" .
|
||||||
|
"([ \\n\\t\\r]+)?(=([ \\n\\t\\r]+)?(\"[^\"]*\"|'[^']*'|[^ \\n\\t\\r]*))?/";
|
||||||
|
if (preg_match_all($preg, $attributes, $regs)) {
|
||||||
|
for ($counter=0; $counter<count($regs[1]); $counter++) {
|
||||||
|
$name = $regs[1][$counter];
|
||||||
|
$check = $regs[0][$counter];
|
||||||
|
$value = $regs[7][$counter];
|
||||||
|
if (trim($name) == trim($check)) {
|
||||||
|
$arrAttr[strtolower(trim($name))] = strtolower(trim($name));
|
||||||
|
} else {
|
||||||
|
if (substr($value, 0, 1) == "\"" || substr($value, 0, 1) == "'") {
|
||||||
|
$value = substr($value, 1, -1);
|
||||||
|
}
|
||||||
|
$arrAttr[strtolower(trim($name))] = trim($value);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $arrAttr;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} // end func _parseAttributes
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the array key for the given non-name-value pair attribute
|
||||||
|
*
|
||||||
|
* @param string $attr Attribute
|
||||||
|
* @param array $attributes Array of attribute
|
||||||
|
* @since 1.0
|
||||||
|
* @access private
|
||||||
|
* @return bool
|
||||||
|
* @throws
|
||||||
|
*/
|
||||||
|
function _getAttrKey($attr, $attributes)
|
||||||
|
{
|
||||||
|
if (isset($attributes[strtolower($attr)])) {
|
||||||
|
return true;
|
||||||
|
} else {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
} //end func _getAttrKey
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Updates the attributes in $attr1 with the values in $attr2 without changing the other existing attributes
|
||||||
|
* @param array $attr1 Original attributes array
|
||||||
|
* @param array $attr2 New attributes array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _updateAttrArray(&$attr1, $attr2)
|
||||||
|
{
|
||||||
|
if (!is_array($attr2)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
foreach ($attr2 as $key => $value) {
|
||||||
|
$attr1[$key] = $value;
|
||||||
|
}
|
||||||
|
} // end func _updateAtrrArray
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Removes the given attribute from the given array
|
||||||
|
*
|
||||||
|
* @param string $attr Attribute name
|
||||||
|
* @param array $attributes Attribute array
|
||||||
|
* @since 1.4
|
||||||
|
* @access private
|
||||||
|
* @return void
|
||||||
|
* @throws
|
||||||
|
*/
|
||||||
|
function _removeAttr($attr, &$attributes)
|
||||||
|
{
|
||||||
|
$attr = strtolower($attr);
|
||||||
|
if (isset($attributes[$attr])) {
|
||||||
|
unset($attributes[$attr]);
|
||||||
|
}
|
||||||
|
} //end func _removeAttr
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the value of the given attribute
|
||||||
|
*
|
||||||
|
* @param string $attr Attribute name
|
||||||
|
* @since 1.5
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
* @throws
|
||||||
|
*/
|
||||||
|
function getAttribute($attr)
|
||||||
|
{
|
||||||
|
$attr = strtolower($attr);
|
||||||
|
if (isset($this->_attributes[$attr])) {
|
||||||
|
return $this->_attributes[$attr];
|
||||||
|
}
|
||||||
|
return null;
|
||||||
|
} //end func getAttribute
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the HTML attributes
|
||||||
|
* @param mixed $attributes Either a typical HTML attribute string or an associative array
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setAttributes($attributes)
|
||||||
|
{
|
||||||
|
$this->_attributes = $this->_parseAttributes($attributes);
|
||||||
|
} // end func setAttributes
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the assoc array (default) or string of attributes
|
||||||
|
*
|
||||||
|
* @param bool Whether to return the attributes as string
|
||||||
|
* @since 1.6
|
||||||
|
* @access public
|
||||||
|
* @return mixed attributes
|
||||||
|
*/
|
||||||
|
function getAttributes($asString = false)
|
||||||
|
{
|
||||||
|
if ($asString) {
|
||||||
|
return $this->_getAttrString($this->_attributes);
|
||||||
|
} else {
|
||||||
|
return $this->_attributes;
|
||||||
|
}
|
||||||
|
} //end func getAttributes
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Updates the passed attributes without changing the other existing attributes
|
||||||
|
* @param mixed $attributes Either a typical HTML attribute string or an associative array
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function updateAttributes($attributes)
|
||||||
|
{
|
||||||
|
$this->_updateAttrArray($this->_attributes, $this->_parseAttributes($attributes));
|
||||||
|
} // end func updateAttributes
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Removes an attribute
|
||||||
|
*
|
||||||
|
* @param string $attr Attribute name
|
||||||
|
* @since 1.4
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
* @throws
|
||||||
|
*/
|
||||||
|
function removeAttribute($attr)
|
||||||
|
{
|
||||||
|
$this->_removeAttr($attr, $this->_attributes);
|
||||||
|
} //end func removeAttribute
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the line end style to Windows, Mac, Unix or a custom string.
|
||||||
|
*
|
||||||
|
* @param string $style "win", "mac", "unix" or custom string.
|
||||||
|
* @since 1.7
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function setLineEnd($style)
|
||||||
|
{
|
||||||
|
switch ($style) {
|
||||||
|
case 'win':
|
||||||
|
$this->_lineEnd = "\15\12";
|
||||||
|
break;
|
||||||
|
case 'unix':
|
||||||
|
$this->_lineEnd = "\12";
|
||||||
|
break;
|
||||||
|
case 'mac':
|
||||||
|
$this->_lineEnd = "\15";
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$this->_lineEnd = $style;
|
||||||
|
}
|
||||||
|
} // end func setLineEnd
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the tab offset
|
||||||
|
*
|
||||||
|
* @param int $offset
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setTabOffset($offset)
|
||||||
|
{
|
||||||
|
$this->_tabOffset = $offset;
|
||||||
|
} // end func setTabOffset
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the tabOffset
|
||||||
|
*
|
||||||
|
* @since 1.5
|
||||||
|
* @access public
|
||||||
|
* @return int
|
||||||
|
*/
|
||||||
|
function getTabOffset()
|
||||||
|
{
|
||||||
|
return $this->_tabOffset;
|
||||||
|
} //end func getTabOffset
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the string used to indent HTML
|
||||||
|
*
|
||||||
|
* @since 1.7
|
||||||
|
* @param string $string String used to indent ("\11", "\t", ' ', etc.).
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function setTab($string)
|
||||||
|
{
|
||||||
|
$this->_tab = $string;
|
||||||
|
} // end func setTab
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the HTML comment to be displayed at the beginning of the HTML string
|
||||||
|
*
|
||||||
|
* @param string
|
||||||
|
* @since 1.4
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function setComment($comment)
|
||||||
|
{
|
||||||
|
$this->_comment = $comment;
|
||||||
|
} // end func setHtmlComment
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the HTML comment
|
||||||
|
*
|
||||||
|
* @since 1.5
|
||||||
|
* @access public
|
||||||
|
* @return string
|
||||||
|
*/
|
||||||
|
function getComment()
|
||||||
|
{
|
||||||
|
return $this->_comment;
|
||||||
|
} //end func getComment
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Abstract method. Must be extended to return the objects HTML
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return string
|
||||||
|
* @abstract
|
||||||
|
*/
|
||||||
|
function toHtml()
|
||||||
|
{
|
||||||
|
return '';
|
||||||
|
} // end func toHtml
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Displays the HTML to the screen
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function display()
|
||||||
|
{
|
||||||
|
print $this->toHtml();
|
||||||
|
} // end func display
|
||||||
|
|
||||||
|
} // end class HTML_Common
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,359 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* @category HTTP
|
||||||
|
* @package HTTP
|
||||||
|
* @author Stig Bakken <ssb@fast.no>
|
||||||
|
* @author Sterling Hughes <sterling@php.net>
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @author Richard Heyes <richard@php.net>
|
||||||
|
* @author Philippe Jausions <Philippe.Jausions@11abacus.com>
|
||||||
|
* @author Michael Wallner <mike@php.net>
|
||||||
|
* @copyright 2002-2005 The Authors
|
||||||
|
* @license BSD, revised
|
||||||
|
* @version CVS: $Id: HTTP.php,v 1.48 2005/11/08 20:11:54 mike Exp $
|
||||||
|
* @link http://pear.php.net/package/HTTP
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Miscellaneous HTTP Utilities
|
||||||
|
*
|
||||||
|
* PEAR::HTTP provides static shorthand methods for generating HTTP dates,
|
||||||
|
* issueing HTTP HEAD requests, building absolute URIs, firing redirects and
|
||||||
|
* negotiating user preferred language.
|
||||||
|
*
|
||||||
|
* @package HTTP
|
||||||
|
* @category HTTP
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
* @version $Revision: 1.48 $
|
||||||
|
*/
|
||||||
|
class HTTP
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Date
|
||||||
|
*
|
||||||
|
* Format a RFC compliant GMT date HTTP header. This function honors the
|
||||||
|
* "y2k_compliance" php.ini directive and formats the GMT date corresponding
|
||||||
|
* to either RFC850 or RFC822.
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return mixed GMT date string, or false for an invalid $time parameter
|
||||||
|
* @param mixed $time unix timestamp or date (default = current time)
|
||||||
|
*/
|
||||||
|
function Date($time = null)
|
||||||
|
{
|
||||||
|
if (!isset($time)) {
|
||||||
|
$time = time();
|
||||||
|
} elseif (!is_numeric($time) && (-1 === $time = strtotime($time))) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// RFC822 or RFC850
|
||||||
|
$format = ini_get('y2k_compliance') ? 'D, d M Y' : 'l, d-M-y';
|
||||||
|
|
||||||
|
return gmdate($format .' H:i:s \G\M\T', $time);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Negotiate Language
|
||||||
|
*
|
||||||
|
* Negotiate language with the user's browser through the Accept-Language
|
||||||
|
* HTTP header or the user's host address. Language codes are generally in
|
||||||
|
* the form "ll" for a language spoken in only one country, or "ll-CC" for a
|
||||||
|
* language spoken in a particular country. For example, U.S. English is
|
||||||
|
* "en-US", while British English is "en-UK". Portugese as spoken in
|
||||||
|
* Portugal is "pt-PT", while Brazilian Portugese is "pt-BR".
|
||||||
|
*
|
||||||
|
* Quality factors in the Accept-Language: header are supported, e.g.:
|
||||||
|
* Accept-Language: en-UK;q=0.7, en-US;q=0.6, no, dk;q=0.8
|
||||||
|
*
|
||||||
|
* <code>
|
||||||
|
* require_once 'HTTP.php';
|
||||||
|
* $langs = array(
|
||||||
|
* 'en' => 'locales/en',
|
||||||
|
* 'en-US'=> 'locales/en',
|
||||||
|
* 'en-UK'=> 'locales/en',
|
||||||
|
* 'de' => 'locales/de',
|
||||||
|
* 'de-DE'=> 'locales/de',
|
||||||
|
* 'de-AT'=> 'locales/de',
|
||||||
|
* );
|
||||||
|
* $neg = HTTP::negotiateLanguage($langs);
|
||||||
|
* $dir = $langs[$neg];
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return string The negotiated language result or the supplied default.
|
||||||
|
* @param array $supported An associative array of supported languages,
|
||||||
|
* whose values must evaluate to true.
|
||||||
|
* @param string $default The default language to use if none is found.
|
||||||
|
*/
|
||||||
|
function negotiateLanguage($supported, $default = 'en-US')
|
||||||
|
{
|
||||||
|
$supp = array();
|
||||||
|
foreach ($supported as $lang => $isSupported) {
|
||||||
|
if ($isSupported) {
|
||||||
|
$supp[strToLower($lang)] = $lang;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!count($supp)) {
|
||||||
|
return $default;
|
||||||
|
}
|
||||||
|
|
||||||
|
$matches = array();
|
||||||
|
if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
|
||||||
|
foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $lang) {
|
||||||
|
$lang = array_map('trim', explode(';', $lang));
|
||||||
|
if (isset($lang[1])) {
|
||||||
|
$l = strtolower($lang[0]);
|
||||||
|
$q = (float) str_replace('q=', '', $lang[1]);
|
||||||
|
} else {
|
||||||
|
$l = strtolower($lang[0]);
|
||||||
|
$q = null;
|
||||||
|
}
|
||||||
|
if (isset($supp[$l])) {
|
||||||
|
$matches[$l] = isset($q) ? $q : 1000 - count($matches);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (count($matches)) {
|
||||||
|
asort($matches, SORT_NUMERIC);
|
||||||
|
return $supp[end($l = array_keys($matches))];
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($_SERVER['REMOTE_HOST'])) {
|
||||||
|
$lang = strtolower(end($h = explode('.', $_SERVER['REMOTE_HOST'])));
|
||||||
|
if (isset($supp[$lang])) {
|
||||||
|
return $supp[$lang];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $default;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Head
|
||||||
|
*
|
||||||
|
* Sends a "HEAD" HTTP command to a server and returns the headers
|
||||||
|
* as an associative array. Example output could be:
|
||||||
|
* <code>
|
||||||
|
* Array
|
||||||
|
* (
|
||||||
|
* [response_code] => 200 // The HTTP response code
|
||||||
|
* [response] => HTTP/1.1 200 OK // The full HTTP response string
|
||||||
|
* [Date] => Fri, 11 Jan 2002 01:41:44 GMT
|
||||||
|
* [Server] => Apache/1.3.20 (Unix) PHP/4.1.1
|
||||||
|
* [X-Powered-By] => PHP/4.1.1
|
||||||
|
* [Connection] => close
|
||||||
|
* [Content-Type] => text/html
|
||||||
|
* )
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @see HTTP_Client::head()
|
||||||
|
* @see HTTP_Request
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return mixed Returns associative array of response headers on success
|
||||||
|
* or PEAR error on failure.
|
||||||
|
* @param string $url A valid URL, e.g.: http://pear.php.net/credits.php
|
||||||
|
* @param integer $timeout Timeout in seconds (default = 10)
|
||||||
|
*/
|
||||||
|
function head($url, $timeout = 10)
|
||||||
|
{
|
||||||
|
$p = parse_url($url);
|
||||||
|
if (!isset($p['scheme'])) {
|
||||||
|
$p = parse_url(HTTP::absoluteURI($url));
|
||||||
|
} elseif ($p['scheme'] != 'http') {
|
||||||
|
return HTTP::raiseError('Unsupported protocol: '. $p['scheme']);
|
||||||
|
}
|
||||||
|
|
||||||
|
$port = isset($p['port']) ? $p['port'] : 80;
|
||||||
|
|
||||||
|
if (!$fp = @fsockopen($p['host'], $port, $eno, $estr, $timeout)) {
|
||||||
|
return HTTP::raiseError("Connection error: $estr ($eno)");
|
||||||
|
}
|
||||||
|
|
||||||
|
$path = !empty($p['path']) ? $p['path'] : '/';
|
||||||
|
$path .= !empty($p['query']) ? '?' . $p['query'] : '';
|
||||||
|
|
||||||
|
fputs($fp, "HEAD $path HTTP/1.0\r\n");
|
||||||
|
fputs($fp, 'Host: ' . $p['host'] . ':' . $port . "\r\n");
|
||||||
|
fputs($fp, "Connection: close\r\n\r\n");
|
||||||
|
|
||||||
|
$response = rtrim(fgets($fp, 4096));
|
||||||
|
if (preg_match("|^HTTP/[^\s]*\s(.*?)\s|", $response, $status)) {
|
||||||
|
$headers['response_code'] = $status[1];
|
||||||
|
}
|
||||||
|
$headers['response'] = $response;
|
||||||
|
|
||||||
|
while ($line = fgets($fp, 4096)) {
|
||||||
|
if (!trim($line)) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (($pos = strpos($line, ':')) !== false) {
|
||||||
|
$header = substr($line, 0, $pos);
|
||||||
|
$value = trim(substr($line, $pos + 1));
|
||||||
|
$headers[$header] = $value;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fclose($fp);
|
||||||
|
return $headers;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Redirect
|
||||||
|
*
|
||||||
|
* This function redirects the client. This is done by issuing
|
||||||
|
* a "Location" header and exiting if wanted. If you set $rfc2616 to true
|
||||||
|
* HTTP will output a hypertext note with the location of the redirect.
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return mixed Returns true on succes (or exits) or false if headers
|
||||||
|
* have already been sent.
|
||||||
|
* @param string $url URL where the redirect should go to.
|
||||||
|
* @param bool $exit Whether to exit immediately after redirection.
|
||||||
|
* @param bool $rfc2616 Wheter to output a hypertext note where we're
|
||||||
|
* redirecting to (Redirecting to <a href="...">...</a>.)
|
||||||
|
*/
|
||||||
|
function redirect($url, $exit = true, $rfc2616 = false)
|
||||||
|
{
|
||||||
|
if (headers_sent()) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$url = HTTP::absoluteURI($url);
|
||||||
|
header('Location: '. $url);
|
||||||
|
|
||||||
|
if ( $rfc2616 && isset($_SERVER['REQUEST_METHOD']) &&
|
||||||
|
$_SERVER['REQUEST_METHOD'] != 'HEAD') {
|
||||||
|
printf('Redirecting to: <a href="%s">%s</a>.', $url, $url);
|
||||||
|
}
|
||||||
|
if ($exit) {
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Absolute URI
|
||||||
|
*
|
||||||
|
* This function returns the absolute URI for the partial URL passed.
|
||||||
|
* The current scheme (HTTP/HTTPS), host server, port, current script
|
||||||
|
* location are used if necessary to resolve any relative URLs.
|
||||||
|
*
|
||||||
|
* Offsets potentially created by PATH_INFO are taken care of to resolve
|
||||||
|
* relative URLs to the current script.
|
||||||
|
*
|
||||||
|
* You can choose a new protocol while resolving the URI. This is
|
||||||
|
* particularly useful when redirecting a web browser using relative URIs
|
||||||
|
* and to switch from HTTP to HTTPS, or vice-versa, at the same time.
|
||||||
|
*
|
||||||
|
* @author Philippe Jausions <Philippe.Jausions@11abacus.com>
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return string The absolute URI.
|
||||||
|
* @param string $url Absolute or relative URI the redirect should go to.
|
||||||
|
* @param string $protocol Protocol to use when redirecting URIs.
|
||||||
|
* @param integer $port A new port number.
|
||||||
|
*/
|
||||||
|
function absoluteURI($url = null, $protocol = null, $port = null)
|
||||||
|
{
|
||||||
|
// filter CR/LF
|
||||||
|
$url = str_replace(array("\r", "\n"), ' ', $url);
|
||||||
|
|
||||||
|
// Mess around with already absolute URIs
|
||||||
|
if (preg_match('!^([a-z0-9]+)://!i', $url)) {
|
||||||
|
if (empty($protocol) && empty($port)) {
|
||||||
|
return $url;
|
||||||
|
}
|
||||||
|
if (!empty($protocol)) {
|
||||||
|
$url = $protocol .':'. end($array = explode(':', $url, 2));
|
||||||
|
}
|
||||||
|
if (!empty($port)) {
|
||||||
|
$url = preg_replace('!^(([a-z0-9]+)://[^/:]+)(:[\d]+)?!i',
|
||||||
|
'\1:'. $port, $url);
|
||||||
|
}
|
||||||
|
return $url;
|
||||||
|
}
|
||||||
|
|
||||||
|
$host = 'localhost';
|
||||||
|
if (!empty($_SERVER['HTTP_HOST'])) {
|
||||||
|
list($host) = explode(':', $_SERVER['HTTP_HOST']);
|
||||||
|
} elseif (!empty($_SERVER['SERVER_NAME'])) {
|
||||||
|
list($host) = explode(':', $_SERVER['SERVER_NAME']);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (empty($protocol)) {
|
||||||
|
if (isset($_SERVER['HTTPS']) && !strcasecmp($_SERVER['HTTPS'], 'on')) {
|
||||||
|
$protocol = 'https';
|
||||||
|
} else {
|
||||||
|
$protocol = 'http';
|
||||||
|
}
|
||||||
|
if (!isset($port) || $port != intval($port)) {
|
||||||
|
$port = isset($_SERVER['SERVER_PORT']) ? $_SERVER['SERVER_PORT'] : 80;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($protocol == 'http' && $port == 80) {
|
||||||
|
unset($port);
|
||||||
|
}
|
||||||
|
if ($protocol == 'https' && $port == 443) {
|
||||||
|
unset($port);
|
||||||
|
}
|
||||||
|
|
||||||
|
$server = $protocol .'://'. $host . (isset($port) ? ':'. $port : '');
|
||||||
|
|
||||||
|
if (!strlen($url)) {
|
||||||
|
$url = isset($_SERVER['REQUEST_URI']) ?
|
||||||
|
$_SERVER['REQUEST_URI'] : $_SERVER['PHP_SELF'];
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($url{0} == '/') {
|
||||||
|
return $server . $url;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Check for PATH_INFO
|
||||||
|
if (isset($_SERVER['PATH_INFO']) && strlen($_SERVER['PATH_INFO']) &&
|
||||||
|
$_SERVER['PHP_SELF'] != $_SERVER['PATH_INFO']) {
|
||||||
|
$path = dirname(substr($_SERVER['PHP_SELF'], 0, -strlen($_SERVER['PATH_INFO'])));
|
||||||
|
} else {
|
||||||
|
$path = dirname($_SERVER['PHP_SELF']);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (substr($path = strtr($path, '\\', '/'), -1) != '/') {
|
||||||
|
$path .= '/';
|
||||||
|
}
|
||||||
|
|
||||||
|
return $server . $path . $url;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Raise Error
|
||||||
|
*
|
||||||
|
* Lazy raising of PEAR_Errors.
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access protected
|
||||||
|
* @return object PEAR_Error
|
||||||
|
* @param mixed $error
|
||||||
|
* @param int $code
|
||||||
|
*/
|
||||||
|
function raiseError($error = null, $code = null)
|
||||||
|
{
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
return PEAR::raiseError($error, $code);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,122 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP::Download::Archive
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* @category HTTP
|
||||||
|
* @package HTTP_Download
|
||||||
|
* @author Michael Wallner <mike@php.net>
|
||||||
|
* @copyright 2003-2005 Michael Wallner
|
||||||
|
* @license BSD, revisewd
|
||||||
|
* @version CVS: $Id: Archive.php,v 1.4 2005/11/13 19:18:55 mike Exp $
|
||||||
|
* @link http://pear.php.net/package/HTTP_Download
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Requires HTTP_Download
|
||||||
|
*/
|
||||||
|
require_once 'HTTP/Download.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Requires System
|
||||||
|
*/
|
||||||
|
require_once 'System.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP_Download_Archive
|
||||||
|
*
|
||||||
|
* Helper class for sending Archives.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @version $Revision: 1.4 $
|
||||||
|
*/
|
||||||
|
class HTTP_Download_Archive
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Send a bunch of files or directories as an archive
|
||||||
|
*
|
||||||
|
* Example:
|
||||||
|
* <code>
|
||||||
|
* require_once 'HTTP/Download/Archive.php';
|
||||||
|
* HTTP_Download_Archive::send(
|
||||||
|
* 'myArchive.tgz',
|
||||||
|
* '/var/ftp/pub/mike',
|
||||||
|
* HTTP_DOWNLOAD_BZ2,
|
||||||
|
* '',
|
||||||
|
* '/var/ftp/pub'
|
||||||
|
* );
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @see Archive_Tar::createModify()
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return mixed Returns true on success or PEAR_Error on failure.
|
||||||
|
* @param string $name name the sent archive should have
|
||||||
|
* @param mixed $files files/directories
|
||||||
|
* @param string $type archive type
|
||||||
|
* @param string $add_path path that should be prepended to the files
|
||||||
|
* @param string $strip_path path that should be stripped from the files
|
||||||
|
*/
|
||||||
|
function send($name, $files, $type = HTTP_DOWNLOAD_TGZ, $add_path = '', $strip_path = '')
|
||||||
|
{
|
||||||
|
$tmp = System::mktemp();
|
||||||
|
|
||||||
|
switch ($type = strToUpper($type))
|
||||||
|
{
|
||||||
|
case HTTP_DOWNLOAD_TAR:
|
||||||
|
include_once 'Archive/Tar.php';
|
||||||
|
$arc = &new Archive_Tar($tmp);
|
||||||
|
$content_type = 'x-tar';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case HTTP_DOWNLOAD_TGZ:
|
||||||
|
include_once 'Archive/Tar.php';
|
||||||
|
$arc = &new Archive_Tar($tmp, 'gz');
|
||||||
|
$content_type = 'x-gzip';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case HTTP_DOWNLOAD_BZ2:
|
||||||
|
include_once 'Archive/Tar.php';
|
||||||
|
$arc = &new Archive_Tar($tmp, 'bz2');
|
||||||
|
$content_type = 'x-bzip2';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case HTTP_DOWNLOAD_ZIP:
|
||||||
|
include_once 'Archive/Zip.php';
|
||||||
|
$arc = &new Archive_Zip($tmp);
|
||||||
|
$content_type = 'x-zip';
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
return PEAR::raiseError(
|
||||||
|
'Archive type not supported: ' . $type,
|
||||||
|
HTTP_DOWNLOAD_E_INVALID_ARCHIVE_TYPE
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($type == HTTP_DOWNLOAD_ZIP) {
|
||||||
|
$options = array( 'add_path' => $add_path,
|
||||||
|
'remove_path' => $strip_path);
|
||||||
|
if (!$arc->create($files, $options)) {
|
||||||
|
return PEAR::raiseError('Archive creation failed.');
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if (!$e = $arc->createModify($files, $add_path, $strip_path)) {
|
||||||
|
return PEAR::raiseError('Archive creation failed.');
|
||||||
|
}
|
||||||
|
if (PEAR::isError($e)) {
|
||||||
|
return $e;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
unset($arc);
|
||||||
|
|
||||||
|
$dl = &new HTTP_Download(array('file' => $tmp));
|
||||||
|
$dl->setContentType('application/' . $content_type);
|
||||||
|
$dl->setContentDisposition(HTTP_DOWNLOAD_ATTACHMENT, $name);
|
||||||
|
return $dl->send();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,177 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP::Download::PgLOB
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* @category HTTP
|
||||||
|
* @package HTTP_Download
|
||||||
|
* @author Michael Wallner <mike@php.net>
|
||||||
|
* @copyright 2003-2005 Michael Wallner
|
||||||
|
* @license BSD, revised
|
||||||
|
* @version CVS: $Id: PgLOB.php,v 1.14 2005/11/13 19:18:55 mike Exp $
|
||||||
|
* @link http://pear.php.net/package/HTTP_Download
|
||||||
|
*/
|
||||||
|
|
||||||
|
$GLOBALS['_HTTP_Download_PgLOB_Connection'] = null;
|
||||||
|
stream_register_wrapper('pglob', 'HTTP_Download_PgLOB');
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PgSQL large object stream interface for HTTP_Download
|
||||||
|
*
|
||||||
|
* Usage:
|
||||||
|
* <code>
|
||||||
|
* require_once 'HTTP/Download.php';
|
||||||
|
* require_once 'HTTP/Download/PgLOB.php';
|
||||||
|
* $db = &DB::connect('pgsql://user:pass@host/db');
|
||||||
|
* // or $db = pg_connect(...);
|
||||||
|
* $lo = HTTP_Download_PgLOB::open($db, 12345);
|
||||||
|
* $dl = &new HTTP_Download;
|
||||||
|
* $dl->setResource($lo);
|
||||||
|
* $dl->send()
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @version $Revision: 1.14 $
|
||||||
|
*/
|
||||||
|
class HTTP_Download_PgLOB
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Set Connection
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return bool
|
||||||
|
* @param mixed $conn
|
||||||
|
*/
|
||||||
|
function setConnection($conn)
|
||||||
|
{
|
||||||
|
if (is_a($conn, 'DB_Common')) {
|
||||||
|
$conn = $conn->dbh;
|
||||||
|
} elseif ( is_a($conn, 'MDB_Common') ||
|
||||||
|
is_a($conn, 'MDB2_Driver_Common')) {
|
||||||
|
$conn = $conn->connection;
|
||||||
|
}
|
||||||
|
if ($isResource = is_resource($conn)) {
|
||||||
|
$GLOBALS['_HTTP_Download_PgLOB_Connection'] = $conn;
|
||||||
|
}
|
||||||
|
return $isResource;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get Connection
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return resource
|
||||||
|
*/
|
||||||
|
function getConnection()
|
||||||
|
{
|
||||||
|
if (is_resource($GLOBALS['_HTTP_Download_PgLOB_Connection'])) {
|
||||||
|
return $GLOBALS['_HTTP_Download_PgLOB_Connection'];
|
||||||
|
}
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Open
|
||||||
|
*
|
||||||
|
* @static
|
||||||
|
* @access public
|
||||||
|
* @return resource
|
||||||
|
* @param mixed $conn
|
||||||
|
* @param int $loid
|
||||||
|
* @param string $mode
|
||||||
|
*/
|
||||||
|
function open($conn, $loid, $mode = 'rb')
|
||||||
|
{
|
||||||
|
HTTP_Download_PgLOB::setConnection($conn);
|
||||||
|
return fopen('pglob:///'. $loid, $mode);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* Stream Interface Implementation
|
||||||
|
* @internal
|
||||||
|
*/
|
||||||
|
var $ID = 0;
|
||||||
|
var $size = 0;
|
||||||
|
var $conn = null;
|
||||||
|
var $handle = null;
|
||||||
|
|
||||||
|
function stream_open($path, $mode)
|
||||||
|
{
|
||||||
|
if (!$this->conn = HTTP_Download_PgLOB::getConnection()) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (!preg_match('/(\d+)/', $path, $matches)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$this->ID = $matches[1];
|
||||||
|
|
||||||
|
if (!pg_query($this->conn, 'BEGIN')) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->handle = pg_lo_open($this->conn, $this->ID, $mode);
|
||||||
|
if (!is_resource($this->handle)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// fetch size of lob
|
||||||
|
pg_lo_seek($this->handle, 0, PGSQL_SEEK_END);
|
||||||
|
$this->size = (int) pg_lo_tell($this->handle);
|
||||||
|
pg_lo_seek($this->handle, 0, PGSQL_SEEK_SET);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
function stream_read($length)
|
||||||
|
{
|
||||||
|
return pg_lo_read($this->handle, $length);
|
||||||
|
}
|
||||||
|
|
||||||
|
function stream_seek($offset, $whence = SEEK_SET)
|
||||||
|
{
|
||||||
|
return pg_lo_seek($this->handle, $offset, $whence);
|
||||||
|
}
|
||||||
|
|
||||||
|
function stream_tell()
|
||||||
|
{
|
||||||
|
return pg_lo_tell($this->handle);
|
||||||
|
}
|
||||||
|
|
||||||
|
function stream_eof()
|
||||||
|
{
|
||||||
|
return pg_lo_tell($this->handle) >= $this->size;
|
||||||
|
}
|
||||||
|
|
||||||
|
function stream_flush()
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
function stream_stat()
|
||||||
|
{
|
||||||
|
return array('size' => $this->size, 'ino' => $this->ID);
|
||||||
|
}
|
||||||
|
|
||||||
|
function stream_write($data)
|
||||||
|
{
|
||||||
|
return pg_lo_write($this->handle, $data);
|
||||||
|
}
|
||||||
|
|
||||||
|
function stream_close()
|
||||||
|
{
|
||||||
|
if (pg_lo_close($this->handle)) {
|
||||||
|
return pg_query($this->conn, 'COMMIT');
|
||||||
|
} else {
|
||||||
|
pg_query($this->conn ,'ROLLBACK');
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/**#@-*/
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,531 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP::Header
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* @category HTTP
|
||||||
|
* @package HTTP_Header
|
||||||
|
* @author Wolfram Kriesing <wk@visionp.de>
|
||||||
|
* @author Davey Shafik <davey@php.net>
|
||||||
|
* @author Michael Wallner <mike@php.net>
|
||||||
|
* @copyright 2003-2005 The Authors
|
||||||
|
* @license BSD, revised
|
||||||
|
* @version CVS: $Id: Header.php,v 1.32 2005/11/08 19:06:10 mike Exp $
|
||||||
|
* @link http://pear.php.net/package/HTTP_Header
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Requires HTTP
|
||||||
|
*/
|
||||||
|
require_once 'HTTP.php';
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* Information Codes
|
||||||
|
*/
|
||||||
|
define('HTTP_HEADER_STATUS_100', '100 Continue');
|
||||||
|
define('HTTP_HEADER_STATUS_101', '101 Switching Protocols');
|
||||||
|
define('HTTP_HEADER_STATUS_102', '102 Processing');
|
||||||
|
define('HTTP_HEADER_STATUS_INFORMATIONAL',1);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#+
|
||||||
|
* Success Codes
|
||||||
|
*/
|
||||||
|
define('HTTP_HEADER_STATUS_200', '200 OK');
|
||||||
|
define('HTTP_HEADER_STATUS_201', '201 Created');
|
||||||
|
define('HTTP_HEADER_STATUS_202', '202 Accepted');
|
||||||
|
define('HTTP_HEADER_STATUS_203', '203 Non-Authoritative Information');
|
||||||
|
define('HTTP_HEADER_STATUS_204', '204 No Content');
|
||||||
|
define('HTTP_HEADER_STATUS_205', '205 Reset Content');
|
||||||
|
define('HTTP_HEADER_STATUS_206', '206 Partial Content');
|
||||||
|
define('HTTP_HEADER_STATUS_207', '207 Multi-Status');
|
||||||
|
define('HTTP_HEADER_STATUS_SUCCESSFUL',2);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* Redirection Codes
|
||||||
|
*/
|
||||||
|
define('HTTP_HEADER_STATUS_300', '300 Multiple Choices');
|
||||||
|
define('HTTP_HEADER_STATUS_301', '301 Moved Permanently');
|
||||||
|
define('HTTP_HEADER_STATUS_302', '302 Found');
|
||||||
|
define('HTTP_HEADER_STATUS_303', '303 See Other');
|
||||||
|
define('HTTP_HEADER_STATUS_304', '304 Not Modified');
|
||||||
|
define('HTTP_HEADER_STATUS_305', '305 Use Proxy');
|
||||||
|
define('HTTP_HEADER_STATUS_306', '306 (Unused)');
|
||||||
|
define('HTTP_HEADER_STATUS_307', '307 Temporary Redirect');
|
||||||
|
define('HTTP_HEADER_STATUS_REDIRECT',3);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* Error Codes
|
||||||
|
*/
|
||||||
|
define('HTTP_HEADER_STATUS_400', '400 Bad Request');
|
||||||
|
define('HTTP_HEADER_STATUS_401', '401 Unauthorized');
|
||||||
|
define('HTTP_HEADER_STATUS_402', '402 Payment Granted');
|
||||||
|
define('HTTP_HEADER_STATUS_403', '403 Forbidden');
|
||||||
|
define('HTTP_HEADER_STATUS_404', '404 File Not Found');
|
||||||
|
define('HTTP_HEADER_STATUS_405', '405 Method Not Allowed');
|
||||||
|
define('HTTP_HEADER_STATUS_406', '406 Not Acceptable');
|
||||||
|
define('HTTP_HEADER_STATUS_407', '407 Proxy Authentication Required');
|
||||||
|
define('HTTP_HEADER_STATUS_408', '408 Request Time-out');
|
||||||
|
define('HTTP_HEADER_STATUS_409', '409 Conflict');
|
||||||
|
define('HTTP_HEADER_STATUS_410', '410 Gone');
|
||||||
|
define('HTTP_HEADER_STATUS_411', '411 Length Required');
|
||||||
|
define('HTTP_HEADER_STATUS_412', '412 Precondition Failed');
|
||||||
|
define('HTTP_HEADER_STATUS_413', '413 Request Entity Too Large');
|
||||||
|
define('HTTP_HEADER_STATUS_414', '414 Request-URI Too Large');
|
||||||
|
define('HTTP_HEADER_STATUS_415', '415 Unsupported Media Type');
|
||||||
|
define('HTTP_HEADER_STATUS_416', '416 Requested range not satisfiable');
|
||||||
|
define('HTTP_HEADER_STATUS_417', '417 Expectation Failed');
|
||||||
|
define('HTTP_HEADER_STATUS_422', '422 Unprocessable Entity');
|
||||||
|
define('HTTP_HEADER_STATUS_423', '423 Locked');
|
||||||
|
define('HTTP_HEADER_STATUS_424', '424 Failed Dependency');
|
||||||
|
define('HTTP_HEADER_STATUS_CLIENT_ERROR',4);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* Server Errors
|
||||||
|
*/
|
||||||
|
define('HTTP_HEADER_STATUS_500', '500 Internal Server Error');
|
||||||
|
define('HTTP_HEADER_STATUS_501', '501 Not Implemented');
|
||||||
|
define('HTTP_HEADER_STATUS_502', '502 Bad Gateway');
|
||||||
|
define('HTTP_HEADER_STATUS_503', '503 Service Unavailable');
|
||||||
|
define('HTTP_HEADER_STATUS_504', '504 Gateway Time-out');
|
||||||
|
define('HTTP_HEADER_STATUS_505', '505 HTTP Version not supported');
|
||||||
|
define('HTTP_HEADER_STATUS_507', '507 Insufficient Storage');
|
||||||
|
define('HTTP_HEADER_STATUS_SERVER_ERROR',5);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP_Header
|
||||||
|
*
|
||||||
|
* @package HTTP_Header
|
||||||
|
* @category HTTP
|
||||||
|
* @access public
|
||||||
|
* @version $Revision: 1.32 $
|
||||||
|
*/
|
||||||
|
class HTTP_Header extends HTTP
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Default Headers
|
||||||
|
*
|
||||||
|
* The values that are set as default, are the same as PHP sends by default.
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_headers = array(
|
||||||
|
'content-type' => 'text/html',
|
||||||
|
'pragma' => 'no-cache',
|
||||||
|
'cache-control' => 'no-store, no-cache, must-revalidate, post-check=0, pre-check=0'
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP version
|
||||||
|
*
|
||||||
|
* @var string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_httpVersion = '1.0';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor
|
||||||
|
*
|
||||||
|
* Sets HTTP version.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return object HTTP_Header
|
||||||
|
*/
|
||||||
|
function HTTP_Header()
|
||||||
|
{
|
||||||
|
if (isset($_SERVER['SERVER_PROTOCOL'])) {
|
||||||
|
$this->setHttpVersion(substr($_SERVER['SERVER_PROTOCOL'], -3));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set HTTP version
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool Returns true on success or false if version doesn't
|
||||||
|
* match 1.0 or 1.1 (note: 1 will result in 1.0)
|
||||||
|
* @param mixed $version HTTP version, either 1.0 or 1.1
|
||||||
|
*/
|
||||||
|
function setHttpVersion($version)
|
||||||
|
{
|
||||||
|
$version = round((float) $version, 1);
|
||||||
|
if ($version < 1.0 || $version > 1.1) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$this->_httpVersion = sprintf('%0.1f', $version);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get HTTP version
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return string
|
||||||
|
*/
|
||||||
|
function getHttpVersion()
|
||||||
|
{
|
||||||
|
return $this->_httpVersion;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set Header
|
||||||
|
*
|
||||||
|
* The default value for the Last-Modified header will be current
|
||||||
|
* date and atime if $value is omitted.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool Returns true on success or false if $key was empty or
|
||||||
|
* $value was not of an scalar type.
|
||||||
|
* @param string $key The name of the header.
|
||||||
|
* @param string $value The value of the header. (NULL to unset header)
|
||||||
|
*/
|
||||||
|
function setHeader($key, $value = null)
|
||||||
|
{
|
||||||
|
if (empty($key) || (isset($value) && !is_scalar($value))) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$key = strToLower($key);
|
||||||
|
if ($key == 'last-modified') {
|
||||||
|
if (!isset($value)) {
|
||||||
|
$value = HTTP::Date(time());
|
||||||
|
} elseif (is_numeric($value)) {
|
||||||
|
$value = HTTP::Date($value);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($value)) {
|
||||||
|
$this->_headers[$key] = $value;
|
||||||
|
} else {
|
||||||
|
unset($this->_headers[$key]);
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get Header
|
||||||
|
*
|
||||||
|
* If $key is omitted, all stored headers will be returned.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return mixed Returns string value of the requested header,
|
||||||
|
* array values of all headers or false if header $key
|
||||||
|
* is not set.
|
||||||
|
* @param string $key The name of the header to fetch.
|
||||||
|
*/
|
||||||
|
function getHeader($key = null)
|
||||||
|
{
|
||||||
|
if (!isset($key)) {
|
||||||
|
return $this->_headers;
|
||||||
|
}
|
||||||
|
|
||||||
|
$key = strToLower($key);
|
||||||
|
|
||||||
|
if (!isset($this->_headers[$key])) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $this->_headers[$key];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send Headers
|
||||||
|
*
|
||||||
|
* Send out the header that you set via setHeader().
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool Returns true on success or false if headers are already
|
||||||
|
* sent.
|
||||||
|
* @param array $keys Headers to (not) send, see $include.
|
||||||
|
* @param array $include If true only $keys matching headers will be
|
||||||
|
* sent, if false only header not matching $keys will be
|
||||||
|
* sent.
|
||||||
|
*/
|
||||||
|
function sendHeaders($keys = array(), $include = true)
|
||||||
|
{
|
||||||
|
if (headers_sent()) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (count($keys)) {
|
||||||
|
array_change_key_case($keys, CASE_LOWER);
|
||||||
|
foreach ($this->_headers as $key => $value) {
|
||||||
|
if ($include ? in_array($key, $keys) : !in_array($key, $keys)) {
|
||||||
|
header($key .': '. $value);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
foreach ($this->_headers as $header => $value) {
|
||||||
|
header($header .': '. $value);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send Satus Code
|
||||||
|
*
|
||||||
|
* Send out the given HTTP-Status code. Use this for example when you
|
||||||
|
* want to tell the client this page is cached, then you would call
|
||||||
|
* sendStatusCode(304).
|
||||||
|
*
|
||||||
|
* @see HTTP_Header_Cache::exitIfCached()
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool Returns true on success or false if headers are already
|
||||||
|
* sent.
|
||||||
|
* @param int $code The status code to send, i.e. 404, 304, 200, etc.
|
||||||
|
*/
|
||||||
|
function sendStatusCode($code)
|
||||||
|
{
|
||||||
|
if (headers_sent()) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($code == (int) $code && defined('HTTP_HEADER_STATUS_'. $code)) {
|
||||||
|
$code = constant('HTTP_HEADER_STATUS_'. $code);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (strncasecmp(PHP_SAPI, 'cgi', 3)) {
|
||||||
|
header('HTTP/'. $this->_httpVersion .' '. $code);
|
||||||
|
} else {
|
||||||
|
header('Status: '. $code);
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Date to Timestamp
|
||||||
|
*
|
||||||
|
* Converts dates like
|
||||||
|
* Mon, 31 Mar 2003 15:26:34 GMT
|
||||||
|
* Tue, 15 Nov 1994 12:45:26 GMT
|
||||||
|
* into a timestamp, strtotime() didn't do it in older versions.
|
||||||
|
*
|
||||||
|
* @deprecated Use PHPs strtotime() instead.
|
||||||
|
* @access public
|
||||||
|
* @return mixed Returns int unix timestamp or false if the date doesn't
|
||||||
|
* seem to be a valid GMT date.
|
||||||
|
* @param string $date The GMT date.
|
||||||
|
*/
|
||||||
|
function dateToTimestamp($date)
|
||||||
|
{
|
||||||
|
static $months = array(
|
||||||
|
null => 0, 'Jan' => 1, 'Feb' => 2, 'Mar' => 3, 'Apr' => 4,
|
||||||
|
'May' => 5, 'Jun' => 6, 'Jul' => 7, 'Aug' => 8, 'Sep' => 9,
|
||||||
|
'Oct' => 10, 'Nov' => 11, 'Dec' => 12
|
||||||
|
);
|
||||||
|
|
||||||
|
if (-1 < $timestamp = strToTime($date)) {
|
||||||
|
return $timestamp;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!preg_match('~[^,]*,\s(\d+)\s(\w+)\s(\d+)\s(\d+):(\d+):(\d+).*~',
|
||||||
|
$date, $m)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// [0] => Mon, 31 Mar 2003 15:42:55 GMT
|
||||||
|
// [1] => 31 [2] => Mar [3] => 2003 [4] => 15 [5] => 42 [6] => 55
|
||||||
|
return mktime($m[4], $m[5], $m[6], $months[$m[2]], $m[1], $m[3]);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Redirect
|
||||||
|
*
|
||||||
|
* This function redirects the client. This is done by issuing a Location
|
||||||
|
* header and exiting. Additionally to HTTP::redirect() you can also add
|
||||||
|
* parameters to the url.
|
||||||
|
*
|
||||||
|
* If you dont need parameters to be added, simply use HTTP::redirect()
|
||||||
|
* otherwise use HTTP_Header::redirect().
|
||||||
|
*
|
||||||
|
* @see HTTP::redirect()
|
||||||
|
* @author Wolfram Kriesing <wk@visionp.de>
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
* @param string $url The URL to redirect to, if none is given it
|
||||||
|
* redirects to the current page.
|
||||||
|
* @param array $param Array of query string parameters to add; usually
|
||||||
|
* a set of key => value pairs; if an array entry consists
|
||||||
|
* only of an value it is used as key and the respective
|
||||||
|
* value is fetched from $GLOBALS[$value]
|
||||||
|
* @param bool $session Whether the session name/id should be added
|
||||||
|
*/
|
||||||
|
function redirect($url = null, $param = array(), $session = false)
|
||||||
|
{
|
||||||
|
if (!isset($url)) {
|
||||||
|
$url = $_SERVER['PHP_SELF'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$qs = array();
|
||||||
|
|
||||||
|
if ($session) {
|
||||||
|
$qs[] = session_name() .'='. session_id();
|
||||||
|
}
|
||||||
|
|
||||||
|
if (is_array($param) && count($param)) {
|
||||||
|
if (count($param)) {
|
||||||
|
foreach ($param as $key => $val) {
|
||||||
|
if (is_string($key)) {
|
||||||
|
$qs[] = urlencode($key) .'='. urlencode($val);
|
||||||
|
} else {
|
||||||
|
$qs[] = urlencode($val) .'='. urlencode(@$GLOBALS[$val]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($qstr = implode('&', $qs)) {
|
||||||
|
$purl = parse_url($url);
|
||||||
|
$url .= (isset($purl['query']) ? '&' : '?') . $qstr;
|
||||||
|
}
|
||||||
|
|
||||||
|
parent::redirect($url);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* @author Davey Shafik <davey@php.net>
|
||||||
|
* @param int $http_code HTTP Code to check
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Return HTTP Status Code Type
|
||||||
|
*
|
||||||
|
* @return int|false
|
||||||
|
*/
|
||||||
|
function getStatusType($http_code)
|
||||||
|
{
|
||||||
|
if(is_int($http_code) && defined('HTTP_HEADER_STATUS_' .$http_code) || defined($http_code)) {
|
||||||
|
$type = substr($http_code,0,1);
|
||||||
|
switch ($type) {
|
||||||
|
case HTTP_HEADER_STATUS_INFORMATIONAL:
|
||||||
|
case HTTP_HEADER_STATUS_SUCCESSFUL:
|
||||||
|
case HTTP_HEADER_STATUS_REDIRECT:
|
||||||
|
case HTTP_HEADER_STATUS_CLIENT_ERROR:
|
||||||
|
case HTTP_HEADER_STATUS_SERVER_ERROR:
|
||||||
|
return $type;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
return false;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Return Status Code Message
|
||||||
|
*
|
||||||
|
* @return string|false
|
||||||
|
*/
|
||||||
|
function getStatusText($http_code)
|
||||||
|
{
|
||||||
|
if ($this->getStatusType($http_code)) {
|
||||||
|
if (is_int($http_code) && defined('HTTP_HEADER_STATUS_' .$http_code)) {
|
||||||
|
return substr(constant('HTTP_HEADER_STATUS_' .$http_code),4);
|
||||||
|
} else {
|
||||||
|
return substr($http_code,4);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if HTTP Status code is Information (1xx)
|
||||||
|
*
|
||||||
|
* @return boolean
|
||||||
|
*/
|
||||||
|
function isInformational($http_code)
|
||||||
|
{
|
||||||
|
if ($status_type = $this->getStatusType($http_code)) {
|
||||||
|
return $status_type{0} == HTTP_HEADER_STATUS_INFORMATIONAL;
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if HTTP Status code is Successful (2xx)
|
||||||
|
*
|
||||||
|
* @return boolean
|
||||||
|
*/
|
||||||
|
function isSuccessful($http_code)
|
||||||
|
{
|
||||||
|
if ($status_type = $this->getStatusType($http_code)) {
|
||||||
|
return $status_type{0} == HTTP_HEADER_STATUS_SUCCESSFUL;
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if HTTP Status code is a Redirect (3xx)
|
||||||
|
*
|
||||||
|
* @return boolean
|
||||||
|
*/
|
||||||
|
function isRedirect($http_code)
|
||||||
|
{
|
||||||
|
if ($status_type = $this->getStatusType($http_code)) {
|
||||||
|
return $status_type{0} == HTTP_HEADER_STATUS_REDIRECT;
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if HTTP Status code is a Client Error (4xx)
|
||||||
|
*
|
||||||
|
* @return boolean
|
||||||
|
*/
|
||||||
|
function isClientError($http_code)
|
||||||
|
{
|
||||||
|
if ($status_type = $this->getStatusType($http_code)) {
|
||||||
|
return $status_type{0} == HTTP_HEADER_STATUS_CLIENT_ERROR;
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if HTTP Status code is Server Error (5xx)
|
||||||
|
*
|
||||||
|
* @return boolean
|
||||||
|
*/
|
||||||
|
function isServerError($http_code)
|
||||||
|
{
|
||||||
|
if ($status_type = $this->getStatusType($http_code)) {
|
||||||
|
return $status_type{0} == HTTP_HEADER_STATUS_SERVER_ERROR;
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if HTTP Status code is Server OR Client Error (4xx or 5xx)
|
||||||
|
*
|
||||||
|
* @return boolean
|
||||||
|
*/
|
||||||
|
function isError($http_code)
|
||||||
|
{
|
||||||
|
if ($status_type = $this->getStatusType($http_code)) {
|
||||||
|
return (($status_type == HTTP_HEADER_STATUS_CLIENT_ERROR) || ($status_type == HTTP_HEADER_STATUS_SERVER_ERROR)) ? true : false;
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/**#@-*/
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,238 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP::Header::Cache
|
||||||
|
*
|
||||||
|
* PHP versions 4 and 5
|
||||||
|
*
|
||||||
|
* @category HTTP
|
||||||
|
* @package HTTP_Header
|
||||||
|
* @author Wolfram Kriesing <wk@visionp.de>
|
||||||
|
* @author Michael Wallner <mike@php.net>
|
||||||
|
* @copyright 2003-2005 The Authors
|
||||||
|
* @license BSD, revised
|
||||||
|
* @version CVS: $Id: Cache.php,v 1.24 2005/11/08 19:06:14 mike Exp $
|
||||||
|
* @link http://pear.php.net/package/HTTP_Header
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Requires HTTP_Header
|
||||||
|
*/
|
||||||
|
require_once 'HTTP/Header.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* HTTP_Header_Cache
|
||||||
|
*
|
||||||
|
* This package provides methods to easier handle caching of HTTP pages. That
|
||||||
|
* means that the pages can be cached at the client (user agent or browser) and
|
||||||
|
* your application only needs to send "hey client you already have the pages".
|
||||||
|
*
|
||||||
|
* Which is done by sending the HTTP-Status "304 Not Modified", so that your
|
||||||
|
* application load and the network traffic can be reduced, since you only need
|
||||||
|
* to send the complete page once. This is really an advantage e.g. for
|
||||||
|
* generated style sheets, or simply pages that do only change rarely.
|
||||||
|
*
|
||||||
|
* Usage:
|
||||||
|
* <code>
|
||||||
|
* require_once 'HTTP/Header/Cache.php';
|
||||||
|
* $httpCache = new HTTP_Header_Cache(4, 'weeks');
|
||||||
|
* $httpCache->sendHeaders();
|
||||||
|
* // your code goes here
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* @package HTTP_Header
|
||||||
|
* @category HTTP
|
||||||
|
* @access public
|
||||||
|
* @version $Revision: 1.24 $
|
||||||
|
*/
|
||||||
|
class HTTP_Header_Cache extends HTTP_Header
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Constructor
|
||||||
|
*
|
||||||
|
* Set the amount of time to cache.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return object HTTP_Header_Cache
|
||||||
|
* @param int $expires
|
||||||
|
* @param string $unit
|
||||||
|
*/
|
||||||
|
function HTTP_Header_Cache($expires = 0, $unit = 'seconds')
|
||||||
|
{
|
||||||
|
parent::HTTP_Header();
|
||||||
|
$this->setHeader('Pragma', 'cache');
|
||||||
|
$this->setHeader('Last-Modified', $this->getCacheStart());
|
||||||
|
$this->setHeader('Cache-Control', 'private, must-revalidate, max-age=0');
|
||||||
|
|
||||||
|
if ($expires) {
|
||||||
|
if (!$this->isOlderThan($expires, $unit)) {
|
||||||
|
$this->exitCached();
|
||||||
|
}
|
||||||
|
$this->setHeader('Last-Modified', time());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get Cache Start
|
||||||
|
*
|
||||||
|
* Returns the unix timestamp of the If-Modified-Since HTTP header or the
|
||||||
|
* current time if the header was not sent by the client.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return int unix timestamp
|
||||||
|
*/
|
||||||
|
function getCacheStart()
|
||||||
|
{
|
||||||
|
if (isset($_SERVER['HTTP_IF_MODIFIED_SINCE']) && !$this->isPost()) {
|
||||||
|
return strtotime(current($array = explode(';',
|
||||||
|
$_SERVER['HTTP_IF_MODIFIED_SINCE'])));
|
||||||
|
}
|
||||||
|
return time();
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Is Older Than
|
||||||
|
*
|
||||||
|
* You can call it like this:
|
||||||
|
* <code>
|
||||||
|
* $httpCache->isOlderThan(1, 'day');
|
||||||
|
* $httpCache->isOlderThan(47, 'days');
|
||||||
|
*
|
||||||
|
* $httpCache->isOlderThan(1, 'week');
|
||||||
|
* $httpCache->isOlderThan(3, 'weeks');
|
||||||
|
*
|
||||||
|
* $httpCache->isOlderThan(1, 'hour');
|
||||||
|
* $httpCache->isOlderThan(5, 'hours');
|
||||||
|
*
|
||||||
|
* $httpCache->isOlderThan(1, 'minute');
|
||||||
|
* $httpCache->isOlderThan(15, 'minutes');
|
||||||
|
*
|
||||||
|
* $httpCache->isOlderThan(1, 'second');
|
||||||
|
* $httpCache->isOlderThan(15);
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* If you specify something greater than "weeks" as time untit, it just
|
||||||
|
* works approximatly, because a month is taken to consist of 4.3 weeks.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool Returns true if requested page is older than specified.
|
||||||
|
* @param int $time The amount of time.
|
||||||
|
* @param string $unit The unit of the time amount - (year[s], month[s],
|
||||||
|
* week[s], day[s], hour[s], minute[s], second[s]).
|
||||||
|
*/
|
||||||
|
function isOlderThan($time = 0, $unit = 'seconds')
|
||||||
|
{
|
||||||
|
if (!isset($_SERVER['HTTP_IF_MODIFIED_SINCE']) || $this->isPost()) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
if (!$time) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
switch (strtolower($unit))
|
||||||
|
{
|
||||||
|
case 'year':
|
||||||
|
case 'years':
|
||||||
|
$time *= 12;
|
||||||
|
case 'month':
|
||||||
|
case 'months':
|
||||||
|
$time *= 4.3;
|
||||||
|
case 'week':
|
||||||
|
case 'weeks':
|
||||||
|
$time *= 7;
|
||||||
|
case 'day':
|
||||||
|
case 'days':
|
||||||
|
$time *= 24;
|
||||||
|
case 'hour':
|
||||||
|
case 'hours':
|
||||||
|
$time *= 60;
|
||||||
|
case 'minute':
|
||||||
|
case 'minutes':
|
||||||
|
$time *= 60;
|
||||||
|
}
|
||||||
|
|
||||||
|
return (time() - $this->getCacheStart()) > $time;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Is Cached
|
||||||
|
*
|
||||||
|
* Check whether we can consider to be cached on the client side.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool Whether the page/resource is considered to be cached.
|
||||||
|
* @param int $lastModified Unix timestamp of last modification.
|
||||||
|
*/
|
||||||
|
function isCached($lastModified = 0)
|
||||||
|
{
|
||||||
|
if ($this->isPost()) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (isset($_SERVER['HTTP_IF_MODIFIED_SINCE']) && !$lastModified) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
if (!$seconds = time() - $lastModified) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return !$this->isOlderThan($seconds);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Is Post
|
||||||
|
*
|
||||||
|
* Check if request method is "POST".
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool
|
||||||
|
*/
|
||||||
|
function isPost()
|
||||||
|
{
|
||||||
|
return isset($_SERVER['REQUEST_METHOD']) and
|
||||||
|
'POST' == $_SERVER['REQUEST_METHOD'];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Exit If Cached
|
||||||
|
*
|
||||||
|
* Exit with "HTTP 304 Not Modified" if we consider to be cached.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
* @param int $lastModified Unix timestamp of last modification.
|
||||||
|
*/
|
||||||
|
function exitIfCached($lastModified = 0)
|
||||||
|
{
|
||||||
|
if ($this->isCached($lastModified)) {
|
||||||
|
$this->exitCached();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Exit Cached
|
||||||
|
*
|
||||||
|
* Exit with "HTTP 304 Not Modified".
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function exitCached()
|
||||||
|
{
|
||||||
|
$this->sendHeaders();
|
||||||
|
$this->sendStatusCode(304);
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set Last Modified
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
* @param int $lastModified The unix timestamp of last modification.
|
||||||
|
*/
|
||||||
|
function setLastModified($lastModified = null)
|
||||||
|
{
|
||||||
|
$this->setHeader('Last-Modified', $lastModified);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,856 @@
|
||||||
|
<?php
|
||||||
|
// **********************************************
|
||||||
|
//
|
||||||
|
// This software is licensed by the LGPL
|
||||||
|
// -> http://www.gnu.org/copyleft/lesser.txt
|
||||||
|
// (c) 2001-2004 by Tomas Von Veschler Cox
|
||||||
|
//
|
||||||
|
// **********************************************
|
||||||
|
//
|
||||||
|
// $Id: Upload.php,v 1.42 2004/08/08 09:37:50 wenz Exp $
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Pear File Uploader class. Easy and secure managment of files
|
||||||
|
* submitted via HTML Forms.
|
||||||
|
*
|
||||||
|
* Leyend:
|
||||||
|
* - you can add error msgs in your language in the HTTP_Upload_Error class
|
||||||
|
*
|
||||||
|
* TODO:
|
||||||
|
* - try to think a way of having all the Error system in other
|
||||||
|
* file and only include it when an error ocurrs
|
||||||
|
*
|
||||||
|
* -- Notes for users HTTP_Upload >= 0.9.0 --
|
||||||
|
*
|
||||||
|
* Error detection was enhanced, so you no longer need to
|
||||||
|
* check for PEAR::isError() in $upload->getFiles() or call
|
||||||
|
* $upload->isMissing(). Instead you'll
|
||||||
|
* get the error when do a check for $file->isError().
|
||||||
|
*
|
||||||
|
* Example:
|
||||||
|
*
|
||||||
|
* $upload = new HTTP_Upload('en');
|
||||||
|
* $file = $upload->getFiles('i_dont_exist_in_form_definition');
|
||||||
|
* if ($file->isError()) {
|
||||||
|
* die($file->getMessage());
|
||||||
|
* }
|
||||||
|
*
|
||||||
|
* --
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* defines default chmod
|
||||||
|
*/
|
||||||
|
define('HTTP_UPLOAD_DEFAULT_CHMOD', 0660);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Error Class for HTTP_Upload
|
||||||
|
*
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @see http://vulcanonet.com/soft/index.php?pack=uploader
|
||||||
|
* @package HTTP_Upload
|
||||||
|
* @category HTTP
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class HTTP_Upload_Error extends PEAR
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Selected language for error messages
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $lang = 'en';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Whether HTML entities shall be encoded automatically
|
||||||
|
* @var boolean
|
||||||
|
*/
|
||||||
|
var $html = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor
|
||||||
|
*
|
||||||
|
* Creates a new PEAR_Error
|
||||||
|
*
|
||||||
|
* @param string $lang The language selected for error code messages
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function HTTP_Upload_Error($lang = null, $html = false)
|
||||||
|
{
|
||||||
|
$this->lang = ($lang !== null) ? $lang : $this->lang;
|
||||||
|
$this->html = ($html !== false) ? $html : $this->html;
|
||||||
|
$ini_size = preg_replace('/m/i', '000000', ini_get('upload_max_filesize'));
|
||||||
|
|
||||||
|
if (function_exists('version_compare') &&
|
||||||
|
version_compare(phpversion(), '4.1', 'ge')) {
|
||||||
|
$maxsize = (isset($_POST['MAX_FILE_SIZE'])) ?
|
||||||
|
$_POST['MAX_FILE_SIZE'] : null;
|
||||||
|
} else {
|
||||||
|
global $HTTP_POST_VARS;
|
||||||
|
$maxsize = (isset($HTTP_POST_VARS['MAX_FILE_SIZE'])) ?
|
||||||
|
$HTTP_POST_VARS['MAX_FILE_SIZE'] : null;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (empty($maxsize) || ($maxsize > $ini_size)) {
|
||||||
|
$maxsize = $ini_size;
|
||||||
|
}
|
||||||
|
// XXXXX Add here error messages in your language
|
||||||
|
$this->error_codes = array(
|
||||||
|
'TOO_LARGE' => array(
|
||||||
|
'es' => "Fichero demasiado largo. El maximo permitido es: $maxsize bytes.",
|
||||||
|
'en' => "File size too large. The maximum permitted size is: $maxsize bytes.",
|
||||||
|
'de' => "Datei zu groß. Die zulässige Maximalgröße ist: $maxsize Bytes.",
|
||||||
|
'nl' => "Het bestand is te groot, de maximale grootte is: $maxsize bytes.",
|
||||||
|
'fr' => "Le fichier est trop gros. La taille maximum autorisée est: $maxsize bytes.",
|
||||||
|
'it' => "Il file é troppo grande. Il massimo permesso é: $maxsize bytes.",
|
||||||
|
'pt_BR' => "Arquivo muito grande. O tamanho máximo permitido é $maxsize bytes."
|
||||||
|
),
|
||||||
|
'MISSING_DIR' => array(
|
||||||
|
'es' => 'Falta directorio destino.',
|
||||||
|
'en' => 'Missing destination directory.',
|
||||||
|
'de' => 'Kein Zielverzeichnis definiert.',
|
||||||
|
'nl' => 'Geen bestemmings directory.',
|
||||||
|
'fr' => 'Le répertoire de destination n\'est pas défini.',
|
||||||
|
'it' => 'Manca la directory di destinazione.',
|
||||||
|
'pt_BR' => 'Ausência de diretório de destino.'
|
||||||
|
),
|
||||||
|
'IS_NOT_DIR' => array(
|
||||||
|
'es' => 'El directorio destino no existe o es un fichero regular.',
|
||||||
|
'en' => 'The destination directory doesn\'t exist or is a regular file.',
|
||||||
|
'de' => 'Das angebene Zielverzeichnis existiert nicht oder ist eine Datei.',
|
||||||
|
'nl' => 'De doeldirectory bestaat niet, of is een gewoon bestand.',
|
||||||
|
'fr' => 'Le répertoire de destination n\'existe pas ou il s\'agit d\'un fichier régulier.',
|
||||||
|
'it' => 'La directory di destinazione non esiste o é un file.',
|
||||||
|
'pt_BR' => 'O diretório de destino não existe ou é um arquivo.'
|
||||||
|
),
|
||||||
|
'NO_WRITE_PERMS' => array(
|
||||||
|
'es' => 'El directorio destino no tiene permisos de escritura.',
|
||||||
|
'en' => 'The destination directory doesn\'t have write perms.',
|
||||||
|
'de' => 'Fehlende Schreibrechte für das Zielverzeichnis.',
|
||||||
|
'nl' => 'Geen toestemming om te schrijven in de doeldirectory.',
|
||||||
|
'fr' => 'Le répertoire de destination n\'a pas les droits en écriture.',
|
||||||
|
'it' => 'Non si hanno i permessi di scrittura sulla directory di destinazione.',
|
||||||
|
'pt_BR' => 'O diretório de destino não possui permissão para escrita.'
|
||||||
|
),
|
||||||
|
'NO_USER_FILE' => array(
|
||||||
|
'es' => 'No se ha escogido fichero para el upload.',
|
||||||
|
'en' => 'You haven\'t selected any file for uploading.',
|
||||||
|
'de' => 'Es wurde keine Datei für den Upload ausgewählt.',
|
||||||
|
'nl' => 'Er is geen bestand opgegeven om te uploaden.',
|
||||||
|
'fr' => 'Vous n\'avez pas sélectionné de fichier à envoyer.',
|
||||||
|
'it' => 'Nessun file selezionato per l\'upload.',
|
||||||
|
'pt_BR' => 'Nenhum arquivo selecionado para upload.'
|
||||||
|
),
|
||||||
|
'BAD_FORM' => array(
|
||||||
|
'es' => 'El formulario no contiene method="post" enctype="multipart/form-data" requerido.',
|
||||||
|
'en' => 'The html form doesn\'t contain the required method="post" enctype="multipart/form-data".',
|
||||||
|
'de' => 'Das HTML-Formular enthält nicht die Angabe method="post" enctype="multipart/form-data" '.
|
||||||
|
'im >form<-Tag.',
|
||||||
|
'nl' => 'Het HTML-formulier bevat niet de volgende benodigde '.
|
||||||
|
'eigenschappen: method="post" enctype="multipart/form-data".',
|
||||||
|
'fr' => 'Le formulaire HTML ne contient pas les attributs requis : '.
|
||||||
|
' method="post" enctype="multipart/form-data".',
|
||||||
|
'it' => 'Il modulo HTML non contiene gli attributi richiesti: "'.
|
||||||
|
' method="post" enctype="multipart/form-data".',
|
||||||
|
'pt_BR' => 'O formulário HTML não possui o method="post" enctype="multipart/form-data" requerido.'
|
||||||
|
),
|
||||||
|
'E_FAIL_COPY' => array(
|
||||||
|
'es' => 'Fallo al copiar el fichero temporal.',
|
||||||
|
'en' => 'Failed to copy the temporary file.',
|
||||||
|
'de' => 'Temporäre Datei konnte nicht kopiert werden.',
|
||||||
|
'nl' => 'Het tijdelijke bestand kon niet gekopieerd worden.',
|
||||||
|
'fr' => 'L\'enregistrement du fichier temporaire a échoué.',
|
||||||
|
'it' => 'Copia del file temporaneo fallita.',
|
||||||
|
'pt_BR' => 'Falha ao copiar o arquivo temporário.'
|
||||||
|
),
|
||||||
|
'E_FAIL_MOVE' => array(
|
||||||
|
'es' => 'No puedo mover el fichero.',
|
||||||
|
'en' => 'Impossible to move the file.',
|
||||||
|
'de' => 'Datei kann nicht verschoben werden.',
|
||||||
|
'nl' => 'Het bestand kon niet verplaatst worden.',
|
||||||
|
'fr' => 'Impossible de déplacer le fichier.',
|
||||||
|
'pt_BR' => 'Não foi possível mover o arquivo.'
|
||||||
|
),
|
||||||
|
'FILE_EXISTS' => array(
|
||||||
|
'es' => 'El fichero destino ya existe.',
|
||||||
|
'en' => 'The destination file already exists.',
|
||||||
|
'de' => 'Die zu erzeugende Datei existiert bereits.',
|
||||||
|
'nl' => 'Het doelbestand bestaat al.',
|
||||||
|
'fr' => 'Le fichier de destination existe déjà.',
|
||||||
|
'it' => 'File destinazione già esistente.',
|
||||||
|
'pt_BR' => 'O arquivo de destino já existe.'
|
||||||
|
),
|
||||||
|
'CANNOT_OVERWRITE' => array(
|
||||||
|
'es' => 'El fichero destino ya existe y no se puede sobreescribir.',
|
||||||
|
'en' => 'The destination file already exists and could not be overwritten.',
|
||||||
|
'de' => 'Die zu erzeugende Datei existiert bereits und konnte nicht überschrieben werden.',
|
||||||
|
'nl' => 'Het doelbestand bestaat al, en kon niet worden overschreven.',
|
||||||
|
'fr' => 'Le fichier de destination existe déjà et ne peux pas être remplacé.',
|
||||||
|
'it' => 'File destinazione già esistente e non si può sovrascrivere.',
|
||||||
|
'pt_BR' => 'O arquivo de destino já existe e não pôde ser sobrescrito.'
|
||||||
|
),
|
||||||
|
'NOT_ALLOWED_EXTENSION' => array(
|
||||||
|
'es' => 'Extension de fichero no permitida.',
|
||||||
|
'en' => 'File extension not permitted.',
|
||||||
|
'de' => 'Unerlaubte Dateiendung.',
|
||||||
|
'nl' => 'Niet toegestane bestands-extensie.',
|
||||||
|
'fr' => 'Le fichier a une extension non autorisée.',
|
||||||
|
'it' => 'Estensione del File non permessa.',
|
||||||
|
'pt_BR' => 'Extensão de arquivo não permitida.'
|
||||||
|
),
|
||||||
|
'PARTIAL' => array(
|
||||||
|
'es' => 'El fichero fue parcialmente subido',
|
||||||
|
'en' => 'The file was only partially uploaded.',
|
||||||
|
'de' => 'Die Datei wurde unvollständig übertragen.',
|
||||||
|
'nl' => 'Het bestand is slechts gedeeltelijk geupload.',
|
||||||
|
'pt_BR' => 'O arquivo não foi enviado por completo.'
|
||||||
|
),
|
||||||
|
'ERROR' => array(
|
||||||
|
'es' => 'Error en subida:',
|
||||||
|
'en' => 'Upload error:',
|
||||||
|
'de' => 'Fehler beim Upload:',
|
||||||
|
'nl' => 'Upload fout:',
|
||||||
|
'pt_BR' => 'Erro de upload:'
|
||||||
|
),
|
||||||
|
'DEV_NO_DEF_FILE' => array(
|
||||||
|
'es' => 'No está definido en el formulario este nombre de fichero como <input type="file" name=?>.',
|
||||||
|
'en' => 'This filename is not defined in the form as <input type="file" name=?>.',
|
||||||
|
'de' => 'Dieser Dateiname ist im Formular nicht als <input type="file" name=?> definiert.',
|
||||||
|
'nl' => 'Deze bestandsnaam is niett gedefineerd in het formulier als <input type="file" name=?>.'
|
||||||
|
)
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* returns the error code
|
||||||
|
*
|
||||||
|
* @param string $e_code type of error
|
||||||
|
* @return string Error message
|
||||||
|
*/
|
||||||
|
function errorCode($e_code)
|
||||||
|
{
|
||||||
|
if (!empty($this->error_codes[$e_code][$this->lang])) {
|
||||||
|
$msg = $this->html ?
|
||||||
|
html_entity_decode($this->error_codes[$e_code][$this->lang]) :
|
||||||
|
$this->error_codes[$e_code][$this->lang];
|
||||||
|
} else {
|
||||||
|
$msg = $e_code;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!empty($this->error_codes['ERROR'][$this->lang])) {
|
||||||
|
$error = $this->error_codes['ERROR'][$this->lang];
|
||||||
|
} else {
|
||||||
|
$error = $this->error_codes['ERROR']['en'];
|
||||||
|
}
|
||||||
|
return $error.' '.$msg;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Overwrites the PEAR::raiseError method
|
||||||
|
*
|
||||||
|
* @param string $e_code type of error
|
||||||
|
* @return object PEAR_Error a PEAR-Error object
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function raiseError($e_code)
|
||||||
|
{
|
||||||
|
return PEAR::raiseError($this->errorCode($e_code), $e_code);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This class provides an advanced file uploader system
|
||||||
|
* for file uploads made from html forms
|
||||||
|
|
||||||
|
*
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @see http://vulcanonet.com/soft/index.php?pack=uploader
|
||||||
|
* @package HTTP_Upload
|
||||||
|
* @category HTTP
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class HTTP_Upload extends HTTP_Upload_Error
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Contains an array of "uploaded files" objects
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $files = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Contains the desired chmod for uploaded files
|
||||||
|
* @var int
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_chmod = HTTP_UPLOAD_DEFAULT_CHMOD;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor
|
||||||
|
*
|
||||||
|
* @param string $lang Language to use for reporting errors
|
||||||
|
* @see Upload_Error::error_codes
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function HTTP_Upload($lang = null)
|
||||||
|
{
|
||||||
|
$this->HTTP_Upload_Error($lang);
|
||||||
|
if (function_exists('version_compare') &&
|
||||||
|
version_compare(phpversion(), '4.1', 'ge'))
|
||||||
|
{
|
||||||
|
$this->post_files = $_FILES;
|
||||||
|
if (isset($_SERVER['CONTENT_TYPE'])) {
|
||||||
|
$this->content_type = $_SERVER['CONTENT_TYPE'];
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
global $HTTP_POST_FILES, $HTTP_SERVER_VARS;
|
||||||
|
$this->post_files = $HTTP_POST_FILES;
|
||||||
|
if (isset($HTTP_SERVER_VARS['CONTENT_TYPE'])) {
|
||||||
|
$this->content_type = $HTTP_SERVER_VARS['CONTENT_TYPE'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get files
|
||||||
|
*
|
||||||
|
* @param mixed $file If:
|
||||||
|
* - not given, function will return array of upload_file objects
|
||||||
|
* - is int, will return the $file position in upload_file objects array
|
||||||
|
* - is string, will return the upload_file object corresponding
|
||||||
|
* to $file name of the form. For ex:
|
||||||
|
* if form is <input type="file" name="userfile">
|
||||||
|
* to get this file use: $upload->getFiles('userfile')
|
||||||
|
*
|
||||||
|
* @return mixed array or object (see @param $file above) or Pear_Error
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function &getFiles($file = null)
|
||||||
|
{
|
||||||
|
static $is_built = false;
|
||||||
|
//build only once for multiple calls
|
||||||
|
if (!$is_built) {
|
||||||
|
$files = &$this->_buildFiles();
|
||||||
|
if (PEAR::isError($files)) {
|
||||||
|
// there was an error with the form.
|
||||||
|
// Create a faked upload embedding the error
|
||||||
|
$this->files['_error'] = &new HTTP_Upload_File(
|
||||||
|
'_error', null,
|
||||||
|
null, null,
|
||||||
|
null, $files->getCode(),
|
||||||
|
$this->lang, $this->_chmod);
|
||||||
|
} else {
|
||||||
|
$this->files = $files;
|
||||||
|
}
|
||||||
|
$is_built = true;
|
||||||
|
}
|
||||||
|
if ($file !== null) {
|
||||||
|
if (is_int($file)) {
|
||||||
|
$pos = 0;
|
||||||
|
foreach ($this->files as $obj) {
|
||||||
|
if ($pos == $file) {
|
||||||
|
return $obj;
|
||||||
|
}
|
||||||
|
$pos++;
|
||||||
|
}
|
||||||
|
} elseif (is_string($file) && isset($this->files[$file])) {
|
||||||
|
return $this->files[$file];
|
||||||
|
}
|
||||||
|
if (isset($this->files['_error'])) {
|
||||||
|
return $this->files['_error'];
|
||||||
|
} else {
|
||||||
|
// developer didn't specify this name in the form
|
||||||
|
// warn him about it with a faked upload
|
||||||
|
return new HTTP_Upload_File(
|
||||||
|
'_error', null,
|
||||||
|
null, null,
|
||||||
|
null, 'DEV_NO_DEF_FILE',
|
||||||
|
$this->lang);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $this->files;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates the list of the uploaded file
|
||||||
|
*
|
||||||
|
* @return array of HTTP_Upload_File objects for every file
|
||||||
|
*/
|
||||||
|
function &_buildFiles()
|
||||||
|
{
|
||||||
|
// Form method check
|
||||||
|
if (!isset($this->content_type) ||
|
||||||
|
strpos($this->content_type, 'multipart/form-data') !== 0)
|
||||||
|
{
|
||||||
|
return $this->raiseError('BAD_FORM');
|
||||||
|
}
|
||||||
|
// In 4.1 $_FILES isn't initialized when no uploads
|
||||||
|
// XXX (cox) afaik, in >= 4.1 and <= 4.3 only
|
||||||
|
if (function_exists('version_compare') &&
|
||||||
|
version_compare(phpversion(), '4.1', 'ge'))
|
||||||
|
{
|
||||||
|
$error = $this->isMissing();
|
||||||
|
if (PEAR::isError($error)) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// map error codes from 4.2.0 $_FILES['userfile']['error']
|
||||||
|
if (function_exists('version_compare') &&
|
||||||
|
version_compare(phpversion(), '4.2.0', 'ge')) {
|
||||||
|
$uploadError = array(
|
||||||
|
1 => 'TOO_LARGE',
|
||||||
|
2 => 'TOO_LARGE',
|
||||||
|
3 => 'PARTIAL',
|
||||||
|
4 => 'NO_USER_FILE'
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// Parse $_FILES (or $HTTP_POST_FILES)
|
||||||
|
$files = array();
|
||||||
|
foreach ($this->post_files as $userfile => $value) {
|
||||||
|
if (is_array($value['name'])) {
|
||||||
|
foreach ($value['name'] as $key => $val) {
|
||||||
|
$err = $value['error'][$key];
|
||||||
|
if (isset($err) && $err !== 0 && isset($uploadError[$err])) {
|
||||||
|
$error = $uploadError[$err];
|
||||||
|
} else {
|
||||||
|
$error = null;
|
||||||
|
}
|
||||||
|
$name = basename($value['name'][$key]);
|
||||||
|
$tmp_name = $value['tmp_name'][$key];
|
||||||
|
$size = $value['size'][$key];
|
||||||
|
$type = $value['type'][$key];
|
||||||
|
$formname = $userfile . "[$key]";
|
||||||
|
$files[$formname] = new HTTP_Upload_File($name, $tmp_name,
|
||||||
|
$formname, $type, $size, $error, $this->lang, $this->_chmod);
|
||||||
|
}
|
||||||
|
// One file
|
||||||
|
} else {
|
||||||
|
$err = $value['error'];
|
||||||
|
if (isset($err) && $err !== 0 && isset($uploadError[$err])) {
|
||||||
|
$error = $uploadError[$err];
|
||||||
|
} else {
|
||||||
|
$error = null;
|
||||||
|
}
|
||||||
|
$name = basename($value['name']);
|
||||||
|
$tmp_name = $value['tmp_name'];
|
||||||
|
$size = $value['size'];
|
||||||
|
$type = $value['type'];
|
||||||
|
$formname = $userfile;
|
||||||
|
$files[$formname] = new HTTP_Upload_File($name, $tmp_name,
|
||||||
|
$formname, $type, $size, $error, $this->lang, $this->_chmod);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $files;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if the user submited or not some file
|
||||||
|
*
|
||||||
|
* @return mixed False when are files or PEAR_Error when no files
|
||||||
|
* @access public
|
||||||
|
* @see Read the note in the source code about this function
|
||||||
|
*/
|
||||||
|
function isMissing()
|
||||||
|
{
|
||||||
|
if (count($this->post_files) < 1) {
|
||||||
|
return $this->raiseError('NO_USER_FILE');
|
||||||
|
}
|
||||||
|
//we also check if at least one file has more than 0 bytes :)
|
||||||
|
$files = array();
|
||||||
|
$size = 0;
|
||||||
|
foreach ($this->post_files as $userfile => $value) {
|
||||||
|
if (is_array($value['name'])) {
|
||||||
|
foreach ($value['name'] as $key => $val) {
|
||||||
|
$size += $value['size'][$key];
|
||||||
|
}
|
||||||
|
} else { //one file
|
||||||
|
$size = $value['size'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($size == 0) {
|
||||||
|
$this->raiseError('NO_USER_FILE');
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the chmod to be used for uploaded files
|
||||||
|
*
|
||||||
|
* @param int Desired mode
|
||||||
|
*/
|
||||||
|
function setChmod($mode)
|
||||||
|
{
|
||||||
|
$this->_chmod = $mode;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This class provides functions to work with the uploaded file
|
||||||
|
*
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @see http://vulcanonet.com/soft/index.php?pack=uploader
|
||||||
|
* @package HTTP_Upload
|
||||||
|
* @category HTTP
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
class HTTP_Upload_File extends HTTP_Upload_Error
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* If the random seed was initialized before or not
|
||||||
|
* @var boolean;
|
||||||
|
*/
|
||||||
|
var $_seeded = 0;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Assoc array with file properties
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $upload = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* If user haven't selected a mode, by default 'safe' will be used
|
||||||
|
* @var boolean
|
||||||
|
*/
|
||||||
|
var $mode_name_selected = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* It's a common security risk in pages who has the upload dir
|
||||||
|
* under the document root (remember the hack of the Apache web?)
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
* @see HTTP_Upload_File::setValidExtensions()
|
||||||
|
*/
|
||||||
|
var $_extensions_check = array('php', 'phtm', 'phtml', 'php3', 'inc');
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @see HTTP_Upload_File::setValidExtensions()
|
||||||
|
* @var string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_extensions_mode = 'deny';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Contains the desired chmod for uploaded files
|
||||||
|
* @var int
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_chmod = HTTP_UPLOAD_DEFAULT_CHMOD;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor
|
||||||
|
*
|
||||||
|
* @param string $name destination file name
|
||||||
|
* @param string $tmp temp file name
|
||||||
|
* @param string $formname name of the form
|
||||||
|
* @param string $type Mime type of the file
|
||||||
|
* @param string $size size of the file
|
||||||
|
* @param string $error error on upload
|
||||||
|
* @param string $lang used language for errormessages
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function HTTP_Upload_File($name = null, $tmp = null, $formname = null,
|
||||||
|
$type = null, $size = null, $error = null,
|
||||||
|
$lang = null, $chmod = HTTP_UPLOAD_DEFAULT_CHMOD)
|
||||||
|
{
|
||||||
|
$this->HTTP_Upload_Error($lang);
|
||||||
|
$ext = null;
|
||||||
|
|
||||||
|
if (empty($name) || $size == 0) {
|
||||||
|
$error = 'NO_USER_FILE';
|
||||||
|
} elseif ($tmp == 'none') {
|
||||||
|
$error = 'TOO_LARGE';
|
||||||
|
} else {
|
||||||
|
// strpos needed to detect files without extension
|
||||||
|
if (($pos = strrpos($name, '.')) !== false) {
|
||||||
|
$ext = substr($name, $pos + 1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (function_exists('version_compare') &&
|
||||||
|
version_compare(phpversion(), '4.1', 'ge')) {
|
||||||
|
if (isset($_POST['MAX_FILE_SIZE']) &&
|
||||||
|
$size > $_POST['MAX_FILE_SIZE']) {
|
||||||
|
$error = 'TOO_LARGE';
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
global $HTTP_POST_VARS;
|
||||||
|
if (isset($HTTP_POST_VARS['MAX_FILE_SIZE']) &&
|
||||||
|
$size > $HTTP_POST_VARS['MAX_FILE_SIZE']) {
|
||||||
|
$error = 'TOO_LARGE';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->upload = array(
|
||||||
|
'real' => $name,
|
||||||
|
'name' => $name,
|
||||||
|
'form_name' => $formname,
|
||||||
|
'ext' => $ext,
|
||||||
|
'tmp_name' => $tmp,
|
||||||
|
'size' => $size,
|
||||||
|
'type' => $type,
|
||||||
|
'error' => $error
|
||||||
|
);
|
||||||
|
|
||||||
|
$this->_chmod = $chmod;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the name of the destination file
|
||||||
|
*
|
||||||
|
* @param string $mode A valid mode: 'uniq', 'safe' or 'real' or a file name
|
||||||
|
* @param string $prepend A string to prepend to the name
|
||||||
|
* @param string $append A string to append to the name
|
||||||
|
*
|
||||||
|
* @return string The modified name of the destination file
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setName($mode, $prepend = null, $append = null)
|
||||||
|
{
|
||||||
|
switch ($mode) {
|
||||||
|
case 'uniq':
|
||||||
|
$name = $this->nameToUniq();
|
||||||
|
$this->upload['ext'] = $this->nameToSafe($this->upload['ext'], 10);
|
||||||
|
$name .= '.' . $this->upload['ext'];
|
||||||
|
break;
|
||||||
|
case 'safe':
|
||||||
|
$name = $this->nameToSafe($this->upload['real']);
|
||||||
|
if (($pos = strrpos($name, '.')) !== false) {
|
||||||
|
$this->upload['ext'] = substr($name, $pos + 1);
|
||||||
|
} else {
|
||||||
|
$this->upload['ext'] = '';
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 'real':
|
||||||
|
$name = $this->upload['real'];
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$name = $mode;
|
||||||
|
}
|
||||||
|
$this->upload['name'] = $prepend . $name . $append;
|
||||||
|
$this->mode_name_selected = true;
|
||||||
|
return $this->upload['name'];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Unique file names in the form: 9022210413b75410c28bef.html
|
||||||
|
* @see HTTP_Upload_File::setName()
|
||||||
|
*/
|
||||||
|
function nameToUniq()
|
||||||
|
{
|
||||||
|
if (! $this->_seeded) {
|
||||||
|
srand((double) microtime() * 1000000);
|
||||||
|
$this->_seeded = 1;
|
||||||
|
}
|
||||||
|
$uniq = uniqid(rand());
|
||||||
|
return $uniq;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Format a file name to be safe
|
||||||
|
*
|
||||||
|
* @param string $file The string file name
|
||||||
|
* @param int $maxlen Maximun permited string lenght
|
||||||
|
* @return string Formatted file name
|
||||||
|
* @see HTTP_Upload_File::setName()
|
||||||
|
*/
|
||||||
|
function nameToSafe($name, $maxlen=250)
|
||||||
|
{
|
||||||
|
$noalpha = 'ÁÉÍÓÚÝáéíóúýÂÊÎÔÛâêîôûÀÈÌÒÙàèìòùÄËÏÖÜäëïöüÿÃãÕõÅåÑñÇç@°ºª';
|
||||||
|
$alpha = 'AEIOUYaeiouyAEIOUaeiouAEIOUaeiouAEIOUaeiouyAaOoAaNnCcaooa';
|
||||||
|
|
||||||
|
$name = substr($name, 0, $maxlen);
|
||||||
|
$name = strtr($name, $noalpha, $alpha);
|
||||||
|
// not permitted chars are replaced with "_"
|
||||||
|
return preg_replace('/[^a-zA-Z0-9,._\+\()\-]/', '_', $name);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The upload was valid
|
||||||
|
*
|
||||||
|
* @return bool If the file was submitted correctly
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function isValid()
|
||||||
|
{
|
||||||
|
if ($this->upload['error'] === null) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* User haven't submit a file
|
||||||
|
*
|
||||||
|
* @return bool If the user submitted a file or not
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function isMissing()
|
||||||
|
{
|
||||||
|
if ($this->upload['error'] == 'NO_USER_FILE') {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Some error occured during upload (most common due a file size problem,
|
||||||
|
* like max size exceeded or 0 bytes long).
|
||||||
|
* @return bool If there were errors submitting the file (probably
|
||||||
|
* because the file excess the max permitted file size)
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function isError()
|
||||||
|
{
|
||||||
|
if (in_array($this->upload['error'], array('TOO_LARGE', 'BAD_FORM','DEV_NO_DEF_FILE'))) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Moves the uploaded file to its destination directory.
|
||||||
|
*
|
||||||
|
* @param string $dir_dest Destination directory
|
||||||
|
* @param bool $overwrite Overwrite if destination file exists?
|
||||||
|
* @return mixed True on success or Pear_Error object on error
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function moveTo($dir_dest, $overwrite = true)
|
||||||
|
{
|
||||||
|
if (!$this->isValid()) {
|
||||||
|
return $this->raiseError($this->upload['error']);
|
||||||
|
}
|
||||||
|
|
||||||
|
//Valid extensions check
|
||||||
|
if (!$this->_evalValidExtensions()) {
|
||||||
|
return $this->raiseError('NOT_ALLOWED_EXTENSION');
|
||||||
|
}
|
||||||
|
|
||||||
|
$err_code = $this->_chk_dir_dest($dir_dest);
|
||||||
|
if ($err_code !== false) {
|
||||||
|
return $this->raiseError($err_code);
|
||||||
|
}
|
||||||
|
// Use 'safe' mode by default if no other was selected
|
||||||
|
if (!$this->mode_name_selected) {
|
||||||
|
$this->setName('safe');
|
||||||
|
}
|
||||||
|
|
||||||
|
$name_dest = $dir_dest . DIRECTORY_SEPARATOR . $this->upload['name'];
|
||||||
|
|
||||||
|
if (@is_file($name_dest)) {
|
||||||
|
if ($overwrite !== true) {
|
||||||
|
return $this->raiseError('FILE_EXISTS');
|
||||||
|
} elseif (!is_writable($name_dest)) {
|
||||||
|
return $this->raiseError('CANNOT_OVERWRITE');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// copy the file and let php clean the tmp
|
||||||
|
if (!@move_uploaded_file($this->upload['tmp_name'], $name_dest)) {
|
||||||
|
return $this->raiseError('E_FAIL_MOVE');
|
||||||
|
}
|
||||||
|
@chmod($name_dest, $this->_chmod);
|
||||||
|
return $this->getProp('name');
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Check for a valid destination dir
|
||||||
|
*
|
||||||
|
* @param string $dir_dest Destination dir
|
||||||
|
* @return mixed False on no errors or error code on error
|
||||||
|
*/
|
||||||
|
function _chk_dir_dest($dir_dest)
|
||||||
|
{
|
||||||
|
if (!$dir_dest) {
|
||||||
|
return 'MISSING_DIR';
|
||||||
|
}
|
||||||
|
if (!@is_dir ($dir_dest)) {
|
||||||
|
return 'IS_NOT_DIR';
|
||||||
|
}
|
||||||
|
if (!is_writeable ($dir_dest)) {
|
||||||
|
return 'NO_WRITE_PERMS';
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
/**
|
||||||
|
* Retrive properties of the uploaded file
|
||||||
|
* @param string $name The property name. When null an assoc array with
|
||||||
|
* all the properties will be returned
|
||||||
|
* @return mixed A string or array
|
||||||
|
* @see HTTP_Upload_File::HTTP_Upload_File()
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getProp($name = null)
|
||||||
|
{
|
||||||
|
if ($name === null) {
|
||||||
|
return $this->upload;
|
||||||
|
}
|
||||||
|
return $this->upload[$name];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a error message, if a error occured
|
||||||
|
* (deprecated) Use getMessage() instead
|
||||||
|
* @return string a Error message
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function errorMsg()
|
||||||
|
{
|
||||||
|
return $this->errorCode($this->upload['error']);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns a error message, if a error occured
|
||||||
|
* @return string a Error message
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getMessage()
|
||||||
|
{
|
||||||
|
return $this->errorCode($this->upload['error']);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to restrict the valid extensions on file uploads
|
||||||
|
*
|
||||||
|
* @param array $exts File extensions to validate
|
||||||
|
* @param string $mode The type of validation:
|
||||||
|
* 1) 'deny' Will deny only the supplied extensions
|
||||||
|
* 2) 'accept' Will accept only the supplied extensions
|
||||||
|
* as valid
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setValidExtensions($exts, $mode = 'deny')
|
||||||
|
{
|
||||||
|
$this->_extensions_check = $exts;
|
||||||
|
$this->_extensions_mode = $mode;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Evaluates the validity of the extensions set by setValidExtensions
|
||||||
|
*
|
||||||
|
* @return bool False on non valid extension, true if they are valid
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _evalValidExtensions()
|
||||||
|
{
|
||||||
|
$exts = $this->_extensions_check;
|
||||||
|
settype($exts, 'array');
|
||||||
|
if ($this->_extensions_mode == 'deny') {
|
||||||
|
if (in_array($this->getProp('ext'), $exts)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
// mode == 'accept'
|
||||||
|
} else {
|
||||||
|
if (!in_array($this->getProp('ext'), $exts)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,194 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.02 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Chuck Hagenbuch <chuck@horde.org> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Mail.php,v 1.6 2003/06/26 07:05:36 jon Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR's Mail:: interface. Defines the interface for implementing
|
||||||
|
* mailers under the PEAR hierarchy, and provides supporting functions
|
||||||
|
* useful in multiple mailer backends.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @version $Revision: 1.6 $
|
||||||
|
* @package Mail
|
||||||
|
*/
|
||||||
|
class Mail
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Line terminator used for separating header lines.
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $sep = "\r\n";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Provides an interface for generating Mail:: objects of various
|
||||||
|
* types
|
||||||
|
*
|
||||||
|
* @param string $driver The kind of Mail:: object to instantiate.
|
||||||
|
* @param array $params The parameters to pass to the Mail:: object.
|
||||||
|
* @return object Mail a instance of the driver class or if fails a PEAR Error
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function factory($driver, $params = array())
|
||||||
|
{
|
||||||
|
$driver = strtolower($driver);
|
||||||
|
@include_once 'Mail/' . $driver . '.php';
|
||||||
|
$class = 'Mail_' . $driver;
|
||||||
|
if (class_exists($class)) {
|
||||||
|
return new $class($params);
|
||||||
|
} else {
|
||||||
|
return PEAR::raiseError('Unable to find class for driver ' . $driver);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implements Mail::send() function using php's built-in mail()
|
||||||
|
* command.
|
||||||
|
*
|
||||||
|
* @param mixed $recipients Either a comma-seperated list of recipients
|
||||||
|
* (RFC822 compliant), or an array of recipients,
|
||||||
|
* each RFC822 valid. This may contain recipients not
|
||||||
|
* specified in the headers, for Bcc:, resending
|
||||||
|
* messages, etc.
|
||||||
|
*
|
||||||
|
* @param array $headers The array of headers to send with the mail, in an
|
||||||
|
* associative array, where the array key is the
|
||||||
|
* header name (ie, 'Subject'), and the array value
|
||||||
|
* is the header value (ie, 'test'). The header
|
||||||
|
* produced from those values would be 'Subject:
|
||||||
|
* test'.
|
||||||
|
*
|
||||||
|
* @param string $body The full text of the message body, including any
|
||||||
|
* Mime parts, etc.
|
||||||
|
*
|
||||||
|
* @return mixed Returns true on success, or a PEAR_Error
|
||||||
|
* containing a descriptive error message on
|
||||||
|
* failure.
|
||||||
|
* @access public
|
||||||
|
* @deprecated use Mail_mail::send instead
|
||||||
|
*/
|
||||||
|
function send($recipients, $headers, $body)
|
||||||
|
{
|
||||||
|
// if we're passed an array of recipients, implode it.
|
||||||
|
if (is_array($recipients)) {
|
||||||
|
$recipients = implode(', ', $recipients);
|
||||||
|
}
|
||||||
|
|
||||||
|
// get the Subject out of the headers array so that we can
|
||||||
|
// pass it as a seperate argument to mail().
|
||||||
|
$subject = '';
|
||||||
|
if (isset($headers['Subject'])) {
|
||||||
|
$subject = $headers['Subject'];
|
||||||
|
unset($headers['Subject']);
|
||||||
|
}
|
||||||
|
|
||||||
|
// flatten the headers out.
|
||||||
|
list(,$text_headers) = Mail::prepareHeaders($headers);
|
||||||
|
|
||||||
|
return mail($recipients, $subject, $body, $text_headers);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Take an array of mail headers and return a string containing
|
||||||
|
* text usable in sending a message.
|
||||||
|
*
|
||||||
|
* @param array $headers The array of headers to prepare, in an associative
|
||||||
|
* array, where the array key is the header name (ie,
|
||||||
|
* 'Subject'), and the array value is the header
|
||||||
|
* value (ie, 'test'). The header produced from those
|
||||||
|
* values would be 'Subject: test'.
|
||||||
|
*
|
||||||
|
* @return mixed Returns false if it encounters a bad address,
|
||||||
|
* otherwise returns an array containing two
|
||||||
|
* elements: Any From: address found in the headers,
|
||||||
|
* and the plain text version of the headers.
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function prepareHeaders($headers)
|
||||||
|
{
|
||||||
|
$lines = array();
|
||||||
|
$from = null;
|
||||||
|
|
||||||
|
foreach ($headers as $key => $value) {
|
||||||
|
if ($key === 'From') {
|
||||||
|
include_once 'Mail/RFC822.php';
|
||||||
|
|
||||||
|
$addresses = Mail_RFC822::parseAddressList($value, 'localhost',
|
||||||
|
false);
|
||||||
|
$from = $addresses[0]->mailbox . '@' . $addresses[0]->host;
|
||||||
|
|
||||||
|
// Reject envelope From: addresses with spaces.
|
||||||
|
if (strstr($from, ' ')) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$lines[] = $key . ': ' . $value;
|
||||||
|
} elseif ($key === 'Received') {
|
||||||
|
// Put Received: headers at the top. Spam detectors often
|
||||||
|
// flag messages with Received: headers after the Subject:
|
||||||
|
// as spam.
|
||||||
|
array_unshift($lines, $key . ': ' . $value);
|
||||||
|
} else {
|
||||||
|
$lines[] = $key . ': ' . $value;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return array($from, join($this->sep, $lines) . $this->sep);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Take a set of recipients and parse them, returning an array of
|
||||||
|
* bare addresses (forward paths) that can be passed to sendmail
|
||||||
|
* or an smtp server with the rcpt to: command.
|
||||||
|
*
|
||||||
|
* @param mixed Either a comma-seperated list of recipients
|
||||||
|
* (RFC822 compliant), or an array of recipients,
|
||||||
|
* each RFC822 valid.
|
||||||
|
*
|
||||||
|
* @return array An array of forward paths (bare addresses).
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function parseRecipients($recipients)
|
||||||
|
{
|
||||||
|
include_once 'Mail/RFC822.php';
|
||||||
|
|
||||||
|
// if we're passed an array, assume addresses are valid and
|
||||||
|
// implode them before parsing.
|
||||||
|
if (is_array($recipients)) {
|
||||||
|
$recipients = implode(', ', $recipients);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Parse recipients, leaving out all personal info. This is
|
||||||
|
// for smtp recipients, etc. All relevant personal information
|
||||||
|
// should already be in the headers.
|
||||||
|
$addresses = Mail_RFC822::parseAddressList($recipients, 'localhost', false);
|
||||||
|
$recipients = array();
|
||||||
|
if (is_array($addresses)) {
|
||||||
|
foreach ($addresses as $ob) {
|
||||||
|
$recipients[] = $ob->mailbox . '@' . $ob->host;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $recipients;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,916 @@
|
||||||
|
<?php
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 2001-2002, Richard Heyes |
|
||||||
|
// | All rights reserved. |
|
||||||
|
// | |
|
||||||
|
// | Redistribution and use in source and binary forms, with or without |
|
||||||
|
// | modification, are permitted provided that the following conditions |
|
||||||
|
// | are met: |
|
||||||
|
// | |
|
||||||
|
// | o Redistributions of source code must retain the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer. |
|
||||||
|
// | o Redistributions in binary form must reproduce the above copyright |
|
||||||
|
// | notice, this list of conditions and the following disclaimer in the |
|
||||||
|
// | documentation and/or other materials provided with the distribution.|
|
||||||
|
// | o The names of the authors may not be used to endorse or promote |
|
||||||
|
// | products derived from this software without specific prior written |
|
||||||
|
// | permission. |
|
||||||
|
// | |
|
||||||
|
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
||||||
|
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
||||||
|
// | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
||||||
|
// | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
||||||
|
// | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
||||||
|
// | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
||||||
|
// | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
||||||
|
// | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
||||||
|
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
||||||
|
// | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
||||||
|
// | |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
// | Authors: Richard Heyes <richard@phpguru.org> |
|
||||||
|
// | Chuck Hagenbuch <chuck@horde.org> |
|
||||||
|
// +-----------------------------------------------------------------------+
|
||||||
|
|
||||||
|
/**
|
||||||
|
* RFC 822 Email address list validation Utility
|
||||||
|
*
|
||||||
|
* What is it?
|
||||||
|
*
|
||||||
|
* This class will take an address string, and parse it into it's consituent
|
||||||
|
* parts, be that either addresses, groups, or combinations. Nested groups
|
||||||
|
* are not supported. The structure it returns is pretty straight forward,
|
||||||
|
* and is similar to that provided by the imap_rfc822_parse_adrlist(). Use
|
||||||
|
* print_r() to view the structure.
|
||||||
|
*
|
||||||
|
* How do I use it?
|
||||||
|
*
|
||||||
|
* $address_string = 'My Group: "Richard" <richard@localhost> (A comment), ted@example.com (Ted Bloggs), Barney;';
|
||||||
|
* $structure = Mail_RFC822::parseAddressList($address_string, 'example.com', true)
|
||||||
|
* print_r($structure);
|
||||||
|
*
|
||||||
|
* @author Richard Heyes <richard@phpguru.org>
|
||||||
|
* @author Chuck Hagenbuch <chuck@horde.org>
|
||||||
|
* @version $Revision: 1.12 $
|
||||||
|
* @license BSD
|
||||||
|
* @package Mail
|
||||||
|
*/
|
||||||
|
|
||||||
|
class Mail_RFC822 {
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The address being parsed by the RFC822 object.
|
||||||
|
* @var string $address
|
||||||
|
*/
|
||||||
|
var $address = '';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The default domain to use for unqualified addresses.
|
||||||
|
* @var string $default_domain
|
||||||
|
*/
|
||||||
|
var $default_domain = 'localhost';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Should we return a nested array showing groups, or flatten everything?
|
||||||
|
* @var boolean $nestGroups
|
||||||
|
*/
|
||||||
|
var $nestGroups = true;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Whether or not to validate atoms for non-ascii characters.
|
||||||
|
* @var boolean $validate
|
||||||
|
*/
|
||||||
|
var $validate = true;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The array of raw addresses built up as we parse.
|
||||||
|
* @var array $addresses
|
||||||
|
*/
|
||||||
|
var $addresses = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The final array of parsed address information that we build up.
|
||||||
|
* @var array $structure
|
||||||
|
*/
|
||||||
|
var $structure = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The current error message, if any.
|
||||||
|
* @var string $error
|
||||||
|
*/
|
||||||
|
var $error = null;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* An internal counter/pointer.
|
||||||
|
* @var integer $index
|
||||||
|
*/
|
||||||
|
var $index = null;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The number of groups that have been found in the address list.
|
||||||
|
* @var integer $num_groups
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
var $num_groups = 0;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A variable so that we can tell whether or not we're inside a
|
||||||
|
* Mail_RFC822 object.
|
||||||
|
* @var boolean $mailRFC822
|
||||||
|
*/
|
||||||
|
var $mailRFC822 = true;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A limit after which processing stops
|
||||||
|
* @var int $limit
|
||||||
|
*/
|
||||||
|
var $limit = null;
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets up the object. The address must either be set here or when
|
||||||
|
* calling parseAddressList(). One or the other.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $address The address(es) to validate.
|
||||||
|
* @param string $default_domain Default domain/host etc. If not supplied, will be set to localhost.
|
||||||
|
* @param boolean $nest_groups Whether to return the structure with groups nested for easier viewing.
|
||||||
|
* @param boolean $validate Whether to validate atoms. Turn this off if you need to run addresses through before encoding the personal names, for instance.
|
||||||
|
*
|
||||||
|
* @return object Mail_RFC822 A new Mail_RFC822 object.
|
||||||
|
*/
|
||||||
|
function Mail_RFC822($address = null, $default_domain = null, $nest_groups = null, $validate = null, $limit = null)
|
||||||
|
{
|
||||||
|
if (isset($address)) $this->address = $address;
|
||||||
|
if (isset($default_domain)) $this->default_domain = $default_domain;
|
||||||
|
if (isset($nest_groups)) $this->nestGroups = $nest_groups;
|
||||||
|
if (isset($validate)) $this->validate = $validate;
|
||||||
|
if (isset($limit)) $this->limit = $limit;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Starts the whole process. The address must either be set here
|
||||||
|
* or when creating the object. One or the other.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $address The address(es) to validate.
|
||||||
|
* @param string $default_domain Default domain/host etc.
|
||||||
|
* @param boolean $nest_groups Whether to return the structure with groups nested for easier viewing.
|
||||||
|
* @param boolean $validate Whether to validate atoms. Turn this off if you need to run addresses through before encoding the personal names, for instance.
|
||||||
|
*
|
||||||
|
* @return array A structured array of addresses.
|
||||||
|
*/
|
||||||
|
function parseAddressList($address = null, $default_domain = null, $nest_groups = null, $validate = null, $limit = null)
|
||||||
|
{
|
||||||
|
|
||||||
|
if (!isset($this->mailRFC822)) {
|
||||||
|
$obj = new Mail_RFC822($address, $default_domain, $nest_groups, $validate, $limit);
|
||||||
|
return $obj->parseAddressList();
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($address)) $this->address = $address;
|
||||||
|
if (isset($default_domain)) $this->default_domain = $default_domain;
|
||||||
|
if (isset($nest_groups)) $this->nestGroups = $nest_groups;
|
||||||
|
if (isset($validate)) $this->validate = $validate;
|
||||||
|
if (isset($limit)) $this->limit = $limit;
|
||||||
|
|
||||||
|
$this->structure = array();
|
||||||
|
$this->addresses = array();
|
||||||
|
$this->error = null;
|
||||||
|
$this->index = null;
|
||||||
|
|
||||||
|
while ($this->address = $this->_splitAddresses($this->address)) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->address === false || isset($this->error)) {
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
return PEAR::raiseError($this->error);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Loop through all the addresses
|
||||||
|
for ($i = 0; $i < count($this->addresses); $i++) {
|
||||||
|
if (($return = $this->_validateAddress($this->addresses[$i])) === false
|
||||||
|
|| isset($this->error)) {
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
return PEAR::raiseError($this->error);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$this->nestGroups) {
|
||||||
|
$this->structure = array_merge($this->structure, $return);
|
||||||
|
} else {
|
||||||
|
$this->structure[] = $return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $this->structure;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Splits an address into seperate addresses.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $address The addresses to split.
|
||||||
|
* @return boolean Success or failure.
|
||||||
|
*/
|
||||||
|
function _splitAddresses($address)
|
||||||
|
{
|
||||||
|
|
||||||
|
if (!empty($this->limit) AND count($this->addresses) == $this->limit) {
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->_isGroup($address) && !isset($this->error)) {
|
||||||
|
$split_char = ';';
|
||||||
|
$is_group = true;
|
||||||
|
} elseif (!isset($this->error)) {
|
||||||
|
$split_char = ',';
|
||||||
|
$is_group = false;
|
||||||
|
} elseif (isset($this->error)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Split the string based on the above ten or so lines.
|
||||||
|
$parts = explode($split_char, $address);
|
||||||
|
$string = $this->_splitCheck($parts, $split_char);
|
||||||
|
|
||||||
|
// If a group...
|
||||||
|
if ($is_group) {
|
||||||
|
// If $string does not contain a colon outside of
|
||||||
|
// brackets/quotes etc then something's fubar.
|
||||||
|
|
||||||
|
// First check there's a colon at all:
|
||||||
|
if (strpos($string, ':') === false) {
|
||||||
|
$this->error = 'Invalid address: ' . $string;
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Now check it's outside of brackets/quotes:
|
||||||
|
if (!$this->_splitCheck(explode(':', $string), ':')) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// We must have a group at this point, so increase the counter:
|
||||||
|
$this->num_groups++;
|
||||||
|
}
|
||||||
|
|
||||||
|
// $string now contains the first full address/group.
|
||||||
|
// Add to the addresses array.
|
||||||
|
$this->addresses[] = array(
|
||||||
|
'address' => trim($string),
|
||||||
|
'group' => $is_group
|
||||||
|
);
|
||||||
|
|
||||||
|
// Remove the now stored address from the initial line, the +1
|
||||||
|
// is to account for the explode character.
|
||||||
|
$address = trim(substr($address, strlen($string) + 1));
|
||||||
|
|
||||||
|
// If the next char is a comma and this was a group, then
|
||||||
|
// there are more addresses, otherwise, if there are any more
|
||||||
|
// chars, then there is another address.
|
||||||
|
if ($is_group && substr($address, 0, 1) == ','){
|
||||||
|
$address = trim(substr($address, 1));
|
||||||
|
return $address;
|
||||||
|
|
||||||
|
} elseif (strlen($address) > 0) {
|
||||||
|
return $address;
|
||||||
|
|
||||||
|
} else {
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
|
||||||
|
// If you got here then something's off
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks for a group at the start of the string.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $address The address to check.
|
||||||
|
* @return boolean Whether or not there is a group at the start of the string.
|
||||||
|
*/
|
||||||
|
function _isGroup($address)
|
||||||
|
{
|
||||||
|
// First comma not in quotes, angles or escaped:
|
||||||
|
$parts = explode(',', $address);
|
||||||
|
$string = $this->_splitCheck($parts, ',');
|
||||||
|
|
||||||
|
// Now we have the first address, we can reliably check for a
|
||||||
|
// group by searching for a colon that's not escaped or in
|
||||||
|
// quotes or angle brackets.
|
||||||
|
if (count($parts = explode(':', $string)) > 1) {
|
||||||
|
$string2 = $this->_splitCheck($parts, ':');
|
||||||
|
return ($string2 !== $string);
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* A common function that will check an exploded string.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param array $parts The exloded string.
|
||||||
|
* @param string $char The char that was exploded on.
|
||||||
|
* @return mixed False if the string contains unclosed quotes/brackets, or the string on success.
|
||||||
|
*/
|
||||||
|
function _splitCheck($parts, $char)
|
||||||
|
{
|
||||||
|
$string = $parts[0];
|
||||||
|
|
||||||
|
for ($i = 0; $i < count($parts); $i++) {
|
||||||
|
if ($this->_hasUnclosedQuotes($string)
|
||||||
|
|| $this->_hasUnclosedBrackets($string, '<>')
|
||||||
|
|| $this->_hasUnclosedBrackets($string, '[]')
|
||||||
|
|| $this->_hasUnclosedBrackets($string, '()')
|
||||||
|
|| substr($string, -1) == '\\') {
|
||||||
|
if (isset($parts[$i + 1])) {
|
||||||
|
$string = $string . $char . $parts[$i + 1];
|
||||||
|
} else {
|
||||||
|
$this->error = 'Invalid address spec. Unclosed bracket or quotes';
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$this->index = $i;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $string;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if a string has an unclosed quotes or not.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $string The string to check.
|
||||||
|
* @return boolean True if there are unclosed quotes inside the string, false otherwise.
|
||||||
|
*/
|
||||||
|
function _hasUnclosedQuotes($string)
|
||||||
|
{
|
||||||
|
$string = explode('"', $string);
|
||||||
|
$string_cnt = count($string);
|
||||||
|
|
||||||
|
for ($i = 0; $i < (count($string) - 1); $i++)
|
||||||
|
if (substr($string[$i], -1) == '\\')
|
||||||
|
$string_cnt--;
|
||||||
|
|
||||||
|
return ($string_cnt % 2 === 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if a string has an unclosed brackets or not. IMPORTANT:
|
||||||
|
* This function handles both angle brackets and square brackets;
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $string The string to check.
|
||||||
|
* @param string $chars The characters to check for.
|
||||||
|
* @return boolean True if there are unclosed brackets inside the string, false otherwise.
|
||||||
|
*/
|
||||||
|
function _hasUnclosedBrackets($string, $chars)
|
||||||
|
{
|
||||||
|
$num_angle_start = substr_count($string, $chars[0]);
|
||||||
|
$num_angle_end = substr_count($string, $chars[1]);
|
||||||
|
|
||||||
|
$this->_hasUnclosedBracketsSub($string, $num_angle_start, $chars[0]);
|
||||||
|
$this->_hasUnclosedBracketsSub($string, $num_angle_end, $chars[1]);
|
||||||
|
|
||||||
|
if ($num_angle_start < $num_angle_end) {
|
||||||
|
$this->error = 'Invalid address spec. Unmatched quote or bracket (' . $chars . ')';
|
||||||
|
return false;
|
||||||
|
} else {
|
||||||
|
return ($num_angle_start > $num_angle_end);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sub function that is used only by hasUnclosedBrackets().
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $string The string to check.
|
||||||
|
* @param integer &$num The number of occurences.
|
||||||
|
* @param string $char The character to count.
|
||||||
|
* @return integer The number of occurences of $char in $string, adjusted for backslashes.
|
||||||
|
*/
|
||||||
|
function _hasUnclosedBracketsSub($string, &$num, $char)
|
||||||
|
{
|
||||||
|
$parts = explode($char, $string);
|
||||||
|
for ($i = 0; $i < count($parts); $i++){
|
||||||
|
if (substr($parts[$i], -1) == '\\' || $this->_hasUnclosedQuotes($parts[$i]))
|
||||||
|
$num--;
|
||||||
|
if (isset($parts[$i + 1]))
|
||||||
|
$parts[$i + 1] = $parts[$i] . $char . $parts[$i + 1];
|
||||||
|
}
|
||||||
|
|
||||||
|
return $num;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to begin checking the address.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $address The address to validate.
|
||||||
|
* @return mixed False on failure, or a structured array of address information on success.
|
||||||
|
*/
|
||||||
|
function _validateAddress($address)
|
||||||
|
{
|
||||||
|
$is_group = false;
|
||||||
|
$addresses = array();
|
||||||
|
|
||||||
|
if ($address['group']) {
|
||||||
|
$is_group = true;
|
||||||
|
|
||||||
|
// Get the group part of the name
|
||||||
|
$parts = explode(':', $address['address']);
|
||||||
|
$groupname = $this->_splitCheck($parts, ':');
|
||||||
|
$structure = array();
|
||||||
|
|
||||||
|
// And validate the group part of the name.
|
||||||
|
if (!$this->_validatePhrase($groupname)){
|
||||||
|
$this->error = 'Group name did not validate.';
|
||||||
|
return false;
|
||||||
|
} else {
|
||||||
|
// Don't include groups if we are not nesting
|
||||||
|
// them. This avoids returning invalid addresses.
|
||||||
|
if ($this->nestGroups) {
|
||||||
|
$structure = new stdClass;
|
||||||
|
$structure->groupname = $groupname;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$address['address'] = ltrim(substr($address['address'], strlen($groupname . ':')));
|
||||||
|
}
|
||||||
|
|
||||||
|
// If a group then split on comma and put into an array.
|
||||||
|
// Otherwise, Just put the whole address in an array.
|
||||||
|
if ($is_group) {
|
||||||
|
while (strlen($address['address']) > 0) {
|
||||||
|
$parts = explode(',', $address['address']);
|
||||||
|
$addresses[] = $this->_splitCheck($parts, ',');
|
||||||
|
$address['address'] = trim(substr($address['address'], strlen(end($addresses) . ',')));
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$addresses[] = $address['address'];
|
||||||
|
}
|
||||||
|
|
||||||
|
// Check that $addresses is set, if address like this:
|
||||||
|
// Groupname:;
|
||||||
|
// Then errors were appearing.
|
||||||
|
if (!count($addresses)){
|
||||||
|
$this->error = 'Empty group.';
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Validate each mailbox.
|
||||||
|
// Format could be one of: name <geezer@domain.com>
|
||||||
|
// geezer@domain.com
|
||||||
|
// geezer
|
||||||
|
// ... or any other format valid by RFC 822.
|
||||||
|
for ($i = 0; $i < count($addresses); $i++) {
|
||||||
|
$addresses[$i] = trim($addresses[$i]);
|
||||||
|
if (!$this->validateMailbox($addresses[$i])) {
|
||||||
|
if (empty($this->error)) {
|
||||||
|
$this->error = 'Validation failed for "' . $addresses[$i] . '"';
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Nested format
|
||||||
|
if ($this->nestGroups) {
|
||||||
|
if ($is_group) {
|
||||||
|
$structure->addresses = $addresses;
|
||||||
|
} else {
|
||||||
|
$structure = $addresses[0];
|
||||||
|
}
|
||||||
|
|
||||||
|
// Flat format
|
||||||
|
} else {
|
||||||
|
if ($is_group) {
|
||||||
|
$structure = array_merge($structure, $addresses);
|
||||||
|
} else {
|
||||||
|
$structure = $addresses;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return $structure;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate a phrase.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $phrase The phrase to check.
|
||||||
|
* @return boolean Success or failure.
|
||||||
|
*/
|
||||||
|
function _validatePhrase($phrase)
|
||||||
|
{
|
||||||
|
// Splits on one or more Tab or space.
|
||||||
|
$parts = preg_split('/[ \\x09]+/', $phrase, -1, PREG_SPLIT_NO_EMPTY);
|
||||||
|
|
||||||
|
$phrase_parts = array();
|
||||||
|
while (count($parts) > 0){
|
||||||
|
$phrase_parts[] = $this->_splitCheck($parts, ' ');
|
||||||
|
for ($i = 0; $i < $this->index + 1; $i++)
|
||||||
|
array_shift($parts);
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < count($phrase_parts); $i++) {
|
||||||
|
// If quoted string:
|
||||||
|
if (substr($phrase_parts[$i], 0, 1) == '"') {
|
||||||
|
if (!$this->_validateQuotedString($phrase_parts[$i])) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Otherwise it's an atom:
|
||||||
|
if (!$this->_validateAtom($phrase_parts[$i])) return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate an atom which from rfc822 is:
|
||||||
|
* atom = 1*<any CHAR except specials, SPACE and CTLs>
|
||||||
|
*
|
||||||
|
* If validation ($this->validate) has been turned off, then
|
||||||
|
* validateAtom() doesn't actually check anything. This is so that you
|
||||||
|
* can split a list of addresses up before encoding personal names
|
||||||
|
* (umlauts, etc.), for example.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $atom The string to check.
|
||||||
|
* @return boolean Success or failure.
|
||||||
|
*/
|
||||||
|
function _validateAtom($atom)
|
||||||
|
{
|
||||||
|
if (!$this->validate) {
|
||||||
|
// Validation has been turned off; assume the atom is okay.
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Check for any char from ASCII 0 - ASCII 127
|
||||||
|
if (!preg_match('/^[\\x00-\\x7E]+$/i', $atom, $matches)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Check for specials:
|
||||||
|
if (preg_match('/[][()<>@,;\\:". ]/', $atom)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Check for control characters (ASCII 0-31):
|
||||||
|
if (preg_match('/[\\x00-\\x1F]+/', $atom)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate quoted string, which is:
|
||||||
|
* quoted-string = <"> *(qtext/quoted-pair) <">
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $qstring The string to check
|
||||||
|
* @return boolean Success or failure.
|
||||||
|
*/
|
||||||
|
function _validateQuotedString($qstring)
|
||||||
|
{
|
||||||
|
// Leading and trailing "
|
||||||
|
$qstring = substr($qstring, 1, -1);
|
||||||
|
|
||||||
|
// Perform check.
|
||||||
|
return !(preg_match('/(.)[\x0D\\\\"]/', $qstring, $matches) && $matches[1] != '\\');
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate a mailbox, which is:
|
||||||
|
* mailbox = addr-spec ; simple address
|
||||||
|
* / phrase route-addr ; name and route-addr
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string &$mailbox The string to check.
|
||||||
|
* @return boolean Success or failure.
|
||||||
|
*/
|
||||||
|
function validateMailbox(&$mailbox)
|
||||||
|
{
|
||||||
|
// A couple of defaults.
|
||||||
|
$phrase = '';
|
||||||
|
$comment = '';
|
||||||
|
$comments = array();
|
||||||
|
|
||||||
|
// Catch any RFC822 comments and store them separately.
|
||||||
|
$_mailbox = $mailbox;
|
||||||
|
while (strlen(trim($_mailbox)) > 0) {
|
||||||
|
$parts = explode('(', $_mailbox);
|
||||||
|
$before_comment = $this->_splitCheck($parts, '(');
|
||||||
|
if ($before_comment != $_mailbox) {
|
||||||
|
// First char should be a (.
|
||||||
|
$comment = substr(str_replace($before_comment, '', $_mailbox), 1);
|
||||||
|
$parts = explode(')', $comment);
|
||||||
|
$comment = $this->_splitCheck($parts, ')');
|
||||||
|
$comments[] = $comment;
|
||||||
|
|
||||||
|
// +1 is for the trailing )
|
||||||
|
$_mailbox = substr($_mailbox, strpos($_mailbox, $comment)+strlen($comment)+1);
|
||||||
|
} else {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($comments as $comment) {
|
||||||
|
$mailbox = str_replace("($comment)", '', $mailbox);
|
||||||
|
}
|
||||||
|
|
||||||
|
$mailbox = trim($mailbox);
|
||||||
|
|
||||||
|
// Check for name + route-addr
|
||||||
|
if (substr($mailbox, -1) == '>' && substr($mailbox, 0, 1) != '<') {
|
||||||
|
$parts = explode('<', $mailbox);
|
||||||
|
$name = $this->_splitCheck($parts, '<');
|
||||||
|
|
||||||
|
$phrase = trim($name);
|
||||||
|
$route_addr = trim(substr($mailbox, strlen($name.'<'), -1));
|
||||||
|
|
||||||
|
if ($this->_validatePhrase($phrase) === false || ($route_addr = $this->_validateRouteAddr($route_addr)) === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Only got addr-spec
|
||||||
|
} else {
|
||||||
|
// First snip angle brackets if present.
|
||||||
|
if (substr($mailbox, 0, 1) == '<' && substr($mailbox, -1) == '>') {
|
||||||
|
$addr_spec = substr($mailbox, 1, -1);
|
||||||
|
} else {
|
||||||
|
$addr_spec = $mailbox;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (($addr_spec = $this->_validateAddrSpec($addr_spec)) === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Construct the object that will be returned.
|
||||||
|
$mbox = new stdClass();
|
||||||
|
|
||||||
|
// Add the phrase (even if empty) and comments
|
||||||
|
$mbox->personal = $phrase;
|
||||||
|
$mbox->comment = isset($comments) ? $comments : array();
|
||||||
|
|
||||||
|
if (isset($route_addr)) {
|
||||||
|
$mbox->mailbox = $route_addr['local_part'];
|
||||||
|
$mbox->host = $route_addr['domain'];
|
||||||
|
$route_addr['adl'] !== '' ? $mbox->adl = $route_addr['adl'] : '';
|
||||||
|
} else {
|
||||||
|
$mbox->mailbox = $addr_spec['local_part'];
|
||||||
|
$mbox->host = $addr_spec['domain'];
|
||||||
|
}
|
||||||
|
|
||||||
|
$mailbox = $mbox;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This function validates a route-addr which is:
|
||||||
|
* route-addr = "<" [route] addr-spec ">"
|
||||||
|
*
|
||||||
|
* Angle brackets have already been removed at the point of
|
||||||
|
* getting to this function.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $route_addr The string to check.
|
||||||
|
* @return mixed False on failure, or an array containing validated address/route information on success.
|
||||||
|
*/
|
||||||
|
function _validateRouteAddr($route_addr)
|
||||||
|
{
|
||||||
|
// Check for colon.
|
||||||
|
if (strpos($route_addr, ':') !== false) {
|
||||||
|
$parts = explode(':', $route_addr);
|
||||||
|
$route = $this->_splitCheck($parts, ':');
|
||||||
|
} else {
|
||||||
|
$route = $route_addr;
|
||||||
|
}
|
||||||
|
|
||||||
|
// If $route is same as $route_addr then the colon was in
|
||||||
|
// quotes or brackets or, of course, non existent.
|
||||||
|
if ($route === $route_addr){
|
||||||
|
unset($route);
|
||||||
|
$addr_spec = $route_addr;
|
||||||
|
if (($addr_spec = $this->_validateAddrSpec($addr_spec)) === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
// Validate route part.
|
||||||
|
if (($route = $this->_validateRoute($route)) === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
$addr_spec = substr($route_addr, strlen($route . ':'));
|
||||||
|
|
||||||
|
// Validate addr-spec part.
|
||||||
|
if (($addr_spec = $this->_validateAddrSpec($addr_spec)) === false) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($route)) {
|
||||||
|
$return['adl'] = $route;
|
||||||
|
} else {
|
||||||
|
$return['adl'] = '';
|
||||||
|
}
|
||||||
|
|
||||||
|
$return = array_merge($return, $addr_spec);
|
||||||
|
return $return;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate a route, which is:
|
||||||
|
* route = 1#("@" domain) ":"
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $route The string to check.
|
||||||
|
* @return mixed False on failure, or the validated $route on success.
|
||||||
|
*/
|
||||||
|
function _validateRoute($route)
|
||||||
|
{
|
||||||
|
// Split on comma.
|
||||||
|
$domains = explode(',', trim($route));
|
||||||
|
|
||||||
|
for ($i = 0; $i < count($domains); $i++) {
|
||||||
|
$domains[$i] = str_replace('@', '', trim($domains[$i]));
|
||||||
|
if (!$this->_validateDomain($domains[$i])) return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $route;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate a domain, though this is not quite what
|
||||||
|
* you expect of a strict internet domain.
|
||||||
|
*
|
||||||
|
* domain = sub-domain *("." sub-domain)
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $domain The string to check.
|
||||||
|
* @return mixed False on failure, or the validated domain on success.
|
||||||
|
*/
|
||||||
|
function _validateDomain($domain)
|
||||||
|
{
|
||||||
|
// Note the different use of $subdomains and $sub_domains
|
||||||
|
$subdomains = explode('.', $domain);
|
||||||
|
|
||||||
|
while (count($subdomains) > 0) {
|
||||||
|
$sub_domains[] = $this->_splitCheck($subdomains, '.');
|
||||||
|
for ($i = 0; $i < $this->index + 1; $i++)
|
||||||
|
array_shift($subdomains);
|
||||||
|
}
|
||||||
|
|
||||||
|
for ($i = 0; $i < count($sub_domains); $i++) {
|
||||||
|
if (!$this->_validateSubdomain(trim($sub_domains[$i])))
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Managed to get here, so return input.
|
||||||
|
return $domain;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate a subdomain:
|
||||||
|
* subdomain = domain-ref / domain-literal
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $subdomain The string to check.
|
||||||
|
* @return boolean Success or failure.
|
||||||
|
*/
|
||||||
|
function _validateSubdomain($subdomain)
|
||||||
|
{
|
||||||
|
if (preg_match('|^\[(.*)]$|', $subdomain, $arr)){
|
||||||
|
if (!$this->_validateDliteral($arr[1])) return false;
|
||||||
|
} else {
|
||||||
|
if (!$this->_validateAtom($subdomain)) return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Got here, so return successful.
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate a domain literal:
|
||||||
|
* domain-literal = "[" *(dtext / quoted-pair) "]"
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $dliteral The string to check.
|
||||||
|
* @return boolean Success or failure.
|
||||||
|
*/
|
||||||
|
function _validateDliteral($dliteral)
|
||||||
|
{
|
||||||
|
return !preg_match('/(.)[][\x0D\\\\]/', $dliteral, $matches) && $matches[1] != '\\';
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate an addr-spec.
|
||||||
|
*
|
||||||
|
* addr-spec = local-part "@" domain
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $addr_spec The string to check.
|
||||||
|
* @return mixed False on failure, or the validated addr-spec on success.
|
||||||
|
*/
|
||||||
|
function _validateAddrSpec($addr_spec)
|
||||||
|
{
|
||||||
|
$addr_spec = trim($addr_spec);
|
||||||
|
|
||||||
|
// Split on @ sign if there is one.
|
||||||
|
if (strpos($addr_spec, '@') !== false) {
|
||||||
|
$parts = explode('@', $addr_spec);
|
||||||
|
$local_part = $this->_splitCheck($parts, '@');
|
||||||
|
$domain = substr($addr_spec, strlen($local_part . '@'));
|
||||||
|
|
||||||
|
// No @ sign so assume the default domain.
|
||||||
|
} else {
|
||||||
|
$local_part = $addr_spec;
|
||||||
|
$domain = $this->default_domain;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (($local_part = $this->_validateLocalPart($local_part)) === false) return false;
|
||||||
|
if (($domain = $this->_validateDomain($domain)) === false) return false;
|
||||||
|
|
||||||
|
// Got here so return successful.
|
||||||
|
return array('local_part' => $local_part, 'domain' => $domain);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Function to validate the local part of an address:
|
||||||
|
* local-part = word *("." word)
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @param string $local_part
|
||||||
|
* @return mixed False on failure, or the validated local part on success.
|
||||||
|
*/
|
||||||
|
function _validateLocalPart($local_part)
|
||||||
|
{
|
||||||
|
$parts = explode('.', $local_part);
|
||||||
|
$words = array();
|
||||||
|
|
||||||
|
// Split the local_part into words.
|
||||||
|
while (count($parts) > 0){
|
||||||
|
$words[] = $this->_splitCheck($parts, '.');
|
||||||
|
for ($i = 0; $i < $this->index + 1; $i++) {
|
||||||
|
array_shift($parts);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Validate each word.
|
||||||
|
for ($i = 0; $i < count($words); $i++) {
|
||||||
|
if ($this->_validatePhrase(trim($words[$i])) === false) return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Managed to get here, so return the input.
|
||||||
|
return $local_part;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns an approximate count of how many addresses are
|
||||||
|
* in the given string. This is APPROXIMATE as it only splits
|
||||||
|
* based on a comma which has no preceding backslash. Could be
|
||||||
|
* useful as large amounts of addresses will end up producing
|
||||||
|
* *large* structures when used with parseAddressList().
|
||||||
|
*
|
||||||
|
* @param string $data Addresses to count
|
||||||
|
* @return int Approximate count
|
||||||
|
*/
|
||||||
|
function approximateCount($data)
|
||||||
|
{
|
||||||
|
return count(preg_split('/(?<!\\\\),/', $data));
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This is a email validating function seperate to the rest
|
||||||
|
* of the class. It simply validates whether an email is of
|
||||||
|
* the common internet form: <user>@<domain>. This can be
|
||||||
|
* sufficient for most people. Optional stricter mode can
|
||||||
|
* be utilised which restricts mailbox characters allowed
|
||||||
|
* to alphanumeric, full stop, hyphen and underscore.
|
||||||
|
*
|
||||||
|
* @param string $data Address to check
|
||||||
|
* @param boolean $strict Optional stricter mode
|
||||||
|
* @return mixed False if it fails, an indexed array
|
||||||
|
* username/domain if it matches
|
||||||
|
*/
|
||||||
|
function isValidInetAddress($data, $strict = false)
|
||||||
|
{
|
||||||
|
$regex = $strict ? '/^([.0-9a-z_-]+)@(([0-9a-z-]+\.)+[0-9a-z]{2,4})$/i' : '/^([*+!.&#$|\'\\%\/0-9a-z^_`{}=?~:-]+)@(([0-9a-z-]+\.)+[0-9a-z]{2,4})$/i';
|
||||||
|
if (preg_match($regex, trim($data), $matches)) {
|
||||||
|
return array($matches[1], $matches[2]);
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,126 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.02 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Chuck Hagenbuch <chuck@horde.org> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: mail.php,v 1.9 2004/04/06 05:19:03 jon Exp $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* internal PHP-mail() implementation of the PEAR Mail:: interface.
|
||||||
|
* @package Mail
|
||||||
|
* @version $Revision: 1.9 $
|
||||||
|
*/
|
||||||
|
class Mail_mail extends Mail
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* Any arguments to pass to the mail() function.
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $_params = '';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor.
|
||||||
|
*
|
||||||
|
* Instantiates a new Mail_mail:: object based on the parameters
|
||||||
|
* passed in.
|
||||||
|
*
|
||||||
|
* @param string $params Extra arguments for the mail() function.
|
||||||
|
*/
|
||||||
|
function Mail_mail($params = '')
|
||||||
|
{
|
||||||
|
/* The other mail implementations accept parameters as arrays.
|
||||||
|
* In the interest of being consistent, explode an array into
|
||||||
|
* a string of parameter arguments. */
|
||||||
|
if (is_array($params)) {
|
||||||
|
$this->_params = join(' ', $params);
|
||||||
|
} else {
|
||||||
|
$this->_params = $params;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Because the mail() function may pass headers as command
|
||||||
|
* line arguments, we can't guarantee the use of the standard
|
||||||
|
* "\r\n" separator. Instead, we use the system's native line
|
||||||
|
* separator. */
|
||||||
|
$this->sep = (strstr(PHP_OS, 'WIN')) ? "\r\n" : "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implements Mail_mail::send() function using php's built-in mail()
|
||||||
|
* command.
|
||||||
|
*
|
||||||
|
* @param mixed $recipients Either a comma-seperated list of recipients
|
||||||
|
* (RFC822 compliant), or an array of recipients,
|
||||||
|
* each RFC822 valid. This may contain recipients not
|
||||||
|
* specified in the headers, for Bcc:, resending
|
||||||
|
* messages, etc.
|
||||||
|
*
|
||||||
|
* @param array $headers The array of headers to send with the mail, in an
|
||||||
|
* associative array, where the array key is the
|
||||||
|
* header name (ie, 'Subject'), and the array value
|
||||||
|
* is the header value (ie, 'test'). The header
|
||||||
|
* produced from those values would be 'Subject:
|
||||||
|
* test'.
|
||||||
|
*
|
||||||
|
* @param string $body The full text of the message body, including any
|
||||||
|
* Mime parts, etc.
|
||||||
|
*
|
||||||
|
* @return mixed Returns true on success, or a PEAR_Error
|
||||||
|
* containing a descriptive error message on
|
||||||
|
* failure.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function send($recipients, $headers, $body)
|
||||||
|
{
|
||||||
|
// If we're passed an array of recipients, implode it.
|
||||||
|
if (is_array($recipients)) {
|
||||||
|
$recipients = implode(', ', $recipients);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Get the Subject out of the headers array so that we can
|
||||||
|
// pass it as a seperate argument to mail().
|
||||||
|
$subject = '';
|
||||||
|
if (isset($headers['Subject'])) {
|
||||||
|
$subject = $headers['Subject'];
|
||||||
|
unset($headers['Subject']);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Flatten the headers out.
|
||||||
|
list(,$text_headers) = Mail::prepareHeaders($headers);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* We only use mail()'s optional fifth parameter if the additional
|
||||||
|
* parameters have been provided and we're not running in safe mode.
|
||||||
|
*/
|
||||||
|
if (empty($this->_params) || ini_get('safe_mode')) {
|
||||||
|
$result = mail($recipients, $subject, $body, $text_headers);
|
||||||
|
} else {
|
||||||
|
$result = mail($recipients, $subject, $body, $text_headers,
|
||||||
|
$this->_params);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* If the mail() function returned failure, we need to create a
|
||||||
|
* PEAR_Error object and return it instead of the boolean result.
|
||||||
|
*/
|
||||||
|
if ($result === false) {
|
||||||
|
$result = PEAR::raiseError('mail() returned failure',
|
||||||
|
PEAR_MAIL_FAILED);
|
||||||
|
}
|
||||||
|
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,60 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.02 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Phil Kernick <philk@rotfl.com.au> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: null.php,v 1.2 2004/04/06 05:19:03 jon Exp $
|
||||||
|
//
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Null implementation of the PEAR Mail:: interface.
|
||||||
|
* @access public
|
||||||
|
* @package Mail
|
||||||
|
* @version $Revision: 1.2 $
|
||||||
|
*/
|
||||||
|
class Mail_null extends Mail {
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implements Mail_null::send() function. Silently discards all
|
||||||
|
* mail.
|
||||||
|
*
|
||||||
|
* @param mixed $recipients Either a comma-seperated list of recipients
|
||||||
|
* (RFC822 compliant), or an array of recipients,
|
||||||
|
* each RFC822 valid. This may contain recipients not
|
||||||
|
* specified in the headers, for Bcc:, resending
|
||||||
|
* messages, etc.
|
||||||
|
*
|
||||||
|
* @param array $headers The array of headers to send with the mail, in an
|
||||||
|
* associative array, where the array key is the
|
||||||
|
* header name (ie, 'Subject'), and the array value
|
||||||
|
* is the header value (ie, 'test'). The header
|
||||||
|
* produced from those values would be 'Subject:
|
||||||
|
* test'.
|
||||||
|
*
|
||||||
|
* @param string $body The full text of the message body, including any
|
||||||
|
* Mime parts, etc.
|
||||||
|
*
|
||||||
|
* @return mixed Returns true on success, or a PEAR_Error
|
||||||
|
* containing a descriptive error message on
|
||||||
|
* failure.
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function send($recipients, $headers, $body)
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,131 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.02 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Chuck Hagenbuch <chuck@horde.org> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sendmail implementation of the PEAR Mail:: interface.
|
||||||
|
* @access public
|
||||||
|
* @package Mail
|
||||||
|
* @version $Revision: 1.5 $
|
||||||
|
*/
|
||||||
|
class Mail_sendmail extends Mail {
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The location of the sendmail or sendmail wrapper binary on the
|
||||||
|
* filesystem.
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $sendmail_path = '/usr/sbin/sendmail';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Any extra command-line parameters to pass to the sendmail or
|
||||||
|
* sendmail wrapper binary.
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $sendmail_args = '';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor.
|
||||||
|
*
|
||||||
|
* Instantiates a new Mail_sendmail:: object based on the parameters
|
||||||
|
* passed in. It looks for the following parameters:
|
||||||
|
* sendmail_path The location of the sendmail binary on the
|
||||||
|
* filesystem. Defaults to '/usr/sbin/sendmail'.
|
||||||
|
*
|
||||||
|
* sendmail_args Any extra parameters to pass to the sendmail
|
||||||
|
* or sendmail wrapper binary.
|
||||||
|
*
|
||||||
|
* If a parameter is present in the $params array, it replaces the
|
||||||
|
* default.
|
||||||
|
*
|
||||||
|
* @param array $params Hash containing any parameters different from the
|
||||||
|
* defaults.
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function Mail_sendmail($params)
|
||||||
|
{
|
||||||
|
if (isset($params['sendmail_path'])) $this->sendmail_path = $params['sendmail_path'];
|
||||||
|
if (isset($params['sendmail_args'])) $this->sendmail_args = $params['sendmail_args'];
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Because we need to pass message headers to the sendmail program on
|
||||||
|
* the commandline, we can't guarantee the use of the standard "\r\n"
|
||||||
|
* separator. Instead, we use the system's native line separator.
|
||||||
|
*/
|
||||||
|
$this->sep = (strstr(PHP_OS, 'WIN')) ? "\r\n" : "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implements Mail::send() function using the sendmail
|
||||||
|
* command-line binary.
|
||||||
|
*
|
||||||
|
* @param mixed $recipients Either a comma-seperated list of recipients
|
||||||
|
* (RFC822 compliant), or an array of recipients,
|
||||||
|
* each RFC822 valid. This may contain recipients not
|
||||||
|
* specified in the headers, for Bcc:, resending
|
||||||
|
* messages, etc.
|
||||||
|
*
|
||||||
|
* @param array $headers The array of headers to send with the mail, in an
|
||||||
|
* associative array, where the array key is the
|
||||||
|
* header name (ie, 'Subject'), and the array value
|
||||||
|
* is the header value (ie, 'test'). The header
|
||||||
|
* produced from those values would be 'Subject:
|
||||||
|
* test'.
|
||||||
|
*
|
||||||
|
* @param string $body The full text of the message body, including any
|
||||||
|
* Mime parts, etc.
|
||||||
|
*
|
||||||
|
* @return mixed Returns true on success, or a PEAR_Error
|
||||||
|
* containing a descriptive error message on
|
||||||
|
* failure.
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function send($recipients, $headers, $body)
|
||||||
|
{
|
||||||
|
$recipients = escapeShellCmd(implode(' ', $this->parseRecipients($recipients)));
|
||||||
|
|
||||||
|
list($from, $text_headers) = $this->prepareHeaders($headers);
|
||||||
|
if (!isset($from)) {
|
||||||
|
return new PEAR_Error('No from address given.');
|
||||||
|
} elseif (strstr($from, ' ') ||
|
||||||
|
strstr($from, ';') ||
|
||||||
|
strstr($from, '&') ||
|
||||||
|
strstr($from, '`')) {
|
||||||
|
return new PEAR_Error('From address specified with dangerous characters.');
|
||||||
|
}
|
||||||
|
|
||||||
|
$result = 0;
|
||||||
|
if (@is_executable($this->sendmail_path)) {
|
||||||
|
$from = escapeShellCmd($from);
|
||||||
|
$mail = popen($this->sendmail_path . (!empty($this->sendmail_args) ? ' ' . $this->sendmail_args : '') . " -f$from -- $recipients", 'w');
|
||||||
|
fputs($mail, $text_headers);
|
||||||
|
fputs($mail, $this->sep); // newline to end the headers section
|
||||||
|
fputs($mail, $body);
|
||||||
|
$result = pclose($mail) >> 8 & 0xFF; // need to shift the pclose result to get the exit code
|
||||||
|
} else {
|
||||||
|
return new PEAR_Error('sendmail [' . $this->sendmail_path . '] not executable');
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($result != 0) {
|
||||||
|
return new PEAR_Error('sendmail returned error code ' . $result);
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,185 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.02 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Chuck Hagenbuch <chuck@horde.org> |
|
||||||
|
// | Jon Parise <jon@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
|
||||||
|
/**
|
||||||
|
* SMTP implementation of the PEAR Mail:: interface. Requires the PEAR
|
||||||
|
* Net_SMTP:: class.
|
||||||
|
* @access public
|
||||||
|
* @package Mail
|
||||||
|
* @version $Revision: 1.13 $
|
||||||
|
*/
|
||||||
|
class Mail_smtp extends Mail {
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The SMTP host to connect to.
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $host = 'localhost';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The port the SMTP server is on.
|
||||||
|
* @var integer
|
||||||
|
*/
|
||||||
|
var $port = 25;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Should SMTP authentication be used?
|
||||||
|
*
|
||||||
|
* This value may be set to true, false or the name of a specific
|
||||||
|
* authentication method.
|
||||||
|
*
|
||||||
|
* If the value is set to true, the Net_SMTP package will attempt to use
|
||||||
|
* the best authentication method advertised by the remote SMTP server.
|
||||||
|
*
|
||||||
|
* @var mixed
|
||||||
|
*/
|
||||||
|
var $auth = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The username to use if the SMTP server requires authentication.
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $username = '';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The password to use if the SMTP server requires authentication.
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $password = '';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Hostname or domain that will be sent to the remote SMTP server in the
|
||||||
|
* HELO / EHLO message.
|
||||||
|
*
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $localhost = 'localhost';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor.
|
||||||
|
*
|
||||||
|
* Instantiates a new Mail_smtp:: object based on the parameters
|
||||||
|
* passed in. It looks for the following parameters:
|
||||||
|
* host The server to connect to. Defaults to localhost.
|
||||||
|
* port The port to connect to. Defaults to 25.
|
||||||
|
* auth SMTP authentication. Defaults to none.
|
||||||
|
* username The username to use for SMTP auth. No default.
|
||||||
|
* password The password to use for SMTP auth. No default.
|
||||||
|
* localhost The local hostname / domain. Defaults to localhost.
|
||||||
|
*
|
||||||
|
* If a parameter is present in the $params array, it replaces the
|
||||||
|
* default.
|
||||||
|
*
|
||||||
|
* @param array Hash containing any parameters different from the
|
||||||
|
* defaults.
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function Mail_smtp($params)
|
||||||
|
{
|
||||||
|
if (isset($params['host'])) $this->host = $params['host'];
|
||||||
|
if (isset($params['port'])) $this->port = $params['port'];
|
||||||
|
if (isset($params['auth'])) $this->auth = $params['auth'];
|
||||||
|
if (isset($params['username'])) $this->username = $params['username'];
|
||||||
|
if (isset($params['password'])) $this->password = $params['password'];
|
||||||
|
if (isset($params['localhost'])) $this->localhost = $params['localhost'];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Implements Mail::send() function using SMTP.
|
||||||
|
*
|
||||||
|
* @param mixed $recipients Either a comma-seperated list of recipients
|
||||||
|
* (RFC822 compliant), or an array of recipients,
|
||||||
|
* each RFC822 valid. This may contain recipients not
|
||||||
|
* specified in the headers, for Bcc:, resending
|
||||||
|
* messages, etc.
|
||||||
|
*
|
||||||
|
* @param array $headers The array of headers to send with the mail, in an
|
||||||
|
* associative array, where the array key is the
|
||||||
|
* header name (e.g., 'Subject'), and the array value
|
||||||
|
* is the header value (e.g., 'test'). The header
|
||||||
|
* produced from those values would be 'Subject:
|
||||||
|
* test'.
|
||||||
|
*
|
||||||
|
* @param string $body The full text of the message body, including any
|
||||||
|
* Mime parts, etc.
|
||||||
|
*
|
||||||
|
* @return mixed Returns true on success, or a PEAR_Error
|
||||||
|
* containing a descriptive error message on
|
||||||
|
* failure.
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function send($recipients, $headers, $body)
|
||||||
|
{
|
||||||
|
include_once 'Net/SMTP.php';
|
||||||
|
|
||||||
|
if (!($smtp = new Net_SMTP($this->host, $this->port, $this->localhost))) {
|
||||||
|
return new PEAR_Error('unable to instantiate Net_SMTP object');
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($smtp->connect())) {
|
||||||
|
return new PEAR_Error('unable to connect to smtp server ' .
|
||||||
|
$this->host . ':' . $this->port);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->auth) {
|
||||||
|
$method = is_string($this->auth) ? $this->auth : '';
|
||||||
|
|
||||||
|
if (PEAR::isError($smtp->auth($this->username, $this->password,
|
||||||
|
$method))) {
|
||||||
|
return new PEAR_Error('unable to authenticate to smtp server');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
list($from, $text_headers) = $this->prepareHeaders($headers);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Since few MTAs are going to allow this header to be forged unless
|
||||||
|
* it's in the MAIL FROM: exchange, we'll use Return-Path instead of
|
||||||
|
* From: if it's set.
|
||||||
|
*/
|
||||||
|
if (!empty($headers['Return-Path'])) {
|
||||||
|
$from = $headers['Return-Path'];
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!isset($from)) {
|
||||||
|
return new PEAR_Error('No from address given');
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($smtp->mailFrom($from))) {
|
||||||
|
return new PEAR_Error('unable to set sender to [' . $from . ']');
|
||||||
|
}
|
||||||
|
|
||||||
|
$recipients = $this->parseRecipients($recipients);
|
||||||
|
foreach($recipients as $recipient) {
|
||||||
|
if (PEAR::isError($res = $smtp->rcptTo($recipient))) {
|
||||||
|
return new PEAR_Error('unable to add recipient [' .
|
||||||
|
$recipient . ']: ' . $res->getMessage());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($smtp->data($text_headers . "\r\n" . $body))) {
|
||||||
|
return new PEAR_Error('unable to send data');
|
||||||
|
}
|
||||||
|
|
||||||
|
$smtp->disconnect();
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,970 @@
|
||||||
|
<?php
|
||||||
|
/* vim: set expandtab softtabstop=4 tabstop=4 shiftwidth=4: */
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.02 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Chuck Hagenbuch <chuck@horde.org> |
|
||||||
|
// | Jon Parise <jon@php.net> |
|
||||||
|
// | Damian Alejandro Fernandez Sosa <damlists@cnba.uba.ar> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
require_once 'Net/Socket.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Provides an implementation of the SMTP protocol using PEAR's
|
||||||
|
* Net_Socket:: class.
|
||||||
|
*
|
||||||
|
* @package Net_SMTP
|
||||||
|
* @author Chuck Hagenbuch <chuck@horde.org>
|
||||||
|
* @author Jon Parise <jon@php.net>
|
||||||
|
* @author Damian Alejandro Fernandez Sosa <damlists@cnba.uba.ar>
|
||||||
|
*
|
||||||
|
* @example basic.php A basic implementation of the Net_SMTP package.
|
||||||
|
*/
|
||||||
|
class Net_SMTP
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* The server to connect to.
|
||||||
|
* @var string
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
var $host = 'localhost';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The port to connect to.
|
||||||
|
* @var int
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
var $port = 25;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The value to give when sending EHLO or HELO.
|
||||||
|
* @var string
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
var $localhost = 'localhost';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* List of supported authentication methods, in preferential order.
|
||||||
|
* @var array
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
var $auth_methods = array('DIGEST-MD5', 'CRAM-MD5', 'LOGIN', 'PLAIN');
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Should debugging output be enabled?
|
||||||
|
* @var boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_debug = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The socket resource being used to connect to the SMTP server.
|
||||||
|
* @var resource
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_socket = null;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The most recent server response code.
|
||||||
|
* @var int
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_code = -1;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The most recent server response arguments.
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_arguments = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Stores detected features of the SMTP server.
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_esmtp = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Instantiates a new Net_SMTP object, overriding any defaults
|
||||||
|
* with parameters that are passed in.
|
||||||
|
*
|
||||||
|
* @param string The server to connect to.
|
||||||
|
* @param int The port to connect to.
|
||||||
|
* @param string The value to give when sending EHLO or HELO.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function Net_SMTP($host = null, $port = null, $localhost = null)
|
||||||
|
{
|
||||||
|
if (isset($host)) $this->host = $host;
|
||||||
|
if (isset($port)) $this->port = $port;
|
||||||
|
if (isset($localhost)) $this->localhost = $localhost;
|
||||||
|
|
||||||
|
$this->_socket = new Net_Socket();
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Include the Auth_SASL package. If the package is not available,
|
||||||
|
* we disable the authentication methods that depend upon it.
|
||||||
|
*/
|
||||||
|
if ((@include_once 'Auth/SASL.php') === false) {
|
||||||
|
$pos = array_search('DIGEST-MD5', $this->auth_methods);
|
||||||
|
unset($this->auth_methods[$pos]);
|
||||||
|
$pos = array_search('CRAM-MD5', $this->auth_methods);
|
||||||
|
unset($this->auth_methods[$pos]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set the value of the debugging flag.
|
||||||
|
*
|
||||||
|
* @param boolean $debug New value for the debugging flag.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function setDebug($debug)
|
||||||
|
{
|
||||||
|
$this->_debug = $debug;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the given string of data to the server.
|
||||||
|
*
|
||||||
|
* @param string $data The string of data to send.
|
||||||
|
*
|
||||||
|
* @return mixed True on success or a PEAR_Error object on failure.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function _send($data)
|
||||||
|
{
|
||||||
|
if ($this->_debug) {
|
||||||
|
echo "DEBUG: Send: $data\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($error = $this->_socket->write($data))) {
|
||||||
|
return new PEAR_Error('Failed to write to socket: ' .
|
||||||
|
$error->getMessage());
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send a command to the server with an optional string of arguments.
|
||||||
|
* A carriage return / linefeed (CRLF) sequence will be appended to each
|
||||||
|
* command string before it is sent to the SMTP server.
|
||||||
|
*
|
||||||
|
* @param string $command The SMTP command to send to the server.
|
||||||
|
* @param string $args A string of optional arguments to append
|
||||||
|
* to the command.
|
||||||
|
*
|
||||||
|
* @return mixed The result of the _send() call.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function _put($command, $args = '')
|
||||||
|
{
|
||||||
|
if (!empty($args)) {
|
||||||
|
return $this->_send($command . ' ' . $args . "\r\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
return $this->_send($command . "\r\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Read a reply from the SMTP server. The reply consists of a response
|
||||||
|
* code and a response message.
|
||||||
|
*
|
||||||
|
* @param mixed $valid The set of valid response codes. These
|
||||||
|
* may be specified as an array of integer
|
||||||
|
* values or as a single integer value.
|
||||||
|
*
|
||||||
|
* @return mixed True if the server returned a valid response code or
|
||||||
|
* a PEAR_Error object is an error condition is reached.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*
|
||||||
|
* @see getResponse
|
||||||
|
*/
|
||||||
|
function _parseResponse($valid)
|
||||||
|
{
|
||||||
|
$this->_code = -1;
|
||||||
|
$this->_arguments = array();
|
||||||
|
|
||||||
|
while ($line = $this->_socket->readLine()) {
|
||||||
|
if ($this->_debug) {
|
||||||
|
echo "DEBUG: Recv: $line\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
/* If we receive an empty line, the connection has been closed. */
|
||||||
|
if (empty($line)) {
|
||||||
|
$this->disconnect();
|
||||||
|
return new PEAR_Error("Connection was unexpectedly closed");
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Read the code and store the rest in the arguments array. */
|
||||||
|
$code = substr($line, 0, 3);
|
||||||
|
$this->_arguments[] = trim(substr($line, 4));
|
||||||
|
|
||||||
|
/* Check the syntax of the response code. */
|
||||||
|
if (is_numeric($code)) {
|
||||||
|
$this->_code = (int)$code;
|
||||||
|
} else {
|
||||||
|
$this->_code = -1;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* If this is not a multiline response, we're done. */
|
||||||
|
if (substr($line, 3, 1) != '-') {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Compare the server's response code with the valid code. */
|
||||||
|
if (is_int($valid) && ($this->_code === $valid)) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* If we were given an array of valid response codes, check each one. */
|
||||||
|
if (is_array($valid)) {
|
||||||
|
foreach ($valid as $valid_code) {
|
||||||
|
if ($this->_code === $valid_code) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return new PEAR_Error("Invalid response code received from server");
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Return a 2-tuple containing the last response from the SMTP server.
|
||||||
|
*
|
||||||
|
* @return array A two-element array: the first element contains the
|
||||||
|
* response code as an integer and the second element
|
||||||
|
* contains the response's arguments as a string.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function getResponse()
|
||||||
|
{
|
||||||
|
return array($this->_code, join("\n", $this->_arguments));
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Attempt to connect to the SMTP server.
|
||||||
|
*
|
||||||
|
* @param int $timeout The timeout value (in seconds) for the
|
||||||
|
* socket connection.
|
||||||
|
* @param bool $persistent Should a persistent socket connection
|
||||||
|
* be used?
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function connect($timeout = null, $persistent = false)
|
||||||
|
{
|
||||||
|
$result = $this->_socket->connect($this->host, $this->port,
|
||||||
|
$persistent, $timeout);
|
||||||
|
if (PEAR::isError($result)) {
|
||||||
|
return new PEAR_Error('Failed to connect socket: ' .
|
||||||
|
$result->getMessage());
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(220))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_negotiate())) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Attempt to disconnect from the SMTP server.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function disconnect()
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('QUIT'))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(221))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_socket->disconnect())) {
|
||||||
|
return new PEAR_Error('Failed to disconnect socket: ' .
|
||||||
|
$error->getMessage());
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Attempt to send the EHLO command and obtain a list of ESMTP
|
||||||
|
* extensions available, and failing that just send HELO.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function _negotiate()
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('EHLO', $this->localhost))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($this->_parseResponse(250))) {
|
||||||
|
/* If we receive a 503 response, we're already authenticated. */
|
||||||
|
if ($this->_code === 503) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* If the EHLO failed, try the simpler HELO command. */
|
||||||
|
if (PEAR::isError($error = $this->_put('HELO', $this->localhost))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($this->_parseResponse(250))) {
|
||||||
|
return new PEAR_Error('HELO was not accepted: ', $this->_code);
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($this->_arguments as $argument) {
|
||||||
|
$verb = strtok($argument, ' ');
|
||||||
|
$arguments = substr($argument, strlen($verb) + 1,
|
||||||
|
strlen($argument) - strlen($verb) - 1);
|
||||||
|
$this->_esmtp[$verb] = $arguments;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Returns the name of the best authentication method that the server
|
||||||
|
* has advertised.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a string containing the name of the best
|
||||||
|
* supported authentication method or a PEAR_Error object
|
||||||
|
* if a failure condition is encountered.
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function _getBestAuthMethod()
|
||||||
|
{
|
||||||
|
$available_methods = explode(' ', $this->_esmtp['AUTH']);
|
||||||
|
|
||||||
|
foreach ($this->auth_methods as $method) {
|
||||||
|
if (in_array($method, $available_methods)) {
|
||||||
|
return $method;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return new PEAR_Error('No supported authentication methods');
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Attempt to do SMTP authentication.
|
||||||
|
*
|
||||||
|
* @param string The userid to authenticate as.
|
||||||
|
* @param string The password to authenticate with.
|
||||||
|
* @param string The requested authentication method. If none is
|
||||||
|
* specified, the best supported method will be used.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function auth($uid, $pwd , $method = '')
|
||||||
|
{
|
||||||
|
if (empty($this->_esmtp['AUTH'])) {
|
||||||
|
return new PEAR_Error('SMTP server does no support authentication');
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* If no method has been specified, get the name of the best supported
|
||||||
|
* method advertised by the SMTP server.
|
||||||
|
*/
|
||||||
|
if (empty($method)) {
|
||||||
|
if (PEAR::isError($method = $this->_getBestAuthMethod())) {
|
||||||
|
/* Return the PEAR_Error object from _getBestAuthMethod(). */
|
||||||
|
return $method;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$method = strtoupper($method);
|
||||||
|
if (!in_array($method, $this->auth_methods)) {
|
||||||
|
return new PEAR_Error("$method is not a supported authentication method");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
switch ($method) {
|
||||||
|
case 'DIGEST-MD5':
|
||||||
|
$result = $this->_authDigest_MD5($uid, $pwd);
|
||||||
|
break;
|
||||||
|
case 'CRAM-MD5':
|
||||||
|
$result = $this->_authCRAM_MD5($uid, $pwd);
|
||||||
|
break;
|
||||||
|
case 'LOGIN':
|
||||||
|
$result = $this->_authLogin($uid, $pwd);
|
||||||
|
break;
|
||||||
|
case 'PLAIN':
|
||||||
|
$result = $this->_authPlain($uid, $pwd);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$result = new PEAR_Error("$method is not a supported authentication method");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* If an error was encountered, return the PEAR_Error object. */
|
||||||
|
if (PEAR::isError($result)) {
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* RFC-2554 requires us to re-negotiate ESMTP after an AUTH. */
|
||||||
|
if (PEAR::isError($error = $this->_negotiate())) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Authenticates the user using the DIGEST-MD5 method.
|
||||||
|
*
|
||||||
|
* @param string The userid to authenticate as.
|
||||||
|
* @param string The password to authenticate with.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function _authDigest_MD5($uid, $pwd)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('AUTH', 'DIGEST-MD5'))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
/* 334: Continue authentication request */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(334))) {
|
||||||
|
/* 503: Error: already authenticated */
|
||||||
|
if ($this->_code === 503) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
$challenge = base64_decode($this->_arguments[0]);
|
||||||
|
$digest = &Auth_SASL::factory('digestmd5');
|
||||||
|
$auth_str = base64_encode($digest->getResponse($uid, $pwd, $challenge,
|
||||||
|
$this->host, "smtp"));
|
||||||
|
|
||||||
|
if (PEAR::isError($error = $this->_put($auth_str))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
/* 334: Continue authentication request */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(334))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* We don't use the protocol's third step because SMTP doesn't allow
|
||||||
|
* subsequent authentication, so we just silently ignore it.
|
||||||
|
*/
|
||||||
|
if (PEAR::isError($error = $this->_put(' '))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
/* 235: Authentication successful */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(235))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Authenticates the user using the CRAM-MD5 method.
|
||||||
|
*
|
||||||
|
* @param string The userid to authenticate as.
|
||||||
|
* @param string The password to authenticate with.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function _authCRAM_MD5($uid, $pwd)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('AUTH', 'CRAM-MD5'))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
/* 334: Continue authentication request */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(334))) {
|
||||||
|
/* 503: Error: already authenticated */
|
||||||
|
if ($this->_code === 503) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
$challenge = base64_decode($this->_arguments[0]);
|
||||||
|
$cram = &Auth_SASL::factory('crammd5');
|
||||||
|
$auth_str = base64_encode($cram->getResponse($uid, $pwd, $challenge));
|
||||||
|
|
||||||
|
if (PEAR::isError($error = $this->_put($auth_str))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 235: Authentication successful */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(235))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Authenticates the user using the LOGIN method.
|
||||||
|
*
|
||||||
|
* @param string The userid to authenticate as.
|
||||||
|
* @param string The password to authenticate with.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function _authLogin($uid, $pwd)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('AUTH', 'LOGIN'))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
/* 334: Continue authentication request */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(334))) {
|
||||||
|
/* 503: Error: already authenticated */
|
||||||
|
if ($this->_code === 503) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($error = $this->_put(base64_encode($uid)))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
/* 334: Continue authentication request */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(334))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($error = $this->_put(base64_encode($pwd)))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 235: Authentication successful */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(235))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Authenticates the user using the PLAIN method.
|
||||||
|
*
|
||||||
|
* @param string The userid to authenticate as.
|
||||||
|
* @param string The password to authenticate with.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access private
|
||||||
|
* @since 1.1.0
|
||||||
|
*/
|
||||||
|
function _authPlain($uid, $pwd)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('AUTH', 'PLAIN'))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
/* 334: Continue authentication request */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(334))) {
|
||||||
|
/* 503: Error: already authenticated */
|
||||||
|
if ($this->_code === 503) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
$auth_str = base64_encode(chr(0) . $uid . chr(0) . $pwd);
|
||||||
|
|
||||||
|
if (PEAR::isError($error = $this->_put($auth_str))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 235: Authentication successful */
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(235))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the HELO command.
|
||||||
|
*
|
||||||
|
* @param string The domain name to say we are.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function helo($domain)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('HELO', $domain))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the MAIL FROM: command.
|
||||||
|
*
|
||||||
|
* @param string The sender (reverse path) to set.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function mailFrom($sender)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('MAIL', "FROM:<$sender>"))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the RCPT TO: command.
|
||||||
|
*
|
||||||
|
* @param string The recipient (forward path) to add.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function rcptTo($recipient)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('RCPT', "TO:<$recipient>"))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(array(250, 251)))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Quote the data so that it meets SMTP standards.
|
||||||
|
*
|
||||||
|
* This is provided as a separate public function to facilitate easier
|
||||||
|
* overloading for the cases where it is desirable to customize the
|
||||||
|
* quoting behavior.
|
||||||
|
*
|
||||||
|
* @param string The message text to quote. The string must be passed
|
||||||
|
* by reference, and the text will be modified in place.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @since 1.2
|
||||||
|
*/
|
||||||
|
function quotedata(&$data)
|
||||||
|
{
|
||||||
|
/*
|
||||||
|
* Change Unix (\n) and Mac (\r) linefeeds into Internet-standard CRLF
|
||||||
|
* (\r\n) linefeeds.
|
||||||
|
*/
|
||||||
|
$data = preg_replace("/([^\r]{1})\n/", "\\1\r\n", $data);
|
||||||
|
$data = preg_replace("/\n\n/", "\n\r\n", $data);
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Because a single leading period (.) signifies an end to the data,
|
||||||
|
* legitimate leading periods need to be "doubled" (e.g. '..').
|
||||||
|
*/
|
||||||
|
$data = preg_replace("/\n\./", "\n..", $data);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the DATA command.
|
||||||
|
*
|
||||||
|
* @param string The message body to send.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function data($data)
|
||||||
|
{
|
||||||
|
/*
|
||||||
|
* RFC 1870, section 3, subsection 3 states "a value of zero indicates
|
||||||
|
* that no fixed maximum message size is in force". Furthermore, it
|
||||||
|
* says that if "the parameter is omitted no information is conveyed
|
||||||
|
* about the server's fixed maximum message size".
|
||||||
|
*/
|
||||||
|
if (isset($this->_esmtp['SIZE']) && ($this->_esmtp['SIZE'] > 0)) {
|
||||||
|
if (strlen($data) >= $this->_esmtp['SIZE']) {
|
||||||
|
$this->disconnect();
|
||||||
|
return new PEAR_Error('Message size excedes the server limit');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Quote the data based on the SMTP standards. */
|
||||||
|
$this->quotedata($data);
|
||||||
|
|
||||||
|
if (PEAR::isError($error = $this->_put('DATA'))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(354))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (PEAR::isError($this->_send($data . "\r\n.\r\n"))) {
|
||||||
|
return new PEAR_Error('write to socket failed');
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the SEND FROM: command.
|
||||||
|
*
|
||||||
|
* @param string The reverse path to send.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.2.6
|
||||||
|
*/
|
||||||
|
function sendFrom($path)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('SEND', "FROM:<$path>"))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Backwards-compatibility wrapper for sendFrom().
|
||||||
|
*
|
||||||
|
* @param string The reverse path to send.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
* @deprecated 1.2.6
|
||||||
|
*/
|
||||||
|
function send_from($path)
|
||||||
|
{
|
||||||
|
return sendFrom($path);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the SOML FROM: command.
|
||||||
|
*
|
||||||
|
* @param string The reverse path to send.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.2.6
|
||||||
|
*/
|
||||||
|
function somlFrom($path)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('SOML', "FROM:<$path>"))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Backwards-compatibility wrapper for somlFrom().
|
||||||
|
*
|
||||||
|
* @param string The reverse path to send.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
* @deprecated 1.2.6
|
||||||
|
*/
|
||||||
|
function soml_from($path)
|
||||||
|
{
|
||||||
|
return somlFrom($path);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the SAML FROM: command.
|
||||||
|
*
|
||||||
|
* @param string The reverse path to send.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.2.6
|
||||||
|
*/
|
||||||
|
function samlFrom($path)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('SAML', "FROM:<$path>"))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Backwards-compatibility wrapper for samlFrom().
|
||||||
|
*
|
||||||
|
* @param string The reverse path to send.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
* @deprecated 1.2.6
|
||||||
|
*/
|
||||||
|
function saml_from($path)
|
||||||
|
{
|
||||||
|
return samlFrom($path);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the RSET command.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function rset()
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('RSET'))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the VRFY command.
|
||||||
|
*
|
||||||
|
* @param string The string to verify
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function vrfy($string)
|
||||||
|
{
|
||||||
|
/* Note: 251 is also a valid response code */
|
||||||
|
if (PEAR::isError($error = $this->_put('VRFY', $string))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Send the NOOP command.
|
||||||
|
*
|
||||||
|
* @return mixed Returns a PEAR_Error with an error message on any
|
||||||
|
* kind of failure, or true on success.
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function noop()
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error = $this->_put('NOOP'))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($error = $this->_parseResponse(250))) {
|
||||||
|
return $error;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Backwards-compatibility method. identifySender()'s functionality is
|
||||||
|
* now handled internally.
|
||||||
|
*
|
||||||
|
* @return boolean This method always return true.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @since 1.0
|
||||||
|
*/
|
||||||
|
function identifySender()
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,429 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2002 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Stig Bakken <ssb@fast.no> |
|
||||||
|
// | Chuck Hagenbuch <chuck@horde.org> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Socket.php,v 1.2 2002/04/03 21:49:16 ssb Exp $
|
||||||
|
//
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Generalized Socket class. More docs to be written.
|
||||||
|
*
|
||||||
|
* @version 1.0
|
||||||
|
* @author Stig Bakken <ssb@fast.no>
|
||||||
|
* @author Chuck Hagenbuch <chuck@horde.org>
|
||||||
|
*/
|
||||||
|
class Net_Socket extends PEAR {
|
||||||
|
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/** Socket file pointer. */
|
||||||
|
var $fp = null;
|
||||||
|
|
||||||
|
/** Whether the socket is blocking. */
|
||||||
|
var $blocking = true;
|
||||||
|
|
||||||
|
/** Whether the socket is persistent. */
|
||||||
|
var $persistent = false;
|
||||||
|
|
||||||
|
/** The IP address to connect to. */
|
||||||
|
var $addr = '';
|
||||||
|
|
||||||
|
/** The port number to connect to. */
|
||||||
|
var $port = 0;
|
||||||
|
|
||||||
|
/** Number of seconds to wait on socket connections before
|
||||||
|
assuming there's no more data. */
|
||||||
|
var $timeout = false;
|
||||||
|
|
||||||
|
/** Number of bytes to read at a time in readLine() and
|
||||||
|
readAll(). */
|
||||||
|
var $lineLength = 2048;
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ constructor
|
||||||
|
/**
|
||||||
|
* Constructs a new Net_Socket object.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function Net_Socket() {
|
||||||
|
$this->PEAR();
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ connect()
|
||||||
|
/**
|
||||||
|
* Connect to the specified port. If called when the socket is
|
||||||
|
* already connected, it disconnects and connects again.
|
||||||
|
*
|
||||||
|
* @param $addr string IP address or host name
|
||||||
|
* @param $port int TCP port number
|
||||||
|
* @param $persistent bool (optional) whether the connection is
|
||||||
|
* persistent (kept open between requests by the web server)
|
||||||
|
* @param $timeout int (optional) how long to wait for data
|
||||||
|
* @access public
|
||||||
|
* @return mixed true on success or error object
|
||||||
|
*/
|
||||||
|
function connect($addr, $port, $persistent = null, $timeout = null) {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
@fclose($this->fp);
|
||||||
|
$this->fp = null;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (strspn($addr, '.0123456789') == strlen($addr)) {
|
||||||
|
$this->addr = $addr;
|
||||||
|
} else {
|
||||||
|
$this->addr = gethostbyname($addr);
|
||||||
|
}
|
||||||
|
$this->port = $port % 65536;
|
||||||
|
if ($persistent !== null) {
|
||||||
|
$this->persistent = $persistent;
|
||||||
|
}
|
||||||
|
if ($timeout !== null) {
|
||||||
|
$this->timeout = $timeout;
|
||||||
|
}
|
||||||
|
$openfunc = $this->persistent ? 'pfsockopen' : 'fsockopen';
|
||||||
|
$errno = 0;
|
||||||
|
$errstr = '';
|
||||||
|
if ($this->timeout) {
|
||||||
|
$fp = $openfunc($this->addr, $this->port, $errno, $errstr, $this->timeout);
|
||||||
|
} else {
|
||||||
|
$fp = $openfunc($this->addr, $this->port, $errno, $errstr);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!$fp) {
|
||||||
|
return $this->raiseError($errstr, $errno);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->fp = $fp;
|
||||||
|
|
||||||
|
return $this->setBlocking($this->blocking);
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ disconnect()
|
||||||
|
/**
|
||||||
|
* Disconnects from the peer, closes the socket.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return mixed true on success or an error object otherwise
|
||||||
|
*/
|
||||||
|
function disconnect() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
fclose($this->fp);
|
||||||
|
$this->fp = null;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ isBlocking()
|
||||||
|
/**
|
||||||
|
* Find out if the socket is in blocking mode.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool the current blocking mode.
|
||||||
|
*/
|
||||||
|
function isBlocking() {
|
||||||
|
return $this->blocking;
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ setBlocking()
|
||||||
|
/**
|
||||||
|
* Sets whether the socket connection should be blocking or
|
||||||
|
* not. A read call to a non-blocking socket will return immediately
|
||||||
|
* if there is no data available, whereas it will block until there
|
||||||
|
* is data for blocking sockets.
|
||||||
|
*
|
||||||
|
* @param $mode bool true for blocking sockets, false for nonblocking
|
||||||
|
* @access public
|
||||||
|
* @return mixed true on success or an error object otherwise
|
||||||
|
*/
|
||||||
|
function setBlocking($mode) {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
$this->blocking = $mode;
|
||||||
|
socket_set_blocking($this->fp, $this->blocking);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ setTimeout()
|
||||||
|
/**
|
||||||
|
* Sets the timeout value on socket descriptor,
|
||||||
|
* expressed in the sum of seconds and microseconds
|
||||||
|
*
|
||||||
|
* @param $seconds int seconds
|
||||||
|
* @param $microseconds int microseconds
|
||||||
|
* @access public
|
||||||
|
* @return mixed true on success or an error object otherwise
|
||||||
|
*/
|
||||||
|
function setTimeout($seconds, $microseconds) {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
socket_set_timeout($this->fp, $seconds, $microseconds);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ getStatus()
|
||||||
|
/**
|
||||||
|
* Returns information about an existing socket resource.
|
||||||
|
* Currently returns four entries in the result array:
|
||||||
|
*
|
||||||
|
* <p>
|
||||||
|
* timed_out (bool) - The socket timed out waiting for data<br>
|
||||||
|
* blocked (bool) - The socket was blocked<br>
|
||||||
|
* eof (bool) - Indicates EOF event<br>
|
||||||
|
* unread_bytes (int) - Number of bytes left in the socket buffer<br>
|
||||||
|
* </p>
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return mixed Array containing information about existing socket resource or an error object otherwise
|
||||||
|
*/
|
||||||
|
function getStatus() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
return socket_get_status($this->fp);
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ gets()
|
||||||
|
/**
|
||||||
|
* Get a specified line of data
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return $size bytes of data from the socket, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function gets($size) {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
return fgets($this->fp, $size);
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ read()
|
||||||
|
/**
|
||||||
|
* Read a specified amount of data. This is guaranteed to return,
|
||||||
|
* and has the added benefit of getting everything in one fread()
|
||||||
|
* chunk; if you know the size of the data you're getting
|
||||||
|
* beforehand, this is definitely the way to go.
|
||||||
|
*
|
||||||
|
* @param $size The number of bytes to read from the socket.
|
||||||
|
* @access public
|
||||||
|
* @return $size bytes of data from the socket, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function read($size) {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
return fread($this->fp, $size);
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ write()
|
||||||
|
/**
|
||||||
|
* Write a specified amount of data.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return mixed true on success or an error object otherwise
|
||||||
|
*/
|
||||||
|
function write($data) {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
return fwrite($this->fp, $data);
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ writeLine()
|
||||||
|
/**
|
||||||
|
* Write a line of data to the socket, followed by a trailing "\r\n".
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return mixed fputs result, or an error
|
||||||
|
*/
|
||||||
|
function writeLine ($data) {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
return $this->write($data . "\r\n");
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ eof()
|
||||||
|
/**
|
||||||
|
* Tests for end-of-file on a socket descriptor
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return bool
|
||||||
|
*/
|
||||||
|
function eof() {
|
||||||
|
return (is_resource($this->fp) && feof($this->fp));
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ readByte()
|
||||||
|
/**
|
||||||
|
* Reads a byte of data
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return 1 byte of data from the socket, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function readByte() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
return ord($this->read(1));
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ readWord()
|
||||||
|
/**
|
||||||
|
* Reads a word of data
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return 1 word of data from the socket, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function readWord() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
$buf = $this->read(2);
|
||||||
|
return (ord($buf[0]) + (ord($buf[1]) << 8));
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ readInt()
|
||||||
|
/**
|
||||||
|
* Reads an int of data
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return 1 int of data from the socket, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function readInt() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
$buf = $this->read(4);
|
||||||
|
return (ord($buf[0]) + (ord($buf[1]) << 8) +
|
||||||
|
(ord($buf[2]) << 16) + (ord($buf[3]) << 24));
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ readString()
|
||||||
|
/**
|
||||||
|
* Reads a zeroterminated string of data
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return string, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function readString() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
$string = '';
|
||||||
|
while (($char = $this->read(1)) != "\x00") {
|
||||||
|
$string .= $char;
|
||||||
|
}
|
||||||
|
return $string;
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ readIPAddress()
|
||||||
|
/**
|
||||||
|
* Reads an IP Address and returns it in a dot formated string
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return Dot formated string, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function readIPAddress() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
$buf = $this->read(4);
|
||||||
|
return sprintf("%s.%s.%s.%s", ord($buf[0]), ord($buf[1]),
|
||||||
|
ord($buf[2]), ord($buf[3]));
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ readLine()
|
||||||
|
/**
|
||||||
|
* Read until either the end of the socket or a newline, whichever
|
||||||
|
* comes first. Strips the trailing newline from the returned data.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return All available data up to a newline, without that
|
||||||
|
* newline, or until the end of the socket, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function readLine() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
$line = '';
|
||||||
|
$timeout = time() + $this->timeout;
|
||||||
|
while (!$this->eof() && (!$this->timeout || time() < $timeout)) {
|
||||||
|
$line .= $this->gets($this->lineLength);
|
||||||
|
if (strlen($line) >= 2 &&
|
||||||
|
(substr($line, -2) == "\r\n" ||
|
||||||
|
substr($line, -1) == "\n")) {
|
||||||
|
return rtrim($line);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $line;
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ readAll()
|
||||||
|
/**
|
||||||
|
* Read until the socket closes. THIS FUNCTION WILL NOT EXIT if the
|
||||||
|
* socket is in blocking mode until the socket closes.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return All data until the socket closes, or a PEAR_Error if
|
||||||
|
* not connected.
|
||||||
|
*/
|
||||||
|
function readAll() {
|
||||||
|
if (is_resource($this->fp)) {
|
||||||
|
$data = '';
|
||||||
|
while (!$this->eof())
|
||||||
|
$data .= $this->read($this->lineLength);
|
||||||
|
return $data;
|
||||||
|
}
|
||||||
|
return $this->raiseError("not connected");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,265 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Stig Bakken <ssb@php.net> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Guess.php,v 1.3.6.10 2003/10/24 05:34:16 cellog Exp $
|
||||||
|
|
||||||
|
// {{{ uname examples
|
||||||
|
|
||||||
|
// php_uname() without args returns the same as 'uname -a', or a PHP-custom
|
||||||
|
// string for Windows.
|
||||||
|
// PHP versions prior to 4.3 return the uname of the host where PHP was built,
|
||||||
|
// as of 4.3 it returns the uname of the host running the PHP code.
|
||||||
|
//
|
||||||
|
// PC RedHat Linux 7.1:
|
||||||
|
// Linux host.example.com 2.4.2-2 #1 Sun Apr 8 20:41:30 EDT 2001 i686 unknown
|
||||||
|
//
|
||||||
|
// PC Debian Potato:
|
||||||
|
// Linux host 2.4.17 #2 SMP Tue Feb 12 15:10:04 CET 2002 i686 unknown
|
||||||
|
//
|
||||||
|
// PC FreeBSD 3.3:
|
||||||
|
// FreeBSD host.example.com 3.3-STABLE FreeBSD 3.3-STABLE #0: Mon Feb 21 00:42:31 CET 2000 root@example.com:/usr/src/sys/compile/CONFIG i386
|
||||||
|
//
|
||||||
|
// PC FreeBSD 4.3:
|
||||||
|
// FreeBSD host.example.com 4.3-RELEASE FreeBSD 4.3-RELEASE #1: Mon Jun 25 11:19:43 EDT 2001 root@example.com:/usr/src/sys/compile/CONFIG i386
|
||||||
|
//
|
||||||
|
// PC FreeBSD 4.5:
|
||||||
|
// FreeBSD host.example.com 4.5-STABLE FreeBSD 4.5-STABLE #0: Wed Feb 6 23:59:23 CET 2002 root@example.com:/usr/src/sys/compile/CONFIG i386
|
||||||
|
//
|
||||||
|
// PC FreeBSD 4.5 w/uname from GNU shellutils:
|
||||||
|
// FreeBSD host.example.com 4.5-STABLE FreeBSD 4.5-STABLE #0: Wed Feb i386 unknown
|
||||||
|
//
|
||||||
|
// HP 9000/712 HP-UX 10:
|
||||||
|
// HP-UX iq B.10.10 A 9000/712 2008429113 two-user license
|
||||||
|
//
|
||||||
|
// HP 9000/712 HP-UX 10 w/uname from GNU shellutils:
|
||||||
|
// HP-UX host B.10.10 A 9000/712 unknown
|
||||||
|
//
|
||||||
|
// IBM RS6000/550 AIX 4.3:
|
||||||
|
// AIX host 3 4 000003531C00
|
||||||
|
//
|
||||||
|
// AIX 4.3 w/uname from GNU shellutils:
|
||||||
|
// AIX host 3 4 000003531C00 unknown
|
||||||
|
//
|
||||||
|
// SGI Onyx IRIX 6.5 w/uname from GNU shellutils:
|
||||||
|
// IRIX64 host 6.5 01091820 IP19 mips
|
||||||
|
//
|
||||||
|
// SGI Onyx IRIX 6.5:
|
||||||
|
// IRIX64 host 6.5 01091820 IP19
|
||||||
|
//
|
||||||
|
// SparcStation 20 Solaris 8 w/uname from GNU shellutils:
|
||||||
|
// SunOS host.example.com 5.8 Generic_108528-12 sun4m sparc
|
||||||
|
//
|
||||||
|
// SparcStation 20 Solaris 8:
|
||||||
|
// SunOS host.example.com 5.8 Generic_108528-12 sun4m sparc SUNW,SPARCstation-20
|
||||||
|
//
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
/* TODO:
|
||||||
|
* - define endianness, to allow matchSignature("bigend") etc.
|
||||||
|
*/
|
||||||
|
|
||||||
|
class OS_Guess
|
||||||
|
{
|
||||||
|
var $sysname;
|
||||||
|
var $nodename;
|
||||||
|
var $cpu;
|
||||||
|
var $release;
|
||||||
|
var $extra;
|
||||||
|
|
||||||
|
function OS_Guess($uname = null)
|
||||||
|
{
|
||||||
|
list($this->sysname,
|
||||||
|
$this->release,
|
||||||
|
$this->cpu,
|
||||||
|
$this->extra,
|
||||||
|
$this->nodename) = $this->parseSignature($uname);
|
||||||
|
}
|
||||||
|
|
||||||
|
function parseSignature($uname = null)
|
||||||
|
{
|
||||||
|
static $sysmap = array(
|
||||||
|
'HP-UX' => 'hpux',
|
||||||
|
'IRIX64' => 'irix',
|
||||||
|
// Darwin?
|
||||||
|
);
|
||||||
|
static $cpumap = array(
|
||||||
|
'i586' => 'i386',
|
||||||
|
'i686' => 'i386',
|
||||||
|
);
|
||||||
|
if ($uname === null) {
|
||||||
|
$uname = php_uname();
|
||||||
|
}
|
||||||
|
$parts = split('[[:space:]]+', trim($uname));
|
||||||
|
$n = count($parts);
|
||||||
|
|
||||||
|
$release = $machine = $cpu = '';
|
||||||
|
$sysname = $parts[0];
|
||||||
|
$nodename = $parts[1];
|
||||||
|
$cpu = $parts[$n-1];
|
||||||
|
$extra = '';
|
||||||
|
if ($cpu == 'unknown') {
|
||||||
|
$cpu = $parts[$n-2];
|
||||||
|
}
|
||||||
|
|
||||||
|
switch ($sysname) {
|
||||||
|
case 'AIX':
|
||||||
|
$release = "$parts[3].$parts[2]";
|
||||||
|
break;
|
||||||
|
case 'Windows':
|
||||||
|
switch ($parts[1]) {
|
||||||
|
case '95/98':
|
||||||
|
$release = '9x';
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$release = $parts[1];
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
$cpu = 'i386';
|
||||||
|
break;
|
||||||
|
case 'Linux':
|
||||||
|
$extra = $this->_detectGlibcVersion();
|
||||||
|
// use only the first two digits from the kernel version
|
||||||
|
$release = ereg_replace('^([[:digit:]]+\.[[:digit:]]+).*', '\1', $parts[2]);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$release = ereg_replace('-.*', '', $parts[2]);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if (isset($sysmap[$sysname])) {
|
||||||
|
$sysname = $sysmap[$sysname];
|
||||||
|
} else {
|
||||||
|
$sysname = strtolower($sysname);
|
||||||
|
}
|
||||||
|
if (isset($cpumap[$cpu])) {
|
||||||
|
$cpu = $cpumap[$cpu];
|
||||||
|
}
|
||||||
|
return array($sysname, $release, $cpu, $extra, $nodename);
|
||||||
|
}
|
||||||
|
|
||||||
|
function _detectGlibcVersion()
|
||||||
|
{
|
||||||
|
// Use glibc's <features.h> header file to
|
||||||
|
// get major and minor version number:
|
||||||
|
include_once "System.php";
|
||||||
|
$tmpfile = System::mktemp("glibctest");
|
||||||
|
$fp = fopen($tmpfile, "w");
|
||||||
|
fwrite($fp, "#include <features.h>\n__GLIBC__ __GLIBC_MINOR__\n");
|
||||||
|
fclose($fp);
|
||||||
|
$cpp = popen("/usr/bin/cpp $tmpfile", "r");
|
||||||
|
$major = $minor = 0;
|
||||||
|
while ($line = fgets($cpp, 1024)) {
|
||||||
|
if ($line{0} == '#' || trim($line) == '') {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if (list($major, $minor) = explode(' ', trim($line))) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
pclose($cpp);
|
||||||
|
unlink($tmpfile);
|
||||||
|
if (!($major && $minor) && is_link('/lib/libc.so.6')) {
|
||||||
|
// Let's try reading the libc.so.6 symlink
|
||||||
|
if (ereg('^libc-([.*])\.so$', basename(readlink('/lib/libc.so.6')), $matches)) {
|
||||||
|
list($major, $minor) = explode('.', $matches);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!($major && $minor)) {
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
return "glibc{$major}.{$minor}";
|
||||||
|
}
|
||||||
|
|
||||||
|
function getSignature()
|
||||||
|
{
|
||||||
|
if (empty($this->extra)) {
|
||||||
|
return "{$this->sysname}-{$this->release}-{$this->cpu}";
|
||||||
|
}
|
||||||
|
return "{$this->sysname}-{$this->release}-{$this->cpu}-{$this->extra}";
|
||||||
|
}
|
||||||
|
|
||||||
|
function getSysname()
|
||||||
|
{
|
||||||
|
return $this->sysname;
|
||||||
|
}
|
||||||
|
|
||||||
|
function getNodename()
|
||||||
|
{
|
||||||
|
return $this->nodename;
|
||||||
|
}
|
||||||
|
|
||||||
|
function getCpu()
|
||||||
|
{
|
||||||
|
return $this->cpu;
|
||||||
|
}
|
||||||
|
|
||||||
|
function getRelease()
|
||||||
|
{
|
||||||
|
return $this->release;
|
||||||
|
}
|
||||||
|
|
||||||
|
function getExtra()
|
||||||
|
{
|
||||||
|
return $this->extra;
|
||||||
|
}
|
||||||
|
|
||||||
|
function matchSignature($match)
|
||||||
|
{
|
||||||
|
if (is_array($match)) {
|
||||||
|
$fragments = $match;
|
||||||
|
} else {
|
||||||
|
$fragments = explode('-', $match);
|
||||||
|
}
|
||||||
|
$n = count($fragments);
|
||||||
|
$matches = 0;
|
||||||
|
if ($n > 0) {
|
||||||
|
$matches += $this->_matchFragment($fragments[0], $this->sysname);
|
||||||
|
}
|
||||||
|
if ($n > 1) {
|
||||||
|
$matches += $this->_matchFragment($fragments[1], $this->release);
|
||||||
|
}
|
||||||
|
if ($n > 2) {
|
||||||
|
$matches += $this->_matchFragment($fragments[2], $this->cpu);
|
||||||
|
}
|
||||||
|
if ($n > 3) {
|
||||||
|
$matches += $this->_matchFragment($fragments[3], $this->extra);
|
||||||
|
}
|
||||||
|
return ($matches == $n);
|
||||||
|
}
|
||||||
|
|
||||||
|
function _matchFragment($fragment, $value)
|
||||||
|
{
|
||||||
|
if (strcspn($fragment, '*?') < strlen($fragment)) {
|
||||||
|
$reg = '^' . str_replace(array('*', '?', '/'), array('.*', '.', '\\/'), $fragment) . '$';
|
||||||
|
return eregi($reg, $value);
|
||||||
|
}
|
||||||
|
return ($fragment == '*' || !strcasecmp($fragment, $value));
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local Variables:
|
||||||
|
* indent-tabs-mode: nil
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,975 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PEAR, the PHP Extension and Application Repository |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Sterling Hughes <sterling@php.net> |
|
||||||
|
// | Stig Bakken <ssb@php.net> |
|
||||||
|
// | Tomas V.V.Cox <cox@idecnet.com> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: PEAR.php,v 1.50.2.18 2004/04/03 06:28:46 cellog Exp $
|
||||||
|
//
|
||||||
|
|
||||||
|
define('PEAR_ERROR_RETURN', 1);
|
||||||
|
define('PEAR_ERROR_PRINT', 2);
|
||||||
|
define('PEAR_ERROR_TRIGGER', 4);
|
||||||
|
define('PEAR_ERROR_DIE', 8);
|
||||||
|
define('PEAR_ERROR_CALLBACK', 16);
|
||||||
|
/**
|
||||||
|
* WARNING: obsolete
|
||||||
|
* @deprecated
|
||||||
|
*/
|
||||||
|
define('PEAR_ERROR_EXCEPTION', 32);
|
||||||
|
define('PEAR_ZE2', (function_exists('version_compare') &&
|
||||||
|
version_compare(zend_version(), "2-dev", "ge")));
|
||||||
|
|
||||||
|
if (substr(PHP_OS, 0, 3) == 'WIN') {
|
||||||
|
define('OS_WINDOWS', true);
|
||||||
|
define('OS_UNIX', false);
|
||||||
|
define('PEAR_OS', 'Windows');
|
||||||
|
} else {
|
||||||
|
define('OS_WINDOWS', false);
|
||||||
|
define('OS_UNIX', true);
|
||||||
|
define('PEAR_OS', 'Unix'); // blatant assumption
|
||||||
|
}
|
||||||
|
|
||||||
|
// instant backwards compatibility
|
||||||
|
if (!defined('PATH_SEPARATOR')) {
|
||||||
|
if (OS_WINDOWS) {
|
||||||
|
define('PATH_SEPARATOR', ';');
|
||||||
|
} else {
|
||||||
|
define('PATH_SEPARATOR', ':');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$GLOBALS['_PEAR_default_error_mode'] = PEAR_ERROR_RETURN;
|
||||||
|
$GLOBALS['_PEAR_default_error_options'] = E_USER_NOTICE;
|
||||||
|
$GLOBALS['_PEAR_destructor_object_list'] = array();
|
||||||
|
$GLOBALS['_PEAR_shutdown_funcs'] = array();
|
||||||
|
$GLOBALS['_PEAR_error_handler_stack'] = array();
|
||||||
|
|
||||||
|
ini_set('track_errors', true);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Base class for other PEAR classes. Provides rudimentary
|
||||||
|
* emulation of destructors.
|
||||||
|
*
|
||||||
|
* If you want a destructor in your class, inherit PEAR and make a
|
||||||
|
* destructor method called _yourclassname (same name as the
|
||||||
|
* constructor, but with a "_" prefix). Also, in your constructor you
|
||||||
|
* have to call the PEAR constructor: $this->PEAR();.
|
||||||
|
* The destructor method will be called without parameters. Note that
|
||||||
|
* at in some SAPI implementations (such as Apache), any output during
|
||||||
|
* the request shutdown (in which destructors are called) seems to be
|
||||||
|
* discarded. If you need to get any debug information from your
|
||||||
|
* destructor, use error_log(), syslog() or something similar.
|
||||||
|
*
|
||||||
|
* IMPORTANT! To use the emulated destructors you need to create the
|
||||||
|
* objects by reference: $obj =& new PEAR_child;
|
||||||
|
*
|
||||||
|
* @since PHP 4.0.2
|
||||||
|
* @author Stig Bakken <ssb@php.net>
|
||||||
|
* @see http://pear.php.net/manual/
|
||||||
|
*/
|
||||||
|
class PEAR
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Whether to enable internal debug messages.
|
||||||
|
*
|
||||||
|
* @var bool
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_debug = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default error mode for this object.
|
||||||
|
*
|
||||||
|
* @var int
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_default_error_mode = null;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default error options used for this object when error mode
|
||||||
|
* is PEAR_ERROR_TRIGGER.
|
||||||
|
*
|
||||||
|
* @var int
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_default_error_options = null;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Default error handler (callback) for this object, if error mode is
|
||||||
|
* PEAR_ERROR_CALLBACK.
|
||||||
|
*
|
||||||
|
* @var string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_default_error_handler = '';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Which class to use for error objects.
|
||||||
|
*
|
||||||
|
* @var string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_error_class = 'PEAR_Error';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* An array of expected errors.
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_expected_errors = array();
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Constructor. Registers this object in
|
||||||
|
* $_PEAR_destructor_object_list for destructor emulation if a
|
||||||
|
* destructor object exists.
|
||||||
|
*
|
||||||
|
* @param string $error_class (optional) which class to use for
|
||||||
|
* error objects, defaults to PEAR_Error.
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function PEAR($error_class = null)
|
||||||
|
{
|
||||||
|
$classname = get_class($this);
|
||||||
|
if ($this->_debug) {
|
||||||
|
print "PEAR constructor called, class=$classname\n";
|
||||||
|
}
|
||||||
|
if ($error_class !== null) {
|
||||||
|
$this->_error_class = $error_class;
|
||||||
|
}
|
||||||
|
while ($classname) {
|
||||||
|
$destructor = "_$classname";
|
||||||
|
if (method_exists($this, $destructor)) {
|
||||||
|
global $_PEAR_destructor_object_list;
|
||||||
|
$_PEAR_destructor_object_list[] = &$this;
|
||||||
|
break;
|
||||||
|
} else {
|
||||||
|
$classname = get_parent_class($classname);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ destructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Destructor (the emulated type of...). Does nothing right now,
|
||||||
|
* but is included for forward compatibility, so subclass
|
||||||
|
* destructors should always call it.
|
||||||
|
*
|
||||||
|
* See the note in the class desciption about output from
|
||||||
|
* destructors.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function _PEAR() {
|
||||||
|
if ($this->_debug) {
|
||||||
|
printf("PEAR destructor called, class=%s\n", get_class($this));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getStaticProperty()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* If you have a class that's mostly/entirely static, and you need static
|
||||||
|
* properties, you can use this method to simulate them. Eg. in your method(s)
|
||||||
|
* do this: $myVar = &PEAR::getStaticProperty('myclass', 'myVar');
|
||||||
|
* You MUST use a reference, or they will not persist!
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $class The calling classname, to prevent clashes
|
||||||
|
* @param string $var The variable to retrieve.
|
||||||
|
* @return mixed A reference to the variable. If not set it will be
|
||||||
|
* auto initialised to NULL.
|
||||||
|
*/
|
||||||
|
function &getStaticProperty($class, $var)
|
||||||
|
{
|
||||||
|
static $properties;
|
||||||
|
return $properties[$class][$var];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ registerShutdownFunc()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Use this function to register a shutdown method for static
|
||||||
|
* classes.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param mixed $func The function name (or array of class/method) to call
|
||||||
|
* @param mixed $args The arguments to pass to the function
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function registerShutdownFunc($func, $args = array())
|
||||||
|
{
|
||||||
|
$GLOBALS['_PEAR_shutdown_funcs'][] = array($func, $args);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ isError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Tell whether a value is a PEAR error.
|
||||||
|
*
|
||||||
|
* @param mixed $data the value to test
|
||||||
|
* @param int $code if $data is an error object, return true
|
||||||
|
* only if $code is a string and
|
||||||
|
* $obj->getMessage() == $code or
|
||||||
|
* $code is an integer and $obj->getCode() == $code
|
||||||
|
* @access public
|
||||||
|
* @return bool true if parameter is an error
|
||||||
|
*/
|
||||||
|
function isError($data, $code = null)
|
||||||
|
{
|
||||||
|
if (is_a($data, 'PEAR_Error')) {
|
||||||
|
if (is_null($code)) {
|
||||||
|
return true;
|
||||||
|
} elseif (is_string($code)) {
|
||||||
|
return $data->getMessage() == $code;
|
||||||
|
} else {
|
||||||
|
return $data->getCode() == $code;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ setErrorHandling()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets how errors generated by this object should be handled.
|
||||||
|
* Can be invoked both in objects and statically. If called
|
||||||
|
* statically, setErrorHandling sets the default behaviour for all
|
||||||
|
* PEAR objects. If called in an object, setErrorHandling sets
|
||||||
|
* the default behaviour for that object.
|
||||||
|
*
|
||||||
|
* @param int $mode
|
||||||
|
* One of PEAR_ERROR_RETURN, PEAR_ERROR_PRINT,
|
||||||
|
* PEAR_ERROR_TRIGGER, PEAR_ERROR_DIE,
|
||||||
|
* PEAR_ERROR_CALLBACK or PEAR_ERROR_EXCEPTION.
|
||||||
|
*
|
||||||
|
* @param mixed $options
|
||||||
|
* When $mode is PEAR_ERROR_TRIGGER, this is the error level (one
|
||||||
|
* of E_USER_NOTICE, E_USER_WARNING or E_USER_ERROR).
|
||||||
|
*
|
||||||
|
* When $mode is PEAR_ERROR_CALLBACK, this parameter is expected
|
||||||
|
* to be the callback function or method. A callback
|
||||||
|
* function is a string with the name of the function, a
|
||||||
|
* callback method is an array of two elements: the element
|
||||||
|
* at index 0 is the object, and the element at index 1 is
|
||||||
|
* the name of the method to call in the object.
|
||||||
|
*
|
||||||
|
* When $mode is PEAR_ERROR_PRINT or PEAR_ERROR_DIE, this is
|
||||||
|
* a printf format string used when printing the error
|
||||||
|
* message.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return void
|
||||||
|
* @see PEAR_ERROR_RETURN
|
||||||
|
* @see PEAR_ERROR_PRINT
|
||||||
|
* @see PEAR_ERROR_TRIGGER
|
||||||
|
* @see PEAR_ERROR_DIE
|
||||||
|
* @see PEAR_ERROR_CALLBACK
|
||||||
|
* @see PEAR_ERROR_EXCEPTION
|
||||||
|
*
|
||||||
|
* @since PHP 4.0.5
|
||||||
|
*/
|
||||||
|
|
||||||
|
function setErrorHandling($mode = null, $options = null)
|
||||||
|
{
|
||||||
|
if (isset($this) && is_a($this, 'PEAR')) {
|
||||||
|
$setmode = &$this->_default_error_mode;
|
||||||
|
$setoptions = &$this->_default_error_options;
|
||||||
|
} else {
|
||||||
|
$setmode = &$GLOBALS['_PEAR_default_error_mode'];
|
||||||
|
$setoptions = &$GLOBALS['_PEAR_default_error_options'];
|
||||||
|
}
|
||||||
|
|
||||||
|
switch ($mode) {
|
||||||
|
case PEAR_ERROR_EXCEPTION:
|
||||||
|
case PEAR_ERROR_RETURN:
|
||||||
|
case PEAR_ERROR_PRINT:
|
||||||
|
case PEAR_ERROR_TRIGGER:
|
||||||
|
case PEAR_ERROR_DIE:
|
||||||
|
case null:
|
||||||
|
$setmode = $mode;
|
||||||
|
$setoptions = $options;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case PEAR_ERROR_CALLBACK:
|
||||||
|
$setmode = $mode;
|
||||||
|
// class/object method callback
|
||||||
|
if (is_callable($options)) {
|
||||||
|
$setoptions = $options;
|
||||||
|
} else {
|
||||||
|
trigger_error("invalid error callback", E_USER_WARNING);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
trigger_error("invalid error mode", E_USER_WARNING);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ expectError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This method is used to tell which errors you expect to get.
|
||||||
|
* Expected errors are always returned with error mode
|
||||||
|
* PEAR_ERROR_RETURN. Expected error codes are stored in a stack,
|
||||||
|
* and this method pushes a new element onto it. The list of
|
||||||
|
* expected errors are in effect until they are popped off the
|
||||||
|
* stack with the popExpect() method.
|
||||||
|
*
|
||||||
|
* Note that this method can not be called statically
|
||||||
|
*
|
||||||
|
* @param mixed $code a single error code or an array of error codes to expect
|
||||||
|
*
|
||||||
|
* @return int the new depth of the "expected errors" stack
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function expectError($code = '*')
|
||||||
|
{
|
||||||
|
if (is_array($code)) {
|
||||||
|
array_push($this->_expected_errors, $code);
|
||||||
|
} else {
|
||||||
|
array_push($this->_expected_errors, array($code));
|
||||||
|
}
|
||||||
|
return sizeof($this->_expected_errors);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ popExpect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This method pops one element off the expected error codes
|
||||||
|
* stack.
|
||||||
|
*
|
||||||
|
* @return array the list of error codes that were popped
|
||||||
|
*/
|
||||||
|
function popExpect()
|
||||||
|
{
|
||||||
|
return array_pop($this->_expected_errors);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _checkDelExpect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This method checks unsets an error code if available
|
||||||
|
*
|
||||||
|
* @param mixed error code
|
||||||
|
* @return bool true if the error code was unset, false otherwise
|
||||||
|
* @access private
|
||||||
|
* @since PHP 4.3.0
|
||||||
|
*/
|
||||||
|
function _checkDelExpect($error_code)
|
||||||
|
{
|
||||||
|
$deleted = false;
|
||||||
|
|
||||||
|
foreach ($this->_expected_errors AS $key => $error_array) {
|
||||||
|
if (in_array($error_code, $error_array)) {
|
||||||
|
unset($this->_expected_errors[$key][array_search($error_code, $error_array)]);
|
||||||
|
$deleted = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// clean up empty arrays
|
||||||
|
if (0 == count($this->_expected_errors[$key])) {
|
||||||
|
unset($this->_expected_errors[$key]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $deleted;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ delExpect()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This method deletes all occurences of the specified element from
|
||||||
|
* the expected error codes stack.
|
||||||
|
*
|
||||||
|
* @param mixed $error_code error code that should be deleted
|
||||||
|
* @return mixed list of error codes that were deleted or error
|
||||||
|
* @access public
|
||||||
|
* @since PHP 4.3.0
|
||||||
|
*/
|
||||||
|
function delExpect($error_code)
|
||||||
|
{
|
||||||
|
$deleted = false;
|
||||||
|
|
||||||
|
if ((is_array($error_code) && (0 != count($error_code)))) {
|
||||||
|
// $error_code is a non-empty array here;
|
||||||
|
// we walk through it trying to unset all
|
||||||
|
// values
|
||||||
|
foreach($error_code as $key => $error) {
|
||||||
|
if ($this->_checkDelExpect($error)) {
|
||||||
|
$deleted = true;
|
||||||
|
} else {
|
||||||
|
$deleted = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $deleted ? true : PEAR::raiseError("The expected error you submitted does not exist"); // IMPROVE ME
|
||||||
|
} elseif (!empty($error_code)) {
|
||||||
|
// $error_code comes alone, trying to unset it
|
||||||
|
if ($this->_checkDelExpect($error_code)) {
|
||||||
|
return true;
|
||||||
|
} else {
|
||||||
|
return PEAR::raiseError("The expected error you submitted does not exist"); // IMPROVE ME
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
// $error_code is empty
|
||||||
|
return PEAR::raiseError("The expected error you submitted is empty"); // IMPROVE ME
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ raiseError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This method is a wrapper that returns an instance of the
|
||||||
|
* configured error class with this object's default error
|
||||||
|
* handling applied. If the $mode and $options parameters are not
|
||||||
|
* specified, the object's defaults are used.
|
||||||
|
*
|
||||||
|
* @param mixed $message a text error message or a PEAR error object
|
||||||
|
*
|
||||||
|
* @param int $code a numeric error code (it is up to your class
|
||||||
|
* to define these if you want to use codes)
|
||||||
|
*
|
||||||
|
* @param int $mode One of PEAR_ERROR_RETURN, PEAR_ERROR_PRINT,
|
||||||
|
* PEAR_ERROR_TRIGGER, PEAR_ERROR_DIE,
|
||||||
|
* PEAR_ERROR_CALLBACK, PEAR_ERROR_EXCEPTION.
|
||||||
|
*
|
||||||
|
* @param mixed $options If $mode is PEAR_ERROR_TRIGGER, this parameter
|
||||||
|
* specifies the PHP-internal error level (one of
|
||||||
|
* E_USER_NOTICE, E_USER_WARNING or E_USER_ERROR).
|
||||||
|
* If $mode is PEAR_ERROR_CALLBACK, this
|
||||||
|
* parameter specifies the callback function or
|
||||||
|
* method. In other error modes this parameter
|
||||||
|
* is ignored.
|
||||||
|
*
|
||||||
|
* @param string $userinfo If you need to pass along for example debug
|
||||||
|
* information, this parameter is meant for that.
|
||||||
|
*
|
||||||
|
* @param string $error_class The returned error object will be
|
||||||
|
* instantiated from this class, if specified.
|
||||||
|
*
|
||||||
|
* @param bool $skipmsg If true, raiseError will only pass error codes,
|
||||||
|
* the error message parameter will be dropped.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @return object a PEAR error object
|
||||||
|
* @see PEAR::setErrorHandling
|
||||||
|
* @since PHP 4.0.5
|
||||||
|
*/
|
||||||
|
function raiseError($message = null,
|
||||||
|
$code = null,
|
||||||
|
$mode = null,
|
||||||
|
$options = null,
|
||||||
|
$userinfo = null,
|
||||||
|
$error_class = null,
|
||||||
|
$skipmsg = false)
|
||||||
|
{
|
||||||
|
// The error is yet a PEAR error object
|
||||||
|
if (is_object($message)) {
|
||||||
|
$code = $message->getCode();
|
||||||
|
$userinfo = $message->getUserInfo();
|
||||||
|
$error_class = $message->getType();
|
||||||
|
$message->error_message_prefix = '';
|
||||||
|
$message = $message->getMessage();
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($this) && isset($this->_expected_errors) && sizeof($this->_expected_errors) > 0 && sizeof($exp = end($this->_expected_errors))) {
|
||||||
|
if ($exp[0] == "*" ||
|
||||||
|
(is_int(reset($exp)) && in_array($code, $exp)) ||
|
||||||
|
(is_string(reset($exp)) && in_array($message, $exp))) {
|
||||||
|
$mode = PEAR_ERROR_RETURN;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// No mode given, try global ones
|
||||||
|
if ($mode === null) {
|
||||||
|
// Class error handler
|
||||||
|
if (isset($this) && isset($this->_default_error_mode)) {
|
||||||
|
$mode = $this->_default_error_mode;
|
||||||
|
$options = $this->_default_error_options;
|
||||||
|
// Global error handler
|
||||||
|
} elseif (isset($GLOBALS['_PEAR_default_error_mode'])) {
|
||||||
|
$mode = $GLOBALS['_PEAR_default_error_mode'];
|
||||||
|
$options = $GLOBALS['_PEAR_default_error_options'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($error_class !== null) {
|
||||||
|
$ec = $error_class;
|
||||||
|
} elseif (isset($this) && isset($this->_error_class)) {
|
||||||
|
$ec = $this->_error_class;
|
||||||
|
} else {
|
||||||
|
$ec = 'PEAR_Error';
|
||||||
|
}
|
||||||
|
if ($skipmsg) {
|
||||||
|
return new $ec($code, $mode, $options, $userinfo);
|
||||||
|
} else {
|
||||||
|
return new $ec($message, $code, $mode, $options, $userinfo);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ throwError()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Simpler form of raiseError with fewer options. In most cases
|
||||||
|
* message, code and userinfo are enough.
|
||||||
|
*
|
||||||
|
* @param string $message
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
function throwError($message = null,
|
||||||
|
$code = null,
|
||||||
|
$userinfo = null)
|
||||||
|
{
|
||||||
|
if (isset($this) && is_a($this, 'PEAR')) {
|
||||||
|
return $this->raiseError($message, $code, null, null, $userinfo);
|
||||||
|
} else {
|
||||||
|
return PEAR::raiseError($message, $code, null, null, $userinfo);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ pushErrorHandling()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Push a new error handler on top of the error handler options stack. With this
|
||||||
|
* you can easily override the actual error handler for some code and restore
|
||||||
|
* it later with popErrorHandling.
|
||||||
|
*
|
||||||
|
* @param mixed $mode (same as setErrorHandling)
|
||||||
|
* @param mixed $options (same as setErrorHandling)
|
||||||
|
*
|
||||||
|
* @return bool Always true
|
||||||
|
*
|
||||||
|
* @see PEAR::setErrorHandling
|
||||||
|
*/
|
||||||
|
function pushErrorHandling($mode, $options = null)
|
||||||
|
{
|
||||||
|
$stack = &$GLOBALS['_PEAR_error_handler_stack'];
|
||||||
|
if (isset($this) && is_a($this, 'PEAR')) {
|
||||||
|
$def_mode = &$this->_default_error_mode;
|
||||||
|
$def_options = &$this->_default_error_options;
|
||||||
|
} else {
|
||||||
|
$def_mode = &$GLOBALS['_PEAR_default_error_mode'];
|
||||||
|
$def_options = &$GLOBALS['_PEAR_default_error_options'];
|
||||||
|
}
|
||||||
|
$stack[] = array($def_mode, $def_options);
|
||||||
|
|
||||||
|
if (isset($this) && is_a($this, 'PEAR')) {
|
||||||
|
$this->setErrorHandling($mode, $options);
|
||||||
|
} else {
|
||||||
|
PEAR::setErrorHandling($mode, $options);
|
||||||
|
}
|
||||||
|
$stack[] = array($mode, $options);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ popErrorHandling()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pop the last error handler used
|
||||||
|
*
|
||||||
|
* @return bool Always true
|
||||||
|
*
|
||||||
|
* @see PEAR::pushErrorHandling
|
||||||
|
*/
|
||||||
|
function popErrorHandling()
|
||||||
|
{
|
||||||
|
$stack = &$GLOBALS['_PEAR_error_handler_stack'];
|
||||||
|
array_pop($stack);
|
||||||
|
list($mode, $options) = $stack[sizeof($stack) - 1];
|
||||||
|
array_pop($stack);
|
||||||
|
if (isset($this) && is_a($this, 'PEAR')) {
|
||||||
|
$this->setErrorHandling($mode, $options);
|
||||||
|
} else {
|
||||||
|
PEAR::setErrorHandling($mode, $options);
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ loadExtension()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* OS independant PHP extension load. Remember to take care
|
||||||
|
* on the correct extension name for case sensitive OSes.
|
||||||
|
*
|
||||||
|
* @param string $ext The extension name
|
||||||
|
* @return bool Success or not on the dl() call
|
||||||
|
*/
|
||||||
|
function loadExtension($ext)
|
||||||
|
{
|
||||||
|
if (!extension_loaded($ext)) {
|
||||||
|
// if either returns true dl() will produce a FATAL error, stop that
|
||||||
|
if ((ini_get('enable_dl') != 1) || (ini_get('safe_mode') == 1)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (OS_WINDOWS) {
|
||||||
|
$suffix = '.dll';
|
||||||
|
} elseif (PHP_OS == 'HP-UX') {
|
||||||
|
$suffix = '.sl';
|
||||||
|
} elseif (PHP_OS == 'AIX') {
|
||||||
|
$suffix = '.a';
|
||||||
|
} elseif (PHP_OS == 'OSX') {
|
||||||
|
$suffix = '.bundle';
|
||||||
|
} else {
|
||||||
|
$suffix = '.so';
|
||||||
|
}
|
||||||
|
return @dl('php_'.$ext.$suffix) || @dl($ext.$suffix);
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
// {{{ _PEAR_call_destructors()
|
||||||
|
|
||||||
|
function _PEAR_call_destructors()
|
||||||
|
{
|
||||||
|
global $_PEAR_destructor_object_list;
|
||||||
|
if (is_array($_PEAR_destructor_object_list) &&
|
||||||
|
sizeof($_PEAR_destructor_object_list))
|
||||||
|
{
|
||||||
|
reset($_PEAR_destructor_object_list);
|
||||||
|
while (list($k, $objref) = each($_PEAR_destructor_object_list)) {
|
||||||
|
$classname = get_class($objref);
|
||||||
|
while ($classname) {
|
||||||
|
$destructor = "_$classname";
|
||||||
|
if (method_exists($objref, $destructor)) {
|
||||||
|
$objref->$destructor();
|
||||||
|
break;
|
||||||
|
} else {
|
||||||
|
$classname = get_parent_class($classname);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// Empty the object list to ensure that destructors are
|
||||||
|
// not called more than once.
|
||||||
|
$_PEAR_destructor_object_list = array();
|
||||||
|
}
|
||||||
|
|
||||||
|
// Now call the shutdown functions
|
||||||
|
if (is_array($GLOBALS['_PEAR_shutdown_funcs']) AND !empty($GLOBALS['_PEAR_shutdown_funcs'])) {
|
||||||
|
foreach ($GLOBALS['_PEAR_shutdown_funcs'] as $value) {
|
||||||
|
call_user_func_array($value[0], $value[1]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
class PEAR_Error
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $error_message_prefix = '';
|
||||||
|
var $mode = PEAR_ERROR_RETURN;
|
||||||
|
var $level = E_USER_NOTICE;
|
||||||
|
var $code = -1;
|
||||||
|
var $message = '';
|
||||||
|
var $userinfo = '';
|
||||||
|
var $backtrace = null;
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Error constructor
|
||||||
|
*
|
||||||
|
* @param string $message message
|
||||||
|
*
|
||||||
|
* @param int $code (optional) error code
|
||||||
|
*
|
||||||
|
* @param int $mode (optional) error mode, one of: PEAR_ERROR_RETURN,
|
||||||
|
* PEAR_ERROR_PRINT, PEAR_ERROR_DIE, PEAR_ERROR_TRIGGER,
|
||||||
|
* PEAR_ERROR_CALLBACK or PEAR_ERROR_EXCEPTION
|
||||||
|
*
|
||||||
|
* @param mixed $options (optional) error level, _OR_ in the case of
|
||||||
|
* PEAR_ERROR_CALLBACK, the callback function or object/method
|
||||||
|
* tuple.
|
||||||
|
*
|
||||||
|
* @param string $userinfo (optional) additional user/debug info
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
function PEAR_Error($message = 'unknown error', $code = null,
|
||||||
|
$mode = null, $options = null, $userinfo = null)
|
||||||
|
{
|
||||||
|
if ($mode === null) {
|
||||||
|
$mode = PEAR_ERROR_RETURN;
|
||||||
|
}
|
||||||
|
$this->message = $message;
|
||||||
|
$this->code = $code;
|
||||||
|
$this->mode = $mode;
|
||||||
|
$this->userinfo = $userinfo;
|
||||||
|
if (function_exists("debug_backtrace")) {
|
||||||
|
$this->backtrace = debug_backtrace();
|
||||||
|
}
|
||||||
|
if ($mode & PEAR_ERROR_CALLBACK) {
|
||||||
|
$this->level = E_USER_NOTICE;
|
||||||
|
$this->callback = $options;
|
||||||
|
} else {
|
||||||
|
if ($options === null) {
|
||||||
|
$options = E_USER_NOTICE;
|
||||||
|
}
|
||||||
|
$this->level = $options;
|
||||||
|
$this->callback = null;
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_PRINT) {
|
||||||
|
if (is_null($options) || is_int($options)) {
|
||||||
|
$format = "%s";
|
||||||
|
} else {
|
||||||
|
$format = $options;
|
||||||
|
}
|
||||||
|
printf($format, $this->getMessage());
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_TRIGGER) {
|
||||||
|
trigger_error($this->getMessage(), $this->level);
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_DIE) {
|
||||||
|
$msg = $this->getMessage();
|
||||||
|
if (is_null($options) || is_int($options)) {
|
||||||
|
$format = "%s";
|
||||||
|
if (substr($msg, -1) != "\n") {
|
||||||
|
$msg .= "\n";
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$format = $options;
|
||||||
|
}
|
||||||
|
die(sprintf($format, $msg));
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_CALLBACK) {
|
||||||
|
if (is_callable($this->callback)) {
|
||||||
|
call_user_func($this->callback, $this);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_EXCEPTION) {
|
||||||
|
trigger_error("PEAR_ERROR_EXCEPTION is obsolete, use class PEAR_ErrorStack for exceptions", E_USER_WARNING);
|
||||||
|
eval('$e = new Exception($this->message, $this->code);$e->PEAR_Error = $this;throw($e);');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getMode()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the error mode from an error object.
|
||||||
|
*
|
||||||
|
* @return int error mode
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getMode() {
|
||||||
|
return $this->mode;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getCallback()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the callback function/method from an error object.
|
||||||
|
*
|
||||||
|
* @return mixed callback function or object/method array
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getCallback() {
|
||||||
|
return $this->callback;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getMessage()
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the error message from an error object.
|
||||||
|
*
|
||||||
|
* @return string full error message
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getMessage()
|
||||||
|
{
|
||||||
|
return ($this->error_message_prefix . $this->message);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getCode()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get error code from an error object
|
||||||
|
*
|
||||||
|
* @return int error code
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getCode()
|
||||||
|
{
|
||||||
|
return $this->code;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getType()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the name of this error/exception.
|
||||||
|
*
|
||||||
|
* @return string error/exception name (type)
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getType()
|
||||||
|
{
|
||||||
|
return get_class($this);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getUserInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get additional user-supplied information.
|
||||||
|
*
|
||||||
|
* @return string user-supplied information
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getUserInfo()
|
||||||
|
{
|
||||||
|
return $this->userinfo;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getDebugInfo()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get additional debug information supplied by the application.
|
||||||
|
*
|
||||||
|
* @return string debug information
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getDebugInfo()
|
||||||
|
{
|
||||||
|
return $this->getUserInfo();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getBacktrace()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the call backtrace from where the error was generated.
|
||||||
|
* Supported with PHP 4.3.0 or newer.
|
||||||
|
*
|
||||||
|
* @param int $frame (optional) what frame to fetch
|
||||||
|
* @return array Backtrace, or NULL if not available.
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getBacktrace($frame = null)
|
||||||
|
{
|
||||||
|
if ($frame === null) {
|
||||||
|
return $this->backtrace;
|
||||||
|
}
|
||||||
|
return $this->backtrace[$frame];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ addUserInfo()
|
||||||
|
|
||||||
|
function addUserInfo($info)
|
||||||
|
{
|
||||||
|
if (empty($this->userinfo)) {
|
||||||
|
$this->userinfo = $info;
|
||||||
|
} else {
|
||||||
|
$this->userinfo .= " ** $info";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ toString()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Make a string representation of this object.
|
||||||
|
*
|
||||||
|
* @return string a string with an object summary
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function toString() {
|
||||||
|
$modes = array();
|
||||||
|
$levels = array(E_USER_NOTICE => 'notice',
|
||||||
|
E_USER_WARNING => 'warning',
|
||||||
|
E_USER_ERROR => 'error');
|
||||||
|
if ($this->mode & PEAR_ERROR_CALLBACK) {
|
||||||
|
if (is_array($this->callback)) {
|
||||||
|
$callback = get_class($this->callback[0]) . '::' .
|
||||||
|
$this->callback[1];
|
||||||
|
} else {
|
||||||
|
$callback = $this->callback;
|
||||||
|
}
|
||||||
|
return sprintf('[%s: message="%s" code=%d mode=callback '.
|
||||||
|
'callback=%s prefix="%s" info="%s"]',
|
||||||
|
get_class($this), $this->message, $this->code,
|
||||||
|
$callback, $this->error_message_prefix,
|
||||||
|
$this->userinfo);
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_PRINT) {
|
||||||
|
$modes[] = 'print';
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_TRIGGER) {
|
||||||
|
$modes[] = 'trigger';
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_DIE) {
|
||||||
|
$modes[] = 'die';
|
||||||
|
}
|
||||||
|
if ($this->mode & PEAR_ERROR_RETURN) {
|
||||||
|
$modes[] = 'return';
|
||||||
|
}
|
||||||
|
return sprintf('[%s: message="%s" code=%d mode=%s level=%s '.
|
||||||
|
'prefix="%s" info="%s"]',
|
||||||
|
get_class($this), $this->message, $this->code,
|
||||||
|
implode("|", $modes), $levels[$this->level],
|
||||||
|
$this->error_message_prefix,
|
||||||
|
$this->userinfo);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
register_shutdown_function("_PEAR_call_destructors");
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Local Variables:
|
||||||
|
* mode: php
|
||||||
|
* tab-width: 4
|
||||||
|
* c-basic-offset: 4
|
||||||
|
* End:
|
||||||
|
*/
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,208 @@
|
||||||
|
<?php
|
||||||
|
// /* vim: set expandtab tabstop=4 shiftwidth=4: */
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Autoloader.php,v 1.4.6.12 2004/02/27 02:22:05 cellog Exp $
|
||||||
|
|
||||||
|
if (!extension_loaded("overload")) {
|
||||||
|
// die hard without ext/overload
|
||||||
|
die("Rebuild PHP with the `overload' extension to use PEAR_Autoloader");
|
||||||
|
}
|
||||||
|
|
||||||
|
require_once "PEAR.php";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This class is for objects where you want to separate the code for
|
||||||
|
* some methods into separate classes. This is useful if you have a
|
||||||
|
* class with not-frequently-used methods that contain lots of code
|
||||||
|
* that you would like to avoid always parsing.
|
||||||
|
*
|
||||||
|
* The PEAR_Autoloader class provides autoloading and aggregation.
|
||||||
|
* The autoloading lets you set up in which classes the separated
|
||||||
|
* methods are found. Aggregation is the technique used to import new
|
||||||
|
* methods, an instance of each class providing separated methods is
|
||||||
|
* stored and called every time the aggregated method is called.
|
||||||
|
*
|
||||||
|
* @author Stig Sæther Bakken <ssb@php.net>
|
||||||
|
*/
|
||||||
|
class PEAR_Autoloader extends PEAR
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Map of methods and classes where they are defined
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_autoload_map = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Map of methods and aggregate objects
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_method_map = array();
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ addAutoload()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Add one or more autoload entries.
|
||||||
|
*
|
||||||
|
* @param string $method which method to autoload
|
||||||
|
*
|
||||||
|
* @param string $classname (optional) which class to find the method in.
|
||||||
|
* If the $method parameter is an array, this
|
||||||
|
* parameter may be omitted (and will be ignored
|
||||||
|
* if not), and the $method parameter will be
|
||||||
|
* treated as an associative array with method
|
||||||
|
* names as keys and class names as values.
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function addAutoload($method, $classname = null)
|
||||||
|
{
|
||||||
|
if (is_array($method)) {
|
||||||
|
array_walk($method, create_function('$a,&$b', '$b = strtolower($b);'));
|
||||||
|
$this->_autoload_map = array_merge($this->_autoload_map, $method);
|
||||||
|
} else {
|
||||||
|
$this->_autoload_map[strtolower($method)] = $classname;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ removeAutoload()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Remove an autoload entry.
|
||||||
|
*
|
||||||
|
* @param string $method which method to remove the autoload entry for
|
||||||
|
*
|
||||||
|
* @return bool TRUE if an entry was removed, FALSE if not
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function removeAutoload($method)
|
||||||
|
{
|
||||||
|
$method = strtolower($method);
|
||||||
|
$ok = isset($this->_autoload_map[$method]);
|
||||||
|
unset($this->_autoload_map[$method]);
|
||||||
|
return $ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ addAggregateObject()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Add an aggregate object to this object. If the specified class
|
||||||
|
* is not defined, loading it will be attempted following PEAR's
|
||||||
|
* file naming scheme. All the methods in the class will be
|
||||||
|
* aggregated, except private ones (name starting with an
|
||||||
|
* underscore) and constructors.
|
||||||
|
*
|
||||||
|
* @param string $classname what class to instantiate for the object.
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function addAggregateObject($classname)
|
||||||
|
{
|
||||||
|
$classname = strtolower($classname);
|
||||||
|
if (!class_exists($classname)) {
|
||||||
|
$include_file = preg_replace('/[^a-z0-9]/i', '_', $classname);
|
||||||
|
include_once $include_file;
|
||||||
|
}
|
||||||
|
$obj =& new $classname;
|
||||||
|
$methods = get_class_methods($classname);
|
||||||
|
foreach ($methods as $method) {
|
||||||
|
// don't import priviate methods and constructors
|
||||||
|
if ($method{0} != '_' && $method != $classname) {
|
||||||
|
$this->_method_map[$method] = $obj;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ removeAggregateObject()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Remove an aggregate object.
|
||||||
|
*
|
||||||
|
* @param string $classname the class of the object to remove
|
||||||
|
*
|
||||||
|
* @return bool TRUE if an object was removed, FALSE if not
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function removeAggregateObject($classname)
|
||||||
|
{
|
||||||
|
$ok = false;
|
||||||
|
$classname = strtolower($classname);
|
||||||
|
reset($this->_method_map);
|
||||||
|
while (list($method, $obj) = each($this->_method_map)) {
|
||||||
|
if (is_a($obj, $classname)) {
|
||||||
|
unset($this->_method_map[$method]);
|
||||||
|
$ok = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ __call()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Overloaded object call handler, called each time an
|
||||||
|
* undefined/aggregated method is invoked. This method repeats
|
||||||
|
* the call in the right aggregate object and passes on the return
|
||||||
|
* value.
|
||||||
|
*
|
||||||
|
* @param string $method which method that was called
|
||||||
|
*
|
||||||
|
* @param string $args An array of the parameters passed in the
|
||||||
|
* original call
|
||||||
|
*
|
||||||
|
* @return mixed The return value from the aggregated method, or a PEAR
|
||||||
|
* error if the called method was unknown.
|
||||||
|
*/
|
||||||
|
function __call($method, $args, &$retval)
|
||||||
|
{
|
||||||
|
$method = strtolower($method);
|
||||||
|
if (empty($this->_method_map[$method]) && isset($this->_autoload_map[$method])) {
|
||||||
|
$this->addAggregateObject($this->_autoload_map[$method]);
|
||||||
|
}
|
||||||
|
if (isset($this->_method_map[$method])) {
|
||||||
|
$retval = call_user_func_array(array($this->_method_map[$method], $method), $args);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
overload("PEAR_Autoloader");
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,392 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Stig Sæther Bakken <ssb@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Builder.php,v 1.7.4.12 2004/06/08 18:15:22 cellog Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR/Common.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Class to handle building (compiling) extensions.
|
||||||
|
*
|
||||||
|
* @author Stig Sæther Bakken <ssb@php.net>
|
||||||
|
*/
|
||||||
|
class PEAR_Builder extends PEAR_Common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $php_api_version = 0;
|
||||||
|
var $zend_module_api_no = 0;
|
||||||
|
var $zend_extension_api_no = 0;
|
||||||
|
|
||||||
|
var $extensions_built = array();
|
||||||
|
|
||||||
|
var $current_callback = null;
|
||||||
|
|
||||||
|
// used for msdev builds
|
||||||
|
var $_lastline = null;
|
||||||
|
var $_firstline = null;
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Builder constructor.
|
||||||
|
*
|
||||||
|
* @param object $ui user interface object (instance of PEAR_Frontend_*)
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Builder(&$ui)
|
||||||
|
{
|
||||||
|
parent::PEAR_Common();
|
||||||
|
$this->setFrontendObject($ui);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ _build_win32()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Build an extension from source on windows.
|
||||||
|
* requires msdev
|
||||||
|
*/
|
||||||
|
function _build_win32($descfile, $callback = null)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($info = $this->infoFromDescriptionFile($descfile))) {
|
||||||
|
return $info;
|
||||||
|
}
|
||||||
|
$dir = dirname($descfile);
|
||||||
|
$old_cwd = getcwd();
|
||||||
|
|
||||||
|
if (!@chdir($dir)) {
|
||||||
|
return $this->raiseError("could not chdir to $dir");
|
||||||
|
}
|
||||||
|
$this->log(2, "building in $dir");
|
||||||
|
|
||||||
|
$dsp = $info['package'].'.dsp';
|
||||||
|
if (!@is_file("$dir/$dsp")) {
|
||||||
|
return $this->raiseError("The DSP $dsp does not exist.");
|
||||||
|
}
|
||||||
|
// XXX TODO: make release build type configurable
|
||||||
|
$command = 'msdev '.$dsp.' /MAKE "'.$info['package']. ' - Release"';
|
||||||
|
|
||||||
|
$this->current_callback = $callback;
|
||||||
|
$err = $this->_runCommand($command, array(&$this, 'msdevCallback'));
|
||||||
|
if (PEAR::isError($err)) {
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
|
||||||
|
// figure out the build platform and type
|
||||||
|
$platform = 'Win32';
|
||||||
|
$buildtype = 'Release';
|
||||||
|
if (preg_match('/.*?'.$info['package'].'\s-\s(\w+)\s(.*?)-+/i',$this->_firstline,$matches)) {
|
||||||
|
$platform = $matches[1];
|
||||||
|
$buildtype = $matches[2];
|
||||||
|
}
|
||||||
|
|
||||||
|
if (preg_match('/(.*)?\s-\s(\d+).*?(\d+)/',$this->_lastline,$matches)) {
|
||||||
|
if ($matches[2]) {
|
||||||
|
// there were errors in the build
|
||||||
|
return $this->raiseError("There were errors during compilation.");
|
||||||
|
}
|
||||||
|
$out = $matches[1];
|
||||||
|
} else {
|
||||||
|
return $this->raiseError("Did not understand the completion status returned from msdev.exe.");
|
||||||
|
}
|
||||||
|
|
||||||
|
// msdev doesn't tell us the output directory :/
|
||||||
|
// open the dsp, find /out and use that directory
|
||||||
|
$dsptext = join(file($dsp),'');
|
||||||
|
|
||||||
|
// this regex depends on the build platform and type having been
|
||||||
|
// correctly identified above.
|
||||||
|
$regex ='/.*?!IF\s+"\$\(CFG\)"\s+==\s+("'.
|
||||||
|
$info['package'].'\s-\s'.
|
||||||
|
$platform.'\s'.
|
||||||
|
$buildtype.'").*?'.
|
||||||
|
'\/out:"(.*?)"/is';
|
||||||
|
|
||||||
|
if ($dsptext && preg_match($regex,$dsptext,$matches)) {
|
||||||
|
// what we get back is a relative path to the output file itself.
|
||||||
|
$outfile = realpath($matches[2]);
|
||||||
|
} else {
|
||||||
|
return $this->raiseError("Could not retrieve output information from $dsp.");
|
||||||
|
}
|
||||||
|
if (@copy($outfile, "$dir/$out")) {
|
||||||
|
$outfile = "$dir/$out";
|
||||||
|
}
|
||||||
|
|
||||||
|
$built_files[] = array(
|
||||||
|
'file' => "$outfile",
|
||||||
|
'php_api' => $this->php_api_version,
|
||||||
|
'zend_mod_api' => $this->zend_module_api_no,
|
||||||
|
'zend_ext_api' => $this->zend_extension_api_no,
|
||||||
|
);
|
||||||
|
|
||||||
|
return $built_files;
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ msdevCallback()
|
||||||
|
function msdevCallback($what, $data)
|
||||||
|
{
|
||||||
|
if (!$this->_firstline)
|
||||||
|
$this->_firstline = $data;
|
||||||
|
$this->_lastline = $data;
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ build()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Build an extension from source. Runs "phpize" in the source
|
||||||
|
* directory, but compiles in a temporary directory
|
||||||
|
* (/var/tmp/pear-build-USER/PACKAGE-VERSION).
|
||||||
|
*
|
||||||
|
* @param string $descfile path to XML package description file
|
||||||
|
*
|
||||||
|
* @param mixed $callback callback function used to report output,
|
||||||
|
* see PEAR_Builder::_runCommand for details
|
||||||
|
*
|
||||||
|
* @return array an array of associative arrays with built files,
|
||||||
|
* format:
|
||||||
|
* array( array( 'file' => '/path/to/ext.so',
|
||||||
|
* 'php_api' => YYYYMMDD,
|
||||||
|
* 'zend_mod_api' => YYYYMMDD,
|
||||||
|
* 'zend_ext_api' => YYYYMMDD ),
|
||||||
|
* ... )
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*
|
||||||
|
* @see PEAR_Builder::_runCommand
|
||||||
|
* @see PEAR_Common::infoFromDescriptionFile
|
||||||
|
*/
|
||||||
|
function build($descfile, $callback = null)
|
||||||
|
{
|
||||||
|
if (PEAR_OS == "Windows") {
|
||||||
|
return $this->_build_win32($descfile,$callback);
|
||||||
|
}
|
||||||
|
if (PEAR_OS != 'Unix') {
|
||||||
|
return $this->raiseError("building extensions not supported on this platform");
|
||||||
|
}
|
||||||
|
if (PEAR::isError($info = $this->infoFromDescriptionFile($descfile))) {
|
||||||
|
return $info;
|
||||||
|
}
|
||||||
|
$dir = dirname($descfile);
|
||||||
|
$old_cwd = getcwd();
|
||||||
|
if (!@chdir($dir)) {
|
||||||
|
return $this->raiseError("could not chdir to $dir");
|
||||||
|
}
|
||||||
|
$vdir = "$info[package]-$info[version]";
|
||||||
|
if (is_dir($vdir)) {
|
||||||
|
chdir($vdir);
|
||||||
|
}
|
||||||
|
$dir = getcwd();
|
||||||
|
$this->log(2, "building in $dir");
|
||||||
|
$this->current_callback = $callback;
|
||||||
|
putenv('PATH=' . getenv('PATH') . ':' . $this->config->get('bin_dir'));
|
||||||
|
$err = $this->_runCommand("phpize", array(&$this, 'phpizeCallback'));
|
||||||
|
if (PEAR::isError($err)) {
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
if (!$err) {
|
||||||
|
return $this->raiseError("`phpize' failed");
|
||||||
|
}
|
||||||
|
|
||||||
|
// {{{ start of interactive part
|
||||||
|
$configure_command = "$dir/configure";
|
||||||
|
if (isset($info['configure_options'])) {
|
||||||
|
foreach ($info['configure_options'] as $o) {
|
||||||
|
list($r) = $this->ui->userDialog('build',
|
||||||
|
array($o['prompt']),
|
||||||
|
array('text'),
|
||||||
|
array(@$o['default']));
|
||||||
|
if (substr($o['name'], 0, 5) == 'with-' &&
|
||||||
|
($r == 'yes' || $r == 'autodetect')) {
|
||||||
|
$configure_command .= " --$o[name]";
|
||||||
|
} else {
|
||||||
|
$configure_command .= " --$o[name]=".trim($r);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// }}} end of interactive part
|
||||||
|
|
||||||
|
// FIXME make configurable
|
||||||
|
if(!$user=getenv('USER')){
|
||||||
|
$user='defaultuser';
|
||||||
|
}
|
||||||
|
$build_basedir = "/var/tmp/pear-build-$user";
|
||||||
|
$build_dir = "$build_basedir/$info[package]-$info[version]";
|
||||||
|
$this->log(1, "building in $build_dir");
|
||||||
|
if (is_dir($build_dir)) {
|
||||||
|
System::rm("-rf $build_dir");
|
||||||
|
}
|
||||||
|
if (!System::mkDir("-p $build_dir")) {
|
||||||
|
return $this->raiseError("could not create build dir: $build_dir");
|
||||||
|
}
|
||||||
|
$this->addTempFile($build_dir);
|
||||||
|
if (getenv('MAKE')) {
|
||||||
|
$make_command = getenv('MAKE');
|
||||||
|
} else {
|
||||||
|
$make_command = 'make';
|
||||||
|
}
|
||||||
|
$to_run = array(
|
||||||
|
$configure_command,
|
||||||
|
$make_command,
|
||||||
|
);
|
||||||
|
if (!@chdir($build_dir)) {
|
||||||
|
return $this->raiseError("could not chdir to $build_dir");
|
||||||
|
}
|
||||||
|
foreach ($to_run as $cmd) {
|
||||||
|
$err = $this->_runCommand($cmd, $callback);
|
||||||
|
if (PEAR::isError($err)) {
|
||||||
|
chdir($old_cwd);
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
if (!$err) {
|
||||||
|
chdir($old_cwd);
|
||||||
|
return $this->raiseError("`$cmd' failed");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!($dp = opendir("modules"))) {
|
||||||
|
chdir($old_cwd);
|
||||||
|
return $this->raiseError("no `modules' directory found");
|
||||||
|
}
|
||||||
|
$built_files = array();
|
||||||
|
while ($ent = readdir($dp)) {
|
||||||
|
if ($ent{0} == '.' || substr($ent, -3) == '.la') {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
// harvest!
|
||||||
|
if (@copy("modules/$ent", "$dir/$ent")) {
|
||||||
|
$built_files[] = array(
|
||||||
|
'file' => "$dir/$ent",
|
||||||
|
'php_api' => $this->php_api_version,
|
||||||
|
'zend_mod_api' => $this->zend_module_api_no,
|
||||||
|
'zend_ext_api' => $this->zend_extension_api_no,
|
||||||
|
);
|
||||||
|
|
||||||
|
$this->log(1, "$ent copied to $dir/$ent");
|
||||||
|
} else {
|
||||||
|
chdir($old_cwd);
|
||||||
|
return $this->raiseError("failed copying $ent to $dir");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
closedir($dp);
|
||||||
|
chdir($old_cwd);
|
||||||
|
return $built_files;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ phpizeCallback()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Message callback function used when running the "phpize"
|
||||||
|
* program. Extracts the API numbers used. Ignores other message
|
||||||
|
* types than "cmdoutput".
|
||||||
|
*
|
||||||
|
* @param string $what the type of message
|
||||||
|
* @param mixed $data the message
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function phpizeCallback($what, $data)
|
||||||
|
{
|
||||||
|
if ($what != 'cmdoutput') {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
$this->log(1, rtrim($data));
|
||||||
|
if (preg_match('/You should update your .aclocal.m4/', $data)) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
$matches = array();
|
||||||
|
if (preg_match('/^\s+(\S[^:]+):\s+(\d{8})/', $data, $matches)) {
|
||||||
|
$member = preg_replace('/[^a-z]/', '_', strtolower($matches[1]));
|
||||||
|
$apino = (int)$matches[2];
|
||||||
|
if (isset($this->$member)) {
|
||||||
|
$this->$member = $apino;
|
||||||
|
//$msg = sprintf("%-22s : %d", $matches[1], $apino);
|
||||||
|
//$this->log(1, $msg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _runCommand()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Run an external command, using a message callback to report
|
||||||
|
* output. The command will be run through popen and output is
|
||||||
|
* reported for every line with a "cmdoutput" message with the
|
||||||
|
* line string, including newlines, as payload.
|
||||||
|
*
|
||||||
|
* @param string $command the command to run
|
||||||
|
*
|
||||||
|
* @param mixed $callback (optional) function to use as message
|
||||||
|
* callback
|
||||||
|
*
|
||||||
|
* @return bool whether the command was successful (exit code 0
|
||||||
|
* means success, any other means failure)
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _runCommand($command, $callback = null)
|
||||||
|
{
|
||||||
|
$this->log(1, "running: $command");
|
||||||
|
$pp = @popen("$command 2>&1", "r");
|
||||||
|
if (!$pp) {
|
||||||
|
return $this->raiseError("failed to run `$command'");
|
||||||
|
}
|
||||||
|
if ($callback && $callback[0]->debug == 1) {
|
||||||
|
$olddbg = $callback[0]->debug;
|
||||||
|
$callback[0]->debug = 2;
|
||||||
|
}
|
||||||
|
|
||||||
|
while ($line = fgets($pp, 1024)) {
|
||||||
|
if ($callback) {
|
||||||
|
call_user_func($callback, 'cmdoutput', $line);
|
||||||
|
} else {
|
||||||
|
$this->log(2, rtrim($line));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($callback && isset($olddbg)) {
|
||||||
|
$callback[0]->debug = $olddbg;
|
||||||
|
}
|
||||||
|
$exitcode = @pclose($pp);
|
||||||
|
return ($exitcode == 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ log()
|
||||||
|
|
||||||
|
function log($level, $msg)
|
||||||
|
{
|
||||||
|
if ($this->current_callback) {
|
||||||
|
if ($this->debug >= $level) {
|
||||||
|
call_user_func($this->current_callback, 'output', $msg);
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
return PEAR_Common::log($level, $msg);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,397 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Command.php,v 1.16.4.12 2004/02/27 02:24:16 cellog Exp $
|
||||||
|
|
||||||
|
|
||||||
|
require_once "PEAR.php";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* List of commands and what classes they are implemented in.
|
||||||
|
* @var array command => implementing class
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_Command_commandlist'] = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* List of shortcuts to common commands.
|
||||||
|
* @var array shortcut => command
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_Command_shortcuts'] = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Array of command objects
|
||||||
|
* @var array class => object
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_Command_objects'] = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Which user interface class is being used.
|
||||||
|
* @var string class name
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_Command_uiclass'] = 'PEAR_Frontend_CLI';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Instance of $_PEAR_Command_uiclass.
|
||||||
|
* @var object
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_Command_uiobject'] = null;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR command class, a simple factory class for administrative
|
||||||
|
* commands.
|
||||||
|
*
|
||||||
|
* How to implement command classes:
|
||||||
|
*
|
||||||
|
* - The class must be called PEAR_Command_Nnn, installed in the
|
||||||
|
* "PEAR/Common" subdir, with a method called getCommands() that
|
||||||
|
* returns an array of the commands implemented by the class (see
|
||||||
|
* PEAR/Command/Install.php for an example).
|
||||||
|
*
|
||||||
|
* - The class must implement a run() function that is called with three
|
||||||
|
* params:
|
||||||
|
*
|
||||||
|
* (string) command name
|
||||||
|
* (array) assoc array with options, freely defined by each
|
||||||
|
* command, for example:
|
||||||
|
* array('force' => true)
|
||||||
|
* (array) list of the other parameters
|
||||||
|
*
|
||||||
|
* The run() function returns a PEAR_CommandResponse object. Use
|
||||||
|
* these methods to get information:
|
||||||
|
*
|
||||||
|
* int getStatus() Returns PEAR_COMMAND_(SUCCESS|FAILURE|PARTIAL)
|
||||||
|
* *_PARTIAL means that you need to issue at least
|
||||||
|
* one more command to complete the operation
|
||||||
|
* (used for example for validation steps).
|
||||||
|
*
|
||||||
|
* string getMessage() Returns a message for the user. Remember,
|
||||||
|
* no HTML or other interface-specific markup.
|
||||||
|
*
|
||||||
|
* If something unexpected happens, run() returns a PEAR error.
|
||||||
|
*
|
||||||
|
* - DON'T OUTPUT ANYTHING! Return text for output instead.
|
||||||
|
*
|
||||||
|
* - DON'T USE HTML! The text you return will be used from both Gtk,
|
||||||
|
* web and command-line interfaces, so for now, keep everything to
|
||||||
|
* plain text.
|
||||||
|
*
|
||||||
|
* - DON'T USE EXIT OR DIE! Always use pear errors. From static
|
||||||
|
* classes do PEAR::raiseError(), from other classes do
|
||||||
|
* $this->raiseError().
|
||||||
|
*/
|
||||||
|
class PEAR_Command
|
||||||
|
{
|
||||||
|
// {{{ factory()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the right object for executing a command.
|
||||||
|
*
|
||||||
|
* @param string $command The name of the command
|
||||||
|
* @param object $config Instance of PEAR_Config object
|
||||||
|
*
|
||||||
|
* @return object the command object or a PEAR error
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function factory($command, &$config)
|
||||||
|
{
|
||||||
|
if (empty($GLOBALS['_PEAR_Command_commandlist'])) {
|
||||||
|
PEAR_Command::registerCommands();
|
||||||
|
}
|
||||||
|
if (isset($GLOBALS['_PEAR_Command_shortcuts'][$command])) {
|
||||||
|
$command = $GLOBALS['_PEAR_Command_shortcuts'][$command];
|
||||||
|
}
|
||||||
|
if (!isset($GLOBALS['_PEAR_Command_commandlist'][$command])) {
|
||||||
|
return PEAR::raiseError("unknown command `$command'");
|
||||||
|
}
|
||||||
|
$class = $GLOBALS['_PEAR_Command_commandlist'][$command];
|
||||||
|
if (!class_exists($class)) {
|
||||||
|
return PEAR::raiseError("unknown command `$command'");
|
||||||
|
}
|
||||||
|
$ui =& PEAR_Command::getFrontendObject();
|
||||||
|
$obj = &new $class($ui, $config);
|
||||||
|
return $obj;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ & getFrontendObject()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get instance of frontend object.
|
||||||
|
*
|
||||||
|
* @return object
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function &getFrontendObject()
|
||||||
|
{
|
||||||
|
if (empty($GLOBALS['_PEAR_Command_uiobject'])) {
|
||||||
|
$GLOBALS['_PEAR_Command_uiobject'] = &new $GLOBALS['_PEAR_Command_uiclass'];
|
||||||
|
}
|
||||||
|
return $GLOBALS['_PEAR_Command_uiobject'];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ & setFrontendClass()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Load current frontend class.
|
||||||
|
*
|
||||||
|
* @param string $uiclass Name of class implementing the frontend
|
||||||
|
*
|
||||||
|
* @return object the frontend object, or a PEAR error
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function &setFrontendClass($uiclass)
|
||||||
|
{
|
||||||
|
if (is_object($GLOBALS['_PEAR_Command_uiobject']) &&
|
||||||
|
is_a($GLOBALS['_PEAR_Command_uiobject'], $uiclass)) {
|
||||||
|
return $GLOBALS['_PEAR_Command_uiobject'];
|
||||||
|
}
|
||||||
|
if (!class_exists($uiclass)) {
|
||||||
|
$file = str_replace('_', '/', $uiclass) . '.php';
|
||||||
|
if (PEAR_Command::isIncludeable($file)) {
|
||||||
|
include_once $file;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (class_exists($uiclass)) {
|
||||||
|
$obj = &new $uiclass;
|
||||||
|
// quick test to see if this class implements a few of the most
|
||||||
|
// important frontend methods
|
||||||
|
if (method_exists($obj, 'userConfirm')) {
|
||||||
|
$GLOBALS['_PEAR_Command_uiobject'] = &$obj;
|
||||||
|
$GLOBALS['_PEAR_Command_uiclass'] = $uiclass;
|
||||||
|
return $obj;
|
||||||
|
} else {
|
||||||
|
$err = PEAR::raiseError("not a frontend class: $uiclass");
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$err = PEAR::raiseError("no such class: $uiclass");
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ setFrontendType()
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ isIncludeable()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @param string $path relative or absolute include path
|
||||||
|
* @return boolean
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function isIncludeable($path)
|
||||||
|
{
|
||||||
|
if (file_exists($path) && is_readable($path)) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
$ipath = explode(PATH_SEPARATOR, ini_get('include_path'));
|
||||||
|
foreach ($ipath as $include) {
|
||||||
|
$test = realpath($include . DIRECTORY_SEPARATOR . $path);
|
||||||
|
if (file_exists($test) && is_readable($test)) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set current frontend.
|
||||||
|
*
|
||||||
|
* @param string $uitype Name of the frontend type (for example "CLI")
|
||||||
|
*
|
||||||
|
* @return object the frontend object, or a PEAR error
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function setFrontendType($uitype)
|
||||||
|
{
|
||||||
|
$uiclass = 'PEAR_Frontend_' . $uitype;
|
||||||
|
return PEAR_Command::setFrontendClass($uiclass);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ registerCommands()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Scan through the Command directory looking for classes
|
||||||
|
* and see what commands they implement.
|
||||||
|
*
|
||||||
|
* @param bool (optional) if FALSE (default), the new list of
|
||||||
|
* commands should replace the current one. If TRUE,
|
||||||
|
* new entries will be merged with old.
|
||||||
|
*
|
||||||
|
* @param string (optional) where (what directory) to look for
|
||||||
|
* classes, defaults to the Command subdirectory of
|
||||||
|
* the directory from where this file (__FILE__) is
|
||||||
|
* included.
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, a PEAR error on failure
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function registerCommands($merge = false, $dir = null)
|
||||||
|
{
|
||||||
|
if ($dir === null) {
|
||||||
|
$dir = dirname(__FILE__) . '/Command';
|
||||||
|
}
|
||||||
|
$dp = @opendir($dir);
|
||||||
|
if (empty($dp)) {
|
||||||
|
return PEAR::raiseError("registerCommands: opendir($dir) failed");
|
||||||
|
}
|
||||||
|
if (!$merge) {
|
||||||
|
$GLOBALS['_PEAR_Command_commandlist'] = array();
|
||||||
|
}
|
||||||
|
while ($entry = readdir($dp)) {
|
||||||
|
if ($entry{0} == '.' || substr($entry, -4) != '.php' || $entry == 'Common.php') {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
$class = "PEAR_Command_".substr($entry, 0, -4);
|
||||||
|
$file = "$dir/$entry";
|
||||||
|
include_once $file;
|
||||||
|
// List of commands
|
||||||
|
if (empty($GLOBALS['_PEAR_Command_objects'][$class])) {
|
||||||
|
$GLOBALS['_PEAR_Command_objects'][$class] = &new $class($ui, $config);
|
||||||
|
}
|
||||||
|
$implements = $GLOBALS['_PEAR_Command_objects'][$class]->getCommands();
|
||||||
|
foreach ($implements as $command => $desc) {
|
||||||
|
$GLOBALS['_PEAR_Command_commandlist'][$command] = $class;
|
||||||
|
$GLOBALS['_PEAR_Command_commanddesc'][$command] = $desc;
|
||||||
|
}
|
||||||
|
$shortcuts = $GLOBALS['_PEAR_Command_objects'][$class]->getShortcuts();
|
||||||
|
foreach ($shortcuts as $shortcut => $command) {
|
||||||
|
$GLOBALS['_PEAR_Command_shortcuts'][$shortcut] = $command;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getCommands()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the list of currently supported commands, and what
|
||||||
|
* classes implement them.
|
||||||
|
*
|
||||||
|
* @return array command => implementing class
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function getCommands()
|
||||||
|
{
|
||||||
|
if (empty($GLOBALS['_PEAR_Command_commandlist'])) {
|
||||||
|
PEAR_Command::registerCommands();
|
||||||
|
}
|
||||||
|
return $GLOBALS['_PEAR_Command_commandlist'];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getShortcuts()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the list of command shortcuts.
|
||||||
|
*
|
||||||
|
* @return array shortcut => command
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function getShortcuts()
|
||||||
|
{
|
||||||
|
if (empty($GLOBALS['_PEAR_Command_shortcuts'])) {
|
||||||
|
PEAR_Command::registerCommands();
|
||||||
|
}
|
||||||
|
return $GLOBALS['_PEAR_Command_shortcuts'];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getGetoptArgs()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Compiles arguments for getopt.
|
||||||
|
*
|
||||||
|
* @param string $command command to get optstring for
|
||||||
|
* @param string $short_args (reference) short getopt format
|
||||||
|
* @param array $long_args (reference) long getopt format
|
||||||
|
*
|
||||||
|
* @return void
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function getGetoptArgs($command, &$short_args, &$long_args)
|
||||||
|
{
|
||||||
|
if (empty($GLOBALS['_PEAR_Command_commandlist'])) {
|
||||||
|
PEAR_Command::registerCommands();
|
||||||
|
}
|
||||||
|
if (!isset($GLOBALS['_PEAR_Command_commandlist'][$command])) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
$class = $GLOBALS['_PEAR_Command_commandlist'][$command];
|
||||||
|
$obj = &$GLOBALS['_PEAR_Command_objects'][$class];
|
||||||
|
return $obj->getGetoptArgs($command, $short_args, $long_args);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getDescription()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get description for a command.
|
||||||
|
*
|
||||||
|
* @param string $command Name of the command
|
||||||
|
*
|
||||||
|
* @return string command description
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function getDescription($command)
|
||||||
|
{
|
||||||
|
if (!isset($GLOBALS['_PEAR_Command_commanddesc'][$command])) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
return $GLOBALS['_PEAR_Command_commanddesc'][$command];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getHelp()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get help for command.
|
||||||
|
*
|
||||||
|
* @param string $command Name of the command to return help for
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function getHelp($command)
|
||||||
|
{
|
||||||
|
$cmds = PEAR_Command::getCommands();
|
||||||
|
if (isset($cmds[$command])) {
|
||||||
|
$class = $cmds[$command];
|
||||||
|
return $GLOBALS['_PEAR_Command_objects'][$class]->getHelp($command);
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,155 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Auth.php,v 1.10.4.12 2004/01/25 23:19:59 pajoye Exp $
|
||||||
|
|
||||||
|
require_once "PEAR/Command/Common.php";
|
||||||
|
require_once "PEAR/Remote.php";
|
||||||
|
require_once "PEAR/Config.php";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR commands for managing configuration data.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
class PEAR_Command_Auth extends PEAR_Command_Common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $commands = array(
|
||||||
|
'login' => array(
|
||||||
|
'summary' => 'Connects and authenticates to remote server',
|
||||||
|
'shortcut' => 'li',
|
||||||
|
'function' => 'doLogin',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
Log in to the remote server. To use remote functions in the installer
|
||||||
|
that require any kind of privileges, you need to log in first. The
|
||||||
|
username and password you enter here will be stored in your per-user
|
||||||
|
PEAR configuration (~/.pearrc on Unix-like systems). After logging
|
||||||
|
in, your username and password will be sent along in subsequent
|
||||||
|
operations on the remote server.',
|
||||||
|
),
|
||||||
|
'logout' => array(
|
||||||
|
'summary' => 'Logs out from the remote server',
|
||||||
|
'shortcut' => 'lo',
|
||||||
|
'function' => 'doLogout',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
Logs out from the remote server. This command does not actually
|
||||||
|
connect to the remote server, it only deletes the stored username and
|
||||||
|
password from your user configuration.',
|
||||||
|
)
|
||||||
|
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Auth constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Auth(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR_Command_Common($ui, $config);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ doLogin()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Execute the 'login' command.
|
||||||
|
*
|
||||||
|
* @param string $command command name
|
||||||
|
*
|
||||||
|
* @param array $options option_name => value
|
||||||
|
*
|
||||||
|
* @param array $params list of additional parameters
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE for unknown commands, or
|
||||||
|
* a PEAR error on failure
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function doLogin($command, $options, $params)
|
||||||
|
{
|
||||||
|
$server = $this->config->get('master_server');
|
||||||
|
$remote = new PEAR_Remote($this->config);
|
||||||
|
$username = $this->config->get('username');
|
||||||
|
if (empty($username)) {
|
||||||
|
$username = @$_ENV['USER'];
|
||||||
|
}
|
||||||
|
$this->ui->outputData("Logging in to $server.", $command);
|
||||||
|
|
||||||
|
list($username, $password) = $this->ui->userDialog(
|
||||||
|
$command,
|
||||||
|
array('Username', 'Password'),
|
||||||
|
array('text', 'password'),
|
||||||
|
array($username, '')
|
||||||
|
);
|
||||||
|
$username = trim($username);
|
||||||
|
$password = trim($password);
|
||||||
|
|
||||||
|
$this->config->set('username', $username);
|
||||||
|
$this->config->set('password', $password);
|
||||||
|
|
||||||
|
$remote->expectError(401);
|
||||||
|
$ok = $remote->call('logintest');
|
||||||
|
$remote->popExpect();
|
||||||
|
if ($ok === true) {
|
||||||
|
$this->ui->outputData("Logged in.", $command);
|
||||||
|
$this->config->store();
|
||||||
|
} else {
|
||||||
|
return $this->raiseError("Login failed!");
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doLogout()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Execute the 'logout' command.
|
||||||
|
*
|
||||||
|
* @param string $command command name
|
||||||
|
*
|
||||||
|
* @param array $options option_name => value
|
||||||
|
*
|
||||||
|
* @param array $params list of additional parameters
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE for unknown commands, or
|
||||||
|
* a PEAR error on failure
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function doLogout($command, $options, $params)
|
||||||
|
{
|
||||||
|
$server = $this->config->get('master_server');
|
||||||
|
$this->ui->outputData("Logging out from $server.", $command);
|
||||||
|
$this->config->remove('username');
|
||||||
|
$this->config->remove('password');
|
||||||
|
$this->config->store();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,89 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// | Tomas V.V.Cox <cox@idecnet.com> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Build.php,v 1.3.4.12 2004/01/25 23:19:59 pajoye Exp $
|
||||||
|
|
||||||
|
require_once "PEAR/Command/Common.php";
|
||||||
|
require_once "PEAR/Builder.php";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR commands for building extensions.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
class PEAR_Command_Build extends PEAR_Command_Common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $commands = array(
|
||||||
|
'build' => array(
|
||||||
|
'summary' => 'Build an Extension From C Source',
|
||||||
|
'function' => 'doBuild',
|
||||||
|
'shortcut' => 'b',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '[package.xml]
|
||||||
|
Builds one or more extensions contained in a package.'
|
||||||
|
),
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Build constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Build(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR_Command_Common($ui, $config);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ doBuild()
|
||||||
|
|
||||||
|
function doBuild($command, $options, $params)
|
||||||
|
{
|
||||||
|
if (sizeof($params) < 1) {
|
||||||
|
$params[0] = 'package.xml';
|
||||||
|
}
|
||||||
|
$builder = &new PEAR_Builder($this->ui);
|
||||||
|
$this->debug = $this->config->get('verbose');
|
||||||
|
$err = $builder->build($params[0], array(&$this, 'buildCallback'));
|
||||||
|
if (PEAR::isError($err)) {
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ buildCallback()
|
||||||
|
|
||||||
|
function buildCallback($what, $data)
|
||||||
|
{
|
||||||
|
if (($what == 'cmdoutput' && $this->debug > 1) ||
|
||||||
|
($what == 'output' && $this->debug > 0)) {
|
||||||
|
$this->ui->outputData(rtrim($data), 'build');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,249 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Sæther Bakken <ssb@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Common.php,v 1.19.2.12 2004/01/25 23:19:59 pajoye Exp $
|
||||||
|
|
||||||
|
require_once "PEAR.php";
|
||||||
|
|
||||||
|
class PEAR_Command_Common extends PEAR
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Config object used to pass user system and configuration
|
||||||
|
* on when executing commands
|
||||||
|
*
|
||||||
|
* @var object
|
||||||
|
*/
|
||||||
|
var $config;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* User Interface object, for all interaction with the user.
|
||||||
|
* @var object
|
||||||
|
*/
|
||||||
|
var $ui;
|
||||||
|
|
||||||
|
var $_deps_rel_trans = array(
|
||||||
|
'lt' => '<',
|
||||||
|
'le' => '<=',
|
||||||
|
'eq' => '=',
|
||||||
|
'ne' => '!=',
|
||||||
|
'gt' => '>',
|
||||||
|
'ge' => '>=',
|
||||||
|
'has' => '=='
|
||||||
|
);
|
||||||
|
|
||||||
|
var $_deps_type_trans = array(
|
||||||
|
'pkg' => 'package',
|
||||||
|
'extension' => 'extension',
|
||||||
|
'php' => 'PHP',
|
||||||
|
'prog' => 'external program',
|
||||||
|
'ldlib' => 'external library for linking',
|
||||||
|
'rtlib' => 'external runtime library',
|
||||||
|
'os' => 'operating system',
|
||||||
|
'websrv' => 'web server',
|
||||||
|
'sapi' => 'SAPI backend'
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Common constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Common(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR();
|
||||||
|
$this->config = &$config;
|
||||||
|
$this->ui = &$ui;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ getCommands()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Return a list of all the commands defined by this class.
|
||||||
|
* @return array list of commands
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getCommands()
|
||||||
|
{
|
||||||
|
$ret = array();
|
||||||
|
foreach (array_keys($this->commands) as $command) {
|
||||||
|
$ret[$command] = $this->commands[$command]['summary'];
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getShortcuts()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Return a list of all the command shortcuts defined by this class.
|
||||||
|
* @return array shortcut => command
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function getShortcuts()
|
||||||
|
{
|
||||||
|
$ret = array();
|
||||||
|
foreach (array_keys($this->commands) as $command) {
|
||||||
|
if (isset($this->commands[$command]['shortcut'])) {
|
||||||
|
$ret[$this->commands[$command]['shortcut']] = $command;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getOptions()
|
||||||
|
|
||||||
|
function getOptions($command)
|
||||||
|
{
|
||||||
|
return @$this->commands[$command]['options'];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getGetoptArgs()
|
||||||
|
|
||||||
|
function getGetoptArgs($command, &$short_args, &$long_args)
|
||||||
|
{
|
||||||
|
$short_args = "";
|
||||||
|
$long_args = array();
|
||||||
|
if (empty($this->commands[$command])) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
reset($this->commands[$command]);
|
||||||
|
while (list($option, $info) = each($this->commands[$command]['options'])) {
|
||||||
|
$larg = $sarg = '';
|
||||||
|
if (isset($info['arg'])) {
|
||||||
|
if ($info['arg']{0} == '(') {
|
||||||
|
$larg = '==';
|
||||||
|
$sarg = '::';
|
||||||
|
$arg = substr($info['arg'], 1, -1);
|
||||||
|
} else {
|
||||||
|
$larg = '=';
|
||||||
|
$sarg = ':';
|
||||||
|
$arg = $info['arg'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (isset($info['shortopt'])) {
|
||||||
|
$short_args .= $info['shortopt'] . $sarg;
|
||||||
|
}
|
||||||
|
$long_args[] = $option . $larg;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getHelp()
|
||||||
|
/**
|
||||||
|
* Returns the help message for the given command
|
||||||
|
*
|
||||||
|
* @param string $command The command
|
||||||
|
* @return mixed A fail string if the command does not have help or
|
||||||
|
* a two elements array containing [0]=>help string,
|
||||||
|
* [1]=> help string for the accepted cmd args
|
||||||
|
*/
|
||||||
|
function getHelp($command)
|
||||||
|
{
|
||||||
|
$config = &PEAR_Config::singleton();
|
||||||
|
$help = @$this->commands[$command]['doc'];
|
||||||
|
if (empty($help)) {
|
||||||
|
// XXX (cox) Fallback to summary if there is no doc (show both?)
|
||||||
|
if (!$help = @$this->commands[$command]['summary']) {
|
||||||
|
return "No help for command \"$command\"";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (preg_match_all('/{config\s+([^\}]+)}/e', $help, $matches)) {
|
||||||
|
foreach($matches[0] as $k => $v) {
|
||||||
|
$help = preg_replace("/$v/", $config->get($matches[1][$k]), $help);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return array($help, $this->getHelpArgs($command));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getHelpArgs()
|
||||||
|
/**
|
||||||
|
* Returns the help for the accepted arguments of a command
|
||||||
|
*
|
||||||
|
* @param string $command
|
||||||
|
* @return string The help string
|
||||||
|
*/
|
||||||
|
function getHelpArgs($command)
|
||||||
|
{
|
||||||
|
if (isset($this->commands[$command]['options']) &&
|
||||||
|
count($this->commands[$command]['options']))
|
||||||
|
{
|
||||||
|
$help = "Options:\n";
|
||||||
|
foreach ($this->commands[$command]['options'] as $k => $v) {
|
||||||
|
if (isset($v['arg'])) {
|
||||||
|
if ($v['arg']{0} == '(') {
|
||||||
|
$arg = substr($v['arg'], 1, -1);
|
||||||
|
$sapp = " [$arg]";
|
||||||
|
$lapp = "[=$arg]";
|
||||||
|
} else {
|
||||||
|
$sapp = " $v[arg]";
|
||||||
|
$lapp = "=$v[arg]";
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$sapp = $lapp = "";
|
||||||
|
}
|
||||||
|
if (isset($v['shortopt'])) {
|
||||||
|
$s = $v['shortopt'];
|
||||||
|
@$help .= " -$s$sapp, --$k$lapp\n";
|
||||||
|
} else {
|
||||||
|
@$help .= " --$k$lapp\n";
|
||||||
|
}
|
||||||
|
$p = " ";
|
||||||
|
$doc = rtrim(str_replace("\n", "\n$p", $v['doc']));
|
||||||
|
$help .= " $doc\n";
|
||||||
|
}
|
||||||
|
return $help;
|
||||||
|
}
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ run()
|
||||||
|
|
||||||
|
function run($command, $options, $params)
|
||||||
|
{
|
||||||
|
$func = @$this->commands[$command]['function'];
|
||||||
|
if (empty($func)) {
|
||||||
|
// look for shortcuts
|
||||||
|
foreach (array_keys($this->commands) as $cmd) {
|
||||||
|
if (@$this->commands[$cmd]['shortcut'] == $command) {
|
||||||
|
$command = $cmd;
|
||||||
|
$func = @$this->commands[$command]['function'];
|
||||||
|
if (empty($func)) {
|
||||||
|
return $this->raiseError("unknown command `$command'");
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $this->$func($command, $options, $params);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,225 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// | Tomas V.V.Cox <cox@idecnet.com> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Config.php,v 1.18.4.14 2004/01/25 23:19:59 pajoye Exp $
|
||||||
|
|
||||||
|
require_once "PEAR/Command/Common.php";
|
||||||
|
require_once "PEAR/Config.php";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR commands for managing configuration data.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
class PEAR_Command_Config extends PEAR_Command_Common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $commands = array(
|
||||||
|
'config-show' => array(
|
||||||
|
'summary' => 'Show All Settings',
|
||||||
|
'function' => 'doConfigShow',
|
||||||
|
'shortcut' => 'csh',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
Displays all configuration values. An optional argument
|
||||||
|
may be used to tell which configuration layer to display. Valid
|
||||||
|
configuration layers are "user", "system" and "default".
|
||||||
|
',
|
||||||
|
),
|
||||||
|
'config-get' => array(
|
||||||
|
'summary' => 'Show One Setting',
|
||||||
|
'function' => 'doConfigGet',
|
||||||
|
'shortcut' => 'cg',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '<parameter> [layer]
|
||||||
|
Displays the value of one configuration parameter. The
|
||||||
|
first argument is the name of the parameter, an optional second argument
|
||||||
|
may be used to tell which configuration layer to look in. Valid configuration
|
||||||
|
layers are "user", "system" and "default". If no layer is specified, a value
|
||||||
|
will be picked from the first layer that defines the parameter, in the order
|
||||||
|
just specified.
|
||||||
|
',
|
||||||
|
),
|
||||||
|
'config-set' => array(
|
||||||
|
'summary' => 'Change Setting',
|
||||||
|
'function' => 'doConfigSet',
|
||||||
|
'shortcut' => 'cs',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '<parameter> <value> [layer]
|
||||||
|
Sets the value of one configuration parameter. The first argument is
|
||||||
|
the name of the parameter, the second argument is the new value. Some
|
||||||
|
parameters are subject to validation, and the command will fail with
|
||||||
|
an error message if the new value does not make sense. An optional
|
||||||
|
third argument may be used to specify in which layer to set the
|
||||||
|
configuration parameter. The default layer is "user".
|
||||||
|
',
|
||||||
|
),
|
||||||
|
'config-help' => array(
|
||||||
|
'summary' => 'Show Information About Setting',
|
||||||
|
'function' => 'doConfigHelp',
|
||||||
|
'shortcut' => 'ch',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '[parameter]
|
||||||
|
Displays help for a configuration parameter. Without arguments it
|
||||||
|
displays help for all configuration parameters.
|
||||||
|
',
|
||||||
|
),
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Config constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Config(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR_Command_Common($ui, $config);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ doConfigShow()
|
||||||
|
|
||||||
|
function doConfigShow($command, $options, $params)
|
||||||
|
{
|
||||||
|
// $params[0] -> the layer
|
||||||
|
if ($error = $this->_checkLayer(@$params[0])) {
|
||||||
|
return $this->raiseError($error);
|
||||||
|
}
|
||||||
|
$keys = $this->config->getKeys();
|
||||||
|
sort($keys);
|
||||||
|
$data = array('caption' => 'Configuration:');
|
||||||
|
foreach ($keys as $key) {
|
||||||
|
$type = $this->config->getType($key);
|
||||||
|
$value = $this->config->get($key, @$params[0]);
|
||||||
|
if ($type == 'password' && $value) {
|
||||||
|
$value = '********';
|
||||||
|
}
|
||||||
|
if ($value === false) {
|
||||||
|
$value = 'false';
|
||||||
|
} elseif ($value === true) {
|
||||||
|
$value = 'true';
|
||||||
|
}
|
||||||
|
$data['data'][$this->config->getGroup($key)][] = array($this->config->getPrompt($key) , $key, $value);
|
||||||
|
}
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doConfigGet()
|
||||||
|
|
||||||
|
function doConfigGet($command, $options, $params)
|
||||||
|
{
|
||||||
|
// $params[0] -> the parameter
|
||||||
|
// $params[1] -> the layer
|
||||||
|
if ($error = $this->_checkLayer(@$params[1])) {
|
||||||
|
return $this->raiseError($error);
|
||||||
|
}
|
||||||
|
if (sizeof($params) < 1 || sizeof($params) > 2) {
|
||||||
|
return $this->raiseError("config-get expects 1 or 2 parameters");
|
||||||
|
} elseif (sizeof($params) == 1) {
|
||||||
|
$this->ui->outputData("$params[0]=" . $this->config->get($params[0]), $command);
|
||||||
|
} else {
|
||||||
|
$data = "$params[1].$params[0]=" .$this->config->get($params[0], $params[1]);
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doConfigSet()
|
||||||
|
|
||||||
|
function doConfigSet($command, $options, $params)
|
||||||
|
{
|
||||||
|
// $param[0] -> a parameter to set
|
||||||
|
// $param[1] -> the value for the parameter
|
||||||
|
// $param[2] -> the layer
|
||||||
|
$failmsg = '';
|
||||||
|
if (sizeof($params) < 2 || sizeof($params) > 3) {
|
||||||
|
$failmsg .= "config-set expects 2 or 3 parameters";
|
||||||
|
return PEAR::raiseError($failmsg);
|
||||||
|
}
|
||||||
|
if ($error = $this->_checkLayer(@$params[2])) {
|
||||||
|
$failmsg .= $error;
|
||||||
|
return PEAR::raiseError($failmsg);
|
||||||
|
}
|
||||||
|
if (!call_user_func_array(array(&$this->config, 'set'), $params))
|
||||||
|
{
|
||||||
|
$failmsg = "config-set (" . implode(", ", $params) . ") failed";
|
||||||
|
} else {
|
||||||
|
$this->config->store();
|
||||||
|
}
|
||||||
|
if ($failmsg) {
|
||||||
|
return $this->raiseError($failmsg);
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doConfigHelp()
|
||||||
|
|
||||||
|
function doConfigHelp($command, $options, $params)
|
||||||
|
{
|
||||||
|
if (empty($params)) {
|
||||||
|
$params = $this->config->getKeys();
|
||||||
|
}
|
||||||
|
$data['caption'] = "Config help" . ((count($params) == 1) ? " for $params[0]" : '');
|
||||||
|
$data['headline'] = array('Name', 'Type', 'Description');
|
||||||
|
$data['border'] = true;
|
||||||
|
foreach ($params as $name) {
|
||||||
|
$type = $this->config->getType($name);
|
||||||
|
$docs = $this->config->getDocs($name);
|
||||||
|
if ($type == 'set') {
|
||||||
|
$docs = rtrim($docs) . "\nValid set: " .
|
||||||
|
implode(' ', $this->config->getSetValues($name));
|
||||||
|
}
|
||||||
|
$data['data'][] = array($name, $type, $docs);
|
||||||
|
}
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _checkLayer()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Checks if a layer is defined or not
|
||||||
|
*
|
||||||
|
* @param string $layer The layer to search for
|
||||||
|
* @return mixed False on no error or the error message
|
||||||
|
*/
|
||||||
|
function _checkLayer($layer = null)
|
||||||
|
{
|
||||||
|
if (!empty($layer) && $layer != 'default') {
|
||||||
|
$layers = $this->config->getLayers();
|
||||||
|
if (!in_array($layer, $layers)) {
|
||||||
|
return " only the layers: \"" . implode('" or "', $layers) . "\" are supported";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,465 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Sæther Bakken <ssb@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Install.php,v 1.38.2.14 2004/01/25 23:19:59 pajoye Exp $
|
||||||
|
|
||||||
|
require_once "PEAR/Command/Common.php";
|
||||||
|
require_once "PEAR/Installer.php";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR commands for installation or deinstallation/upgrading of
|
||||||
|
* packages.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
class PEAR_Command_Install extends PEAR_Command_Common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $commands = array(
|
||||||
|
'install' => array(
|
||||||
|
'summary' => 'Install Package',
|
||||||
|
'function' => 'doInstall',
|
||||||
|
'shortcut' => 'i',
|
||||||
|
'options' => array(
|
||||||
|
'force' => array(
|
||||||
|
'shortopt' => 'f',
|
||||||
|
'doc' => 'will overwrite newer installed packages',
|
||||||
|
),
|
||||||
|
'nodeps' => array(
|
||||||
|
'shortopt' => 'n',
|
||||||
|
'doc' => 'ignore dependencies, install anyway',
|
||||||
|
),
|
||||||
|
'register-only' => array(
|
||||||
|
'shortopt' => 'r',
|
||||||
|
'doc' => 'do not install files, only register the package as installed',
|
||||||
|
),
|
||||||
|
'soft' => array(
|
||||||
|
'shortopt' => 's',
|
||||||
|
'doc' => 'soft install, fail silently, or upgrade if already installed',
|
||||||
|
),
|
||||||
|
'nobuild' => array(
|
||||||
|
'shortopt' => 'B',
|
||||||
|
'doc' => 'don\'t build C extensions',
|
||||||
|
),
|
||||||
|
'nocompress' => array(
|
||||||
|
'shortopt' => 'Z',
|
||||||
|
'doc' => 'request uncompressed files when downloading',
|
||||||
|
),
|
||||||
|
'installroot' => array(
|
||||||
|
'shortopt' => 'R',
|
||||||
|
'arg' => 'DIR',
|
||||||
|
'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT)',
|
||||||
|
),
|
||||||
|
'ignore-errors' => array(
|
||||||
|
'doc' => 'force install even if there were errors',
|
||||||
|
),
|
||||||
|
'alldeps' => array(
|
||||||
|
'shortopt' => 'a',
|
||||||
|
'doc' => 'install all required and optional dependencies',
|
||||||
|
),
|
||||||
|
'onlyreqdeps' => array(
|
||||||
|
'shortopt' => 'o',
|
||||||
|
'doc' => 'install all required dependencies',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '<package> ...
|
||||||
|
Installs one or more PEAR packages. You can specify a package to
|
||||||
|
install in four ways:
|
||||||
|
|
||||||
|
"Package-1.0.tgz" : installs from a local file
|
||||||
|
|
||||||
|
"http://example.com/Package-1.0.tgz" : installs from
|
||||||
|
anywhere on the net.
|
||||||
|
|
||||||
|
"package.xml" : installs the package described in
|
||||||
|
package.xml. Useful for testing, or for wrapping a PEAR package in
|
||||||
|
another package manager such as RPM.
|
||||||
|
|
||||||
|
"Package" : queries your configured server
|
||||||
|
({config master_server}) and downloads the newest package with
|
||||||
|
the preferred quality/state ({config preferred_state}).
|
||||||
|
|
||||||
|
More than one package may be specified at once. It is ok to mix these
|
||||||
|
four ways of specifying packages.
|
||||||
|
'),
|
||||||
|
'upgrade' => array(
|
||||||
|
'summary' => 'Upgrade Package',
|
||||||
|
'function' => 'doInstall',
|
||||||
|
'shortcut' => 'up',
|
||||||
|
'options' => array(
|
||||||
|
'force' => array(
|
||||||
|
'shortopt' => 'f',
|
||||||
|
'doc' => 'overwrite newer installed packages',
|
||||||
|
),
|
||||||
|
'nodeps' => array(
|
||||||
|
'shortopt' => 'n',
|
||||||
|
'doc' => 'ignore dependencies, upgrade anyway',
|
||||||
|
),
|
||||||
|
'register-only' => array(
|
||||||
|
'shortopt' => 'r',
|
||||||
|
'doc' => 'do not install files, only register the package as upgraded',
|
||||||
|
),
|
||||||
|
'nobuild' => array(
|
||||||
|
'shortopt' => 'B',
|
||||||
|
'doc' => 'don\'t build C extensions',
|
||||||
|
),
|
||||||
|
'nocompress' => array(
|
||||||
|
'shortopt' => 'Z',
|
||||||
|
'doc' => 'request uncompressed files when downloading',
|
||||||
|
),
|
||||||
|
'installroot' => array(
|
||||||
|
'shortopt' => 'R',
|
||||||
|
'arg' => 'DIR',
|
||||||
|
'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT)',
|
||||||
|
),
|
||||||
|
'ignore-errors' => array(
|
||||||
|
'doc' => 'force install even if there were errors',
|
||||||
|
),
|
||||||
|
'alldeps' => array(
|
||||||
|
'shortopt' => 'a',
|
||||||
|
'doc' => 'install all required and optional dependencies',
|
||||||
|
),
|
||||||
|
'onlyreqdeps' => array(
|
||||||
|
'shortopt' => 'o',
|
||||||
|
'doc' => 'install all required dependencies',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '<package> ...
|
||||||
|
Upgrades one or more PEAR packages. See documentation for the
|
||||||
|
"install" command for ways to specify a package.
|
||||||
|
|
||||||
|
When upgrading, your package will be updated if the provided new
|
||||||
|
package has a higher version number (use the -f option if you need to
|
||||||
|
upgrade anyway).
|
||||||
|
|
||||||
|
More than one package may be specified at once.
|
||||||
|
'),
|
||||||
|
'upgrade-all' => array(
|
||||||
|
'summary' => 'Upgrade All Packages',
|
||||||
|
'function' => 'doInstall',
|
||||||
|
'shortcut' => 'ua',
|
||||||
|
'options' => array(
|
||||||
|
'nodeps' => array(
|
||||||
|
'shortopt' => 'n',
|
||||||
|
'doc' => 'ignore dependencies, upgrade anyway',
|
||||||
|
),
|
||||||
|
'register-only' => array(
|
||||||
|
'shortopt' => 'r',
|
||||||
|
'doc' => 'do not install files, only register the package as upgraded',
|
||||||
|
),
|
||||||
|
'nobuild' => array(
|
||||||
|
'shortopt' => 'B',
|
||||||
|
'doc' => 'don\'t build C extensions',
|
||||||
|
),
|
||||||
|
'nocompress' => array(
|
||||||
|
'shortopt' => 'Z',
|
||||||
|
'doc' => 'request uncompressed files when downloading',
|
||||||
|
),
|
||||||
|
'installroot' => array(
|
||||||
|
'shortopt' => 'R',
|
||||||
|
'arg' => 'DIR',
|
||||||
|
'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT)',
|
||||||
|
),
|
||||||
|
'ignore-errors' => array(
|
||||||
|
'doc' => 'force install even if there were errors',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '
|
||||||
|
Upgrades all packages that have a newer release available. Upgrades are
|
||||||
|
done only if there is a release available of the state specified in
|
||||||
|
"preferred_state" (currently {config preferred_state}), or a state considered
|
||||||
|
more stable.
|
||||||
|
'),
|
||||||
|
'uninstall' => array(
|
||||||
|
'summary' => 'Un-install Package',
|
||||||
|
'function' => 'doUninstall',
|
||||||
|
'shortcut' => 'un',
|
||||||
|
'options' => array(
|
||||||
|
'nodeps' => array(
|
||||||
|
'shortopt' => 'n',
|
||||||
|
'doc' => 'ignore dependencies, uninstall anyway',
|
||||||
|
),
|
||||||
|
'register-only' => array(
|
||||||
|
'shortopt' => 'r',
|
||||||
|
'doc' => 'do not remove files, only register the packages as not installed',
|
||||||
|
),
|
||||||
|
'installroot' => array(
|
||||||
|
'shortopt' => 'R',
|
||||||
|
'arg' => 'DIR',
|
||||||
|
'doc' => 'root directory used when installing files (ala PHP\'s INSTALL_ROOT)',
|
||||||
|
),
|
||||||
|
'ignore-errors' => array(
|
||||||
|
'doc' => 'force install even if there were errors',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '<package> ...
|
||||||
|
Uninstalls one or more PEAR packages. More than one package may be
|
||||||
|
specified at once.
|
||||||
|
'),
|
||||||
|
'bundle' => array(
|
||||||
|
'summary' => 'Unpacks a Pecl Package',
|
||||||
|
'function' => 'doBundle',
|
||||||
|
'shortcut' => 'bun',
|
||||||
|
'options' => array(
|
||||||
|
'destination' => array(
|
||||||
|
'shortopt' => 'd',
|
||||||
|
'arg' => 'DIR',
|
||||||
|
'doc' => 'Optional destination directory for unpacking (defaults to current path or "ext" if exists)',
|
||||||
|
),
|
||||||
|
'force' => array(
|
||||||
|
'shortopt' => 'f',
|
||||||
|
'doc' => 'Force the unpacking even if there were errors in the package',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '<package>
|
||||||
|
Unpacks a Pecl Package into the selected location. It will download the
|
||||||
|
package if needed.
|
||||||
|
'),
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Install constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Install(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR_Command_Common($ui, $config);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ doInstall()
|
||||||
|
|
||||||
|
function doInstall($command, $options, $params)
|
||||||
|
{
|
||||||
|
require_once 'PEAR/Downloader.php';
|
||||||
|
if (empty($this->installer)) {
|
||||||
|
$this->installer = &new PEAR_Installer($this->ui);
|
||||||
|
}
|
||||||
|
if ($command == 'upgrade') {
|
||||||
|
$options['upgrade'] = true;
|
||||||
|
}
|
||||||
|
if ($command == 'upgrade-all') {
|
||||||
|
include_once "PEAR/Remote.php";
|
||||||
|
$options['upgrade'] = true;
|
||||||
|
$remote = &new PEAR_Remote($this->config);
|
||||||
|
$state = $this->config->get('preferred_state');
|
||||||
|
if (empty($state) || $state == 'any') {
|
||||||
|
$latest = $remote->call("package.listLatestReleases");
|
||||||
|
} else {
|
||||||
|
$latest = $remote->call("package.listLatestReleases", $state);
|
||||||
|
}
|
||||||
|
if (PEAR::isError($latest)) {
|
||||||
|
return $latest;
|
||||||
|
}
|
||||||
|
$reg = new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
$installed = array_flip($reg->listPackages());
|
||||||
|
$params = array();
|
||||||
|
foreach ($latest as $package => $info) {
|
||||||
|
$package = strtolower($package);
|
||||||
|
if (!isset($installed[$package])) {
|
||||||
|
// skip packages we don't have installed
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
$inst_version = $reg->packageInfo($package, 'version');
|
||||||
|
if (version_compare("$info[version]", "$inst_version", "le")) {
|
||||||
|
// installed version is up-to-date
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
$params[] = $package;
|
||||||
|
$this->ui->outputData(array('data' => "Will upgrade $package"), $command);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->downloader = &new PEAR_Downloader($this->ui, $options, $this->config);
|
||||||
|
$errors = array();
|
||||||
|
$downloaded = array();
|
||||||
|
$this->downloader->download($params);
|
||||||
|
$errors = $this->downloader->getErrorMsgs();
|
||||||
|
if (count($errors)) {
|
||||||
|
$err['data'] = array($errors);
|
||||||
|
$err['headline'] = 'Install Errors';
|
||||||
|
$this->ui->outputData($err);
|
||||||
|
return $this->raiseError("$command failed");
|
||||||
|
}
|
||||||
|
$downloaded = $this->downloader->getDownloadedPackages();
|
||||||
|
$this->installer->sortPkgDeps($downloaded);
|
||||||
|
foreach ($downloaded as $pkg) {
|
||||||
|
$bn = basename($pkg['file']);
|
||||||
|
$info = $this->installer->install($pkg['file'], $options, $this->config);
|
||||||
|
if (is_array($info)) {
|
||||||
|
if ($this->config->get('verbose') > 0) {
|
||||||
|
$label = "$info[package] $info[version]";
|
||||||
|
$out = array('data' => "$command ok: $label");
|
||||||
|
if (isset($info['release_warnings'])) {
|
||||||
|
$out['release_warnings'] = $info['release_warnings'];
|
||||||
|
}
|
||||||
|
$this->ui->outputData($out, $command);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return $this->raiseError("$command failed");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doUninstall()
|
||||||
|
|
||||||
|
function doUninstall($command, $options, $params)
|
||||||
|
{
|
||||||
|
if (empty($this->installer)) {
|
||||||
|
$this->installer = &new PEAR_Installer($this->ui);
|
||||||
|
}
|
||||||
|
if (sizeof($params) < 1) {
|
||||||
|
return $this->raiseError("Please supply the package(s) you want to uninstall");
|
||||||
|
}
|
||||||
|
include_once 'PEAR/Registry.php';
|
||||||
|
$reg = new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
$newparams = array();
|
||||||
|
$badparams = array();
|
||||||
|
foreach ($params as $pkg) {
|
||||||
|
$info = $reg->packageInfo($pkg);
|
||||||
|
if ($info === null) {
|
||||||
|
$badparams[] = $pkg;
|
||||||
|
} else {
|
||||||
|
$newparams[] = $info;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->installer->sortPkgDeps($newparams, true);
|
||||||
|
$params = array();
|
||||||
|
foreach($newparams as $info) {
|
||||||
|
$params[] = $info['info']['package'];
|
||||||
|
}
|
||||||
|
$params = array_merge($params, $badparams);
|
||||||
|
foreach ($params as $pkg) {
|
||||||
|
if ($this->installer->uninstall($pkg, $options)) {
|
||||||
|
if ($this->config->get('verbose') > 0) {
|
||||||
|
$this->ui->outputData("uninstall ok: $pkg", $command);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return $this->raiseError("uninstall failed: $pkg");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doBundle()
|
||||||
|
/*
|
||||||
|
(cox) It just downloads and untars the package, does not do
|
||||||
|
any check that the PEAR_Installer::_installFile() does.
|
||||||
|
*/
|
||||||
|
|
||||||
|
function doBundle($command, $options, $params)
|
||||||
|
{
|
||||||
|
if (empty($this->installer)) {
|
||||||
|
$this->installer = &new PEAR_Downloader($this->ui);
|
||||||
|
}
|
||||||
|
$installer = &$this->installer;
|
||||||
|
if (sizeof($params) < 1) {
|
||||||
|
return $this->raiseError("Please supply the package you want to bundle");
|
||||||
|
}
|
||||||
|
$pkgfile = $params[0];
|
||||||
|
$need_download = false;
|
||||||
|
if (preg_match('#^(http|ftp)://#', $pkgfile)) {
|
||||||
|
$need_download = true;
|
||||||
|
} elseif (!@is_file($pkgfile)) {
|
||||||
|
if ($installer->validPackageName($pkgfile)) {
|
||||||
|
$pkgfile = $installer->getPackageDownloadUrl($pkgfile);
|
||||||
|
$need_download = true;
|
||||||
|
} else {
|
||||||
|
if (strlen($pkgfile)) {
|
||||||
|
return $this->raiseError("Could not open the package file: $pkgfile");
|
||||||
|
} else {
|
||||||
|
return $this->raiseError("No package file given");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Download package -----------------------------------------------
|
||||||
|
if ($need_download) {
|
||||||
|
$downloaddir = $installer->config->get('download_dir');
|
||||||
|
if (empty($downloaddir)) {
|
||||||
|
if (PEAR::isError($downloaddir = System::mktemp('-d'))) {
|
||||||
|
return $downloaddir;
|
||||||
|
}
|
||||||
|
$installer->log(2, '+ tmp dir created at ' . $downloaddir);
|
||||||
|
}
|
||||||
|
$callback = $this->ui ? array(&$installer, '_downloadCallback') : null;
|
||||||
|
$file = $installer->downloadHttp($pkgfile, $this->ui, $downloaddir, $callback);
|
||||||
|
if (PEAR::isError($file)) {
|
||||||
|
return $this->raiseError($file);
|
||||||
|
}
|
||||||
|
$pkgfile = $file;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Parse xml file -----------------------------------------------
|
||||||
|
$pkginfo = $installer->infoFromTgzFile($pkgfile);
|
||||||
|
if (PEAR::isError($pkginfo)) {
|
||||||
|
return $this->raiseError($pkginfo);
|
||||||
|
}
|
||||||
|
$installer->validatePackageInfo($pkginfo, $errors, $warnings);
|
||||||
|
// XXX We allow warnings, do we have to do it?
|
||||||
|
if (count($errors)) {
|
||||||
|
if (empty($options['force'])) {
|
||||||
|
return $this->raiseError("The following errors where found:\n".
|
||||||
|
implode("\n", $errors));
|
||||||
|
} else {
|
||||||
|
$this->log(0, "warning : the following errors were found:\n".
|
||||||
|
implode("\n", $errors));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$pkgname = $pkginfo['package'];
|
||||||
|
|
||||||
|
// Unpacking -------------------------------------------------
|
||||||
|
|
||||||
|
if (isset($options['destination'])) {
|
||||||
|
if (!is_dir($options['destination'])) {
|
||||||
|
System::mkdir('-p ' . $options['destination']);
|
||||||
|
}
|
||||||
|
$dest = realpath($options['destination']);
|
||||||
|
} else {
|
||||||
|
$pwd = getcwd();
|
||||||
|
if (is_dir($pwd . DIRECTORY_SEPARATOR . 'ext')) {
|
||||||
|
$dest = $pwd . DIRECTORY_SEPARATOR . 'ext';
|
||||||
|
} else {
|
||||||
|
$dest = $pwd;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$dest .= DIRECTORY_SEPARATOR . $pkgname;
|
||||||
|
$orig = $pkgname . '-' . $pkginfo['version'];
|
||||||
|
|
||||||
|
$tar = new Archive_Tar($pkgfile);
|
||||||
|
if (!@$tar->extractModify($dest, $orig)) {
|
||||||
|
return $this->raiseError("unable to unpack $pkgfile");
|
||||||
|
}
|
||||||
|
$this->ui->outputData("Package ready at '$dest'");
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,99 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Alexander Merz <alexmerz@php.net> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Mirror.php,v 1.2.2.4 2004/01/25 23:19:59 pajoye Exp $
|
||||||
|
|
||||||
|
require_once "PEAR/Command/Common.php";
|
||||||
|
require_once "PEAR/Command.php";
|
||||||
|
require_once "PEAR/Remote.php";
|
||||||
|
require_once "PEAR.php";
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR commands for providing file mirrors
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
class PEAR_Command_Mirror extends PEAR_Command_Common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $commands = array(
|
||||||
|
'download-all' => array(
|
||||||
|
'summary' => 'Downloads each avaible Package from master_server',
|
||||||
|
'function' => 'doDownloadAll',
|
||||||
|
'shortcut' => 'da',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
Request a list of avaible Packages from the Package-Server
|
||||||
|
(master_server) and downloads them to current working dir'
|
||||||
|
),
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Mirror constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param object PEAR_Frontend a reference to an frontend
|
||||||
|
* @param object PEAR_Config a reference to the configuration data
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Mirror(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR_Command_Common($ui, $config);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ doDownloadAll()
|
||||||
|
/**
|
||||||
|
* retrieves a list of avaible Packages from master server
|
||||||
|
* and downloads them
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string $command the command
|
||||||
|
* @param array $options the command options before the command
|
||||||
|
* @param array $params the stuff after the command name
|
||||||
|
* @return bool true if succesful
|
||||||
|
* @throw PEAR_Error
|
||||||
|
*/
|
||||||
|
function doDownloadAll($command, $options, $params)
|
||||||
|
{
|
||||||
|
$this->config->set("php_dir", ".");
|
||||||
|
$remote = &new PEAR_Remote($this->config);
|
||||||
|
$remoteInfo = $remote->call("package.listAll");
|
||||||
|
if(PEAR::isError($remoteInfo)) {
|
||||||
|
return $remoteInfo;
|
||||||
|
}
|
||||||
|
$cmd = &PEAR_Command::factory("download", $this->config);
|
||||||
|
if(PEAR::isError($cmd)) {
|
||||||
|
return $cmd;
|
||||||
|
}
|
||||||
|
foreach($remoteInfo as $pkgn=>$pkg) {
|
||||||
|
// error handling not neccesary, because
|
||||||
|
// already done by the download command
|
||||||
|
$cmd->run("download", array(), array($pkgn));
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,722 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Stig Bakken <ssb@php.net> |
|
||||||
|
// | Martin Jansen <mj@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Package.php,v 1.42.2.17 2004/06/08 18:26:32 cellog Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR/Common.php';
|
||||||
|
require_once 'PEAR/Command/Common.php';
|
||||||
|
|
||||||
|
class PEAR_Command_Package extends PEAR_Command_Common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $commands = array(
|
||||||
|
'package' => array(
|
||||||
|
'summary' => 'Build Package',
|
||||||
|
'function' => 'doPackage',
|
||||||
|
'shortcut' => 'p',
|
||||||
|
'options' => array(
|
||||||
|
'nocompress' => array(
|
||||||
|
'shortopt' => 'Z',
|
||||||
|
'doc' => 'Do not gzip the package file'
|
||||||
|
),
|
||||||
|
'showname' => array(
|
||||||
|
'shortopt' => 'n',
|
||||||
|
'doc' => 'Print the name of the packaged file.',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '[descfile]
|
||||||
|
Creates a PEAR package from its description file (usually called
|
||||||
|
package.xml).
|
||||||
|
'
|
||||||
|
),
|
||||||
|
'package-validate' => array(
|
||||||
|
'summary' => 'Validate Package Consistency',
|
||||||
|
'function' => 'doPackageValidate',
|
||||||
|
'shortcut' => 'pv',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
',
|
||||||
|
),
|
||||||
|
'cvsdiff' => array(
|
||||||
|
'summary' => 'Run a "cvs diff" for all files in a package',
|
||||||
|
'function' => 'doCvsDiff',
|
||||||
|
'shortcut' => 'cd',
|
||||||
|
'options' => array(
|
||||||
|
'quiet' => array(
|
||||||
|
'shortopt' => 'q',
|
||||||
|
'doc' => 'Be quiet',
|
||||||
|
),
|
||||||
|
'reallyquiet' => array(
|
||||||
|
'shortopt' => 'Q',
|
||||||
|
'doc' => 'Be really quiet',
|
||||||
|
),
|
||||||
|
'date' => array(
|
||||||
|
'shortopt' => 'D',
|
||||||
|
'doc' => 'Diff against revision of DATE',
|
||||||
|
'arg' => 'DATE',
|
||||||
|
),
|
||||||
|
'release' => array(
|
||||||
|
'shortopt' => 'R',
|
||||||
|
'doc' => 'Diff against tag for package release REL',
|
||||||
|
'arg' => 'REL',
|
||||||
|
),
|
||||||
|
'revision' => array(
|
||||||
|
'shortopt' => 'r',
|
||||||
|
'doc' => 'Diff against revision REV',
|
||||||
|
'arg' => 'REV',
|
||||||
|
),
|
||||||
|
'context' => array(
|
||||||
|
'shortopt' => 'c',
|
||||||
|
'doc' => 'Generate context diff',
|
||||||
|
),
|
||||||
|
'unified' => array(
|
||||||
|
'shortopt' => 'u',
|
||||||
|
'doc' => 'Generate unified diff',
|
||||||
|
),
|
||||||
|
'ignore-case' => array(
|
||||||
|
'shortopt' => 'i',
|
||||||
|
'doc' => 'Ignore case, consider upper- and lower-case letters equivalent',
|
||||||
|
),
|
||||||
|
'ignore-whitespace' => array(
|
||||||
|
'shortopt' => 'b',
|
||||||
|
'doc' => 'Ignore changes in amount of white space',
|
||||||
|
),
|
||||||
|
'ignore-blank-lines' => array(
|
||||||
|
'shortopt' => 'B',
|
||||||
|
'doc' => 'Ignore changes that insert or delete blank lines',
|
||||||
|
),
|
||||||
|
'brief' => array(
|
||||||
|
'doc' => 'Report only whether the files differ, no details',
|
||||||
|
),
|
||||||
|
'dry-run' => array(
|
||||||
|
'shortopt' => 'n',
|
||||||
|
'doc' => 'Don\'t do anything, just pretend',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '<package.xml>
|
||||||
|
Compares all the files in a package. Without any options, this
|
||||||
|
command will compare the current code with the last checked-in code.
|
||||||
|
Using the -r or -R option you may compare the current code with that
|
||||||
|
of a specific release.
|
||||||
|
',
|
||||||
|
),
|
||||||
|
'cvstag' => array(
|
||||||
|
'summary' => 'Set CVS Release Tag',
|
||||||
|
'function' => 'doCvsTag',
|
||||||
|
'shortcut' => 'ct',
|
||||||
|
'options' => array(
|
||||||
|
'quiet' => array(
|
||||||
|
'shortopt' => 'q',
|
||||||
|
'doc' => 'Be quiet',
|
||||||
|
),
|
||||||
|
'reallyquiet' => array(
|
||||||
|
'shortopt' => 'Q',
|
||||||
|
'doc' => 'Be really quiet',
|
||||||
|
),
|
||||||
|
'slide' => array(
|
||||||
|
'shortopt' => 'F',
|
||||||
|
'doc' => 'Move (slide) tag if it exists',
|
||||||
|
),
|
||||||
|
'delete' => array(
|
||||||
|
'shortopt' => 'd',
|
||||||
|
'doc' => 'Remove tag',
|
||||||
|
),
|
||||||
|
'dry-run' => array(
|
||||||
|
'shortopt' => 'n',
|
||||||
|
'doc' => 'Don\'t do anything, just pretend',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '<package.xml>
|
||||||
|
Sets a CVS tag on all files in a package. Use this command after you have
|
||||||
|
packaged a distribution tarball with the "package" command to tag what
|
||||||
|
revisions of what files were in that release. If need to fix something
|
||||||
|
after running cvstag once, but before the tarball is released to the public,
|
||||||
|
use the "slide" option to move the release tag.
|
||||||
|
',
|
||||||
|
),
|
||||||
|
'run-tests' => array(
|
||||||
|
'summary' => 'Run Regression Tests',
|
||||||
|
'function' => 'doRunTests',
|
||||||
|
'shortcut' => 'rt',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '[testfile|dir ...]
|
||||||
|
Run regression tests with PHP\'s regression testing script (run-tests.php).',
|
||||||
|
),
|
||||||
|
'package-dependencies' => array(
|
||||||
|
'summary' => 'Show package dependencies',
|
||||||
|
'function' => 'doPackageDependencies',
|
||||||
|
'shortcut' => 'pd',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
List all depencies the package has.'
|
||||||
|
),
|
||||||
|
'sign' => array(
|
||||||
|
'summary' => 'Sign a package distribution file',
|
||||||
|
'function' => 'doSign',
|
||||||
|
'shortcut' => 'si',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '<package-file>
|
||||||
|
Signs a package distribution (.tar or .tgz) file with GnuPG.',
|
||||||
|
),
|
||||||
|
'makerpm' => array(
|
||||||
|
'summary' => 'Builds an RPM spec file from a PEAR package',
|
||||||
|
'function' => 'doMakeRPM',
|
||||||
|
'shortcut' => 'rpm',
|
||||||
|
'options' => array(
|
||||||
|
'spec-template' => array(
|
||||||
|
'shortopt' => 't',
|
||||||
|
'arg' => 'FILE',
|
||||||
|
'doc' => 'Use FILE as RPM spec file template'
|
||||||
|
),
|
||||||
|
'rpm-pkgname' => array(
|
||||||
|
'shortopt' => 'p',
|
||||||
|
'arg' => 'FORMAT',
|
||||||
|
'doc' => 'Use FORMAT as format string for RPM package name, %s is replaced
|
||||||
|
by the PEAR package name, defaults to "PEAR::%s".',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '<package-file>
|
||||||
|
|
||||||
|
Creates an RPM .spec file for wrapping a PEAR package inside an RPM
|
||||||
|
package. Intended to be used from the SPECS directory, with the PEAR
|
||||||
|
package tarball in the SOURCES directory:
|
||||||
|
|
||||||
|
$ pear makerpm ../SOURCES/Net_Socket-1.0.tgz
|
||||||
|
Wrote RPM spec file PEAR::Net_Geo-1.0.spec
|
||||||
|
$ rpm -bb PEAR::Net_Socket-1.0.spec
|
||||||
|
...
|
||||||
|
Wrote: /usr/src/redhat/RPMS/i386/PEAR::Net_Socket-1.0-1.i386.rpm
|
||||||
|
',
|
||||||
|
),
|
||||||
|
);
|
||||||
|
|
||||||
|
var $output;
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Package constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Package(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR_Command_Common($ui, $config);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ _displayValidationResults()
|
||||||
|
|
||||||
|
function _displayValidationResults($err, $warn, $strict = false)
|
||||||
|
{
|
||||||
|
foreach ($err as $e) {
|
||||||
|
$this->output .= "Error: $e\n";
|
||||||
|
}
|
||||||
|
foreach ($warn as $w) {
|
||||||
|
$this->output .= "Warning: $w\n";
|
||||||
|
}
|
||||||
|
$this->output .= sprintf('Validation: %d error(s), %d warning(s)'."\n",
|
||||||
|
sizeof($err), sizeof($warn));
|
||||||
|
if ($strict && sizeof($err) > 0) {
|
||||||
|
$this->output .= "Fix these errors and try again.";
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doPackage()
|
||||||
|
|
||||||
|
function doPackage($command, $options, $params)
|
||||||
|
{
|
||||||
|
$this->output = '';
|
||||||
|
include_once 'PEAR/Packager.php';
|
||||||
|
$pkginfofile = isset($params[0]) ? $params[0] : 'package.xml';
|
||||||
|
$packager =& new PEAR_Packager();
|
||||||
|
$err = $warn = array();
|
||||||
|
$dir = dirname($pkginfofile);
|
||||||
|
$compress = empty($options['nocompress']) ? true : false;
|
||||||
|
$result = $packager->package($pkginfofile, $compress);
|
||||||
|
if (PEAR::isError($result)) {
|
||||||
|
$this->ui->outputData($this->output, $command);
|
||||||
|
return $this->raiseError($result);
|
||||||
|
}
|
||||||
|
// Don't want output, only the package file name just created
|
||||||
|
if (isset($options['showname'])) {
|
||||||
|
$this->output = $result;
|
||||||
|
}
|
||||||
|
/* (cox) What is supposed to do that code?
|
||||||
|
$lines = explode("\n", $this->output);
|
||||||
|
foreach ($lines as $line) {
|
||||||
|
$this->output .= $line."n";
|
||||||
|
}
|
||||||
|
*/
|
||||||
|
if (PEAR::isError($result)) {
|
||||||
|
$this->output .= "Package failed: ".$result->getMessage();
|
||||||
|
}
|
||||||
|
$this->ui->outputData($this->output, $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doPackageValidate()
|
||||||
|
|
||||||
|
function doPackageValidate($command, $options, $params)
|
||||||
|
{
|
||||||
|
$this->output = '';
|
||||||
|
if (sizeof($params) < 1) {
|
||||||
|
$params[0] = "package.xml";
|
||||||
|
}
|
||||||
|
$obj = new PEAR_Common;
|
||||||
|
$info = null;
|
||||||
|
if ($fp = @fopen($params[0], "r")) {
|
||||||
|
$test = fread($fp, 5);
|
||||||
|
fclose($fp);
|
||||||
|
if ($test == "<?xml") {
|
||||||
|
$info = $obj->infoFromDescriptionFile($params[0]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (empty($info)) {
|
||||||
|
$info = $obj->infoFromTgzFile($params[0]);
|
||||||
|
}
|
||||||
|
if (PEAR::isError($info)) {
|
||||||
|
return $this->raiseError($info);
|
||||||
|
}
|
||||||
|
$obj->validatePackageInfo($info, $err, $warn);
|
||||||
|
$this->_displayValidationResults($err, $warn);
|
||||||
|
$this->ui->outputData($this->output, $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doCvsTag()
|
||||||
|
|
||||||
|
function doCvsTag($command, $options, $params)
|
||||||
|
{
|
||||||
|
$this->output = '';
|
||||||
|
$_cmd = $command;
|
||||||
|
if (sizeof($params) < 1) {
|
||||||
|
$help = $this->getHelp($command);
|
||||||
|
return $this->raiseError("$command: missing parameter: $help[0]");
|
||||||
|
}
|
||||||
|
$obj = new PEAR_Common;
|
||||||
|
$info = $obj->infoFromDescriptionFile($params[0]);
|
||||||
|
if (PEAR::isError($info)) {
|
||||||
|
return $this->raiseError($info);
|
||||||
|
}
|
||||||
|
$err = $warn = array();
|
||||||
|
$obj->validatePackageInfo($info, $err, $warn);
|
||||||
|
if (!$this->_displayValidationResults($err, $warn, true)) {
|
||||||
|
$this->ui->outputData($this->output, $command);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
$version = $info['version'];
|
||||||
|
$cvsversion = preg_replace('/[^a-z0-9]/i', '_', $version);
|
||||||
|
$cvstag = "RELEASE_$cvsversion";
|
||||||
|
$files = array_keys($info['filelist']);
|
||||||
|
$command = "cvs";
|
||||||
|
if (isset($options['quiet'])) {
|
||||||
|
$command .= ' -q';
|
||||||
|
}
|
||||||
|
if (isset($options['reallyquiet'])) {
|
||||||
|
$command .= ' -Q';
|
||||||
|
}
|
||||||
|
$command .= ' tag';
|
||||||
|
if (isset($options['slide'])) {
|
||||||
|
$command .= ' -F';
|
||||||
|
}
|
||||||
|
if (isset($options['delete'])) {
|
||||||
|
$command .= ' -d';
|
||||||
|
}
|
||||||
|
$command .= ' ' . $cvstag . ' ' . escapeshellarg($params[0]);
|
||||||
|
foreach ($files as $file) {
|
||||||
|
$command .= ' ' . escapeshellarg($file);
|
||||||
|
}
|
||||||
|
if ($this->config->get('verbose') > 1) {
|
||||||
|
$this->output .= "+ $command\n";
|
||||||
|
}
|
||||||
|
$this->output .= "+ $command\n";
|
||||||
|
if (empty($options['dry-run'])) {
|
||||||
|
$fp = popen($command, "r");
|
||||||
|
while ($line = fgets($fp, 1024)) {
|
||||||
|
$this->output .= rtrim($line)."\n";
|
||||||
|
}
|
||||||
|
pclose($fp);
|
||||||
|
}
|
||||||
|
$this->ui->outputData($this->output, $_cmd);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doCvsDiff()
|
||||||
|
|
||||||
|
function doCvsDiff($command, $options, $params)
|
||||||
|
{
|
||||||
|
$this->output = '';
|
||||||
|
if (sizeof($params) < 1) {
|
||||||
|
$help = $this->getHelp($command);
|
||||||
|
return $this->raiseError("$command: missing parameter: $help[0]");
|
||||||
|
}
|
||||||
|
$obj = new PEAR_Common;
|
||||||
|
$info = $obj->infoFromDescriptionFile($params[0]);
|
||||||
|
if (PEAR::isError($info)) {
|
||||||
|
return $this->raiseError($info);
|
||||||
|
}
|
||||||
|
$files = array_keys($info['filelist']);
|
||||||
|
$cmd = "cvs";
|
||||||
|
if (isset($options['quiet'])) {
|
||||||
|
$cmd .= ' -q';
|
||||||
|
unset($options['quiet']);
|
||||||
|
}
|
||||||
|
if (isset($options['reallyquiet'])) {
|
||||||
|
$cmd .= ' -Q';
|
||||||
|
unset($options['reallyquiet']);
|
||||||
|
}
|
||||||
|
if (isset($options['release'])) {
|
||||||
|
$cvsversion = preg_replace('/[^a-z0-9]/i', '_', $options['release']);
|
||||||
|
$cvstag = "RELEASE_$cvsversion";
|
||||||
|
$options['revision'] = $cvstag;
|
||||||
|
unset($options['release']);
|
||||||
|
}
|
||||||
|
$execute = true;
|
||||||
|
if (isset($options['dry-run'])) {
|
||||||
|
$execute = false;
|
||||||
|
unset($options['dry-run']);
|
||||||
|
}
|
||||||
|
$cmd .= ' diff';
|
||||||
|
// the rest of the options are passed right on to "cvs diff"
|
||||||
|
foreach ($options as $option => $optarg) {
|
||||||
|
$arg = @$this->commands[$command]['options'][$option]['arg'];
|
||||||
|
$short = @$this->commands[$command]['options'][$option]['shortopt'];
|
||||||
|
$cmd .= $short ? " -$short" : " --$option";
|
||||||
|
if ($arg && $optarg) {
|
||||||
|
$cmd .= ($short ? '' : '=') . escapeshellarg($optarg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
foreach ($files as $file) {
|
||||||
|
$cmd .= ' ' . escapeshellarg($file);
|
||||||
|
}
|
||||||
|
if ($this->config->get('verbose') > 1) {
|
||||||
|
$this->output .= "+ $cmd\n";
|
||||||
|
}
|
||||||
|
if ($execute) {
|
||||||
|
$fp = popen($cmd, "r");
|
||||||
|
while ($line = fgets($fp, 1024)) {
|
||||||
|
$this->output .= rtrim($line)."\n";
|
||||||
|
}
|
||||||
|
pclose($fp);
|
||||||
|
}
|
||||||
|
$this->ui->outputData($this->output, $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doRunTests()
|
||||||
|
|
||||||
|
function doRunTests($command, $options, $params)
|
||||||
|
{
|
||||||
|
$cwd = getcwd();
|
||||||
|
$php = $this->config->get('php_bin');
|
||||||
|
putenv("TEST_PHP_EXECUTABLE=$php");
|
||||||
|
// all core PEAR tests use this constant to determine whether they should be run or not
|
||||||
|
putenv("PHP_PEAR_RUNTESTS=1");
|
||||||
|
$ip = ini_get("include_path");
|
||||||
|
$ps = OS_WINDOWS ? ';' : ':';
|
||||||
|
$run_tests = $rtsts = $this->config->get('php_dir') . DIRECTORY_SEPARATOR . 'run-tests.php';
|
||||||
|
if (!file_exists($run_tests)) {
|
||||||
|
$run_tests = PEAR_INSTALL_DIR . DIRECTORY_SEPARATOR . 'run-tests.php';
|
||||||
|
if (!file_exists($run_tests)) {
|
||||||
|
return $this->raiseError("No run-tests.php file found. Please copy this ".
|
||||||
|
"file from the sources of your PHP distribution to $rtsts");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (OS_WINDOWS) {
|
||||||
|
// note, this requires a slightly modified version of run-tests.php
|
||||||
|
// for some setups
|
||||||
|
// unofficial download location is in the pear-dev archives
|
||||||
|
$argv = $params;
|
||||||
|
array_unshift($argv, $run_tests);
|
||||||
|
$argc = count($argv);
|
||||||
|
include $run_tests;
|
||||||
|
} else {
|
||||||
|
$plist = implode(' ', $params);
|
||||||
|
$cmd = "$php -d include_path=$cwd$ps$ip -f $run_tests -- $plist";
|
||||||
|
system($cmd);
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doPackageDependencies()
|
||||||
|
|
||||||
|
function doPackageDependencies($command, $options, $params)
|
||||||
|
{
|
||||||
|
// $params[0] -> the PEAR package to list its information
|
||||||
|
if (sizeof($params) != 1) {
|
||||||
|
return $this->raiseError("bad parameter(s), try \"help $command\"");
|
||||||
|
}
|
||||||
|
|
||||||
|
$obj = new PEAR_Common();
|
||||||
|
if (PEAR::isError($info = $obj->infoFromAny($params[0]))) {
|
||||||
|
return $this->raiseError($info);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (is_array($info['release_deps'])) {
|
||||||
|
$data = array(
|
||||||
|
'caption' => 'Dependencies for ' . $info['package'],
|
||||||
|
'border' => true,
|
||||||
|
'headline' => array("Type", "Name", "Relation", "Version"),
|
||||||
|
);
|
||||||
|
|
||||||
|
foreach ($info['release_deps'] as $d) {
|
||||||
|
|
||||||
|
if (isset($this->_deps_rel_trans[$d['rel']])) {
|
||||||
|
$rel = $this->_deps_rel_trans[$d['rel']];
|
||||||
|
} else {
|
||||||
|
$rel = $d['rel'];
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($this->_deps_type_trans[$d['type']])) {
|
||||||
|
$type = ucfirst($this->_deps_type_trans[$d['type']]);
|
||||||
|
} else {
|
||||||
|
$type = $d['type'];
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($d['name'])) {
|
||||||
|
$name = $d['name'];
|
||||||
|
} else {
|
||||||
|
$name = '';
|
||||||
|
}
|
||||||
|
|
||||||
|
if (isset($d['version'])) {
|
||||||
|
$version = $d['version'];
|
||||||
|
} else {
|
||||||
|
$version = '';
|
||||||
|
}
|
||||||
|
|
||||||
|
$data['data'][] = array($type, $name, $rel, $version);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Fallback
|
||||||
|
$this->ui->outputData("This package does not have any dependencies.", $command);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doSign()
|
||||||
|
|
||||||
|
function doSign($command, $options, $params)
|
||||||
|
{
|
||||||
|
// should move most of this code into PEAR_Packager
|
||||||
|
// so it'll be easy to implement "pear package --sign"
|
||||||
|
if (sizeof($params) != 1) {
|
||||||
|
return $this->raiseError("bad parameter(s), try \"help $command\"");
|
||||||
|
}
|
||||||
|
if (!file_exists($params[0])) {
|
||||||
|
return $this->raiseError("file does not exist: $params[0]");
|
||||||
|
}
|
||||||
|
$obj = new PEAR_Common;
|
||||||
|
$info = $obj->infoFromTgzFile($params[0]);
|
||||||
|
if (PEAR::isError($info)) {
|
||||||
|
return $this->raiseError($info);
|
||||||
|
}
|
||||||
|
include_once "Archive/Tar.php";
|
||||||
|
include_once "System.php";
|
||||||
|
$tar = new Archive_Tar($params[0]);
|
||||||
|
$tmpdir = System::mktemp('-d pearsign');
|
||||||
|
if (!$tar->extractList('package.xml package.sig', $tmpdir)) {
|
||||||
|
return $this->raiseError("failed to extract tar file");
|
||||||
|
}
|
||||||
|
if (file_exists("$tmpdir/package.sig")) {
|
||||||
|
return $this->raiseError("package already signed");
|
||||||
|
}
|
||||||
|
@unlink("$tmpdir/package.sig");
|
||||||
|
$input = $this->ui->userDialog($command,
|
||||||
|
array('GnuPG Passphrase'),
|
||||||
|
array('password'));
|
||||||
|
$gpg = popen("gpg --batch --passphrase-fd 0 --armor --detach-sign --output $tmpdir/package.sig $tmpdir/package.xml 2>/dev/null", "w");
|
||||||
|
if (!$gpg) {
|
||||||
|
return $this->raiseError("gpg command failed");
|
||||||
|
}
|
||||||
|
fwrite($gpg, "$input[0]\r");
|
||||||
|
if (pclose($gpg) || !file_exists("$tmpdir/package.sig")) {
|
||||||
|
return $this->raiseError("gpg sign failed");
|
||||||
|
}
|
||||||
|
$tar->addModify("$tmpdir/package.sig", '', $tmpdir);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doMakeRPM()
|
||||||
|
|
||||||
|
/*
|
||||||
|
|
||||||
|
(cox)
|
||||||
|
|
||||||
|
TODO:
|
||||||
|
|
||||||
|
- Fill the rpm dependencies in the template file.
|
||||||
|
|
||||||
|
IDEAS:
|
||||||
|
|
||||||
|
- Instead of mapping the role to rpm vars, perhaps it's better
|
||||||
|
|
||||||
|
to use directly the pear cmd to install the files by itself
|
||||||
|
|
||||||
|
in %postrun so:
|
||||||
|
|
||||||
|
pear -d php_dir=%{_libdir}/php/pear -d test_dir=.. <package>
|
||||||
|
|
||||||
|
*/
|
||||||
|
|
||||||
|
function doMakeRPM($command, $options, $params)
|
||||||
|
{
|
||||||
|
if (sizeof($params) != 1) {
|
||||||
|
return $this->raiseError("bad parameter(s), try \"help $command\"");
|
||||||
|
}
|
||||||
|
if (!file_exists($params[0])) {
|
||||||
|
return $this->raiseError("file does not exist: $params[0]");
|
||||||
|
}
|
||||||
|
include_once "Archive/Tar.php";
|
||||||
|
include_once "PEAR/Installer.php";
|
||||||
|
include_once "System.php";
|
||||||
|
$tar = new Archive_Tar($params[0]);
|
||||||
|
$tmpdir = System::mktemp('-d pear2rpm');
|
||||||
|
$instroot = System::mktemp('-d pear2rpm');
|
||||||
|
$tmp = $this->config->get('verbose');
|
||||||
|
$this->config->set('verbose', 0);
|
||||||
|
$installer = new PEAR_Installer($this->ui);
|
||||||
|
$info = $installer->install($params[0],
|
||||||
|
array('installroot' => $instroot,
|
||||||
|
'nodeps' => true));
|
||||||
|
$pkgdir = "$info[package]-$info[version]";
|
||||||
|
$info['rpm_xml_dir'] = '/var/lib/pear';
|
||||||
|
$this->config->set('verbose', $tmp);
|
||||||
|
if (!$tar->extractList("package.xml", $tmpdir, $pkgdir)) {
|
||||||
|
return $this->raiseError("failed to extract $params[0]");
|
||||||
|
}
|
||||||
|
if (!file_exists("$tmpdir/package.xml")) {
|
||||||
|
return $this->raiseError("no package.xml found in $params[0]");
|
||||||
|
}
|
||||||
|
if (isset($options['spec-template'])) {
|
||||||
|
$spec_template = $options['spec-template'];
|
||||||
|
} else {
|
||||||
|
$spec_template = $this->config->get('data_dir') .
|
||||||
|
'/PEAR/template.spec';
|
||||||
|
}
|
||||||
|
if (isset($options['rpm-pkgname'])) {
|
||||||
|
$rpm_pkgname_format = $options['rpm-pkgname'];
|
||||||
|
} else {
|
||||||
|
$rpm_pkgname_format = "PEAR::%s";
|
||||||
|
}
|
||||||
|
|
||||||
|
$info['extra_headers'] = '';
|
||||||
|
$info['doc_files'] = '';
|
||||||
|
$info['files'] = '';
|
||||||
|
$info['rpm_package'] = sprintf($rpm_pkgname_format, $info['package']);
|
||||||
|
$srcfiles = 0;
|
||||||
|
foreach ($info['filelist'] as $name => $attr) {
|
||||||
|
|
||||||
|
if (!isset($attr['role'])) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if ($attr['role'] == 'doc') {
|
||||||
|
$info['doc_files'] .= " $name";
|
||||||
|
|
||||||
|
// Map role to the rpm vars
|
||||||
|
} else {
|
||||||
|
|
||||||
|
$c_prefix = '%{_libdir}/php/pear';
|
||||||
|
|
||||||
|
switch ($attr['role']) {
|
||||||
|
|
||||||
|
case 'php':
|
||||||
|
|
||||||
|
$prefix = $c_prefix; break;
|
||||||
|
|
||||||
|
case 'ext':
|
||||||
|
|
||||||
|
$prefix = '%{_libdir}/php'; break; // XXX good place?
|
||||||
|
|
||||||
|
case 'src':
|
||||||
|
|
||||||
|
$srcfiles++;
|
||||||
|
|
||||||
|
$prefix = '%{_includedir}/php'; break; // XXX good place?
|
||||||
|
|
||||||
|
case 'test':
|
||||||
|
|
||||||
|
$prefix = "$c_prefix/tests/" . $info['package']; break;
|
||||||
|
|
||||||
|
case 'data':
|
||||||
|
|
||||||
|
$prefix = "$c_prefix/data/" . $info['package']; break;
|
||||||
|
|
||||||
|
case 'script':
|
||||||
|
|
||||||
|
$prefix = '%{_bindir}'; break;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
$name = str_replace('\\', '/', $name);
|
||||||
|
$info['files'] .= "$prefix/$name\n";
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($srcfiles > 0) {
|
||||||
|
include_once "OS/Guess.php";
|
||||||
|
$os = new OS_Guess;
|
||||||
|
$arch = $os->getCpu();
|
||||||
|
} else {
|
||||||
|
$arch = 'noarch';
|
||||||
|
}
|
||||||
|
$cfg = array('master_server', 'php_dir', 'ext_dir', 'doc_dir',
|
||||||
|
'bin_dir', 'data_dir', 'test_dir');
|
||||||
|
foreach ($cfg as $k) {
|
||||||
|
$info[$k] = $this->config->get($k);
|
||||||
|
}
|
||||||
|
$info['arch'] = $arch;
|
||||||
|
$fp = @fopen($spec_template, "r");
|
||||||
|
if (!$fp) {
|
||||||
|
return $this->raiseError("could not open RPM spec file template $spec_template: $php_errormsg");
|
||||||
|
}
|
||||||
|
$spec_contents = preg_replace('/@([a-z0-9_-]+)@/e', '$info["\1"]', fread($fp, filesize($spec_template)));
|
||||||
|
fclose($fp);
|
||||||
|
$spec_file = "$info[rpm_package]-$info[version].spec";
|
||||||
|
$wp = fopen($spec_file, "wb");
|
||||||
|
if (!$wp) {
|
||||||
|
return $this->raiseError("could not write RPM spec file $spec_file: $php_errormsg");
|
||||||
|
}
|
||||||
|
fwrite($wp, $spec_contents);
|
||||||
|
fclose($wp);
|
||||||
|
$this->ui->outputData("Wrote RPM spec file $spec_file", $command);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,351 @@
|
||||||
|
<?php
|
||||||
|
// /* vim: set expandtab tabstop=4 shiftwidth=4: */
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Registry.php,v 1.24.4.13 2003/10/20 15:51:45 cox Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR/Command/Common.php';
|
||||||
|
require_once 'PEAR/Registry.php';
|
||||||
|
require_once 'PEAR/Config.php';
|
||||||
|
|
||||||
|
class PEAR_Command_Registry extends PEAR_Command_Common
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $commands = array(
|
||||||
|
'list' => array(
|
||||||
|
'summary' => 'List Installed Packages',
|
||||||
|
'function' => 'doList',
|
||||||
|
'shortcut' => 'l',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '[package]
|
||||||
|
If invoked without parameters, this command lists the PEAR packages
|
||||||
|
installed in your php_dir ({config php_dir)). With a parameter, it
|
||||||
|
lists the files in that package.
|
||||||
|
',
|
||||||
|
),
|
||||||
|
'shell-test' => array(
|
||||||
|
'summary' => 'Shell Script Test',
|
||||||
|
'function' => 'doShellTest',
|
||||||
|
'shortcut' => 'st',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '<package> [[relation] version]
|
||||||
|
Tests if a package is installed in the system. Will exit(1) if it is not.
|
||||||
|
<relation> The version comparison operator. One of:
|
||||||
|
<, lt, <=, le, >, gt, >=, ge, ==, =, eq, !=, <>, ne
|
||||||
|
<version> The version to compare with
|
||||||
|
'),
|
||||||
|
'info' => array(
|
||||||
|
'summary' => 'Display information about a package',
|
||||||
|
'function' => 'doInfo',
|
||||||
|
'shortcut' => 'in',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '<package>
|
||||||
|
Displays information about a package. The package argument may be a
|
||||||
|
local package file, an URL to a package file, or the name of an
|
||||||
|
installed package.'
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Registry constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Registry(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR_Command_Common($ui, $config);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ doList()
|
||||||
|
|
||||||
|
function _sortinfo($a, $b)
|
||||||
|
{
|
||||||
|
return strcmp($a['package'], $b['package']);
|
||||||
|
}
|
||||||
|
|
||||||
|
function doList($command, $options, $params)
|
||||||
|
{
|
||||||
|
$reg = new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
if (sizeof($params) == 0) {
|
||||||
|
$installed = $reg->packageInfo();
|
||||||
|
usort($installed, array(&$this, '_sortinfo'));
|
||||||
|
$i = $j = 0;
|
||||||
|
$data = array(
|
||||||
|
'caption' => 'Installed packages:',
|
||||||
|
'border' => true,
|
||||||
|
'headline' => array('Package', 'Version', 'State')
|
||||||
|
);
|
||||||
|
foreach ($installed as $package) {
|
||||||
|
$data['data'][] = array($package['package'],
|
||||||
|
$package['version'],
|
||||||
|
@$package['release_state']);
|
||||||
|
}
|
||||||
|
if (count($installed)==0) {
|
||||||
|
$data = '(no packages installed)';
|
||||||
|
}
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
} else {
|
||||||
|
if (file_exists($params[0]) && !is_dir($params[0])) {
|
||||||
|
include_once "PEAR/Common.php";
|
||||||
|
$obj = &new PEAR_Common;
|
||||||
|
$info = $obj->infoFromAny($params[0]);
|
||||||
|
$headings = array('Package File', 'Install Path');
|
||||||
|
$installed = false;
|
||||||
|
} else {
|
||||||
|
$info = $reg->packageInfo($params[0]);
|
||||||
|
$headings = array('Type', 'Install Path');
|
||||||
|
$installed = true;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($info)) {
|
||||||
|
return $this->raiseError($info);
|
||||||
|
}
|
||||||
|
if ($info === null) {
|
||||||
|
return $this->raiseError("`$params[0]' not installed");
|
||||||
|
}
|
||||||
|
$list = $info['filelist'];
|
||||||
|
if ($installed) {
|
||||||
|
$caption = 'Installed Files For ' . $params[0];
|
||||||
|
} else {
|
||||||
|
$caption = 'Contents of ' . basename($params[0]);
|
||||||
|
}
|
||||||
|
$data = array(
|
||||||
|
'caption' => $caption,
|
||||||
|
'border' => true,
|
||||||
|
'headline' => $headings);
|
||||||
|
foreach ($list as $file => $att) {
|
||||||
|
if ($installed) {
|
||||||
|
if (empty($att['installed_as'])) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
$data['data'][] = array($att['role'], $att['installed_as']);
|
||||||
|
} else {
|
||||||
|
if (isset($att['baseinstalldir'])) {
|
||||||
|
$dest = $att['baseinstalldir'] . DIRECTORY_SEPARATOR .
|
||||||
|
$file;
|
||||||
|
} else {
|
||||||
|
$dest = $file;
|
||||||
|
}
|
||||||
|
switch ($att['role']) {
|
||||||
|
case 'test':
|
||||||
|
case 'data':
|
||||||
|
if ($installed) {
|
||||||
|
break 2;
|
||||||
|
}
|
||||||
|
$dest = '-- will not be installed --';
|
||||||
|
break;
|
||||||
|
case 'doc':
|
||||||
|
$dest = $this->config->get('doc_dir') . DIRECTORY_SEPARATOR .
|
||||||
|
$dest;
|
||||||
|
break;
|
||||||
|
case 'php':
|
||||||
|
default:
|
||||||
|
$dest = $this->config->get('php_dir') . DIRECTORY_SEPARATOR .
|
||||||
|
$dest;
|
||||||
|
}
|
||||||
|
$dest = preg_replace('!/+!', '/', $dest);
|
||||||
|
$file = preg_replace('!/+!', '/', $file);
|
||||||
|
$data['data'][] = array($file, $dest);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doShellTest()
|
||||||
|
|
||||||
|
function doShellTest($command, $options, $params)
|
||||||
|
{
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$reg = &new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
// "pear shell-test Foo"
|
||||||
|
if (sizeof($params) == 1) {
|
||||||
|
if (!$reg->packageExists($params[0])) {
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
// "pear shell-test Foo 1.0"
|
||||||
|
} elseif (sizeof($params) == 2) {
|
||||||
|
$v = $reg->packageInfo($params[0], 'version');
|
||||||
|
if (!$v || !version_compare("$v", "{$params[1]}", "ge")) {
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
// "pear shell-test Foo ge 1.0"
|
||||||
|
} elseif (sizeof($params) == 3) {
|
||||||
|
$v = $reg->packageInfo($params[0], 'version');
|
||||||
|
if (!$v || !version_compare("$v", "{$params[2]}", $params[1])) {
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$this->popErrorHandling();
|
||||||
|
$this->raiseError("$command: expects 1 to 3 parameters");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doInfo
|
||||||
|
|
||||||
|
function doInfo($command, $options, $params)
|
||||||
|
{
|
||||||
|
// $params[0] The package for showing info
|
||||||
|
if (sizeof($params) != 1) {
|
||||||
|
return $this->raiseError("This command only accepts one param: ".
|
||||||
|
"the package you want information");
|
||||||
|
}
|
||||||
|
if (@is_file($params[0])) {
|
||||||
|
$obj = &new PEAR_Common();
|
||||||
|
$info = $obj->infoFromAny($params[0]);
|
||||||
|
} else {
|
||||||
|
$reg = &new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
$info = $reg->packageInfo($params[0]);
|
||||||
|
}
|
||||||
|
if (PEAR::isError($info)) {
|
||||||
|
return $info;
|
||||||
|
}
|
||||||
|
if (empty($info)) {
|
||||||
|
$this->raiseError("Nothing found for `$params[0]'");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
unset($info['filelist']);
|
||||||
|
unset($info['changelog']);
|
||||||
|
$keys = array_keys($info);
|
||||||
|
$longtext = array('description', 'summary');
|
||||||
|
foreach ($keys as $key) {
|
||||||
|
if (is_array($info[$key])) {
|
||||||
|
switch ($key) {
|
||||||
|
case 'maintainers': {
|
||||||
|
$i = 0;
|
||||||
|
$mstr = '';
|
||||||
|
foreach ($info[$key] as $m) {
|
||||||
|
if ($i++ > 0) {
|
||||||
|
$mstr .= "\n";
|
||||||
|
}
|
||||||
|
$mstr .= $m['name'] . " <";
|
||||||
|
if (isset($m['email'])) {
|
||||||
|
$mstr .= $m['email'];
|
||||||
|
} else {
|
||||||
|
$mstr .= $m['handle'] . '@php.net';
|
||||||
|
}
|
||||||
|
$mstr .= "> ($m[role])";
|
||||||
|
}
|
||||||
|
$info[$key] = $mstr;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case 'release_deps': {
|
||||||
|
$i = 0;
|
||||||
|
$dstr = '';
|
||||||
|
foreach ($info[$key] as $d) {
|
||||||
|
if (isset($this->_deps_rel_trans[$d['rel']])) {
|
||||||
|
$rel = $this->_deps_rel_trans[$d['rel']];
|
||||||
|
} else {
|
||||||
|
$rel = $d['rel'];
|
||||||
|
}
|
||||||
|
if (isset($this->_deps_type_trans[$d['type']])) {
|
||||||
|
$type = ucfirst($this->_deps_type_trans[$d['type']]);
|
||||||
|
} else {
|
||||||
|
$type = $d['type'];
|
||||||
|
}
|
||||||
|
if (isset($d['name'])) {
|
||||||
|
$name = $d['name'] . ' ';
|
||||||
|
} else {
|
||||||
|
$name = '';
|
||||||
|
}
|
||||||
|
if (isset($d['version'])) {
|
||||||
|
$version = $d['version'] . ' ';
|
||||||
|
} else {
|
||||||
|
$version = '';
|
||||||
|
}
|
||||||
|
$dstr .= "$type $name$rel $version\n";
|
||||||
|
}
|
||||||
|
$info[$key] = $dstr;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
case 'provides' : {
|
||||||
|
$debug = $this->config->get('verbose');
|
||||||
|
if ($debug < 2) {
|
||||||
|
$pstr = 'Classes: ';
|
||||||
|
} else {
|
||||||
|
$pstr = '';
|
||||||
|
}
|
||||||
|
$i = 0;
|
||||||
|
foreach ($info[$key] as $p) {
|
||||||
|
if ($debug < 2 && $p['type'] != "class") {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
// Only print classes when verbosity mode is < 2
|
||||||
|
if ($debug < 2) {
|
||||||
|
if ($i++ > 0) {
|
||||||
|
$pstr .= ", ";
|
||||||
|
}
|
||||||
|
$pstr .= $p['name'];
|
||||||
|
} else {
|
||||||
|
if ($i++ > 0) {
|
||||||
|
$pstr .= "\n";
|
||||||
|
}
|
||||||
|
$pstr .= ucfirst($p['type']) . " " . $p['name'];
|
||||||
|
if (isset($p['explicit']) && $p['explicit'] == 1) {
|
||||||
|
$pstr .= " (explicit)";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$info[$key] = $pstr;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
default: {
|
||||||
|
$info[$key] = implode(", ", $info[$key]);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($key == '_lastmodified') {
|
||||||
|
$hdate = date('Y-m-d', $info[$key]);
|
||||||
|
unset($info[$key]);
|
||||||
|
$info['Last Modified'] = $hdate;
|
||||||
|
} else {
|
||||||
|
$info[$key] = trim($info[$key]);
|
||||||
|
if (in_array($key, $longtext)) {
|
||||||
|
$info[$key] = preg_replace('/ +/', ' ', $info[$key]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$caption = 'About ' . $info['package'] . '-' . $info['version'];
|
||||||
|
$data = array(
|
||||||
|
'caption' => $caption,
|
||||||
|
'border' => true);
|
||||||
|
foreach ($info as $key => $value) {
|
||||||
|
$key = ucwords(trim(str_replace('_', ' ', $key)));
|
||||||
|
$data['data'][] = array($key, $value);
|
||||||
|
}
|
||||||
|
$data['raw'] = $info;
|
||||||
|
|
||||||
|
$this->ui->outputData($data, 'package-info');
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,435 @@
|
||||||
|
<?php
|
||||||
|
// /* vim: set expandtab tabstop=4 shiftwidth=4: */
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Remote.php,v 1.22.2.17 2004/04/03 15:56:11 cellog Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR/Command/Common.php';
|
||||||
|
require_once 'PEAR/Common.php';
|
||||||
|
require_once 'PEAR/Remote.php';
|
||||||
|
require_once 'PEAR/Registry.php';
|
||||||
|
|
||||||
|
class PEAR_Command_Remote extends PEAR_Command_Common
|
||||||
|
{
|
||||||
|
// {{{ command definitions
|
||||||
|
|
||||||
|
var $commands = array(
|
||||||
|
'remote-info' => array(
|
||||||
|
'summary' => 'Information About Remote Packages',
|
||||||
|
'function' => 'doRemoteInfo',
|
||||||
|
'shortcut' => 'ri',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '<package>
|
||||||
|
Get details on a package from the server.',
|
||||||
|
),
|
||||||
|
'list-upgrades' => array(
|
||||||
|
'summary' => 'List Available Upgrades',
|
||||||
|
'function' => 'doListUpgrades',
|
||||||
|
'shortcut' => 'lu',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
List releases on the server of packages you have installed where
|
||||||
|
a newer version is available with the same release state (stable etc.).'
|
||||||
|
),
|
||||||
|
'remote-list' => array(
|
||||||
|
'summary' => 'List Remote Packages',
|
||||||
|
'function' => 'doRemoteList',
|
||||||
|
'shortcut' => 'rl',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
Lists the packages available on the configured server along with the
|
||||||
|
latest stable release of each package.',
|
||||||
|
),
|
||||||
|
'search' => array(
|
||||||
|
'summary' => 'Search remote package database',
|
||||||
|
'function' => 'doSearch',
|
||||||
|
'shortcut' => 'sp',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
Lists all packages which match the search parameters (first param
|
||||||
|
is package name, second package info)',
|
||||||
|
),
|
||||||
|
'list-all' => array(
|
||||||
|
'summary' => 'List All Packages',
|
||||||
|
'function' => 'doListAll',
|
||||||
|
'shortcut' => 'la',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
Lists the packages available on the configured server along with the
|
||||||
|
latest stable release of each package.',
|
||||||
|
),
|
||||||
|
'download' => array(
|
||||||
|
'summary' => 'Download Package',
|
||||||
|
'function' => 'doDownload',
|
||||||
|
'shortcut' => 'd',
|
||||||
|
'options' => array(
|
||||||
|
'nocompress' => array(
|
||||||
|
'shortopt' => 'Z',
|
||||||
|
'doc' => 'download an uncompressed (.tar) file',
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'doc' => '{package|package-version}
|
||||||
|
Download a package tarball. The file will be named as suggested by the
|
||||||
|
server, for example if you download the DB package and the latest stable
|
||||||
|
version of DB is 1.2, the downloaded file will be DB-1.2.tgz.',
|
||||||
|
),
|
||||||
|
'clear-cache' => array(
|
||||||
|
'summary' => 'Clear XML-RPC Cache',
|
||||||
|
'function' => 'doClearCache',
|
||||||
|
'shortcut' => 'cc',
|
||||||
|
'options' => array(),
|
||||||
|
'doc' => '
|
||||||
|
Clear the XML-RPC cache. See also the cache_ttl configuration
|
||||||
|
parameter.
|
||||||
|
',
|
||||||
|
),
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Command_Remote constructor.
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Command_Remote(&$ui, &$config)
|
||||||
|
{
|
||||||
|
parent::PEAR_Command_Common($ui, $config);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ doRemoteInfo()
|
||||||
|
|
||||||
|
function doRemoteInfo($command, $options, $params)
|
||||||
|
{
|
||||||
|
if (sizeof($params) != 1) {
|
||||||
|
return $this->raiseError("$command expects one param: the remote package name");
|
||||||
|
}
|
||||||
|
$r = new PEAR_Remote($this->config);
|
||||||
|
$info = $r->call('package.info', $params[0]);
|
||||||
|
if (PEAR::isError($info)) {
|
||||||
|
return $this->raiseError($info);
|
||||||
|
}
|
||||||
|
|
||||||
|
$reg = new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
$installed = $reg->packageInfo($info['name']);
|
||||||
|
$info['installed'] = $installed['version'] ? $installed['version'] : '- no -';
|
||||||
|
|
||||||
|
$this->ui->outputData($info, $command);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doRemoteList()
|
||||||
|
|
||||||
|
function doRemoteList($command, $options, $params)
|
||||||
|
{
|
||||||
|
$r = new PEAR_Remote($this->config);
|
||||||
|
$list_options = false;
|
||||||
|
if ($this->config->get('preferred_state') == 'stable')
|
||||||
|
$list_options = true;
|
||||||
|
$available = $r->call('package.listAll', $list_options);
|
||||||
|
if (PEAR::isError($available)) {
|
||||||
|
return $this->raiseError($available);
|
||||||
|
}
|
||||||
|
$i = $j = 0;
|
||||||
|
$data = array(
|
||||||
|
'caption' => 'Available packages:',
|
||||||
|
'border' => true,
|
||||||
|
'headline' => array('Package', 'Version'),
|
||||||
|
);
|
||||||
|
foreach ($available as $name => $info) {
|
||||||
|
$data['data'][] = array($name, isset($info['stable']) ? $info['stable'] : '-n/a-');
|
||||||
|
}
|
||||||
|
if (count($available)==0) {
|
||||||
|
$data = '(no packages installed yet)';
|
||||||
|
}
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doListAll()
|
||||||
|
|
||||||
|
function doListAll($command, $options, $params)
|
||||||
|
{
|
||||||
|
$r = new PEAR_Remote($this->config);
|
||||||
|
$reg = new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
$list_options = false;
|
||||||
|
if ($this->config->get('preferred_state') == 'stable')
|
||||||
|
$list_options = true;
|
||||||
|
$available = $r->call('package.listAll', $list_options);
|
||||||
|
if (PEAR::isError($available)) {
|
||||||
|
return $this->raiseError($available);
|
||||||
|
}
|
||||||
|
if (!is_array($available)) {
|
||||||
|
return $this->raiseError('The package list could not be fetched from the remote server. Please try again. (Debug info: "'.$available.'")');
|
||||||
|
}
|
||||||
|
$data = array(
|
||||||
|
'caption' => 'All packages:',
|
||||||
|
'border' => true,
|
||||||
|
'headline' => array('Package', 'Latest', 'Local'),
|
||||||
|
);
|
||||||
|
$local_pkgs = $reg->listPackages();
|
||||||
|
|
||||||
|
foreach ($available as $name => $info) {
|
||||||
|
$installed = $reg->packageInfo($name);
|
||||||
|
$desc = $info['summary'];
|
||||||
|
if (isset($params[$name]))
|
||||||
|
$desc .= "\n\n".$info['description'];
|
||||||
|
|
||||||
|
if (isset($options['mode']))
|
||||||
|
{
|
||||||
|
if ($options['mode'] == 'installed' && !isset($installed['version']))
|
||||||
|
continue;
|
||||||
|
if ($options['mode'] == 'notinstalled' && isset($installed['version']))
|
||||||
|
continue;
|
||||||
|
if ($options['mode'] == 'upgrades'
|
||||||
|
&& (!isset($installed['version']) || $installed['version'] == $info['stable']))
|
||||||
|
{
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$pos = array_search(strtolower($name), $local_pkgs);
|
||||||
|
if ($pos !== false) {
|
||||||
|
unset($local_pkgs[$pos]);
|
||||||
|
}
|
||||||
|
|
||||||
|
$data['data'][$info['category']][] = array(
|
||||||
|
$name,
|
||||||
|
@$info['stable'],
|
||||||
|
@$installed['version'],
|
||||||
|
@$desc,
|
||||||
|
@$info['deps'],
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($local_pkgs as $name) {
|
||||||
|
$info = $reg->packageInfo($name);
|
||||||
|
$data['data']['Local'][] = array(
|
||||||
|
$info['package'],
|
||||||
|
'',
|
||||||
|
$info['version'],
|
||||||
|
$info['summary'],
|
||||||
|
@$info['release_deps']
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doSearch()
|
||||||
|
|
||||||
|
function doSearch($command, $options, $params)
|
||||||
|
{
|
||||||
|
if ((!isset($params[0]) || empty($params[0]))
|
||||||
|
&& (!isset($params[1]) || empty($params[1])))
|
||||||
|
{
|
||||||
|
return $this->raiseError('no valid search string supplied');
|
||||||
|
};
|
||||||
|
|
||||||
|
$r = new PEAR_Remote($this->config);
|
||||||
|
$reg = new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
$available = $r->call('package.listAll', true, false);
|
||||||
|
if (PEAR::isError($available)) {
|
||||||
|
return $this->raiseError($available);
|
||||||
|
}
|
||||||
|
$data = array(
|
||||||
|
'caption' => 'Matched packages:',
|
||||||
|
'border' => true,
|
||||||
|
'headline' => array('Package', 'Stable/(Latest)', 'Local'),
|
||||||
|
);
|
||||||
|
|
||||||
|
foreach ($available as $name => $info) {
|
||||||
|
$found = (!empty($params[0]) && stristr($name, $params[0]) !== false);
|
||||||
|
if (!$found && !(isset($params[1]) && !empty($params[1])
|
||||||
|
&& (stristr($info['summary'], $params[1]) !== false
|
||||||
|
|| stristr($info['description'], $params[1]) !== false)))
|
||||||
|
{
|
||||||
|
continue;
|
||||||
|
};
|
||||||
|
|
||||||
|
$installed = $reg->packageInfo($name);
|
||||||
|
$desc = $info['summary'];
|
||||||
|
if (isset($params[$name]))
|
||||||
|
$desc .= "\n\n".$info['description'];
|
||||||
|
|
||||||
|
$unstable = '';
|
||||||
|
if ($info['unstable']) {
|
||||||
|
$unstable = '/(' . $info['unstable'] . $info['state'] . ')';
|
||||||
|
}
|
||||||
|
if (!isset($info['stable']) || !$info['stable']) {
|
||||||
|
$info['stable'] = 'none';
|
||||||
|
}
|
||||||
|
$data['data'][$info['category']][] = array(
|
||||||
|
$name,
|
||||||
|
$info['stable'] . $unstable,
|
||||||
|
$installed['version'],
|
||||||
|
$desc,
|
||||||
|
);
|
||||||
|
}
|
||||||
|
if (!isset($data['data'])) {
|
||||||
|
return $this->raiseError('no packages found');
|
||||||
|
}
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doDownload()
|
||||||
|
|
||||||
|
function doDownload($command, $options, $params)
|
||||||
|
{
|
||||||
|
//$params[0] -> The package to download
|
||||||
|
if (count($params) != 1) {
|
||||||
|
return PEAR::raiseError("download expects one argument: the package to download");
|
||||||
|
}
|
||||||
|
$server = $this->config->get('master_server');
|
||||||
|
if (!ereg('^http://', $params[0])) {
|
||||||
|
$getoption = isset($options['nocompress'])&&$options['nocompress']==1?'?uncompress=on':'';
|
||||||
|
$pkgfile = "http://$server/get/$params[0]".$getoption;
|
||||||
|
} else {
|
||||||
|
$pkgfile = $params[0];
|
||||||
|
}
|
||||||
|
$this->bytes_downloaded = 0;
|
||||||
|
$saved = PEAR_Common::downloadHttp($pkgfile, $this->ui, '.',
|
||||||
|
array(&$this, 'downloadCallback'));
|
||||||
|
if (PEAR::isError($saved)) {
|
||||||
|
return $this->raiseError($saved);
|
||||||
|
}
|
||||||
|
$fname = basename($saved);
|
||||||
|
$this->ui->outputData("File $fname downloaded ($this->bytes_downloaded bytes)", $command);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
function downloadCallback($msg, $params = null)
|
||||||
|
{
|
||||||
|
if ($msg == 'done') {
|
||||||
|
$this->bytes_downloaded = $params;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doListUpgrades()
|
||||||
|
|
||||||
|
function doListUpgrades($command, $options, $params)
|
||||||
|
{
|
||||||
|
include_once "PEAR/Registry.php";
|
||||||
|
$remote = new PEAR_Remote($this->config);
|
||||||
|
if (empty($params[0])) {
|
||||||
|
$state = $this->config->get('preferred_state');
|
||||||
|
} else {
|
||||||
|
$state = $params[0];
|
||||||
|
}
|
||||||
|
$caption = 'Available Upgrades';
|
||||||
|
if (empty($state) || $state == 'any') {
|
||||||
|
$latest = $remote->call("package.listLatestReleases");
|
||||||
|
} else {
|
||||||
|
$latest = $remote->call("package.listLatestReleases", $state);
|
||||||
|
$caption .= ' (' . implode(', ', PEAR_Common::betterStates($state, true)) . ')';
|
||||||
|
}
|
||||||
|
$caption .= ':';
|
||||||
|
if (PEAR::isError($latest)) {
|
||||||
|
return $latest;
|
||||||
|
}
|
||||||
|
$reg = new PEAR_Registry($this->config->get('php_dir'));
|
||||||
|
$inst = array_flip($reg->listPackages());
|
||||||
|
$data = array(
|
||||||
|
'caption' => $caption,
|
||||||
|
'border' => 1,
|
||||||
|
'headline' => array('Package', 'Local', 'Remote', 'Size'),
|
||||||
|
);
|
||||||
|
foreach ((array)$latest as $pkg => $info) {
|
||||||
|
$package = strtolower($pkg);
|
||||||
|
if (!isset($inst[$package])) {
|
||||||
|
// skip packages we don't have installed
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
extract($info);
|
||||||
|
$pkginfo = $reg->packageInfo($package);
|
||||||
|
$inst_version = $pkginfo['version'];
|
||||||
|
$inst_state = $pkginfo['release_state'];
|
||||||
|
if (version_compare("$version", "$inst_version", "le")) {
|
||||||
|
// installed version is up-to-date
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if ($filesize >= 20480) {
|
||||||
|
$filesize += 1024 - ($filesize % 1024);
|
||||||
|
$fs = sprintf("%dkB", $filesize / 1024);
|
||||||
|
} elseif ($filesize > 0) {
|
||||||
|
$filesize += 103 - ($filesize % 103);
|
||||||
|
$fs = sprintf("%.1fkB", $filesize / 1024.0);
|
||||||
|
} else {
|
||||||
|
$fs = " -"; // XXX center instead
|
||||||
|
}
|
||||||
|
$data['data'][] = array($pkg, "$inst_version ($inst_state)", "$version ($state)", $fs);
|
||||||
|
}
|
||||||
|
if (empty($data['data'])) {
|
||||||
|
$this->ui->outputData('No upgrades available');
|
||||||
|
} else {
|
||||||
|
$this->ui->outputData($data, $command);
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doClearCache()
|
||||||
|
|
||||||
|
function doClearCache($command, $options, $params)
|
||||||
|
{
|
||||||
|
$cache_dir = $this->config->get('cache_dir');
|
||||||
|
$verbose = $this->config->get('verbose');
|
||||||
|
$output = '';
|
||||||
|
if (!($dp = @opendir($cache_dir))) {
|
||||||
|
return $this->raiseError("opendir($cache_dir) failed: $php_errormsg");
|
||||||
|
}
|
||||||
|
if ($verbose >= 1) {
|
||||||
|
$output .= "reading directory $cache_dir\n";
|
||||||
|
}
|
||||||
|
$num = 0;
|
||||||
|
while ($ent = readdir($dp)) {
|
||||||
|
if (preg_match('/^xmlrpc_cache_[a-z0-9]{32}$/', $ent)) {
|
||||||
|
$path = $cache_dir . DIRECTORY_SEPARATOR . $ent;
|
||||||
|
$ok = @unlink($path);
|
||||||
|
if ($ok) {
|
||||||
|
if ($verbose >= 2) {
|
||||||
|
$output .= "deleted $path\n";
|
||||||
|
}
|
||||||
|
$num++;
|
||||||
|
} elseif ($verbose >= 1) {
|
||||||
|
$output .= "failed to delete $path\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
closedir($dp);
|
||||||
|
if ($verbose >= 1) {
|
||||||
|
$output .= "$num cache entries cleared\n";
|
||||||
|
}
|
||||||
|
$this->ui->outputData(rtrim($output), $command);
|
||||||
|
return $num;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,486 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Tomas V.V.Cox <cox@idecnet.com> |
|
||||||
|
// | Stig Bakken <ssb@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Dependency.php,v 1.14.4.20 2004/01/26 01:26:46 pajoye Exp $
|
||||||
|
|
||||||
|
require_once "PEAR.php";
|
||||||
|
|
||||||
|
define('PEAR_DEPENDENCY_MISSING', -1);
|
||||||
|
define('PEAR_DEPENDENCY_CONFLICT', -2);
|
||||||
|
define('PEAR_DEPENDENCY_UPGRADE_MINOR', -3);
|
||||||
|
define('PEAR_DEPENDENCY_UPGRADE_MAJOR', -4);
|
||||||
|
define('PEAR_DEPENDENCY_BAD_DEPENDENCY', -5);
|
||||||
|
define('PEAR_DEPENDENCY_MISSING_OPTIONAL', -6);
|
||||||
|
define('PEAR_DEPENDENCY_CONFLICT_OPTIONAL', -7);
|
||||||
|
define('PEAR_DEPENDENCY_UPGRADE_MINOR_OPTIONAL', -8);
|
||||||
|
define('PEAR_DEPENDENCY_UPGRADE_MAJOR_OPTIONAL', -9);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Dependency check for PEAR packages
|
||||||
|
*
|
||||||
|
* The class is based on the dependency RFC that can be found at
|
||||||
|
* http://cvs.php.net/cvs.php/pearweb/rfc. It requires PHP >= 4.1
|
||||||
|
*
|
||||||
|
* @author Tomas V.V.Vox <cox@idecnet.com>
|
||||||
|
* @author Stig Bakken <ssb@php.net>
|
||||||
|
*/
|
||||||
|
class PEAR_Dependency
|
||||||
|
{
|
||||||
|
// {{{ constructor
|
||||||
|
/**
|
||||||
|
* Constructor
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param object Registry object
|
||||||
|
* @return void
|
||||||
|
*/
|
||||||
|
function PEAR_Dependency(&$registry)
|
||||||
|
{
|
||||||
|
$this->registry = &$registry;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ callCheckMethod()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This method maps the XML dependency definition to the
|
||||||
|
* corresponding one from PEAR_Dependency
|
||||||
|
*
|
||||||
|
* <pre>
|
||||||
|
* $opts => Array
|
||||||
|
* (
|
||||||
|
* [type] => pkg
|
||||||
|
* [rel] => ge
|
||||||
|
* [version] => 3.4
|
||||||
|
* [name] => HTML_Common
|
||||||
|
* [optional] => false
|
||||||
|
* )
|
||||||
|
* </pre>
|
||||||
|
*
|
||||||
|
* @param string Error message
|
||||||
|
* @param array Options
|
||||||
|
* @return boolean
|
||||||
|
*/
|
||||||
|
function callCheckMethod(&$errmsg, $opts)
|
||||||
|
{
|
||||||
|
$rel = isset($opts['rel']) ? $opts['rel'] : 'has';
|
||||||
|
$req = isset($opts['version']) ? $opts['version'] : null;
|
||||||
|
$name = isset($opts['name']) ? $opts['name'] : null;
|
||||||
|
$opt = (isset($opts['optional']) && $opts['optional'] == 'yes') ?
|
||||||
|
$opts['optional'] : null;
|
||||||
|
$errmsg = '';
|
||||||
|
switch ($opts['type']) {
|
||||||
|
case 'pkg':
|
||||||
|
return $this->checkPackage($errmsg, $name, $req, $rel, $opt);
|
||||||
|
break;
|
||||||
|
case 'ext':
|
||||||
|
return $this->checkExtension($errmsg, $name, $req, $rel, $opt);
|
||||||
|
break;
|
||||||
|
case 'php':
|
||||||
|
return $this->checkPHP($errmsg, $req, $rel);
|
||||||
|
break;
|
||||||
|
case 'prog':
|
||||||
|
return $this->checkProgram($errmsg, $name);
|
||||||
|
break;
|
||||||
|
case 'os':
|
||||||
|
return $this->checkOS($errmsg, $name);
|
||||||
|
break;
|
||||||
|
case 'sapi':
|
||||||
|
return $this->checkSAPI($errmsg, $name);
|
||||||
|
break;
|
||||||
|
case 'zend':
|
||||||
|
return $this->checkZend($errmsg, $name);
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
return "'{$opts['type']}' dependency type not supported";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkPackage()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Package dependencies check method
|
||||||
|
*
|
||||||
|
* @param string $errmsg Empty string, it will be populated with an error message, if any
|
||||||
|
* @param string $name Name of the package to test
|
||||||
|
* @param string $req The package version required
|
||||||
|
* @param string $relation How to compare versions with each other
|
||||||
|
* @param bool $opt Whether the relationship is optional
|
||||||
|
*
|
||||||
|
* @return mixed bool false if no error or the error string
|
||||||
|
*/
|
||||||
|
function checkPackage(&$errmsg, $name, $req = null, $relation = 'has',
|
||||||
|
$opt = false)
|
||||||
|
{
|
||||||
|
if (is_string($req) && substr($req, 0, 2) == 'v.') {
|
||||||
|
$req = substr($req, 2);
|
||||||
|
}
|
||||||
|
switch ($relation) {
|
||||||
|
case 'has':
|
||||||
|
if (!$this->registry->packageExists($name)) {
|
||||||
|
if ($opt) {
|
||||||
|
$errmsg = "package `$name' is recommended to utilize some features.";
|
||||||
|
return PEAR_DEPENDENCY_MISSING_OPTIONAL;
|
||||||
|
}
|
||||||
|
$errmsg = "requires package `$name'";
|
||||||
|
return PEAR_DEPENDENCY_MISSING;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
case 'not':
|
||||||
|
if ($this->registry->packageExists($name)) {
|
||||||
|
$errmsg = "conflicts with package `$name'";
|
||||||
|
return PEAR_DEPENDENCY_CONFLICT;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
case 'lt':
|
||||||
|
case 'le':
|
||||||
|
case 'eq':
|
||||||
|
case 'ne':
|
||||||
|
case 'ge':
|
||||||
|
case 'gt':
|
||||||
|
$version = $this->registry->packageInfo($name, 'version');
|
||||||
|
if (!$this->registry->packageExists($name)
|
||||||
|
|| !version_compare("$version", "$req", $relation))
|
||||||
|
{
|
||||||
|
$code = $this->codeFromRelation($relation, $version, $req, $opt);
|
||||||
|
if ($opt) {
|
||||||
|
$errmsg = "package `$name' version " . $this->signOperator($relation) .
|
||||||
|
" $req is recommended to utilize some features.";
|
||||||
|
if ($version) {
|
||||||
|
$errmsg .= " Installed version is $version";
|
||||||
|
}
|
||||||
|
return $code;
|
||||||
|
}
|
||||||
|
$errmsg = "requires package `$name' " .
|
||||||
|
$this->signOperator($relation) . " $req";
|
||||||
|
return $code;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$errmsg = "relation '$relation' with requirement '$req' is not supported (name=$name)";
|
||||||
|
return PEAR_DEPENDENCY_BAD_DEPENDENCY;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkPackageUninstall()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Check package dependencies on uninstall
|
||||||
|
*
|
||||||
|
* @param string $error The resultant error string
|
||||||
|
* @param string $warning The resultant warning string
|
||||||
|
* @param string $name Name of the package to test
|
||||||
|
*
|
||||||
|
* @return bool true if there were errors
|
||||||
|
*/
|
||||||
|
function checkPackageUninstall(&$error, &$warning, $package)
|
||||||
|
{
|
||||||
|
$error = null;
|
||||||
|
$packages = $this->registry->listPackages();
|
||||||
|
foreach ($packages as $pkg) {
|
||||||
|
if ($pkg == $package) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
$deps = $this->registry->packageInfo($pkg, 'release_deps');
|
||||||
|
if (empty($deps)) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
foreach ($deps as $dep) {
|
||||||
|
if ($dep['type'] == 'pkg' && strcasecmp($dep['name'], $package) == 0) {
|
||||||
|
if ($dep['rel'] == 'ne') {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if (isset($dep['optional']) && $dep['optional'] == 'yes') {
|
||||||
|
$warning .= "\nWarning: Package '$pkg' optionally depends on '$package'";
|
||||||
|
} else {
|
||||||
|
$error .= "Package '$pkg' depends on '$package'\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return ($error) ? true : false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkExtension()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Extension dependencies check method
|
||||||
|
*
|
||||||
|
* @param string $name Name of the extension to test
|
||||||
|
* @param string $req_ext_ver Required extension version to compare with
|
||||||
|
* @param string $relation How to compare versions with eachother
|
||||||
|
* @param bool $opt Whether the relationship is optional
|
||||||
|
*
|
||||||
|
* @return mixed bool false if no error or the error string
|
||||||
|
*/
|
||||||
|
function checkExtension(&$errmsg, $name, $req = null, $relation = 'has',
|
||||||
|
$opt = false)
|
||||||
|
{
|
||||||
|
if ($relation == 'not') {
|
||||||
|
if (extension_loaded($name)) {
|
||||||
|
$errmsg = "conflicts with PHP extension '$name'";
|
||||||
|
return PEAR_DEPENDENCY_CONFLICT;
|
||||||
|
} else {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!extension_loaded($name)) {
|
||||||
|
if ($relation == 'ne') {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if ($opt) {
|
||||||
|
$errmsg = "'$name' PHP extension is recommended to utilize some features";
|
||||||
|
return PEAR_DEPENDENCY_MISSING_OPTIONAL;
|
||||||
|
}
|
||||||
|
$errmsg = "'$name' PHP extension is not installed";
|
||||||
|
return PEAR_DEPENDENCY_MISSING;
|
||||||
|
}
|
||||||
|
if ($relation == 'has') {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$code = false;
|
||||||
|
if (is_string($req) && substr($req, 0, 2) == 'v.') {
|
||||||
|
$req = substr($req, 2);
|
||||||
|
}
|
||||||
|
$ext_ver = phpversion($name);
|
||||||
|
$operator = $relation;
|
||||||
|
// Force params to be strings, otherwise the comparation will fail (ex. 0.9==0.90)
|
||||||
|
if (!version_compare("$ext_ver", "$req", $operator)) {
|
||||||
|
$errmsg = "'$name' PHP extension version " .
|
||||||
|
$this->signOperator($operator) . " $req is required";
|
||||||
|
$code = $this->codeFromRelation($relation, $ext_ver, $req, $opt);
|
||||||
|
if ($opt) {
|
||||||
|
$errmsg = "'$name' PHP extension version " . $this->signOperator($operator) .
|
||||||
|
" $req is recommended to utilize some features";
|
||||||
|
return $code;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $code;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkOS()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Operating system dependencies check method
|
||||||
|
*
|
||||||
|
* @param string $os Name of the operating system
|
||||||
|
*
|
||||||
|
* @return mixed bool false if no error or the error string
|
||||||
|
*/
|
||||||
|
function checkOS(&$errmsg, $os)
|
||||||
|
{
|
||||||
|
// XXX Fixme: Implement a more flexible way, like
|
||||||
|
// comma separated values or something similar to PEAR_OS
|
||||||
|
static $myos;
|
||||||
|
if (empty($myos)) {
|
||||||
|
include_once "OS/Guess.php";
|
||||||
|
$myos = new OS_Guess();
|
||||||
|
}
|
||||||
|
// only 'has' relation is currently supported
|
||||||
|
if ($myos->matchSignature($os)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$errmsg = "'$os' operating system not supported";
|
||||||
|
return PEAR_DEPENDENCY_CONFLICT;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkPHP()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PHP version check method
|
||||||
|
*
|
||||||
|
* @param string $req which version to compare
|
||||||
|
* @param string $relation how to compare the version
|
||||||
|
*
|
||||||
|
* @return mixed bool false if no error or the error string
|
||||||
|
*/
|
||||||
|
function checkPHP(&$errmsg, $req, $relation = 'ge')
|
||||||
|
{
|
||||||
|
// this would be a bit stupid, but oh well :)
|
||||||
|
if ($relation == 'has') {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if ($relation == 'not') {
|
||||||
|
$errmsg = "Invalid dependency - 'not' is allowed when specifying PHP, you must run PHP in PHP";
|
||||||
|
return PEAR_DEPENDENCY_BAD_DEPENDENCY;
|
||||||
|
}
|
||||||
|
if (substr($req, 0, 2) == 'v.') {
|
||||||
|
$req = substr($req,2, strlen($req) - 2);
|
||||||
|
}
|
||||||
|
$php_ver = phpversion();
|
||||||
|
$operator = $relation;
|
||||||
|
if (!version_compare("$php_ver", "$req", $operator)) {
|
||||||
|
$errmsg = "PHP version " . $this->signOperator($operator) .
|
||||||
|
" $req is required";
|
||||||
|
return PEAR_DEPENDENCY_CONFLICT;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkProgram()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* External program check method. Looks for executable files in
|
||||||
|
* directories listed in the PATH environment variable.
|
||||||
|
*
|
||||||
|
* @param string $program which program to look for
|
||||||
|
*
|
||||||
|
* @return mixed bool false if no error or the error string
|
||||||
|
*/
|
||||||
|
function checkProgram(&$errmsg, $program)
|
||||||
|
{
|
||||||
|
// XXX FIXME honor safe mode
|
||||||
|
$exe_suffix = OS_WINDOWS ? '.exe' : '';
|
||||||
|
$path_elements = explode(PATH_SEPARATOR, getenv('PATH'));
|
||||||
|
foreach ($path_elements as $dir) {
|
||||||
|
$file = $dir . DIRECTORY_SEPARATOR . $program . $exe_suffix;
|
||||||
|
if (@file_exists($file) && @is_executable($file)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$errmsg = "'$program' program is not present in the PATH";
|
||||||
|
return PEAR_DEPENDENCY_MISSING;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkSAPI()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* SAPI backend check method. Version comparison is not yet
|
||||||
|
* available here.
|
||||||
|
*
|
||||||
|
* @param string $name name of SAPI backend
|
||||||
|
* @param string $req which version to compare
|
||||||
|
* @param string $relation how to compare versions (currently
|
||||||
|
* hardcoded to 'has')
|
||||||
|
* @return mixed bool false if no error or the error string
|
||||||
|
*/
|
||||||
|
function checkSAPI(&$errmsg, $name, $req = null, $relation = 'has')
|
||||||
|
{
|
||||||
|
// XXX Fixme: There is no way to know if the user has or
|
||||||
|
// not other SAPI backends installed than the installer one
|
||||||
|
|
||||||
|
$sapi_backend = php_sapi_name();
|
||||||
|
// Version comparisons not supported, sapi backends don't have
|
||||||
|
// version information yet.
|
||||||
|
if ($sapi_backend == $name) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$errmsg = "'$sapi_backend' SAPI backend not supported";
|
||||||
|
return PEAR_DEPENDENCY_CONFLICT;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkZend()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Zend version check method
|
||||||
|
*
|
||||||
|
* @param string $req which version to compare
|
||||||
|
* @param string $relation how to compare the version
|
||||||
|
*
|
||||||
|
* @return mixed bool false if no error or the error string
|
||||||
|
*/
|
||||||
|
function checkZend(&$errmsg, $req, $relation = 'ge')
|
||||||
|
{
|
||||||
|
if (substr($req, 0, 2) == 'v.') {
|
||||||
|
$req = substr($req,2, strlen($req) - 2);
|
||||||
|
}
|
||||||
|
$zend_ver = zend_version();
|
||||||
|
$operator = substr($relation,0,2);
|
||||||
|
if (!version_compare("$zend_ver", "$req", $operator)) {
|
||||||
|
$errmsg = "Zend version " . $this->signOperator($operator) .
|
||||||
|
" $req is required";
|
||||||
|
return PEAR_DEPENDENCY_CONFLICT;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ signOperator()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Converts text comparing operators to them sign equivalents
|
||||||
|
*
|
||||||
|
* Example: 'ge' to '>='
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string Operator
|
||||||
|
* @return string Sign equivalent
|
||||||
|
*/
|
||||||
|
function signOperator($operator)
|
||||||
|
{
|
||||||
|
switch($operator) {
|
||||||
|
case 'lt': return '<';
|
||||||
|
case 'le': return '<=';
|
||||||
|
case 'gt': return '>';
|
||||||
|
case 'ge': return '>=';
|
||||||
|
case 'eq': return '==';
|
||||||
|
case 'ne': return '!=';
|
||||||
|
default:
|
||||||
|
return $operator;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ codeFromRelation()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Convert relation into corresponding code
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
* @param string Relation
|
||||||
|
* @param string Version
|
||||||
|
* @param string Requirement
|
||||||
|
* @param bool Optional dependency indicator
|
||||||
|
* @return integer
|
||||||
|
*/
|
||||||
|
function codeFromRelation($relation, $version, $req, $opt = false)
|
||||||
|
{
|
||||||
|
$code = PEAR_DEPENDENCY_BAD_DEPENDENCY;
|
||||||
|
switch ($relation) {
|
||||||
|
case 'gt': case 'ge': case 'eq':
|
||||||
|
// upgrade
|
||||||
|
$have_major = preg_replace('/\D.*/', '', $version);
|
||||||
|
$need_major = preg_replace('/\D.*/', '', $req);
|
||||||
|
if ($need_major > $have_major) {
|
||||||
|
$code = $opt ? PEAR_DEPENDENCY_UPGRADE_MAJOR_OPTIONAL :
|
||||||
|
PEAR_DEPENDENCY_UPGRADE_MAJOR;
|
||||||
|
} else {
|
||||||
|
$code = $opt ? PEAR_DEPENDENCY_UPGRADE_MINOR_OPTIONAL :
|
||||||
|
PEAR_DEPENDENCY_UPGRADE_MINOR;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 'lt': case 'le': case 'ne':
|
||||||
|
$code = $opt ? PEAR_DEPENDENCY_CONFLICT_OPTIONAL :
|
||||||
|
PEAR_DEPENDENCY_CONFLICT;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return $code;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,665 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Stig Bakken <ssb@php.net> |
|
||||||
|
// | Tomas V.V.Cox <cox@idecnet.com> |
|
||||||
|
// | Martin Jansen <mj@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Downloader.php,v 1.9.2.7 2004/04/30 16:37:40 cellog Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR/Common.php';
|
||||||
|
require_once 'PEAR/Registry.php';
|
||||||
|
require_once 'PEAR/Dependency.php';
|
||||||
|
require_once 'PEAR/Remote.php';
|
||||||
|
require_once 'System.php';
|
||||||
|
|
||||||
|
|
||||||
|
define('PEAR_INSTALLER_OK', 1);
|
||||||
|
define('PEAR_INSTALLER_FAILED', 0);
|
||||||
|
define('PEAR_INSTALLER_SKIPPED', -1);
|
||||||
|
define('PEAR_INSTALLER_ERROR_NO_PREF_STATE', 2);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Administration class used to download PEAR packages and maintain the
|
||||||
|
* installed package database.
|
||||||
|
*
|
||||||
|
* @since PEAR 1.4
|
||||||
|
* @author Greg Beaver <cellog@php.net>
|
||||||
|
*/
|
||||||
|
class PEAR_Downloader extends PEAR_Common
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* @var PEAR_Config
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_config;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var PEAR_Registry
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_registry;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var PEAR_Remote
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_remote;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Preferred Installation State (snapshot, devel, alpha, beta, stable)
|
||||||
|
* @var string|null
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_preferredState;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Options from command-line passed to Install.
|
||||||
|
*
|
||||||
|
* Recognized options:<br />
|
||||||
|
* - onlyreqdeps : install all required dependencies as well
|
||||||
|
* - alldeps : install all dependencies, including optional
|
||||||
|
* - installroot : base relative path to install files in
|
||||||
|
* - force : force a download even if warnings would prevent it
|
||||||
|
* @see PEAR_Command_Install
|
||||||
|
* @access private
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $_options;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Downloaded Packages after a call to download().
|
||||||
|
*
|
||||||
|
* Format of each entry:
|
||||||
|
*
|
||||||
|
* <code>
|
||||||
|
* array('pkg' => 'package_name', 'file' => '/path/to/local/file',
|
||||||
|
* 'info' => array() // parsed package.xml
|
||||||
|
* );
|
||||||
|
* </code>
|
||||||
|
* @access private
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $_downloadedPackages = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Packages slated for download.
|
||||||
|
*
|
||||||
|
* This is used to prevent downloading a package more than once should it be a dependency
|
||||||
|
* for two packages to be installed.
|
||||||
|
* Format of each entry:
|
||||||
|
*
|
||||||
|
* <pre>
|
||||||
|
* array('package_name1' => parsed package.xml, 'package_name2' => parsed package.xml,
|
||||||
|
* );
|
||||||
|
* </pre>
|
||||||
|
* @access private
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $_toDownload = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Array of every package installed, with names lower-cased.
|
||||||
|
*
|
||||||
|
* Format:
|
||||||
|
* <code>
|
||||||
|
* array('package1' => 0, 'package2' => 1, );
|
||||||
|
* </code>
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $_installed = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_errorStack = array();
|
||||||
|
|
||||||
|
// {{{ PEAR_Downloader()
|
||||||
|
|
||||||
|
function PEAR_Downloader(&$ui, $options, &$config)
|
||||||
|
{
|
||||||
|
$this->_options = $options;
|
||||||
|
$this->_config = &$config;
|
||||||
|
$this->_preferredState = $this->_config->get('preferred_state');
|
||||||
|
$this->ui = &$ui;
|
||||||
|
if (!$this->_preferredState) {
|
||||||
|
// don't inadvertantly use a non-set preferred_state
|
||||||
|
$this->_preferredState = null;
|
||||||
|
}
|
||||||
|
|
||||||
|
$php_dir = $this->_config->get('php_dir');
|
||||||
|
if (isset($this->_options['installroot'])) {
|
||||||
|
if (substr($this->_options['installroot'], -1) == DIRECTORY_SEPARATOR) {
|
||||||
|
$this->_options['installroot'] = substr($this->_options['installroot'], 0, -1);
|
||||||
|
}
|
||||||
|
$php_dir = $this->_prependPath($php_dir, $this->_options['installroot']);
|
||||||
|
}
|
||||||
|
$this->_registry = &new PEAR_Registry($php_dir);
|
||||||
|
$this->_remote = &new PEAR_Remote($config);
|
||||||
|
|
||||||
|
if (isset($this->_options['alldeps']) || isset($this->_options['onlyreqdeps'])) {
|
||||||
|
$this->_installed = $this->_registry->listPackages();
|
||||||
|
array_walk($this->_installed, create_function('&$v,$k','$v = strtolower($v);'));
|
||||||
|
$this->_installed = array_flip($this->_installed);
|
||||||
|
}
|
||||||
|
parent::PEAR_Common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ configSet()
|
||||||
|
function configSet($key, $value, $layer = 'user')
|
||||||
|
{
|
||||||
|
$this->_config->set($key, $value, $layer);
|
||||||
|
$this->_preferredState = $this->_config->get('preferred_state');
|
||||||
|
if (!$this->_preferredState) {
|
||||||
|
// don't inadvertantly use a non-set preferred_state
|
||||||
|
$this->_preferredState = null;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ setOptions()
|
||||||
|
function setOptions($options)
|
||||||
|
{
|
||||||
|
$this->_options = $options;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _downloadFile()
|
||||||
|
/**
|
||||||
|
* @param string filename to download
|
||||||
|
* @param string version/state
|
||||||
|
* @param string original value passed to command-line
|
||||||
|
* @param string|null preferred state (snapshot/devel/alpha/beta/stable)
|
||||||
|
* Defaults to configuration preferred state
|
||||||
|
* @return null|PEAR_Error|string
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _downloadFile($pkgfile, $version, $origpkgfile, $state = null)
|
||||||
|
{
|
||||||
|
if (is_null($state)) {
|
||||||
|
$state = $this->_preferredState;
|
||||||
|
}
|
||||||
|
// {{{ check the package filename, and whether it's already installed
|
||||||
|
$need_download = false;
|
||||||
|
if (preg_match('#^(http|ftp)://#', $pkgfile)) {
|
||||||
|
$need_download = true;
|
||||||
|
} elseif (!@is_file($pkgfile)) {
|
||||||
|
if ($this->validPackageName($pkgfile)) {
|
||||||
|
if ($this->_registry->packageExists($pkgfile)) {
|
||||||
|
if (empty($this->_options['upgrade']) && empty($this->_options['force'])) {
|
||||||
|
$errors[] = "$pkgfile already installed";
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$pkgfile = $this->getPackageDownloadUrl($pkgfile, $version);
|
||||||
|
$need_download = true;
|
||||||
|
} else {
|
||||||
|
if (strlen($pkgfile)) {
|
||||||
|
$errors[] = "Could not open the package file: $pkgfile";
|
||||||
|
} else {
|
||||||
|
$errors[] = "No package file given";
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ Download package -----------------------------------------------
|
||||||
|
if ($need_download) {
|
||||||
|
$downloaddir = $this->_config->get('download_dir');
|
||||||
|
if (empty($downloaddir)) {
|
||||||
|
if (PEAR::isError($downloaddir = System::mktemp('-d'))) {
|
||||||
|
return $downloaddir;
|
||||||
|
}
|
||||||
|
$this->log(3, '+ tmp dir created at ' . $downloaddir);
|
||||||
|
}
|
||||||
|
$callback = $this->ui ? array(&$this, '_downloadCallback') : null;
|
||||||
|
$this->pushErrorHandling(PEAR_ERROR_RETURN);
|
||||||
|
$file = $this->downloadHttp($pkgfile, $this->ui, $downloaddir, $callback);
|
||||||
|
$this->popErrorHandling();
|
||||||
|
if (PEAR::isError($file)) {
|
||||||
|
if ($this->validPackageName($origpkgfile)) {
|
||||||
|
if (!PEAR::isError($info = $this->_remote->call('package.info',
|
||||||
|
$origpkgfile))) {
|
||||||
|
if (!count($info['releases'])) {
|
||||||
|
return $this->raiseError('Package ' . $origpkgfile .
|
||||||
|
' has no releases');
|
||||||
|
} else {
|
||||||
|
return $this->raiseError('No releases of preferred state "'
|
||||||
|
. $state . '" exist for package ' . $origpkgfile .
|
||||||
|
'. Use ' . $origpkgfile . '-state to install another' .
|
||||||
|
' state (like ' . $origpkgfile .'-beta)',
|
||||||
|
PEAR_INSTALLER_ERROR_NO_PREF_STATE);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return $pkgfile;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return $this->raiseError($file);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$pkgfile = $file;
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
return $pkgfile;
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
// {{{ getPackageDownloadUrl()
|
||||||
|
|
||||||
|
function getPackageDownloadUrl($package, $version = null)
|
||||||
|
{
|
||||||
|
if ($version) {
|
||||||
|
$package .= "-$version";
|
||||||
|
}
|
||||||
|
if ($this === null || $this->_config === null) {
|
||||||
|
$package = "http://pear.php.net/get/$package";
|
||||||
|
} else {
|
||||||
|
$package = "http://" . $this->_config->get('master_server') .
|
||||||
|
"/get/$package";
|
||||||
|
}
|
||||||
|
if (!extension_loaded("zlib")) {
|
||||||
|
$package .= '?uncompress=yes';
|
||||||
|
}
|
||||||
|
return $package;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ extractDownloadFileName($pkgfile, &$version)
|
||||||
|
|
||||||
|
function extractDownloadFileName($pkgfile, &$version)
|
||||||
|
{
|
||||||
|
if (@is_file($pkgfile)) {
|
||||||
|
return $pkgfile;
|
||||||
|
}
|
||||||
|
// regex defined in Common.php
|
||||||
|
if (preg_match(PEAR_COMMON_PACKAGE_DOWNLOAD_PREG, $pkgfile, $m)) {
|
||||||
|
$version = (isset($m[3])) ? $m[3] : null;
|
||||||
|
return $m[1];
|
||||||
|
}
|
||||||
|
$version = null;
|
||||||
|
return $pkgfile;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getDownloadedPackages()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Retrieve a list of downloaded packages after a call to {@link download()}.
|
||||||
|
*
|
||||||
|
* Also resets the list of downloaded packages.
|
||||||
|
* @return array
|
||||||
|
*/
|
||||||
|
function getDownloadedPackages()
|
||||||
|
{
|
||||||
|
$ret = $this->_downloadedPackages;
|
||||||
|
$this->_downloadedPackages = array();
|
||||||
|
$this->_toDownload = array();
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ download()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Download any files and their dependencies, if necessary
|
||||||
|
*
|
||||||
|
* BC-compatible method name
|
||||||
|
* @param array a mixed list of package names, local files, or package.xml
|
||||||
|
*/
|
||||||
|
function download($packages)
|
||||||
|
{
|
||||||
|
return $this->doDownload($packages);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ doDownload()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Download any files and their dependencies, if necessary
|
||||||
|
*
|
||||||
|
* @param array a mixed list of package names, local files, or package.xml
|
||||||
|
*/
|
||||||
|
function doDownload($packages)
|
||||||
|
{
|
||||||
|
$mywillinstall = array();
|
||||||
|
$state = $this->_preferredState;
|
||||||
|
|
||||||
|
// {{{ download files in this list if necessary
|
||||||
|
foreach($packages as $pkgfile) {
|
||||||
|
$need_download = false;
|
||||||
|
if (!is_file($pkgfile)) {
|
||||||
|
if (preg_match('#^(http|ftp)://#', $pkgfile)) {
|
||||||
|
$need_download = true;
|
||||||
|
}
|
||||||
|
$pkgfile = $this->_downloadNonFile($pkgfile);
|
||||||
|
if (PEAR::isError($pkgfile)) {
|
||||||
|
return $pkgfile;
|
||||||
|
}
|
||||||
|
if ($pkgfile === false) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
} // end is_file()
|
||||||
|
|
||||||
|
$tempinfo = $this->infoFromAny($pkgfile);
|
||||||
|
if ($need_download) {
|
||||||
|
$this->_toDownload[] = $tempinfo['package'];
|
||||||
|
}
|
||||||
|
if (isset($this->_options['alldeps']) || isset($this->_options['onlyreqdeps'])) {
|
||||||
|
// ignore dependencies if there are any errors
|
||||||
|
if (!PEAR::isError($tempinfo)) {
|
||||||
|
$mywillinstall[strtolower($tempinfo['package'])] = @$tempinfo['release_deps'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->_downloadedPackages[] = array('pkg' => $tempinfo['package'],
|
||||||
|
'file' => $pkgfile, 'info' => $tempinfo);
|
||||||
|
} // end foreach($packages)
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ extract dependencies from downloaded files and then download
|
||||||
|
// them if necessary
|
||||||
|
if (isset($this->_options['alldeps']) || isset($this->_options['onlyreqdeps'])) {
|
||||||
|
$deppackages = array();
|
||||||
|
foreach ($mywillinstall as $package => $alldeps) {
|
||||||
|
if (!is_array($alldeps)) {
|
||||||
|
// there are no dependencies
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
foreach($alldeps as $info) {
|
||||||
|
if ($info['type'] != 'pkg') {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
$ret = $this->_processDependency($package, $info, $mywillinstall);
|
||||||
|
if ($ret === false) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($ret)) {
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
$deppackages[] = $ret;
|
||||||
|
} // foreach($alldeps
|
||||||
|
}
|
||||||
|
|
||||||
|
if (count($deppackages)) {
|
||||||
|
$this->doDownload($deppackages);
|
||||||
|
}
|
||||||
|
} // }}} if --alldeps or --onlyreqdeps
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _downloadNonFile($pkgfile)
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @return false|PEAR_Error|string false if loop should be broken out of,
|
||||||
|
* string if the file was downloaded,
|
||||||
|
* PEAR_Error on exception
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _downloadNonFile($pkgfile)
|
||||||
|
{
|
||||||
|
$origpkgfile = $pkgfile;
|
||||||
|
$state = null;
|
||||||
|
$pkgfile = $this->extractDownloadFileName($pkgfile, $version);
|
||||||
|
if (preg_match('#^(http|ftp)://#', $pkgfile)) {
|
||||||
|
return $this->_downloadFile($pkgfile, $version, $origpkgfile);
|
||||||
|
}
|
||||||
|
if (!$this->validPackageName($pkgfile)) {
|
||||||
|
return $this->raiseError("Package name '$pkgfile' not valid");
|
||||||
|
}
|
||||||
|
// ignore packages that are installed unless we are upgrading
|
||||||
|
$curinfo = $this->_registry->packageInfo($pkgfile);
|
||||||
|
if ($this->_registry->packageExists($pkgfile)
|
||||||
|
&& empty($this->_options['upgrade']) && empty($this->_options['force'])) {
|
||||||
|
$this->log(0, "Package '{$curinfo['package']}' already installed, skipping");
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (in_array($pkgfile, $this->_toDownload)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$releases = $this->_remote->call('package.info', $pkgfile, 'releases', true);
|
||||||
|
if (!count($releases)) {
|
||||||
|
return $this->raiseError("No releases found for package '$pkgfile'");
|
||||||
|
}
|
||||||
|
// Want a specific version/state
|
||||||
|
if ($version !== null) {
|
||||||
|
// Passed Foo-1.2
|
||||||
|
if ($this->validPackageVersion($version)) {
|
||||||
|
if (!isset($releases[$version])) {
|
||||||
|
return $this->raiseError("No release with version '$version' found for '$pkgfile'");
|
||||||
|
}
|
||||||
|
// Passed Foo-alpha
|
||||||
|
} elseif (in_array($version, $this->getReleaseStates())) {
|
||||||
|
$state = $version;
|
||||||
|
$version = 0;
|
||||||
|
foreach ($releases as $ver => $inf) {
|
||||||
|
if ($inf['state'] == $state && version_compare("$version", "$ver") < 0) {
|
||||||
|
$version = $ver;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($version == 0) {
|
||||||
|
return $this->raiseError("No release with state '$state' found for '$pkgfile'");
|
||||||
|
}
|
||||||
|
// invalid postfix passed
|
||||||
|
} else {
|
||||||
|
return $this->raiseError("Invalid postfix '-$version', be sure to pass a valid PEAR ".
|
||||||
|
"version number or release state");
|
||||||
|
}
|
||||||
|
// Guess what to download
|
||||||
|
} else {
|
||||||
|
$states = $this->betterStates($this->_preferredState, true);
|
||||||
|
$possible = false;
|
||||||
|
$version = 0;
|
||||||
|
foreach ($releases as $ver => $inf) {
|
||||||
|
if (in_array($inf['state'], $states) && version_compare("$version", "$ver") < 0) {
|
||||||
|
$version = $ver;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($version === 0 && !isset($this->_options['force'])) {
|
||||||
|
return $this->raiseError('No release with state equal to: \'' . implode(', ', $states) .
|
||||||
|
"' found for '$pkgfile'");
|
||||||
|
} elseif ($version === 0) {
|
||||||
|
$this->log(0, "Warning: $pkgfile is state '$inf[state]' which is less stable " .
|
||||||
|
"than state '$this->_preferredState'");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// Check if we haven't already the version
|
||||||
|
if (empty($this->_options['force']) && !is_null($curinfo)) {
|
||||||
|
if ($curinfo['version'] == $version) {
|
||||||
|
$this->log(0, "Package '{$curinfo['package']}-{$curinfo['version']}' already installed, skipping");
|
||||||
|
return false;
|
||||||
|
} elseif (version_compare("$version", "{$curinfo['version']}") < 0) {
|
||||||
|
$this->log(0, "Package '{$curinfo['package']}' version '{$curinfo['version']}' " .
|
||||||
|
" is installed and {$curinfo['version']} is > requested '$version', skipping");
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->_toDownload[] = $pkgfile;
|
||||||
|
return $this->_downloadFile($pkgfile, $version, $origpkgfile, $state);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _processDependency($package, $info, $mywillinstall)
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Process a dependency, download if necessary
|
||||||
|
* @param array dependency information from PEAR_Remote call
|
||||||
|
* @param array packages that will be installed in this iteration
|
||||||
|
* @return false|string|PEAR_Error
|
||||||
|
* @access private
|
||||||
|
* @todo Add test for relation 'lt'/'le' -> make sure that the dependency requested is
|
||||||
|
* in fact lower than the required value. This will be very important for BC dependencies
|
||||||
|
*/
|
||||||
|
function _processDependency($package, $info, $mywillinstall)
|
||||||
|
{
|
||||||
|
$state = $this->_preferredState;
|
||||||
|
if (!isset($this->_options['alldeps']) && isset($info['optional']) &&
|
||||||
|
$info['optional'] == 'yes') {
|
||||||
|
// skip optional deps
|
||||||
|
$this->log(0, "skipping Package '$package' optional dependency '$info[name]'");
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
// {{{ get releases
|
||||||
|
$releases = $this->_remote->call('package.info', $info['name'], 'releases', true);
|
||||||
|
if (PEAR::isError($releases)) {
|
||||||
|
return $releases;
|
||||||
|
}
|
||||||
|
if (!count($releases)) {
|
||||||
|
if (!isset($this->_installed[strtolower($info['name'])])) {
|
||||||
|
$this->pushError("Package '$package' dependency '$info[name]' ".
|
||||||
|
"has no releases");
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$found = false;
|
||||||
|
$save = $releases;
|
||||||
|
while(count($releases) && !$found) {
|
||||||
|
if (!empty($state) && $state != 'any') {
|
||||||
|
list($release_version, $release) = each($releases);
|
||||||
|
if ($state != $release['state'] &&
|
||||||
|
!in_array($release['state'], $this->betterStates($state)))
|
||||||
|
{
|
||||||
|
// drop this release - it ain't stable enough
|
||||||
|
array_shift($releases);
|
||||||
|
} else {
|
||||||
|
$found = true;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$found = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!count($releases) && !$found) {
|
||||||
|
$get = array();
|
||||||
|
foreach($save as $release) {
|
||||||
|
$get = array_merge($get,
|
||||||
|
$this->betterStates($release['state'], true));
|
||||||
|
}
|
||||||
|
$savestate = array_shift($get);
|
||||||
|
$this->pushError( "Release for '$package' dependency '$info[name]' " .
|
||||||
|
"has state '$savestate', requires '$state'");
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (in_array(strtolower($info['name']), $this->_toDownload) ||
|
||||||
|
isset($mywillinstall[strtolower($info['name'])])) {
|
||||||
|
// skip upgrade check for packages we will install
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (!isset($this->_installed[strtolower($info['name'])])) {
|
||||||
|
// check to see if we can install the specific version required
|
||||||
|
if ($info['rel'] == 'eq') {
|
||||||
|
return $info['name'] . '-' . $info['version'];
|
||||||
|
}
|
||||||
|
// skip upgrade check for packages we don't have installed
|
||||||
|
return $info['name'];
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ see if a dependency must be upgraded
|
||||||
|
$inst_version = $this->_registry->packageInfo($info['name'], 'version');
|
||||||
|
if (!isset($info['version'])) {
|
||||||
|
// this is a rel='has' dependency, check against latest
|
||||||
|
if (version_compare($release_version, $inst_version, 'le')) {
|
||||||
|
return false;
|
||||||
|
} else {
|
||||||
|
return $info['name'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (version_compare($info['version'], $inst_version, 'le')) {
|
||||||
|
// installed version is up-to-date
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return $info['name'];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _downloadCallback()
|
||||||
|
|
||||||
|
function _downloadCallback($msg, $params = null)
|
||||||
|
{
|
||||||
|
switch ($msg) {
|
||||||
|
case 'saveas':
|
||||||
|
$this->log(1, "downloading $params ...");
|
||||||
|
break;
|
||||||
|
case 'done':
|
||||||
|
$this->log(1, '...done: ' . number_format($params, 0, '', ',') . ' bytes');
|
||||||
|
break;
|
||||||
|
case 'bytesread':
|
||||||
|
static $bytes;
|
||||||
|
if (empty($bytes)) {
|
||||||
|
$bytes = 0;
|
||||||
|
}
|
||||||
|
if (!($bytes % 10240)) {
|
||||||
|
$this->log(1, '.', false);
|
||||||
|
}
|
||||||
|
$bytes += $params;
|
||||||
|
break;
|
||||||
|
case 'start':
|
||||||
|
$this->log(1, "Starting to download {$params[0]} (".number_format($params[1], 0, '', ',')." bytes)");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (method_exists($this->ui, '_downloadCallback'))
|
||||||
|
$this->ui->_downloadCallback($msg, $params);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _prependPath($path, $prepend)
|
||||||
|
|
||||||
|
function _prependPath($path, $prepend)
|
||||||
|
{
|
||||||
|
if (strlen($prepend) > 0) {
|
||||||
|
if (OS_WINDOWS && preg_match('/^[a-z]:/i', $path)) {
|
||||||
|
$path = $prepend . substr($path, 2);
|
||||||
|
} else {
|
||||||
|
$path = $prepend . $path;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $path;
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
// {{{ pushError($errmsg, $code)
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @param string
|
||||||
|
* @param integer
|
||||||
|
*/
|
||||||
|
function pushError($errmsg, $code = -1)
|
||||||
|
{
|
||||||
|
array_push($this->_errorStack, array($errmsg, $code));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ getErrorMsgs()
|
||||||
|
|
||||||
|
function getErrorMsgs()
|
||||||
|
{
|
||||||
|
$msgs = array();
|
||||||
|
$errs = $this->_errorStack;
|
||||||
|
foreach ($errs as $err) {
|
||||||
|
$msgs[] = $err[0];
|
||||||
|
}
|
||||||
|
$this->_errorStack = array();
|
||||||
|
return $msgs;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,970 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 5 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Gregory Beaver <cellog@php.net> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: ErrorStack.php,v 1.1.2.2 2004/06/12 05:50:51 cellog Exp $
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Error Stack Implementation
|
||||||
|
*
|
||||||
|
* This is an incredibly simple implementation of a very complex error handling
|
||||||
|
* facility. It contains the ability
|
||||||
|
* to track multiple errors from multiple packages simultaneously. In addition,
|
||||||
|
* it can track errors of many levels, save data along with the error, context
|
||||||
|
* information such as the exact file, line number, class and function that
|
||||||
|
* generated the error, and if necessary, it can raise a traditional PEAR_Error.
|
||||||
|
* It has built-in support for PEAR::Log, to log errors as they occur
|
||||||
|
*
|
||||||
|
* Since version 0.2alpha, it is also possible to selectively ignore errors,
|
||||||
|
* through the use of an error callback, see {@link pushCallback()}
|
||||||
|
*
|
||||||
|
* Since version 0.3alpha, it is possible to specify the exception class
|
||||||
|
* returned from {@link push()}
|
||||||
|
* @author Greg Beaver <cellog@php.net>
|
||||||
|
* @version 0.6alpha
|
||||||
|
* @package PEAR_ErrorStack
|
||||||
|
* @category Debugging
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License v3.0
|
||||||
|
*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Singleton storage
|
||||||
|
*
|
||||||
|
* Format:
|
||||||
|
* <pre>
|
||||||
|
* array(
|
||||||
|
* 'package1' => PEAR_ErrorStack object,
|
||||||
|
* 'package2' => PEAR_ErrorStack object,
|
||||||
|
* ...
|
||||||
|
* )
|
||||||
|
* </pre>
|
||||||
|
* @access private
|
||||||
|
* @global array $GLOBALS['_PEAR_ERRORSTACK_SINGLETON']
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_SINGLETON'] = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Global error callback (default)
|
||||||
|
*
|
||||||
|
* This is only used if set to non-false. * is the default callback for
|
||||||
|
* all packages, whereas specific packages may set a default callback
|
||||||
|
* for all instances, regardless of whether they are a singleton or not.
|
||||||
|
*
|
||||||
|
* To exclude non-singletons, only set the local callback for the singleton
|
||||||
|
* @see PEAR_ErrorStack::setDefaultCallback()
|
||||||
|
* @access private
|
||||||
|
* @global array $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK']
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK'] = array(
|
||||||
|
'*' => false,
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Global Log object (default)
|
||||||
|
*
|
||||||
|
* This is only used if set to non-false. Use to set a default log object for
|
||||||
|
* all stacks, regardless of instantiation order or location
|
||||||
|
* @see PEAR_ErrorStack::setDefaultLogger()
|
||||||
|
* @access private
|
||||||
|
* @global array $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER']
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER'] = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Global Overriding Callback
|
||||||
|
*
|
||||||
|
* This callback will override any error callbacks that specific loggers have set.
|
||||||
|
* Use with EXTREME caution
|
||||||
|
* @see PEAR_ErrorStack::staticPushCallback()
|
||||||
|
* @access private
|
||||||
|
* @global array $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER']
|
||||||
|
*/
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK'] = array();
|
||||||
|
|
||||||
|
/**#@+
|
||||||
|
* One of four possible return values from the error Callback
|
||||||
|
* @see PEAR_ErrorStack::_errorCallback()
|
||||||
|
*/
|
||||||
|
/**
|
||||||
|
* If this is returned, then the error will be both pushed onto the stack
|
||||||
|
* and logged.
|
||||||
|
*/
|
||||||
|
define('PEAR_ERRORSTACK_PUSHANDLOG', 1);
|
||||||
|
/**
|
||||||
|
* If this is returned, then the error will only be pushed onto the stack,
|
||||||
|
* and not logged.
|
||||||
|
*/
|
||||||
|
define('PEAR_ERRORSTACK_PUSH', 2);
|
||||||
|
/**
|
||||||
|
* If this is returned, then the error will only be logged, but not pushed
|
||||||
|
* onto the error stack.
|
||||||
|
*/
|
||||||
|
define('PEAR_ERRORSTACK_LOG', 3);
|
||||||
|
/**
|
||||||
|
* If this is returned, then the error is completely ignored.
|
||||||
|
*/
|
||||||
|
define('PEAR_ERRORSTACK_IGNORE', 4);
|
||||||
|
/**#@-*/
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Error code for an attempt to instantiate a non-class as a PEAR_ErrorStack in
|
||||||
|
* the singleton method.
|
||||||
|
*/
|
||||||
|
define('PEAR_ERRORSTACK_ERR_NONCLASS', 1);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Error code for an attempt to pass an object into {@link PEAR_ErrorStack::getMessage()}
|
||||||
|
* that has no __toString() method
|
||||||
|
*/
|
||||||
|
define('PEAR_ERRORSTACK_ERR_OBJTOSTRING', 2);
|
||||||
|
/**
|
||||||
|
* Error Stack Implementation
|
||||||
|
*
|
||||||
|
* Usage:
|
||||||
|
* <code>
|
||||||
|
* // global error stack
|
||||||
|
* $global_stack = &PEAR_ErrorStack::singleton('MyPackage');
|
||||||
|
* // local error stack
|
||||||
|
* $local_stack = new PEAR_ErrorStack('MyPackage');
|
||||||
|
* </code>
|
||||||
|
* @copyright 2004 Gregory Beaver
|
||||||
|
* @package PEAR_ErrorStack
|
||||||
|
* @license http://www.php.net/license/3_0.txt PHP License
|
||||||
|
*/
|
||||||
|
class PEAR_ErrorStack {
|
||||||
|
/**
|
||||||
|
* Errors are stored in the order that they are pushed on the stack.
|
||||||
|
* @since 0.4alpha Errors are no longer organized by error level.
|
||||||
|
* This renders pop() nearly unusable, and levels could be more easily
|
||||||
|
* handled in a callback anyway
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_errors = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Storage of errors by level.
|
||||||
|
*
|
||||||
|
* Allows easy retrieval and deletion of only errors from a particular level
|
||||||
|
* @since PEAR 1.4.0dev
|
||||||
|
* @var array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_errorsByLevel = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Package name this error stack represents
|
||||||
|
* @var string
|
||||||
|
* @access protected
|
||||||
|
*/
|
||||||
|
var $_package;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determines whether a PEAR_Error is thrown upon every error addition
|
||||||
|
* @var boolean
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_compat = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* If set to a valid callback, this will be used to generate the error
|
||||||
|
* message from the error code, otherwise the message passed in will be
|
||||||
|
* used
|
||||||
|
* @var false|string|array
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
var $_msgCallback = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* If set to a valid callback, this will be used to generate the error
|
||||||
|
* context for an error. For PHP-related errors, this will be a file
|
||||||
|
* and line number as retrieved from debug_backtrace(), but can be
|
||||||
|
* customized for other purposes. The error might actually be in a separate
|
||||||
|
* configuration file, or in a database query.
|
||||||
|
* @var false|string|array
|
||||||
|
* @access protected
|
||||||
|
*/
|
||||||
|
var $_contextCallback = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* If set to a valid callback, this will be called every time an error
|
||||||
|
* is pushed onto the stack. The return value will be used to determine
|
||||||
|
* whether to allow an error to be pushed or logged.
|
||||||
|
*
|
||||||
|
* The return value must be one an PEAR_ERRORSTACK_* constant
|
||||||
|
* @see PEAR_ERRORSTACK_PUSHANDLOG, PEAR_ERRORSTACK_PUSH, PEAR_ERRORSTACK_LOG
|
||||||
|
* @var false|string|array
|
||||||
|
* @access protected
|
||||||
|
*/
|
||||||
|
var $_errorCallback = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR::Log object for logging errors
|
||||||
|
* @var false|Log
|
||||||
|
* @access protected
|
||||||
|
*/
|
||||||
|
var $_logger = false;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Class name to use for a PHP 5 exception that will be returned
|
||||||
|
* @var string
|
||||||
|
* @access protected
|
||||||
|
*/
|
||||||
|
var $_exceptionClass = 'Exception';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Error messages - designed to be overridden
|
||||||
|
* @var array
|
||||||
|
* @abstract
|
||||||
|
*/
|
||||||
|
var $_errorMsgs = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set up a new error stack
|
||||||
|
*
|
||||||
|
* @param string $package name of the package this error stack represents
|
||||||
|
* @param callback $msgCallback callback used for error message generation
|
||||||
|
* @param callback $contextCallback callback used for context generation,
|
||||||
|
* defaults to {@link getFileLine()}
|
||||||
|
* @param boolean $throwPEAR_Error
|
||||||
|
* @param string $exceptionClass exception class to instantiate if
|
||||||
|
* in PHP 5
|
||||||
|
*/
|
||||||
|
function PEAR_ErrorStack($package, $msgCallback = false, $contextCallback = false,
|
||||||
|
$throwPEAR_Error = false, $exceptionClass = null)
|
||||||
|
{
|
||||||
|
$this->_package = $package;
|
||||||
|
$this->setMessageCallback($msgCallback);
|
||||||
|
$this->setContextCallback($contextCallback);
|
||||||
|
$this->_compat = $throwPEAR_Error;
|
||||||
|
// this allows child classes to simply redefine $this->_exceptionClass
|
||||||
|
if (!is_null($exceptionClass)) {
|
||||||
|
$this->_exceptionClass = $exceptionClass;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Return a single error stack for this package.
|
||||||
|
*
|
||||||
|
* Note that all parameters are ignored if the stack for package $package
|
||||||
|
* has already been instantiated
|
||||||
|
* @param string $package name of the package this error stack represents
|
||||||
|
* @param callback $msgCallback callback used for error message generation
|
||||||
|
* @param callback $contextCallback callback used for context generation,
|
||||||
|
* defaults to {@link getFileLine()}
|
||||||
|
* @param boolean $throwPEAR_Error
|
||||||
|
* @param string $exceptionClass exception class to instantiate if
|
||||||
|
* in PHP 5
|
||||||
|
* @param string $stackClass class to instantiate
|
||||||
|
* @static
|
||||||
|
* @return PEAR_ErrorStack
|
||||||
|
*/
|
||||||
|
function &singleton($package, $msgCallback = false, $contextCallback = false,
|
||||||
|
$throwPEAR_Error = false, $exceptionClass = null,
|
||||||
|
$stackClass = 'PEAR_ErrorStack')
|
||||||
|
{
|
||||||
|
if (isset($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package])) {
|
||||||
|
return $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package];
|
||||||
|
}
|
||||||
|
if (!class_exists($stackClass)) {
|
||||||
|
$trace = debug_backtrace();
|
||||||
|
PEAR_ErrorStack::staticPush('PEAR_ErrorStack', PEAR_ERRORSTACK_ERR_NONCLASS,
|
||||||
|
'exception', array('stackclass' => $stackClass),
|
||||||
|
'stack class "%stackclass%" is not a valid class name (should be like PEAR_ErrorStack)',
|
||||||
|
false, $trace);
|
||||||
|
}
|
||||||
|
return $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package] =
|
||||||
|
&new $stackClass($package, $msgCallback, $contextCallback, $throwPEAR_Error,
|
||||||
|
$exceptionClass);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Internal error handler for PEAR_ErrorStack class
|
||||||
|
*
|
||||||
|
* Dies if the error is an exception (and would have died anyway)
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _handleError($err)
|
||||||
|
{
|
||||||
|
if ($err['level'] == 'exception') {
|
||||||
|
$message = $err['message'];
|
||||||
|
if (isset($_SERVER['REQUEST_URI'])) {
|
||||||
|
echo '<br />';
|
||||||
|
} else {
|
||||||
|
echo "\n";
|
||||||
|
}
|
||||||
|
var_dump($err['context']);
|
||||||
|
die($message);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set up a PEAR::Log object for all error stacks that don't have one
|
||||||
|
* @param Log $log
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function setDefaultLogger(&$log)
|
||||||
|
{
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER'] = &$log;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set up a PEAR::Log object for this error stack
|
||||||
|
* @param Log $log
|
||||||
|
*/
|
||||||
|
function setLogger(&$log)
|
||||||
|
{
|
||||||
|
$this->_logger = &$log;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set an error code => error message mapping callback
|
||||||
|
*
|
||||||
|
* This method sets the callback that can be used to generate error
|
||||||
|
* messages for any instance
|
||||||
|
* @param array|string Callback function/method
|
||||||
|
*/
|
||||||
|
function setMessageCallback($msgCallback)
|
||||||
|
{
|
||||||
|
if (!$msgCallback) {
|
||||||
|
$this->_msgCallback = array(&$this, 'getErrorMessage');
|
||||||
|
} else {
|
||||||
|
if (is_callable($msgCallback)) {
|
||||||
|
$this->_msgCallback = $msgCallback;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get an error code => error message mapping callback
|
||||||
|
*
|
||||||
|
* This method returns the current callback that can be used to generate error
|
||||||
|
* messages
|
||||||
|
* @return array|string|false Callback function/method or false if none
|
||||||
|
*/
|
||||||
|
function getMessageCallback()
|
||||||
|
{
|
||||||
|
return $this->_msgCallback;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets a default callback to be used by all error stacks
|
||||||
|
*
|
||||||
|
* This method sets the callback that can be used to generate error
|
||||||
|
* messages for a singleton
|
||||||
|
* @param array|string Callback function/method
|
||||||
|
* @param string Package name, or false for all packages
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function setDefaultCallback($callback = false, $package = false)
|
||||||
|
{
|
||||||
|
if (!is_callable($callback)) {
|
||||||
|
$callback = false;
|
||||||
|
}
|
||||||
|
$package = $package ? $package : '*';
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK'][$package] = $callback;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set an error code => error message mapping callback
|
||||||
|
*
|
||||||
|
* This method sets the callback that can be used to generate error
|
||||||
|
* messages for any PEAR_ErrorStack instance
|
||||||
|
* @param array|string Callback function/method
|
||||||
|
*/
|
||||||
|
function setContextCallback($contextCallback)
|
||||||
|
{
|
||||||
|
if (!$contextCallback) {
|
||||||
|
$this->_contextCallback = array(&$this, 'getFileLine');
|
||||||
|
} else {
|
||||||
|
if (is_callable($contextCallback)) {
|
||||||
|
$this->_contextCallback = $contextCallback;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set an error Callback
|
||||||
|
* If set to a valid callback, this will be called every time an error
|
||||||
|
* is pushed onto the stack. The return value will be used to determine
|
||||||
|
* whether to allow an error to be pushed or logged.
|
||||||
|
*
|
||||||
|
* The return value must be one of the ERRORSTACK_* constants.
|
||||||
|
*
|
||||||
|
* This functionality can be used to emulate PEAR's pushErrorHandling, and
|
||||||
|
* the PEAR_ERROR_CALLBACK mode, without affecting the integrity of
|
||||||
|
* the error stack or logging
|
||||||
|
* @see PEAR_ERRORSTACK_PUSHANDLOG, PEAR_ERRORSTACK_PUSH, PEAR_ERRORSTACK_LOG
|
||||||
|
* @see popCallback()
|
||||||
|
* @param string|array $cb
|
||||||
|
*/
|
||||||
|
function pushCallback($cb)
|
||||||
|
{
|
||||||
|
array_push($this->_errorCallback, $cb);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Remove a callback from the error callback stack
|
||||||
|
* @see pushCallback()
|
||||||
|
* @return array|string|false
|
||||||
|
*/
|
||||||
|
function popCallback()
|
||||||
|
{
|
||||||
|
if (!count($this->_errorCallback)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return array_pop($this->_errorCallback);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set a temporary overriding error callback for every package error stack
|
||||||
|
*
|
||||||
|
* Use this to temporarily disable all existing callbacks (can be used
|
||||||
|
* to emulate the @ operator, for instance)
|
||||||
|
* @see PEAR_ERRORSTACK_PUSHANDLOG, PEAR_ERRORSTACK_PUSH, PEAR_ERRORSTACK_LOG
|
||||||
|
* @see staticPopCallback(), pushCallback()
|
||||||
|
* @param string|array $cb
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function staticPushCallback($cb)
|
||||||
|
{
|
||||||
|
array_push($GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK'], $cb);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Remove a temporary overriding error callback
|
||||||
|
* @see staticPushCallback()
|
||||||
|
* @return array|string|false
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function staticPopCallback()
|
||||||
|
{
|
||||||
|
array_pop($GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK']);
|
||||||
|
if (!is_array($GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK'])) {
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK'] = array();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Add an error to the stack
|
||||||
|
*
|
||||||
|
* If the message generator exists, it is called with 2 parameters.
|
||||||
|
* - the current Error Stack object
|
||||||
|
* - an array that is in the same format as an error. Available indices
|
||||||
|
* are 'code', 'package', 'time', 'params', 'level', and 'context'
|
||||||
|
*
|
||||||
|
* Next, if the error should contain context information, this is
|
||||||
|
* handled by the context grabbing method.
|
||||||
|
* Finally, the error is pushed onto the proper error stack
|
||||||
|
* @param int $code Package-specific error code
|
||||||
|
* @param string $level Error level. This is NOT spell-checked
|
||||||
|
* @param array $params associative array of error parameters
|
||||||
|
* @param string $msg Error message, or a portion of it if the message
|
||||||
|
* is to be generated
|
||||||
|
* @param array $repackage If this error re-packages an error pushed by
|
||||||
|
* another package, place the array returned from
|
||||||
|
* {@link pop()} in this parameter
|
||||||
|
* @param array $backtrace Protected parameter: use this to pass in the
|
||||||
|
* {@link debug_backtrace()} that should be used
|
||||||
|
* to find error context
|
||||||
|
* @return PEAR_Error|array|Exception
|
||||||
|
* if compatibility mode is on, a PEAR_Error is also
|
||||||
|
* thrown. If the class Exception exists, then one
|
||||||
|
* is returned to allow code like:
|
||||||
|
* <code>
|
||||||
|
* throw ($stack->push(MY_ERROR_CODE, 'error', array('username' => 'grob')));
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* The errorData property of the exception class will be set to the array
|
||||||
|
* that would normally be returned. If a PEAR_Error is returned, the userinfo
|
||||||
|
* property is set to the array
|
||||||
|
*
|
||||||
|
* Otherwise, an array is returned in this format:
|
||||||
|
* <code>
|
||||||
|
* array(
|
||||||
|
* 'code' => $code,
|
||||||
|
* 'params' => $params,
|
||||||
|
* 'package' => $this->_package,
|
||||||
|
* 'level' => $level,
|
||||||
|
* 'time' => time(),
|
||||||
|
* 'context' => $context,
|
||||||
|
* 'message' => $msg,
|
||||||
|
* //['repackage' => $err] repackaged error array
|
||||||
|
* );
|
||||||
|
* </code>
|
||||||
|
*/
|
||||||
|
function push($code, $level = 'error', $params = array(), $msg = false,
|
||||||
|
$repackage = false, $backtrace = false)
|
||||||
|
{
|
||||||
|
$context = false;
|
||||||
|
// grab error context
|
||||||
|
if ($this->_contextCallback) {
|
||||||
|
if (!$backtrace) {
|
||||||
|
$backtrace = debug_backtrace();
|
||||||
|
}
|
||||||
|
$context = call_user_func($this->_contextCallback, $code, $params, $backtrace);
|
||||||
|
}
|
||||||
|
|
||||||
|
// save error
|
||||||
|
$time = explode(' ', microtime());
|
||||||
|
$time = $time[1] + $time[0];
|
||||||
|
$err = array(
|
||||||
|
'code' => $code,
|
||||||
|
'params' => $params,
|
||||||
|
'package' => $this->_package,
|
||||||
|
'level' => $level,
|
||||||
|
'time' => $time,
|
||||||
|
'context' => $context,
|
||||||
|
'message' => $msg,
|
||||||
|
);
|
||||||
|
|
||||||
|
// set up the error message, if necessary
|
||||||
|
if ($this->_msgCallback) {
|
||||||
|
$msg = call_user_func_array($this->_msgCallback,
|
||||||
|
array(&$this, $err));
|
||||||
|
$err['message'] = $msg;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if ($repackage) {
|
||||||
|
$err['repackage'] = $repackage;
|
||||||
|
}
|
||||||
|
$push = $log = true;
|
||||||
|
// try the overriding callback first
|
||||||
|
$callback = $this->staticPopCallback();
|
||||||
|
if ($callback) {
|
||||||
|
$this->staticPushCallback($callback);
|
||||||
|
}
|
||||||
|
if (!is_callable($callback)) {
|
||||||
|
// try the local callback next
|
||||||
|
$callback = $this->popCallback();
|
||||||
|
if (is_callable($callback)) {
|
||||||
|
$this->pushCallback($callback);
|
||||||
|
} else {
|
||||||
|
// try the default callback
|
||||||
|
$callback = isset($GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK'][$this->_package]) ?
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK'][$this->_package] :
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK']['*'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (is_callable($callback)) {
|
||||||
|
switch(call_user_func($callback, $err)){
|
||||||
|
case PEAR_ERRORSTACK_IGNORE:
|
||||||
|
return $err;
|
||||||
|
break;
|
||||||
|
case PEAR_ERRORSTACK_PUSH:
|
||||||
|
$log = false;
|
||||||
|
break;
|
||||||
|
case PEAR_ERRORSTACK_LOG:
|
||||||
|
$push = false;
|
||||||
|
break;
|
||||||
|
// anything else returned has the same effect as pushandlog
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($push) {
|
||||||
|
array_unshift($this->_errors, $err);
|
||||||
|
$this->_errorsByLevel[$err['level']][] = &$this->_errors[0];
|
||||||
|
}
|
||||||
|
if ($log) {
|
||||||
|
if ($this->_logger || $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER']) {
|
||||||
|
$this->_log($err);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($this->_compat && $push) {
|
||||||
|
return $this->raiseError($msg, $code, null, null, $err);
|
||||||
|
}
|
||||||
|
if (class_exists($this->_exceptionClass)) {
|
||||||
|
$exception = $this->_exceptionClass;
|
||||||
|
if (is_string($msg) && is_numeric($code)) {
|
||||||
|
$code = $code + 0;
|
||||||
|
}
|
||||||
|
$ret = new $exception($msg, $code);
|
||||||
|
$ret->errorData = $err;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Static version of {@link push()}
|
||||||
|
*
|
||||||
|
* @param string $package Package name this error belongs to
|
||||||
|
* @param int $code Package-specific error code
|
||||||
|
* @param string $level Error level. This is NOT spell-checked
|
||||||
|
* @param array $params associative array of error parameters
|
||||||
|
* @param string $msg Error message, or a portion of it if the message
|
||||||
|
* is to be generated
|
||||||
|
* @param array $repackage If this error re-packages an error pushed by
|
||||||
|
* another package, place the array returned from
|
||||||
|
* {@link pop()} in this parameter
|
||||||
|
* @param array $backtrace Protected parameter: use this to pass in the
|
||||||
|
* {@link debug_backtrace()} that should be used
|
||||||
|
* to find error context
|
||||||
|
* @return PEAR_Error|null|Exception
|
||||||
|
* if compatibility mode is on, a PEAR_Error is also
|
||||||
|
* thrown. If the class Exception exists, then one
|
||||||
|
* is returned to allow code like:
|
||||||
|
* <code>
|
||||||
|
* throw ($stack->push(MY_ERROR_CODE, 'error', array('username' => 'grob')));
|
||||||
|
* </code>
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function staticPush($package, $code, $level = 'error', $params = array(),
|
||||||
|
$msg = false, $repackage = false, $backtrace = false)
|
||||||
|
{
|
||||||
|
$s = &PEAR_ErrorStack::singleton($package);
|
||||||
|
if ($s->_contextCallback) {
|
||||||
|
if (!$backtrace) {
|
||||||
|
$backtrace = debug_backtrace();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $s->push($code, $level, $params, $msg, $repackage, $backtrace);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Log an error using PEAR::Log
|
||||||
|
* @param array $err Error array
|
||||||
|
* @param array $levels Error level => Log constant map
|
||||||
|
* @access protected
|
||||||
|
*/
|
||||||
|
function _log($err, $levels = array(
|
||||||
|
'exception' => PEAR_LOG_CRIT,
|
||||||
|
'alert' => PEAR_LOG_ALERT,
|
||||||
|
'critical' => PEAR_LOG_CRIT,
|
||||||
|
'error' => PEAR_LOG_ERR,
|
||||||
|
'warning' => PEAR_LOG_WARNING,
|
||||||
|
'notice' => PEAR_LOG_NOTICE,
|
||||||
|
'info' => PEAR_LOG_INFO,
|
||||||
|
'debug' => PEAR_LOG_DEBUG))
|
||||||
|
{
|
||||||
|
if (isset($levels[$err['level']])) {
|
||||||
|
$level = $levels[$err['level']];
|
||||||
|
} else {
|
||||||
|
$level = PEAR_LOG_INFO;
|
||||||
|
}
|
||||||
|
if ($this->_logger) {
|
||||||
|
$this->_logger->log($err['message'], $level, $err);
|
||||||
|
} else {
|
||||||
|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER']->log($err['message'], $level, $err);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Pop an error off of the error stack
|
||||||
|
*
|
||||||
|
* @return false|array
|
||||||
|
* @since 0.4alpha it is no longer possible to specify a specific error
|
||||||
|
* level to return - the last error pushed will be returned, instead
|
||||||
|
*/
|
||||||
|
function pop()
|
||||||
|
{
|
||||||
|
return @array_shift($this->_errors);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determine whether there are any errors on the stack
|
||||||
|
* @param string|array Level name. Use to determine if any errors
|
||||||
|
* of level (string), or levels (array) have been pushed
|
||||||
|
* @return boolean
|
||||||
|
*/
|
||||||
|
function hasErrors($level = false)
|
||||||
|
{
|
||||||
|
if ($level) {
|
||||||
|
return isset($this->_errorsByLevel[$level]);
|
||||||
|
}
|
||||||
|
return count($this->_errors);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Retrieve all errors since last purge
|
||||||
|
*
|
||||||
|
* @param boolean set in order to empty the error stack
|
||||||
|
* @param string level name, to return only errors of a particular severity
|
||||||
|
* @return array
|
||||||
|
*/
|
||||||
|
function getErrors($purge = false, $level = false)
|
||||||
|
{
|
||||||
|
if (!$purge) {
|
||||||
|
if ($level) {
|
||||||
|
if (!isset($this->_errorsByLevel[$level])) {
|
||||||
|
return array();
|
||||||
|
} else {
|
||||||
|
return $this->_errorsByLevel[$level];
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return $this->_errors;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($level) {
|
||||||
|
$ret = $this->_errorsByLevel[$level];
|
||||||
|
foreach ($this->_errorsByLevel[$level] as $i => $unused) {
|
||||||
|
// entries are references to the $_errors array
|
||||||
|
$this->_errorsByLevel[$level][$i] = false;
|
||||||
|
}
|
||||||
|
// array_filter removes all entries === false
|
||||||
|
$this->_errors = array_filter($this->_errors);
|
||||||
|
unset($this->_errorsByLevel[$level]);
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
$ret = $this->_errors;
|
||||||
|
$this->_errors = array();
|
||||||
|
$this->_errorsByLevel = array();
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Determine whether there are any errors on a single error stack, or on any error stack
|
||||||
|
*
|
||||||
|
* The optional parameter can be used to test the existence of any errors without the need of
|
||||||
|
* singleton instantiation
|
||||||
|
* @param string|false Package name to check for errors
|
||||||
|
* @param string Level name to check for a particular severity
|
||||||
|
* @return boolean
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function staticHasErrors($package = false, $level = false)
|
||||||
|
{
|
||||||
|
if ($package) {
|
||||||
|
if (!isset($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package])) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
return $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package]->hasErrors($level);
|
||||||
|
}
|
||||||
|
foreach ($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'] as $package => $obj) {
|
||||||
|
if ($obj->hasErrors($level)) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get a list of all errors since last purge, organized by package
|
||||||
|
* @since PEAR 1.4.0dev BC break! $level is now in the place $merge used to be
|
||||||
|
* @param boolean $clearStack Set to purge the error stack of existing errors
|
||||||
|
* @param string $level Set to a level name in order to retrieve only errors of a particular level
|
||||||
|
* @param boolean $merge Set to return a flat array, not organized by package
|
||||||
|
* @param array $sortfunc Function used to sort a merged array - default
|
||||||
|
* sorts by time, and should be good for most cases
|
||||||
|
* @static
|
||||||
|
* @return array
|
||||||
|
*/
|
||||||
|
function staticGetErrors($purge = false, $level = false, $merge = false, $sortfunc = array('PEAR_ErrorStack', '_sortErrors'))
|
||||||
|
{
|
||||||
|
$ret = array();
|
||||||
|
if (!is_callable($sortfunc)) {
|
||||||
|
$sortfunc = array('PEAR_ErrorStack', '_sortErrors');
|
||||||
|
}
|
||||||
|
foreach ($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'] as $package => $obj) {
|
||||||
|
$test = $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package]->getErrors($purge, $level);
|
||||||
|
if ($test) {
|
||||||
|
if ($merge) {
|
||||||
|
$ret = array_merge($ret, $test);
|
||||||
|
} else {
|
||||||
|
$ret[$package] = $test;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($merge) {
|
||||||
|
usort($ret, $sortfunc);
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Error sorting function, sorts by time
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _sortErrors($a, $b)
|
||||||
|
{
|
||||||
|
if ($a['time'] == $b['time']) {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
if ($a['time'] < $b['time']) {
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
return -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Standard file/line number/function/class context callback
|
||||||
|
*
|
||||||
|
* This function uses a backtrace generated from {@link debug_backtrace()}
|
||||||
|
* and so will not work at all in PHP < 4.3.0. The frame should
|
||||||
|
* reference the frame that contains the source of the error.
|
||||||
|
* @return array|false either array('file' => file, 'line' => line,
|
||||||
|
* 'function' => function name, 'class' => class name) or
|
||||||
|
* if this doesn't work, then false
|
||||||
|
* @param unused
|
||||||
|
* @param integer backtrace frame.
|
||||||
|
* @param array Results of debug_backtrace()
|
||||||
|
* @static
|
||||||
|
*/
|
||||||
|
function getFileLine($code, $params, $backtrace = null)
|
||||||
|
{
|
||||||
|
if ($backtrace === null) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$frame = 0;
|
||||||
|
$functionframe = 1;
|
||||||
|
if (!isset($backtrace[1])) {
|
||||||
|
$functionframe = 0;
|
||||||
|
} else {
|
||||||
|
while (isset($backtrace[$functionframe]['function']) &&
|
||||||
|
$backtrace[$functionframe]['function'] == 'eval' &&
|
||||||
|
isset($backtrace[$functionframe + 1])) {
|
||||||
|
$functionframe++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (isset($backtrace[$frame])) {
|
||||||
|
if (!isset($backtrace[$frame]['file'])) {
|
||||||
|
$frame++;
|
||||||
|
}
|
||||||
|
$funcbacktrace = $backtrace[$functionframe];
|
||||||
|
$filebacktrace = $backtrace[$frame];
|
||||||
|
$ret = array('file' => $filebacktrace['file'],
|
||||||
|
'line' => $filebacktrace['line']);
|
||||||
|
// rearrange for eval'd code or create function errors
|
||||||
|
if (strpos($filebacktrace['file'], '(') &&
|
||||||
|
preg_match(';^(.*?)\((\d+)\) : (.*?)$;', $filebacktrace['file'],
|
||||||
|
$matches)) {
|
||||||
|
$ret['file'] = $matches[1];
|
||||||
|
$ret['line'] = $matches[2] + 0;
|
||||||
|
}
|
||||||
|
if (isset($funcbacktrace['function']) && isset($backtrace[1])) {
|
||||||
|
if ($funcbacktrace['function'] != 'eval') {
|
||||||
|
if ($funcbacktrace['function'] == '__lambda_func') {
|
||||||
|
$ret['function'] = 'create_function() code';
|
||||||
|
} else {
|
||||||
|
$ret['function'] = $funcbacktrace['function'];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (isset($funcbacktrace['class']) && isset($backtrace[1])) {
|
||||||
|
$ret['class'] = $funcbacktrace['class'];
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Standard error message generation callback
|
||||||
|
*
|
||||||
|
* This method may also be called by a custom error message generator
|
||||||
|
* to fill in template values from the params array, simply
|
||||||
|
* set the third parameter to the error message template string to use
|
||||||
|
*
|
||||||
|
* The special variable %__msg% is reserved: use it only to specify
|
||||||
|
* where a message passed in by the user should be placed in the template,
|
||||||
|
* like so:
|
||||||
|
*
|
||||||
|
* Error message: %msg% - internal error
|
||||||
|
*
|
||||||
|
* If the message passed like so:
|
||||||
|
*
|
||||||
|
* <code>
|
||||||
|
* $stack->push(ERROR_CODE, 'error', array(), 'server error 500');
|
||||||
|
* </code>
|
||||||
|
*
|
||||||
|
* The returned error message will be "Error message: server error 500 -
|
||||||
|
* internal error"
|
||||||
|
* @param PEAR_ErrorStack
|
||||||
|
* @param array
|
||||||
|
* @param string|false Pre-generated error message template
|
||||||
|
* @static
|
||||||
|
* @return string
|
||||||
|
*/
|
||||||
|
function getErrorMessage(&$stack, $err, $template = false)
|
||||||
|
{
|
||||||
|
if ($template) {
|
||||||
|
$mainmsg = $template;
|
||||||
|
} else {
|
||||||
|
$mainmsg = $stack->getErrorMessageTemplate($err['code']);
|
||||||
|
}
|
||||||
|
$mainmsg = str_replace('%__msg%', $err['message'], $mainmsg);
|
||||||
|
if (count($err['params'])) {
|
||||||
|
foreach ($err['params'] as $name => $val) {
|
||||||
|
if (is_array($val)) {
|
||||||
|
// @ is needed in case $val is a multi-dimensional array
|
||||||
|
$val = @implode(', ', $val);
|
||||||
|
}
|
||||||
|
if (is_object($val)) {
|
||||||
|
if (method_exists($val, '__toString')) {
|
||||||
|
$val = $val->__toString();
|
||||||
|
} else {
|
||||||
|
PEAR_ErrorStack::staticPush('PEAR_ErrorStack', PEAR_ERRORSTACK_ERR_OBJTOSTRING,
|
||||||
|
'warning', array('obj' => get_class($val)),
|
||||||
|
'object %obj% passed into getErrorMessage, but has no __toString() method');
|
||||||
|
$val = 'Object';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$mainmsg = str_replace('%' . $name . '%', $val, $mainmsg);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $mainmsg;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Standard Error Message Template generator from code
|
||||||
|
* @return string
|
||||||
|
*/
|
||||||
|
function getErrorMessageTemplate($code)
|
||||||
|
{
|
||||||
|
if (!isset($this->_errorMsgs[$code])) {
|
||||||
|
return '%__msg%';
|
||||||
|
}
|
||||||
|
return $this->_errorMsgs[$code];
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Set the Error Message Template array
|
||||||
|
*
|
||||||
|
* The array format must be:
|
||||||
|
* <pre>
|
||||||
|
* array(error code => 'message template',...)
|
||||||
|
* </pre>
|
||||||
|
*
|
||||||
|
* Error message parameters passed into {@link push()} will be used as input
|
||||||
|
* for the error message. If the template is 'message %foo% was %bar%', and the
|
||||||
|
* parameters are array('foo' => 'one', 'bar' => 'six'), the error message returned will
|
||||||
|
* be 'message one was six'
|
||||||
|
* @return string
|
||||||
|
*/
|
||||||
|
function setErrorMessageTemplate($template)
|
||||||
|
{
|
||||||
|
$this->_errorMsgs = $template;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
* emulate PEAR::raiseError()
|
||||||
|
*
|
||||||
|
* @return PEAR_Error
|
||||||
|
*/
|
||||||
|
function raiseError()
|
||||||
|
{
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
$args = func_get_args();
|
||||||
|
return call_user_func_array(array('PEAR', 'raiseError'), $args);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$stack = &PEAR_ErrorStack::singleton('PEAR_ErrorStack');
|
||||||
|
$stack->pushCallback(array('PEAR_ErrorStack', '_handleError'));
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,504 @@
|
||||||
|
<?php
|
||||||
|
/*
|
||||||
|
+----------------------------------------------------------------------+
|
||||||
|
| PHP Version 4 |
|
||||||
|
+----------------------------------------------------------------------+
|
||||||
|
| Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
+----------------------------------------------------------------------+
|
||||||
|
| This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
| that is bundled with this package in the file LICENSE, and is |
|
||||||
|
| available through the world-wide-web at the following url: |
|
||||||
|
| http://www.php.net/license/3_0.txt. |
|
||||||
|
| If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
| obtain it through the world-wide-web, please send a note to |
|
||||||
|
| license@php.net so we can mail you a copy immediately. |
|
||||||
|
+----------------------------------------------------------------------+
|
||||||
|
| Author: Stig Sæther Bakken <ssb@php.net> |
|
||||||
|
+----------------------------------------------------------------------+
|
||||||
|
|
||||||
|
$Id: CLI.php,v 1.25.2.15 2004/01/26 01:26:47 pajoye Exp $
|
||||||
|
*/
|
||||||
|
|
||||||
|
require_once "PEAR.php";
|
||||||
|
|
||||||
|
class PEAR_Frontend_CLI extends PEAR
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* What type of user interface this frontend is for.
|
||||||
|
* @var string
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
var $type = 'CLI';
|
||||||
|
var $lp = ''; // line prefix
|
||||||
|
|
||||||
|
var $params = array();
|
||||||
|
var $term = array(
|
||||||
|
'bold' => '',
|
||||||
|
'normal' => '',
|
||||||
|
);
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
function PEAR_Frontend_CLI()
|
||||||
|
{
|
||||||
|
parent::PEAR();
|
||||||
|
$term = getenv('TERM'); //(cox) $_ENV is empty for me in 4.1.1
|
||||||
|
if ($term) {
|
||||||
|
// XXX can use ncurses extension here, if available
|
||||||
|
if (preg_match('/^(xterm|vt220|linux)/', $term)) {
|
||||||
|
$this->term['bold'] = sprintf("%c%c%c%c", 27, 91, 49, 109);
|
||||||
|
$this->term['normal']=sprintf("%c%c%c", 27, 91, 109);
|
||||||
|
} elseif (preg_match('/^vt100/', $term)) {
|
||||||
|
$this->term['bold'] = sprintf("%c%c%c%c%c%c", 27, 91, 49, 109, 0, 0);
|
||||||
|
$this->term['normal']=sprintf("%c%c%c%c%c", 27, 91, 109, 0, 0);
|
||||||
|
}
|
||||||
|
} elseif (OS_WINDOWS) {
|
||||||
|
// XXX add ANSI codes here
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ displayLine(text)
|
||||||
|
|
||||||
|
function displayLine($text)
|
||||||
|
{
|
||||||
|
trigger_error("PEAR_Frontend_CLI::displayLine deprecated", E_USER_ERROR);
|
||||||
|
}
|
||||||
|
|
||||||
|
function _displayLine($text)
|
||||||
|
{
|
||||||
|
print "$this->lp$text\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ display(text)
|
||||||
|
|
||||||
|
function display($text)
|
||||||
|
{
|
||||||
|
trigger_error("PEAR_Frontend_CLI::display deprecated", E_USER_ERROR);
|
||||||
|
}
|
||||||
|
|
||||||
|
function _display($text)
|
||||||
|
{
|
||||||
|
print $text;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ displayError(eobj)
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @param object PEAR_Error object
|
||||||
|
*/
|
||||||
|
function displayError($eobj)
|
||||||
|
{
|
||||||
|
return $this->_displayLine($eobj->getMessage());
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ displayFatalError(eobj)
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @param object PEAR_Error object
|
||||||
|
*/
|
||||||
|
function displayFatalError($eobj)
|
||||||
|
{
|
||||||
|
$this->displayError($eobj);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ displayHeading(title)
|
||||||
|
|
||||||
|
function displayHeading($title)
|
||||||
|
{
|
||||||
|
trigger_error("PEAR_Frontend_CLI::displayHeading deprecated", E_USER_ERROR);
|
||||||
|
}
|
||||||
|
|
||||||
|
function _displayHeading($title)
|
||||||
|
{
|
||||||
|
print $this->lp.$this->bold($title)."\n";
|
||||||
|
print $this->lp.str_repeat("=", strlen($title))."\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ userDialog(prompt, [type], [default])
|
||||||
|
|
||||||
|
function userDialog($command, $prompts, $types = array(), $defaults = array())
|
||||||
|
{
|
||||||
|
$result = array();
|
||||||
|
if (is_array($prompts)) {
|
||||||
|
$fp = fopen("php://stdin", "r");
|
||||||
|
foreach ($prompts as $key => $prompt) {
|
||||||
|
$type = $types[$key];
|
||||||
|
$default = @$defaults[$key];
|
||||||
|
if ($type == 'password') {
|
||||||
|
system('stty -echo');
|
||||||
|
}
|
||||||
|
print "$this->lp$prompt ";
|
||||||
|
if ($default) {
|
||||||
|
print "[$default] ";
|
||||||
|
}
|
||||||
|
print ": ";
|
||||||
|
$line = fgets($fp, 2048);
|
||||||
|
if ($type == 'password') {
|
||||||
|
system('stty echo');
|
||||||
|
print "\n";
|
||||||
|
}
|
||||||
|
if ($default && trim($line) == "") {
|
||||||
|
$result[$key] = $default;
|
||||||
|
} else {
|
||||||
|
$result[$key] = $line;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fclose($fp);
|
||||||
|
}
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ userConfirm(prompt, [default])
|
||||||
|
|
||||||
|
function userConfirm($prompt, $default = 'yes')
|
||||||
|
{
|
||||||
|
trigger_error("PEAR_Frontend_CLI::userConfirm not yet converted", E_USER_ERROR);
|
||||||
|
static $positives = array('y', 'yes', 'on', '1');
|
||||||
|
static $negatives = array('n', 'no', 'off', '0');
|
||||||
|
print "$this->lp$prompt [$default] : ";
|
||||||
|
$fp = fopen("php://stdin", "r");
|
||||||
|
$line = fgets($fp, 2048);
|
||||||
|
fclose($fp);
|
||||||
|
$answer = strtolower(trim($line));
|
||||||
|
if (empty($answer)) {
|
||||||
|
$answer = $default;
|
||||||
|
}
|
||||||
|
if (in_array($answer, $positives)) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
if (in_array($answer, $negatives)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (in_array($default, $positives)) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ startTable([params])
|
||||||
|
|
||||||
|
function startTable($params = array())
|
||||||
|
{
|
||||||
|
trigger_error("PEAR_Frontend_CLI::startTable deprecated", E_USER_ERROR);
|
||||||
|
}
|
||||||
|
|
||||||
|
function _startTable($params = array())
|
||||||
|
{
|
||||||
|
$params['table_data'] = array();
|
||||||
|
$params['widest'] = array(); // indexed by column
|
||||||
|
$params['highest'] = array(); // indexed by row
|
||||||
|
$params['ncols'] = 0;
|
||||||
|
$this->params = $params;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ tableRow(columns, [rowparams], [colparams])
|
||||||
|
|
||||||
|
function tableRow($columns, $rowparams = array(), $colparams = array())
|
||||||
|
{
|
||||||
|
trigger_error("PEAR_Frontend_CLI::tableRow deprecated", E_USER_ERROR);
|
||||||
|
}
|
||||||
|
|
||||||
|
function _tableRow($columns, $rowparams = array(), $colparams = array())
|
||||||
|
{
|
||||||
|
$highest = 1;
|
||||||
|
for ($i = 0; $i < sizeof($columns); $i++) {
|
||||||
|
$col = &$columns[$i];
|
||||||
|
if (isset($colparams[$i]) && !empty($colparams[$i]['wrap'])) {
|
||||||
|
$col = wordwrap($col, $colparams[$i]['wrap'], "\n", 1);
|
||||||
|
}
|
||||||
|
if (strpos($col, "\n") !== false) {
|
||||||
|
$multiline = explode("\n", $col);
|
||||||
|
$w = 0;
|
||||||
|
foreach ($multiline as $n => $line) {
|
||||||
|
if (strlen($line) > $w) {
|
||||||
|
$w = strlen($line);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$lines = sizeof($multiline);
|
||||||
|
} else {
|
||||||
|
$w = strlen($col);
|
||||||
|
}
|
||||||
|
if ($w > @$this->params['widest'][$i]) {
|
||||||
|
$this->params['widest'][$i] = $w;
|
||||||
|
}
|
||||||
|
$tmp = count_chars($columns[$i], 1);
|
||||||
|
// handle unix, mac and windows formats
|
||||||
|
$lines = (isset($tmp[10]) ? $tmp[10] : @$tmp[13]) + 1;
|
||||||
|
if ($lines > $highest) {
|
||||||
|
$highest = $lines;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (sizeof($columns) > $this->params['ncols']) {
|
||||||
|
$this->params['ncols'] = sizeof($columns);
|
||||||
|
}
|
||||||
|
$new_row = array(
|
||||||
|
'data' => $columns,
|
||||||
|
'height' => $highest,
|
||||||
|
'rowparams' => $rowparams,
|
||||||
|
'colparams' => $colparams,
|
||||||
|
);
|
||||||
|
$this->params['table_data'][] = $new_row;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ endTable()
|
||||||
|
|
||||||
|
function endTable()
|
||||||
|
{
|
||||||
|
trigger_error("PEAR_Frontend_CLI::endTable deprecated", E_USER_ERROR);
|
||||||
|
}
|
||||||
|
|
||||||
|
function _endTable()
|
||||||
|
{
|
||||||
|
extract($this->params);
|
||||||
|
if (!empty($caption)) {
|
||||||
|
$this->_displayHeading($caption);
|
||||||
|
}
|
||||||
|
if (count($table_data) == 0) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (!isset($width)) {
|
||||||
|
$width = $widest;
|
||||||
|
} else {
|
||||||
|
for ($i = 0; $i < $ncols; $i++) {
|
||||||
|
if (!isset($width[$i])) {
|
||||||
|
$width[$i] = $widest[$i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$border = false;
|
||||||
|
if (empty($border)) {
|
||||||
|
$cellstart = '';
|
||||||
|
$cellend = ' ';
|
||||||
|
$rowend = '';
|
||||||
|
$padrowend = false;
|
||||||
|
$borderline = '';
|
||||||
|
} else {
|
||||||
|
$cellstart = '| ';
|
||||||
|
$cellend = ' ';
|
||||||
|
$rowend = '|';
|
||||||
|
$padrowend = true;
|
||||||
|
$borderline = '+';
|
||||||
|
foreach ($width as $w) {
|
||||||
|
$borderline .= str_repeat('-', $w + strlen($cellstart) + strlen($cellend) - 1);
|
||||||
|
$borderline .= '+';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($borderline) {
|
||||||
|
$this->_displayLine($borderline);
|
||||||
|
}
|
||||||
|
for ($i = 0; $i < sizeof($table_data); $i++) {
|
||||||
|
extract($table_data[$i]);
|
||||||
|
if (!is_array($rowparams)) {
|
||||||
|
$rowparams = array();
|
||||||
|
}
|
||||||
|
if (!is_array($colparams)) {
|
||||||
|
$colparams = array();
|
||||||
|
}
|
||||||
|
$rowlines = array();
|
||||||
|
if ($height > 1) {
|
||||||
|
for ($c = 0; $c < sizeof($data); $c++) {
|
||||||
|
$rowlines[$c] = preg_split('/(\r?\n|\r)/', $data[$c]);
|
||||||
|
if (sizeof($rowlines[$c]) < $height) {
|
||||||
|
$rowlines[$c] = array_pad($rowlines[$c], $height, '');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
for ($c = 0; $c < sizeof($data); $c++) {
|
||||||
|
$rowlines[$c] = array($data[$c]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
for ($r = 0; $r < $height; $r++) {
|
||||||
|
$rowtext = '';
|
||||||
|
for ($c = 0; $c < sizeof($data); $c++) {
|
||||||
|
if (isset($colparams[$c])) {
|
||||||
|
$attribs = array_merge($rowparams, $colparams);
|
||||||
|
} else {
|
||||||
|
$attribs = $rowparams;
|
||||||
|
}
|
||||||
|
$w = isset($width[$c]) ? $width[$c] : 0;
|
||||||
|
//$cell = $data[$c];
|
||||||
|
$cell = $rowlines[$c][$r];
|
||||||
|
$l = strlen($cell);
|
||||||
|
if ($l > $w) {
|
||||||
|
$cell = substr($cell, 0, $w);
|
||||||
|
}
|
||||||
|
if (isset($attribs['bold'])) {
|
||||||
|
$cell = $this->bold($cell);
|
||||||
|
}
|
||||||
|
if ($l < $w) {
|
||||||
|
// not using str_pad here because we may
|
||||||
|
// add bold escape characters to $cell
|
||||||
|
$cell .= str_repeat(' ', $w - $l);
|
||||||
|
}
|
||||||
|
|
||||||
|
$rowtext .= $cellstart . $cell . $cellend;
|
||||||
|
}
|
||||||
|
$rowtext .= $rowend;
|
||||||
|
$this->_displayLine($rowtext);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($borderline) {
|
||||||
|
$this->_displayLine($borderline);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ outputData()
|
||||||
|
|
||||||
|
function outputData($data, $command = '_default')
|
||||||
|
{
|
||||||
|
switch ($command) {
|
||||||
|
case 'install':
|
||||||
|
case 'upgrade':
|
||||||
|
case 'upgrade-all':
|
||||||
|
if (isset($data['release_warnings'])) {
|
||||||
|
$this->_displayLine('');
|
||||||
|
$this->_startTable(array(
|
||||||
|
'border' => false,
|
||||||
|
'caption' => 'Release Warnings'
|
||||||
|
));
|
||||||
|
$this->_tableRow(array($data['release_warnings']), null, array(1 => array('wrap' => 55)));
|
||||||
|
$this->_endTable();
|
||||||
|
$this->_displayLine('');
|
||||||
|
}
|
||||||
|
$this->_displayLine($data['data']);
|
||||||
|
break;
|
||||||
|
case 'search':
|
||||||
|
$this->_startTable($data);
|
||||||
|
if (isset($data['headline']) && is_array($data['headline'])) {
|
||||||
|
$this->_tableRow($data['headline'], array('bold' => true), array(1 => array('wrap' => 55)));
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach($data['data'] as $category) {
|
||||||
|
foreach($category as $pkg) {
|
||||||
|
$this->_tableRow($pkg, null, array(1 => array('wrap' => 55)));
|
||||||
|
}
|
||||||
|
};
|
||||||
|
$this->_endTable();
|
||||||
|
break;
|
||||||
|
case 'list-all':
|
||||||
|
$this->_startTable($data);
|
||||||
|
if (isset($data['headline']) && is_array($data['headline'])) {
|
||||||
|
$this->_tableRow($data['headline'], array('bold' => true), array(1 => array('wrap' => 55)));
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach($data['data'] as $category) {
|
||||||
|
foreach($category as $pkg) {
|
||||||
|
unset($pkg[3]);
|
||||||
|
unset($pkg[4]);
|
||||||
|
$this->_tableRow($pkg, null, array(1 => array('wrap' => 55)));
|
||||||
|
}
|
||||||
|
};
|
||||||
|
$this->_endTable();
|
||||||
|
break;
|
||||||
|
case 'config-show':
|
||||||
|
$data['border'] = false;
|
||||||
|
$opts = array(0 => array('wrap' => 30),
|
||||||
|
1 => array('wrap' => 20),
|
||||||
|
2 => array('wrap' => 35));
|
||||||
|
$this->_startTable($data);
|
||||||
|
if (isset($data['headline']) && is_array($data['headline'])) {
|
||||||
|
$this->_tableRow($data['headline'],
|
||||||
|
array('bold' => true),
|
||||||
|
$opts);
|
||||||
|
}
|
||||||
|
foreach($data['data'] as $group) {
|
||||||
|
foreach($group as $value) {
|
||||||
|
if ($value[2] == '') {
|
||||||
|
$value[2] = "<not set>";
|
||||||
|
}
|
||||||
|
$this->_tableRow($value, null, $opts);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->_endTable();
|
||||||
|
break;
|
||||||
|
case 'remote-info':
|
||||||
|
$data = array(
|
||||||
|
'caption' => 'Package details:',
|
||||||
|
'border' => false,
|
||||||
|
'data' => array(
|
||||||
|
array("Latest", $data['stable']),
|
||||||
|
array("Installed", $data['installed']),
|
||||||
|
array("Package", $data['name']),
|
||||||
|
array("License", $data['license']),
|
||||||
|
array("Category", $data['category']),
|
||||||
|
array("Summary", $data['summary']),
|
||||||
|
array("Description", $data['description']),
|
||||||
|
),
|
||||||
|
);
|
||||||
|
default: {
|
||||||
|
if (is_array($data)) {
|
||||||
|
$this->_startTable($data);
|
||||||
|
$count = count($data['data'][0]);
|
||||||
|
if ($count == 2) {
|
||||||
|
$opts = array(0 => array('wrap' => 25),
|
||||||
|
1 => array('wrap' => 48)
|
||||||
|
);
|
||||||
|
} elseif ($count == 3) {
|
||||||
|
$opts = array(0 => array('wrap' => 30),
|
||||||
|
1 => array('wrap' => 20),
|
||||||
|
2 => array('wrap' => 35)
|
||||||
|
);
|
||||||
|
} else {
|
||||||
|
$opts = null;
|
||||||
|
}
|
||||||
|
if (isset($data['headline']) && is_array($data['headline'])) {
|
||||||
|
$this->_tableRow($data['headline'],
|
||||||
|
array('bold' => true),
|
||||||
|
$opts);
|
||||||
|
}
|
||||||
|
foreach($data['data'] as $row) {
|
||||||
|
$this->_tableRow($row, null, $opts);
|
||||||
|
}
|
||||||
|
$this->_endTable();
|
||||||
|
} else {
|
||||||
|
$this->_displayLine($data);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ log(text)
|
||||||
|
|
||||||
|
|
||||||
|
function log($text, $append_crlf = true)
|
||||||
|
{
|
||||||
|
if ($append_crlf) {
|
||||||
|
return $this->_displayLine($text);
|
||||||
|
}
|
||||||
|
return $this->_display($text);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ bold($text)
|
||||||
|
|
||||||
|
function bold($text)
|
||||||
|
{
|
||||||
|
if (empty($this->term['bold'])) {
|
||||||
|
return strtoupper($text);
|
||||||
|
}
|
||||||
|
return $this->term['bold'] . $text . $this->term['normal'];
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,165 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Stig Bakken <ssb@php.net> |
|
||||||
|
// | Tomas V.V.Cox <cox@idecnet.com> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Packager.php,v 1.43.2.12 2004/01/26 01:26:46 pajoye Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR/Common.php';
|
||||||
|
require_once 'System.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Administration class used to make a PEAR release tarball.
|
||||||
|
*
|
||||||
|
* TODO:
|
||||||
|
* - add an extra param the dir where to place the created package
|
||||||
|
*
|
||||||
|
* @since PHP 4.0.2
|
||||||
|
* @author Stig Bakken <ssb@php.net>
|
||||||
|
*/
|
||||||
|
class PEAR_Packager extends PEAR_Common
|
||||||
|
{
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
function PEAR_Packager()
|
||||||
|
{
|
||||||
|
parent::PEAR_Common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ destructor
|
||||||
|
|
||||||
|
function _PEAR_Packager()
|
||||||
|
{
|
||||||
|
parent::_PEAR_Common();
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ package()
|
||||||
|
|
||||||
|
function package($pkgfile = null, $compress = true)
|
||||||
|
{
|
||||||
|
// {{{ validate supplied package.xml file
|
||||||
|
if (empty($pkgfile)) {
|
||||||
|
$pkgfile = 'package.xml';
|
||||||
|
}
|
||||||
|
// $this->pkginfo gets populated inside
|
||||||
|
$pkginfo = $this->infoFromDescriptionFile($pkgfile);
|
||||||
|
if (PEAR::isError($pkginfo)) {
|
||||||
|
return $this->raiseError($pkginfo);
|
||||||
|
}
|
||||||
|
|
||||||
|
$pkgdir = dirname(realpath($pkgfile));
|
||||||
|
$pkgfile = basename($pkgfile);
|
||||||
|
|
||||||
|
$errors = $warnings = array();
|
||||||
|
$this->validatePackageInfo($pkginfo, $errors, $warnings, $pkgdir);
|
||||||
|
foreach ($warnings as $w) {
|
||||||
|
$this->log(1, "Warning: $w");
|
||||||
|
}
|
||||||
|
foreach ($errors as $e) {
|
||||||
|
$this->log(0, "Error: $e");
|
||||||
|
}
|
||||||
|
if (sizeof($errors) > 0) {
|
||||||
|
return $this->raiseError('Errors in package');
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
$pkgver = $pkginfo['package'] . '-' . $pkginfo['version'];
|
||||||
|
|
||||||
|
// {{{ Create the package file list
|
||||||
|
$filelist = array();
|
||||||
|
$i = 0;
|
||||||
|
|
||||||
|
foreach ($pkginfo['filelist'] as $fname => $atts) {
|
||||||
|
$file = $pkgdir . DIRECTORY_SEPARATOR . $fname;
|
||||||
|
if (!file_exists($file)) {
|
||||||
|
return $this->raiseError("File does not exist: $fname");
|
||||||
|
} else {
|
||||||
|
$filelist[$i++] = $file;
|
||||||
|
if (empty($pkginfo['filelist'][$fname]['md5sum'])) {
|
||||||
|
$md5sum = md5_file($file);
|
||||||
|
$tpkginfo['filelist'][$fname]['md5sum'] = $md5sum;
|
||||||
|
}
|
||||||
|
$this->log(2, "Adding file $fname");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ regenerate package.xml
|
||||||
|
$new_xml = $this->xmlFromInfo($pkginfo);
|
||||||
|
if (PEAR::isError($new_xml)) {
|
||||||
|
return $this->raiseError($new_xml);
|
||||||
|
}
|
||||||
|
if (!($tmpdir = System::mktemp(array('-d')))) {
|
||||||
|
return $this->raiseError("PEAR_Packager: mktemp failed");
|
||||||
|
}
|
||||||
|
$newpkgfile = $tmpdir . DIRECTORY_SEPARATOR . 'package.xml';
|
||||||
|
$np = @fopen($newpkgfile, 'wb');
|
||||||
|
if (!$np) {
|
||||||
|
return $this->raiseError("PEAR_Packager: unable to rewrite $pkgfile as $newpkgfile");
|
||||||
|
}
|
||||||
|
fwrite($np, $new_xml);
|
||||||
|
fclose($np);
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ TAR the Package -------------------------------------------
|
||||||
|
$ext = $compress ? '.tgz' : '.tar';
|
||||||
|
$dest_package = getcwd() . DIRECTORY_SEPARATOR . $pkgver . $ext;
|
||||||
|
$tar =& new Archive_Tar($dest_package, $compress);
|
||||||
|
$tar->setErrorHandling(PEAR_ERROR_RETURN); // XXX Don't print errors
|
||||||
|
// ----- Creates with the package.xml file
|
||||||
|
$ok = $tar->createModify(array($newpkgfile), '', $tmpdir);
|
||||||
|
if (PEAR::isError($ok)) {
|
||||||
|
return $this->raiseError($ok);
|
||||||
|
} elseif (!$ok) {
|
||||||
|
return $this->raiseError('PEAR_Packager: tarball creation failed');
|
||||||
|
}
|
||||||
|
// ----- Add the content of the package
|
||||||
|
if (!$tar->addModify($filelist, $pkgver, $pkgdir)) {
|
||||||
|
return $this->raiseError('PEAR_Packager: tarball creation failed');
|
||||||
|
}
|
||||||
|
$this->log(1, "Package $dest_package done");
|
||||||
|
if (file_exists("$pkgdir/CVS/Root")) {
|
||||||
|
$cvsversion = preg_replace('/[^a-z0-9]/i', '_', $pkginfo['version']);
|
||||||
|
$cvstag = "RELEASE_$cvsversion";
|
||||||
|
$this->log(1, "Tag the released code with `pear cvstag $pkgfile'");
|
||||||
|
$this->log(1, "(or set the CVS tag $cvstag by hand)");
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
return $dest_package;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
// {{{ md5_file() utility function
|
||||||
|
if (!function_exists('md5_file')) {
|
||||||
|
function md5_file($file) {
|
||||||
|
if (!$fd = @fopen($file, 'r')) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$md5 = md5(fread($fd, filesize($file)));
|
||||||
|
fclose($fd);
|
||||||
|
return $md5;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,533 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// | Tomas V.V.Cox <cox@idecnet.com> |
|
||||||
|
// | |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Registry.php,v 1.35.2.17 2004/01/26 01:26:46 pajoye Exp $
|
||||||
|
|
||||||
|
/*
|
||||||
|
TODO:
|
||||||
|
- Transform into singleton()
|
||||||
|
- Add application level lock (avoid change the registry from the cmdline
|
||||||
|
while using the GTK interface, for ex.)
|
||||||
|
*/
|
||||||
|
require_once "System.php";
|
||||||
|
require_once "PEAR.php";
|
||||||
|
|
||||||
|
define('PEAR_REGISTRY_ERROR_LOCK', -2);
|
||||||
|
define('PEAR_REGISTRY_ERROR_FORMAT', -3);
|
||||||
|
define('PEAR_REGISTRY_ERROR_FILE', -4);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Administration class used to maintain the installed package database.
|
||||||
|
*/
|
||||||
|
class PEAR_Registry extends PEAR
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/** Directory where registry files are stored.
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $statedir = '';
|
||||||
|
|
||||||
|
/** File where the file map is stored
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $filemap = '';
|
||||||
|
|
||||||
|
/** Name of file used for locking the registry
|
||||||
|
* @var string
|
||||||
|
*/
|
||||||
|
var $lockfile = '';
|
||||||
|
|
||||||
|
/** File descriptor used during locking
|
||||||
|
* @var resource
|
||||||
|
*/
|
||||||
|
var $lock_fp = null;
|
||||||
|
|
||||||
|
/** Mode used during locking
|
||||||
|
* @var int
|
||||||
|
*/
|
||||||
|
var $lock_mode = 0; // XXX UNUSED
|
||||||
|
|
||||||
|
/** Cache of package information. Structure:
|
||||||
|
* array(
|
||||||
|
* 'package' => array('id' => ... ),
|
||||||
|
* ... )
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $pkginfo_cache = array();
|
||||||
|
|
||||||
|
/** Cache of file map. Structure:
|
||||||
|
* array( '/path/to/file' => 'package', ... )
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $filemap_cache = array();
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Registry constructor.
|
||||||
|
*
|
||||||
|
* @param string (optional) PEAR install directory (for .php files)
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function PEAR_Registry($pear_install_dir = PEAR_INSTALL_DIR)
|
||||||
|
{
|
||||||
|
parent::PEAR();
|
||||||
|
$ds = DIRECTORY_SEPARATOR;
|
||||||
|
$this->install_dir = $pear_install_dir;
|
||||||
|
$this->statedir = $pear_install_dir.$ds.'.registry';
|
||||||
|
$this->filemap = $pear_install_dir.$ds.'.filemap';
|
||||||
|
$this->lockfile = $pear_install_dir.$ds.'.lock';
|
||||||
|
|
||||||
|
// XXX Compatibility code should be removed in the future
|
||||||
|
// rename all registry files if any to lowercase
|
||||||
|
if (!OS_WINDOWS && $handle = @opendir($this->statedir)) {
|
||||||
|
$dest = $this->statedir . DIRECTORY_SEPARATOR;
|
||||||
|
while (false !== ($file = readdir($handle))) {
|
||||||
|
if (preg_match('/^.*[A-Z].*\.reg$/', $file)) {
|
||||||
|
rename($dest . $file, $dest . strtolower($file));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
closedir($handle);
|
||||||
|
}
|
||||||
|
if (!file_exists($this->filemap)) {
|
||||||
|
$this->rebuildFileMap();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ destructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* PEAR_Registry destructor. Makes sure no locks are forgotten.
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _PEAR_Registry()
|
||||||
|
{
|
||||||
|
parent::_PEAR();
|
||||||
|
if (is_resource($this->lock_fp)) {
|
||||||
|
$this->_unlock();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ _assertStateDir()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Make sure the directory where we keep registry files exists.
|
||||||
|
*
|
||||||
|
* @return bool TRUE if directory exists, FALSE if it could not be
|
||||||
|
* created
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _assertStateDir()
|
||||||
|
{
|
||||||
|
if (!@is_dir($this->statedir)) {
|
||||||
|
if (!System::mkdir(array('-p', $this->statedir))) {
|
||||||
|
return $this->raiseError("could not create directory '{$this->statedir}'");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _packageFileName()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the name of the file where data for a given package is stored.
|
||||||
|
*
|
||||||
|
* @param string package name
|
||||||
|
*
|
||||||
|
* @return string registry file name
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function _packageFileName($package)
|
||||||
|
{
|
||||||
|
return $this->statedir . DIRECTORY_SEPARATOR . strtolower($package) . '.reg';
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _openPackageFile()
|
||||||
|
|
||||||
|
function _openPackageFile($package, $mode)
|
||||||
|
{
|
||||||
|
$this->_assertStateDir();
|
||||||
|
$file = $this->_packageFileName($package);
|
||||||
|
$fp = @fopen($file, $mode);
|
||||||
|
if (!$fp) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _closePackageFile()
|
||||||
|
|
||||||
|
function _closePackageFile($fp)
|
||||||
|
{
|
||||||
|
fclose($fp);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ rebuildFileMap()
|
||||||
|
|
||||||
|
function rebuildFileMap()
|
||||||
|
{
|
||||||
|
$packages = $this->listPackages();
|
||||||
|
$files = array();
|
||||||
|
foreach ($packages as $package) {
|
||||||
|
$version = $this->packageInfo($package, 'version');
|
||||||
|
$filelist = $this->packageInfo($package, 'filelist');
|
||||||
|
if (!is_array($filelist)) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
foreach ($filelist as $name => $attrs) {
|
||||||
|
if (isset($attrs['role']) && $attrs['role'] != 'php') {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if (isset($attrs['baseinstalldir'])) {
|
||||||
|
$file = $attrs['baseinstalldir'].DIRECTORY_SEPARATOR.$name;
|
||||||
|
} else {
|
||||||
|
$file = $name;
|
||||||
|
}
|
||||||
|
$file = preg_replace(',^/+,', '', $file);
|
||||||
|
$files[$file] = $package;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->_assertStateDir();
|
||||||
|
$fp = @fopen($this->filemap, 'wb');
|
||||||
|
if (!$fp) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$this->filemap_cache = $files;
|
||||||
|
fwrite($fp, serialize($files));
|
||||||
|
fclose($fp);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ readFileMap()
|
||||||
|
|
||||||
|
function readFileMap()
|
||||||
|
{
|
||||||
|
$fp = @fopen($this->filemap, 'r');
|
||||||
|
if (!$fp) {
|
||||||
|
return $this->raiseError('PEAR_Registry: could not open filemap', PEAR_REGISTRY_ERROR_FILE, null, null, $php_errormsg);
|
||||||
|
}
|
||||||
|
$fsize = filesize($this->filemap);
|
||||||
|
$rt = get_magic_quotes_runtime();
|
||||||
|
set_magic_quotes_runtime(0);
|
||||||
|
$data = fread($fp, $fsize);
|
||||||
|
set_magic_quotes_runtime($rt);
|
||||||
|
fclose($fp);
|
||||||
|
$tmp = unserialize($data);
|
||||||
|
if (!$tmp && $fsize > 7) {
|
||||||
|
return $this->raiseError('PEAR_Registry: invalid filemap data', PEAR_REGISTRY_ERROR_FORMAT, null, null, $data);
|
||||||
|
}
|
||||||
|
$this->filemap_cache = $tmp;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _lock()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Lock the registry.
|
||||||
|
*
|
||||||
|
* @param integer lock mode, one of LOCK_EX, LOCK_SH or LOCK_UN.
|
||||||
|
* See flock manual for more information.
|
||||||
|
*
|
||||||
|
* @return bool TRUE on success, FALSE if locking failed, or a
|
||||||
|
* PEAR error if some other error occurs (such as the
|
||||||
|
* lock file not being writable).
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _lock($mode = LOCK_EX)
|
||||||
|
{
|
||||||
|
if (!eregi('Windows 9', php_uname())) {
|
||||||
|
if ($mode != LOCK_UN && is_resource($this->lock_fp)) {
|
||||||
|
// XXX does not check type of lock (LOCK_SH/LOCK_EX)
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($err = $this->_assertStateDir())) {
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
$open_mode = 'w';
|
||||||
|
// XXX People reported problems with LOCK_SH and 'w'
|
||||||
|
if ($mode === LOCK_SH || $mode === LOCK_UN) {
|
||||||
|
if (@!is_file($this->lockfile)) {
|
||||||
|
touch($this->lockfile);
|
||||||
|
}
|
||||||
|
$open_mode = 'r';
|
||||||
|
}
|
||||||
|
|
||||||
|
$this->lock_fp = @fopen($this->lockfile, $open_mode);
|
||||||
|
|
||||||
|
if (!is_resource($this->lock_fp)) {
|
||||||
|
return $this->raiseError("could not create lock file" .
|
||||||
|
(isset($php_errormsg) ? ": " . $php_errormsg : ""));
|
||||||
|
}
|
||||||
|
if (!(int)flock($this->lock_fp, $mode)) {
|
||||||
|
switch ($mode) {
|
||||||
|
case LOCK_SH: $str = 'shared'; break;
|
||||||
|
case LOCK_EX: $str = 'exclusive'; break;
|
||||||
|
case LOCK_UN: $str = 'unlock'; break;
|
||||||
|
default: $str = 'unknown'; break;
|
||||||
|
}
|
||||||
|
return $this->raiseError("could not acquire $str lock ($this->lockfile)",
|
||||||
|
PEAR_REGISTRY_ERROR_LOCK);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _unlock()
|
||||||
|
|
||||||
|
function _unlock()
|
||||||
|
{
|
||||||
|
$ret = $this->_lock(LOCK_UN);
|
||||||
|
$this->lock_fp = null;
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _packageExists()
|
||||||
|
|
||||||
|
function _packageExists($package)
|
||||||
|
{
|
||||||
|
return file_exists($this->_packageFileName($package));
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _packageInfo()
|
||||||
|
|
||||||
|
function _packageInfo($package = null, $key = null)
|
||||||
|
{
|
||||||
|
if ($package === null) {
|
||||||
|
return array_map(array($this, '_packageInfo'),
|
||||||
|
$this->_listPackages());
|
||||||
|
}
|
||||||
|
$fp = $this->_openPackageFile($package, 'r');
|
||||||
|
if ($fp === null) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
$rt = get_magic_quotes_runtime();
|
||||||
|
set_magic_quotes_runtime(0);
|
||||||
|
$data = fread($fp, filesize($this->_packageFileName($package)));
|
||||||
|
set_magic_quotes_runtime($rt);
|
||||||
|
$this->_closePackageFile($fp);
|
||||||
|
$data = unserialize($data);
|
||||||
|
if ($key === null) {
|
||||||
|
return $data;
|
||||||
|
}
|
||||||
|
if (isset($data[$key])) {
|
||||||
|
return $data[$key];
|
||||||
|
}
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ _listPackages()
|
||||||
|
|
||||||
|
function _listPackages()
|
||||||
|
{
|
||||||
|
$pkglist = array();
|
||||||
|
$dp = @opendir($this->statedir);
|
||||||
|
if (!$dp) {
|
||||||
|
return $pkglist;
|
||||||
|
}
|
||||||
|
while ($ent = readdir($dp)) {
|
||||||
|
if ($ent{0} == '.' || substr($ent, -4) != '.reg') {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
$pkglist[] = substr($ent, 0, -4);
|
||||||
|
}
|
||||||
|
return $pkglist;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ packageExists()
|
||||||
|
|
||||||
|
function packageExists($package)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($e = $this->_lock(LOCK_SH))) {
|
||||||
|
return $e;
|
||||||
|
}
|
||||||
|
$ret = $this->_packageExists($package);
|
||||||
|
$this->_unlock();
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ packageInfo()
|
||||||
|
|
||||||
|
function packageInfo($package = null, $key = null)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($e = $this->_lock(LOCK_SH))) {
|
||||||
|
return $e;
|
||||||
|
}
|
||||||
|
$ret = $this->_packageInfo($package, $key);
|
||||||
|
$this->_unlock();
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ listPackages()
|
||||||
|
|
||||||
|
function listPackages()
|
||||||
|
{
|
||||||
|
if (PEAR::isError($e = $this->_lock(LOCK_SH))) {
|
||||||
|
return $e;
|
||||||
|
}
|
||||||
|
$ret = $this->_listPackages();
|
||||||
|
$this->_unlock();
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ addPackage()
|
||||||
|
|
||||||
|
function addPackage($package, $info)
|
||||||
|
{
|
||||||
|
if ($this->packageExists($package)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($e = $this->_lock(LOCK_EX))) {
|
||||||
|
return $e;
|
||||||
|
}
|
||||||
|
$fp = $this->_openPackageFile($package, 'wb');
|
||||||
|
if ($fp === null) {
|
||||||
|
$this->_unlock();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$info['_lastmodified'] = time();
|
||||||
|
fwrite($fp, serialize($info));
|
||||||
|
$this->_closePackageFile($fp);
|
||||||
|
$this->_unlock();
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ deletePackage()
|
||||||
|
|
||||||
|
function deletePackage($package)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($e = $this->_lock(LOCK_EX))) {
|
||||||
|
return $e;
|
||||||
|
}
|
||||||
|
$file = $this->_packageFileName($package);
|
||||||
|
$ret = @unlink($file);
|
||||||
|
$this->rebuildFileMap();
|
||||||
|
$this->_unlock();
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ updatePackage()
|
||||||
|
|
||||||
|
function updatePackage($package, $info, $merge = true)
|
||||||
|
{
|
||||||
|
$oldinfo = $this->packageInfo($package);
|
||||||
|
if (empty($oldinfo)) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
if (PEAR::isError($e = $this->_lock(LOCK_EX))) {
|
||||||
|
return $e;
|
||||||
|
}
|
||||||
|
$fp = $this->_openPackageFile($package, 'w');
|
||||||
|
if ($fp === null) {
|
||||||
|
$this->_unlock();
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$info['_lastmodified'] = time();
|
||||||
|
if ($merge) {
|
||||||
|
fwrite($fp, serialize(array_merge($oldinfo, $info)));
|
||||||
|
} else {
|
||||||
|
fwrite($fp, serialize($info));
|
||||||
|
}
|
||||||
|
$this->_closePackageFile($fp);
|
||||||
|
if (isset($info['filelist'])) {
|
||||||
|
$this->rebuildFileMap();
|
||||||
|
}
|
||||||
|
$this->_unlock();
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ checkFileMap()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Test whether a file belongs to a package.
|
||||||
|
*
|
||||||
|
* @param string $path file path, absolute or relative to the pear
|
||||||
|
* install dir
|
||||||
|
*
|
||||||
|
* @return string which package the file belongs to, or an empty
|
||||||
|
* string if the file does not belong to an installed package
|
||||||
|
*
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function checkFileMap($path)
|
||||||
|
{
|
||||||
|
if (is_array($path)) {
|
||||||
|
static $notempty;
|
||||||
|
if (empty($notempty)) {
|
||||||
|
$notempty = create_function('$a','return !empty($a);');
|
||||||
|
}
|
||||||
|
$pkgs = array();
|
||||||
|
foreach ($path as $name => $attrs) {
|
||||||
|
if (is_array($attrs) && isset($attrs['baseinstalldir'])) {
|
||||||
|
$name = $attrs['baseinstalldir'].DIRECTORY_SEPARATOR.$name;
|
||||||
|
}
|
||||||
|
$pkgs[$name] = $this->checkFileMap($name);
|
||||||
|
}
|
||||||
|
return array_filter($pkgs, $notempty);
|
||||||
|
}
|
||||||
|
if (empty($this->filemap_cache) && PEAR::isError($this->readFileMap())) {
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
if (isset($this->filemap_cache[$path])) {
|
||||||
|
return $this->filemap_cache[$path];
|
||||||
|
}
|
||||||
|
$l = strlen($this->install_dir);
|
||||||
|
if (substr($path, 0, $l) == $this->install_dir) {
|
||||||
|
$path = preg_replace('!^'.DIRECTORY_SEPARATOR.'+!', '', substr($path, $l));
|
||||||
|
}
|
||||||
|
if (isset($this->filemap_cache[$path])) {
|
||||||
|
return $this->filemap_cache[$path];
|
||||||
|
}
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,394 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 3.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@php.net> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Remote.php,v 1.34.2.14 2004/06/08 18:04:00 cellog Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
require_once 'PEAR/Config.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* This is a class for doing remote operations against the central
|
||||||
|
* PEAR database.
|
||||||
|
*
|
||||||
|
* @nodep XML_RPC_Value
|
||||||
|
* @nodep XML_RPC_Message
|
||||||
|
* @nodep XML_RPC_Client
|
||||||
|
*/
|
||||||
|
class PEAR_Remote extends PEAR
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $config = null;
|
||||||
|
var $cache = null;
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ PEAR_Remote(config_object)
|
||||||
|
|
||||||
|
function PEAR_Remote(&$config)
|
||||||
|
{
|
||||||
|
$this->PEAR();
|
||||||
|
$this->config = &$config;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ getCache()
|
||||||
|
|
||||||
|
|
||||||
|
function getCache($args)
|
||||||
|
{
|
||||||
|
$id = md5(serialize($args));
|
||||||
|
$cachedir = $this->config->get('cache_dir');
|
||||||
|
$filename = $cachedir . DIRECTORY_SEPARATOR . 'xmlrpc_cache_' . $id;
|
||||||
|
if (!file_exists($filename)) {
|
||||||
|
return null;
|
||||||
|
};
|
||||||
|
|
||||||
|
$fp = fopen($filename, 'rb');
|
||||||
|
if (!$fp) {
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
$content = fread($fp, filesize($filename));
|
||||||
|
fclose($fp);
|
||||||
|
$result = array(
|
||||||
|
'age' => time() - filemtime($filename),
|
||||||
|
'lastChange' => filemtime($filename),
|
||||||
|
'content' => unserialize($content),
|
||||||
|
);
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ saveCache()
|
||||||
|
|
||||||
|
function saveCache($args, $data)
|
||||||
|
{
|
||||||
|
$id = md5(serialize($args));
|
||||||
|
$cachedir = $this->config->get('cache_dir');
|
||||||
|
if (!file_exists($cachedir)) {
|
||||||
|
System::mkdir(array('-p', $cachedir));
|
||||||
|
}
|
||||||
|
$filename = $cachedir.'/xmlrpc_cache_'.$id;
|
||||||
|
|
||||||
|
$fp = @fopen($filename, "wb");
|
||||||
|
if ($fp) {
|
||||||
|
fwrite($fp, serialize($data));
|
||||||
|
fclose($fp);
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ call(method, [args...])
|
||||||
|
|
||||||
|
function call($method)
|
||||||
|
{
|
||||||
|
$_args = $args = func_get_args();
|
||||||
|
|
||||||
|
$this->cache = $this->getCache($args);
|
||||||
|
$cachettl = $this->config->get('cache_ttl');
|
||||||
|
// If cache is newer than $cachettl seconds, we use the cache!
|
||||||
|
if ($this->cache !== null && $this->cache['age'] < $cachettl) {
|
||||||
|
return $this->cache['content'];
|
||||||
|
};
|
||||||
|
|
||||||
|
if (extension_loaded("xmlrpc")) {
|
||||||
|
$result = call_user_func_array(array(&$this, 'call_epi'), $args);
|
||||||
|
if (!PEAR::isError($result)) {
|
||||||
|
$this->saveCache($_args, $result);
|
||||||
|
};
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
if (!@include_once("XML/RPC.php")) {
|
||||||
|
return $this->raiseError("For this remote PEAR operation you need to install the XML_RPC package");
|
||||||
|
}
|
||||||
|
array_shift($args);
|
||||||
|
$server_host = $this->config->get('master_server');
|
||||||
|
$username = $this->config->get('username');
|
||||||
|
$password = $this->config->get('password');
|
||||||
|
$eargs = array();
|
||||||
|
foreach($args as $arg) $eargs[] = $this->_encode($arg);
|
||||||
|
$f = new XML_RPC_Message($method, $eargs);
|
||||||
|
if ($this->cache !== null) {
|
||||||
|
$maxAge = '?maxAge='.$this->cache['lastChange'];
|
||||||
|
} else {
|
||||||
|
$maxAge = '';
|
||||||
|
};
|
||||||
|
$proxy_host = $proxy_port = $proxy_user = $proxy_pass = '';
|
||||||
|
if ($proxy = parse_url($this->config->get('http_proxy'))) {
|
||||||
|
$proxy_host = @$proxy['host'];
|
||||||
|
$proxy_port = @$proxy['port'];
|
||||||
|
$proxy_user = @urldecode(@$proxy['user']);
|
||||||
|
$proxy_pass = @urldecode(@$proxy['pass']);
|
||||||
|
}
|
||||||
|
$c = new XML_RPC_Client('/xmlrpc.php'.$maxAge, $server_host, 80, $proxy_host, $proxy_port, $proxy_user, $proxy_pass);
|
||||||
|
if ($username && $password) {
|
||||||
|
$c->setCredentials($username, $password);
|
||||||
|
}
|
||||||
|
if ($this->config->get('verbose') >= 3) {
|
||||||
|
$c->setDebug(1);
|
||||||
|
}
|
||||||
|
$r = $c->send($f);
|
||||||
|
if (!$r) {
|
||||||
|
return $this->raiseError("XML_RPC send failed");
|
||||||
|
}
|
||||||
|
$v = $r->value();
|
||||||
|
if ($e = $r->faultCode()) {
|
||||||
|
if ($e == $GLOBALS['XML_RPC_err']['http_error'] && strstr($r->faultString(), '304 Not Modified') !== false) {
|
||||||
|
return $this->cache['content'];
|
||||||
|
}
|
||||||
|
return $this->raiseError($r->faultString(), $e);
|
||||||
|
}
|
||||||
|
|
||||||
|
$result = XML_RPC_decode($v);
|
||||||
|
$this->saveCache($_args, $result);
|
||||||
|
return $result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ call_epi(method, [args...])
|
||||||
|
|
||||||
|
function call_epi($method)
|
||||||
|
{
|
||||||
|
do {
|
||||||
|
if (extension_loaded("xmlrpc")) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (OS_WINDOWS) {
|
||||||
|
$ext = 'dll';
|
||||||
|
} elseif (PHP_OS == 'HP-UX') {
|
||||||
|
$ext = 'sl';
|
||||||
|
} elseif (PHP_OS == 'AIX') {
|
||||||
|
$ext = 'a';
|
||||||
|
} else {
|
||||||
|
$ext = 'so';
|
||||||
|
}
|
||||||
|
$ext = OS_WINDOWS ? 'dll' : 'so';
|
||||||
|
@dl("xmlrpc-epi.$ext");
|
||||||
|
if (extension_loaded("xmlrpc")) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
@dl("xmlrpc.$ext");
|
||||||
|
if (extension_loaded("xmlrpc")) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return $this->raiseError("unable to load xmlrpc extension");
|
||||||
|
} while (false);
|
||||||
|
$params = func_get_args();
|
||||||
|
array_shift($params);
|
||||||
|
$method = str_replace("_", ".", $method);
|
||||||
|
$request = xmlrpc_encode_request($method, $params);
|
||||||
|
$server_host = $this->config->get("master_server");
|
||||||
|
if (empty($server_host)) {
|
||||||
|
return $this->raiseError("PEAR_Remote::call: no master_server configured");
|
||||||
|
}
|
||||||
|
$server_port = 80;
|
||||||
|
if ($http_proxy = $this->config->get('http_proxy')) {
|
||||||
|
$proxy = parse_url($http_proxy);
|
||||||
|
$proxy_host = $proxy_port = $proxy_user = $proxy_pass = '';
|
||||||
|
$proxy_host = @$proxy['host'];
|
||||||
|
$proxy_port = @$proxy['port'];
|
||||||
|
$proxy_user = @urldecode(@$proxy['user']);
|
||||||
|
$proxy_pass = @urldecode(@$proxy['pass']);
|
||||||
|
$fp = @fsockopen($proxy_host, $proxy_port);
|
||||||
|
$use_proxy = true;
|
||||||
|
} else {
|
||||||
|
$use_proxy = false;
|
||||||
|
$fp = @fsockopen($server_host, $server_port);
|
||||||
|
}
|
||||||
|
if (!$fp && $http_proxy) {
|
||||||
|
return $this->raiseError("PEAR_Remote::call: fsockopen(`$proxy_host', $proxy_port) failed");
|
||||||
|
} elseif (!$fp) {
|
||||||
|
return $this->raiseError("PEAR_Remote::call: fsockopen(`$server_host', $server_port) failed");
|
||||||
|
}
|
||||||
|
$len = strlen($request);
|
||||||
|
$req_headers = "Host: $server_host:$server_port\r\n" .
|
||||||
|
"Content-type: text/xml\r\n" .
|
||||||
|
"Content-length: $len\r\n";
|
||||||
|
$username = $this->config->get('username');
|
||||||
|
$password = $this->config->get('password');
|
||||||
|
if ($username && $password) {
|
||||||
|
$req_headers .= "Cookie: PEAR_USER=$username; PEAR_PW=$password\r\n";
|
||||||
|
$tmp = base64_encode("$username:$password");
|
||||||
|
$req_headers .= "Authorization: Basic $tmp\r\n";
|
||||||
|
}
|
||||||
|
if ($this->cache !== null) {
|
||||||
|
$maxAge = '?maxAge='.$this->cache['lastChange'];
|
||||||
|
} else {
|
||||||
|
$maxAge = '';
|
||||||
|
};
|
||||||
|
|
||||||
|
if ($use_proxy && $proxy_host != '' && $proxy_user != '') {
|
||||||
|
$req_headers .= 'Proxy-Authorization: Basic '
|
||||||
|
.base64_encode($proxy_user.':'.$proxy_pass)
|
||||||
|
."\r\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($this->config->get('verbose') > 3) {
|
||||||
|
print "XMLRPC REQUEST HEADERS:\n";
|
||||||
|
var_dump($req_headers);
|
||||||
|
print "XMLRPC REQUEST BODY:\n";
|
||||||
|
var_dump($request);
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($use_proxy && $proxy_host != '') {
|
||||||
|
$post_string = "POST http://".$server_host;
|
||||||
|
if ($proxy_port > '') {
|
||||||
|
$post_string .= ':'.$server_port;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$post_string = "POST ";
|
||||||
|
}
|
||||||
|
|
||||||
|
fwrite($fp, ($post_string."/xmlrpc.php$maxAge HTTP/1.0\r\n$req_headers\r\n$request"));
|
||||||
|
$response = '';
|
||||||
|
$line1 = fgets($fp, 2048);
|
||||||
|
if (!preg_match('!^HTTP/[0-9\.]+ (\d+) (.*)!', $line1, $matches)) {
|
||||||
|
return $this->raiseError("PEAR_Remote: invalid HTTP response from XML-RPC server");
|
||||||
|
}
|
||||||
|
switch ($matches[1]) {
|
||||||
|
case "200": // OK
|
||||||
|
break;
|
||||||
|
case "304": // Not Modified
|
||||||
|
return $this->cache['content'];
|
||||||
|
case "401": // Unauthorized
|
||||||
|
if ($username && $password) {
|
||||||
|
return $this->raiseError("PEAR_Remote: authorization failed", 401);
|
||||||
|
} else {
|
||||||
|
return $this->raiseError("PEAR_Remote: authorization required, please log in first", 401);
|
||||||
|
}
|
||||||
|
default:
|
||||||
|
return $this->raiseError("PEAR_Remote: unexpected HTTP response", (int)$matches[1], null, null, "$matches[1] $matches[2]");
|
||||||
|
}
|
||||||
|
while (trim(fgets($fp, 2048)) != ''); // skip rest of headers
|
||||||
|
while ($chunk = fread($fp, 10240)) {
|
||||||
|
$response .= $chunk;
|
||||||
|
}
|
||||||
|
fclose($fp);
|
||||||
|
if ($this->config->get('verbose') > 3) {
|
||||||
|
print "XMLRPC RESPONSE:\n";
|
||||||
|
var_dump($response);
|
||||||
|
}
|
||||||
|
$ret = xmlrpc_decode($response);
|
||||||
|
if (is_array($ret) && isset($ret['__PEAR_TYPE__'])) {
|
||||||
|
if ($ret['__PEAR_TYPE__'] == 'error') {
|
||||||
|
if (isset($ret['__PEAR_CLASS__'])) {
|
||||||
|
$class = $ret['__PEAR_CLASS__'];
|
||||||
|
} else {
|
||||||
|
$class = "PEAR_Error";
|
||||||
|
}
|
||||||
|
if ($ret['code'] === '') $ret['code'] = null;
|
||||||
|
if ($ret['message'] === '') $ret['message'] = null;
|
||||||
|
if ($ret['userinfo'] === '') $ret['userinfo'] = null;
|
||||||
|
if (strtolower($class) == 'db_error') {
|
||||||
|
$ret = $this->raiseError(PEAR::errorMessage($ret['code']),
|
||||||
|
$ret['code'], null, null,
|
||||||
|
$ret['userinfo']);
|
||||||
|
} else {
|
||||||
|
$ret = $this->raiseError($ret['message'], $ret['code'],
|
||||||
|
null, null, $ret['userinfo']);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} elseif (is_array($ret) && sizeof($ret) == 1 && isset($ret[0])
|
||||||
|
&& is_array($ret[0]) &&
|
||||||
|
!empty($ret[0]['faultString']) &&
|
||||||
|
!empty($ret[0]['faultCode'])) {
|
||||||
|
extract($ret[0]);
|
||||||
|
$faultString = "XML-RPC Server Fault: " .
|
||||||
|
str_replace("\n", " ", $faultString);
|
||||||
|
return $this->raiseError($faultString, $faultCode);
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ _encode
|
||||||
|
|
||||||
|
// a slightly extended version of XML_RPC_encode
|
||||||
|
function _encode($php_val)
|
||||||
|
{
|
||||||
|
global $XML_RPC_Boolean, $XML_RPC_Int, $XML_RPC_Double;
|
||||||
|
global $XML_RPC_String, $XML_RPC_Array, $XML_RPC_Struct;
|
||||||
|
|
||||||
|
$type = gettype($php_val);
|
||||||
|
$xmlrpcval = new XML_RPC_Value;
|
||||||
|
|
||||||
|
switch($type) {
|
||||||
|
case "array":
|
||||||
|
reset($php_val);
|
||||||
|
$firstkey = key($php_val);
|
||||||
|
end($php_val);
|
||||||
|
$lastkey = key($php_val);
|
||||||
|
if ($firstkey === 0 && is_int($lastkey) &&
|
||||||
|
($lastkey + 1) == count($php_val)) {
|
||||||
|
$is_continuous = true;
|
||||||
|
reset($php_val);
|
||||||
|
$size = count($php_val);
|
||||||
|
for ($expect = 0; $expect < $size; $expect++, next($php_val)) {
|
||||||
|
if (key($php_val) !== $expect) {
|
||||||
|
$is_continuous = false;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($is_continuous) {
|
||||||
|
reset($php_val);
|
||||||
|
$arr = array();
|
||||||
|
while (list($k, $v) = each($php_val)) {
|
||||||
|
$arr[$k] = $this->_encode($v);
|
||||||
|
}
|
||||||
|
$xmlrpcval->addArray($arr);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// fall though if not numerical and continuous
|
||||||
|
case "object":
|
||||||
|
$arr = array();
|
||||||
|
while (list($k, $v) = each($php_val)) {
|
||||||
|
$arr[$k] = $this->_encode($v);
|
||||||
|
}
|
||||||
|
$xmlrpcval->addStruct($arr);
|
||||||
|
break;
|
||||||
|
case "integer":
|
||||||
|
$xmlrpcval->addScalar($php_val, $XML_RPC_Int);
|
||||||
|
break;
|
||||||
|
case "double":
|
||||||
|
$xmlrpcval->addScalar($php_val, $XML_RPC_Double);
|
||||||
|
break;
|
||||||
|
case "string":
|
||||||
|
case "NULL":
|
||||||
|
$xmlrpcval->addScalar($php_val, $XML_RPC_String);
|
||||||
|
break;
|
||||||
|
case "boolean":
|
||||||
|
$xmlrpcval->addScalar($php_val, $XML_RPC_Boolean);
|
||||||
|
break;
|
||||||
|
case "unknown type":
|
||||||
|
default:
|
||||||
|
return null;
|
||||||
|
}
|
||||||
|
return $xmlrpcval;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,540 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 5 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2004 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.0 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available through the world-wide-web at the following url: |
|
||||||
|
// | http://www.php.net/license/3_0.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Authors: Tomas V.V.Cox <cox@idecnet.com> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: System.php,v 1.21.2.15 2004/01/26 01:26:43 pajoye Exp $
|
||||||
|
//
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
require_once 'Console/Getopt.php';
|
||||||
|
|
||||||
|
$GLOBALS['_System_temp_files'] = array();
|
||||||
|
|
||||||
|
/**
|
||||||
|
* System offers cross plattform compatible system functions
|
||||||
|
*
|
||||||
|
* Static functions for different operations. Should work under
|
||||||
|
* Unix and Windows. The names and usage has been taken from its respectively
|
||||||
|
* GNU commands. The functions will return (bool) false on error and will
|
||||||
|
* trigger the error with the PHP trigger_error() function (you can silence
|
||||||
|
* the error by prefixing a '@' sign after the function call).
|
||||||
|
*
|
||||||
|
* Documentation on this class you can find in:
|
||||||
|
* http://pear.php.net/manual/
|
||||||
|
*
|
||||||
|
* Example usage:
|
||||||
|
* if (!@System::rm('-r file1 dir1')) {
|
||||||
|
* print "could not delete file1 or dir1";
|
||||||
|
* }
|
||||||
|
*
|
||||||
|
* In case you need to to pass file names with spaces,
|
||||||
|
* pass the params as an array:
|
||||||
|
*
|
||||||
|
* System::rm(array('-r', $file1, $dir1));
|
||||||
|
*
|
||||||
|
* @package System
|
||||||
|
* @author Tomas V.V.Cox <cox@idecnet.com>
|
||||||
|
* @version $Revision: 1.21.2.15 $
|
||||||
|
* @access public
|
||||||
|
* @see http://pear.php.net/manual/
|
||||||
|
*/
|
||||||
|
class System
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* returns the commandline arguments of a function
|
||||||
|
*
|
||||||
|
* @param string $argv the commandline
|
||||||
|
* @param string $short_options the allowed option short-tags
|
||||||
|
* @param string $long_options the allowed option long-tags
|
||||||
|
* @return array the given options and there values
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _parseArgs($argv, $short_options, $long_options = null)
|
||||||
|
{
|
||||||
|
if (!is_array($argv) && $argv !== null) {
|
||||||
|
$argv = preg_split('/\s+/', $argv);
|
||||||
|
}
|
||||||
|
return Console_Getopt::getopt2($argv, $short_options);
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Output errors with PHP trigger_error(). You can silence the errors
|
||||||
|
* with prefixing a "@" sign to the function call: @System::mkdir(..);
|
||||||
|
*
|
||||||
|
* @param mixed $error a PEAR error or a string with the error message
|
||||||
|
* @return bool false
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function raiseError($error)
|
||||||
|
{
|
||||||
|
if (PEAR::isError($error)) {
|
||||||
|
$error = $error->getMessage();
|
||||||
|
}
|
||||||
|
trigger_error($error, E_USER_WARNING);
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates a nested array representing the structure of a directory
|
||||||
|
*
|
||||||
|
* System::_dirToStruct('dir1', 0) =>
|
||||||
|
* Array
|
||||||
|
* (
|
||||||
|
* [dirs] => Array
|
||||||
|
* (
|
||||||
|
* [0] => dir1
|
||||||
|
* )
|
||||||
|
*
|
||||||
|
* [files] => Array
|
||||||
|
* (
|
||||||
|
* [0] => dir1/file2
|
||||||
|
* [1] => dir1/file3
|
||||||
|
* )
|
||||||
|
* )
|
||||||
|
* @param string $sPath Name of the directory
|
||||||
|
* @param integer $maxinst max. deep of the lookup
|
||||||
|
* @param integer $aktinst starting deep of the lookup
|
||||||
|
* @return array the structure of the dir
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
|
||||||
|
function _dirToStruct($sPath, $maxinst, $aktinst = 0)
|
||||||
|
{
|
||||||
|
$struct = array('dirs' => array(), 'files' => array());
|
||||||
|
if (($dir = @opendir($sPath)) === false) {
|
||||||
|
System::raiseError("Could not open dir $sPath");
|
||||||
|
return $struct; // XXX could not open error
|
||||||
|
}
|
||||||
|
$struct['dirs'][] = $sPath; // XXX don't add if '.' or '..' ?
|
||||||
|
$list = array();
|
||||||
|
while ($file = readdir($dir)) {
|
||||||
|
if ($file != '.' && $file != '..') {
|
||||||
|
$list[] = $file;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
closedir($dir);
|
||||||
|
sort($list);
|
||||||
|
if ($aktinst < $maxinst || $maxinst == 0) {
|
||||||
|
foreach($list as $val) {
|
||||||
|
$path = $sPath . DIRECTORY_SEPARATOR . $val;
|
||||||
|
if (is_dir($path)) {
|
||||||
|
$tmp = System::_dirToStruct($path, $maxinst, $aktinst+1);
|
||||||
|
$struct = array_merge_recursive($tmp, $struct);
|
||||||
|
} else {
|
||||||
|
$struct['files'][] = $path;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $struct;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates a nested array representing the structure of a directory and files
|
||||||
|
*
|
||||||
|
* @param array $files Array listing files and dirs
|
||||||
|
* @return array
|
||||||
|
* @see System::_dirToStruct()
|
||||||
|
*/
|
||||||
|
function _multipleToStruct($files)
|
||||||
|
{
|
||||||
|
$struct = array('dirs' => array(), 'files' => array());
|
||||||
|
settype($files, 'array');
|
||||||
|
foreach ($files as $file) {
|
||||||
|
if (is_dir($file)) {
|
||||||
|
$tmp = System::_dirToStruct($file, 0);
|
||||||
|
$struct = array_merge_recursive($tmp, $struct);
|
||||||
|
} else {
|
||||||
|
$struct['files'][] = $file;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $struct;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The rm command for removing files.
|
||||||
|
* Supports multiple files and dirs and also recursive deletes
|
||||||
|
*
|
||||||
|
* @param string $args the arguments for rm
|
||||||
|
* @return mixed PEAR_Error or true for success
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function rm($args)
|
||||||
|
{
|
||||||
|
$opts = System::_parseArgs($args, 'rf'); // "f" do nothing but like it :-)
|
||||||
|
if (PEAR::isError($opts)) {
|
||||||
|
return System::raiseError($opts);
|
||||||
|
}
|
||||||
|
foreach($opts[0] as $opt) {
|
||||||
|
if ($opt[0] == 'r') {
|
||||||
|
$do_recursive = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$ret = true;
|
||||||
|
if (isset($do_recursive)) {
|
||||||
|
$struct = System::_multipleToStruct($opts[1]);
|
||||||
|
foreach($struct['files'] as $file) {
|
||||||
|
if (!@unlink($file)) {
|
||||||
|
$ret = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
foreach($struct['dirs'] as $dir) {
|
||||||
|
if (!@rmdir($dir)) {
|
||||||
|
$ret = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
foreach ($opts[1] as $file) {
|
||||||
|
$delete = (is_dir($file)) ? 'rmdir' : 'unlink';
|
||||||
|
if (!@$delete($file)) {
|
||||||
|
$ret = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Make directories. Note that we use call_user_func('mkdir') to avoid
|
||||||
|
* a problem with ZE2 calling System::mkDir instead of the native PHP func.
|
||||||
|
*
|
||||||
|
* @param string $args the name of the director(y|ies) to create
|
||||||
|
* @return bool True for success
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function mkDir($args)
|
||||||
|
{
|
||||||
|
$opts = System::_parseArgs($args, 'pm:');
|
||||||
|
if (PEAR::isError($opts)) {
|
||||||
|
return System::raiseError($opts);
|
||||||
|
}
|
||||||
|
$mode = 0777; // default mode
|
||||||
|
foreach($opts[0] as $opt) {
|
||||||
|
if ($opt[0] == 'p') {
|
||||||
|
$create_parents = true;
|
||||||
|
} elseif($opt[0] == 'm') {
|
||||||
|
// if the mode is clearly an octal number (starts with 0)
|
||||||
|
// convert it to decimal
|
||||||
|
if (strlen($opt[1]) && $opt[1]{0} == '0') {
|
||||||
|
$opt[1] = octdec($opt[1]);
|
||||||
|
} else {
|
||||||
|
// convert to int
|
||||||
|
$opt[1] += 0;
|
||||||
|
}
|
||||||
|
$mode = $opt[1];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$ret = true;
|
||||||
|
if (isset($create_parents)) {
|
||||||
|
foreach($opts[1] as $dir) {
|
||||||
|
$dirstack = array();
|
||||||
|
while (!@is_dir($dir) && $dir != DIRECTORY_SEPARATOR) {
|
||||||
|
array_unshift($dirstack, $dir);
|
||||||
|
$dir = dirname($dir);
|
||||||
|
}
|
||||||
|
while ($newdir = array_shift($dirstack)) {
|
||||||
|
if (!call_user_func('mkdir', $newdir, $mode)) {
|
||||||
|
$ret = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
foreach($opts[1] as $dir) {
|
||||||
|
if (!@is_dir($dir) && !call_user_func('mkdir', $dir, $mode)) {
|
||||||
|
$ret = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Concatenate files
|
||||||
|
*
|
||||||
|
* Usage:
|
||||||
|
* 1) $var = System::cat('sample.txt test.txt');
|
||||||
|
* 2) System::cat('sample.txt test.txt > final.txt');
|
||||||
|
* 3) System::cat('sample.txt test.txt >> final.txt');
|
||||||
|
*
|
||||||
|
* Note: as the class use fopen, urls should work also (test that)
|
||||||
|
*
|
||||||
|
* @param string $args the arguments
|
||||||
|
* @return boolean true on success
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function &cat($args)
|
||||||
|
{
|
||||||
|
$ret = null;
|
||||||
|
$files = array();
|
||||||
|
if (!is_array($args)) {
|
||||||
|
$args = preg_split('/\s+/', $args);
|
||||||
|
}
|
||||||
|
for($i=0; $i < count($args); $i++) {
|
||||||
|
if ($args[$i] == '>') {
|
||||||
|
$mode = 'wb';
|
||||||
|
$outputfile = $args[$i+1];
|
||||||
|
break;
|
||||||
|
} elseif ($args[$i] == '>>') {
|
||||||
|
$mode = 'ab+';
|
||||||
|
$outputfile = $args[$i+1];
|
||||||
|
break;
|
||||||
|
} else {
|
||||||
|
$files[] = $args[$i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (isset($mode)) {
|
||||||
|
if (!$outputfd = fopen($outputfile, $mode)) {
|
||||||
|
$err = System::raiseError("Could not open $outputfile");
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
$ret = true;
|
||||||
|
}
|
||||||
|
foreach ($files as $file) {
|
||||||
|
if (!$fd = fopen($file, 'r')) {
|
||||||
|
System::raiseError("Could not open $file");
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
while ($cont = fread($fd, 2048)) {
|
||||||
|
if (isset($outputfd)) {
|
||||||
|
fwrite($outputfd, $cont);
|
||||||
|
} else {
|
||||||
|
$ret .= $cont;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fclose($fd);
|
||||||
|
}
|
||||||
|
if (@is_resource($outputfd)) {
|
||||||
|
fclose($outputfd);
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates temporary files or directories. This function will remove
|
||||||
|
* the created files when the scripts finish its execution.
|
||||||
|
*
|
||||||
|
* Usage:
|
||||||
|
* 1) $tempfile = System::mktemp("prefix");
|
||||||
|
* 2) $tempdir = System::mktemp("-d prefix");
|
||||||
|
* 3) $tempfile = System::mktemp();
|
||||||
|
* 4) $tempfile = System::mktemp("-t /var/tmp prefix");
|
||||||
|
*
|
||||||
|
* prefix -> The string that will be prepended to the temp name
|
||||||
|
* (defaults to "tmp").
|
||||||
|
* -d -> A temporary dir will be created instead of a file.
|
||||||
|
* -t -> The target dir where the temporary (file|dir) will be created. If
|
||||||
|
* this param is missing by default the env vars TMP on Windows or
|
||||||
|
* TMPDIR in Unix will be used. If these vars are also missing
|
||||||
|
* c:\windows\temp or /tmp will be used.
|
||||||
|
*
|
||||||
|
* @param string $args The arguments
|
||||||
|
* @return mixed the full path of the created (file|dir) or false
|
||||||
|
* @see System::tmpdir()
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function mktemp($args = null)
|
||||||
|
{
|
||||||
|
static $first_time = true;
|
||||||
|
$opts = System::_parseArgs($args, 't:d');
|
||||||
|
if (PEAR::isError($opts)) {
|
||||||
|
return System::raiseError($opts);
|
||||||
|
}
|
||||||
|
foreach($opts[0] as $opt) {
|
||||||
|
if($opt[0] == 'd') {
|
||||||
|
$tmp_is_dir = true;
|
||||||
|
} elseif($opt[0] == 't') {
|
||||||
|
$tmpdir = $opt[1];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$prefix = (isset($opts[1][0])) ? $opts[1][0] : 'tmp';
|
||||||
|
if (!isset($tmpdir)) {
|
||||||
|
$tmpdir = System::tmpdir();
|
||||||
|
}
|
||||||
|
if (!System::mkDir("-p $tmpdir")) {
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
$tmp = tempnam($tmpdir, $prefix);
|
||||||
|
if (isset($tmp_is_dir)) {
|
||||||
|
unlink($tmp); // be careful possible race condition here
|
||||||
|
if (!call_user_func('mkdir', $tmp, 0700)) {
|
||||||
|
return System::raiseError("Unable to create temporary directory $tmpdir");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$GLOBALS['_System_temp_files'][] = $tmp;
|
||||||
|
if ($first_time) {
|
||||||
|
PEAR::registerShutdownFunc(array('System', '_removeTmpFiles'));
|
||||||
|
$first_time = false;
|
||||||
|
}
|
||||||
|
return $tmp;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Remove temporary files created my mkTemp. This function is executed
|
||||||
|
* at script shutdown time
|
||||||
|
*
|
||||||
|
* @access private
|
||||||
|
*/
|
||||||
|
function _removeTmpFiles()
|
||||||
|
{
|
||||||
|
if (count($GLOBALS['_System_temp_files'])) {
|
||||||
|
$delete = $GLOBALS['_System_temp_files'];
|
||||||
|
array_unshift($delete, '-r');
|
||||||
|
System::rm($delete);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Get the path of the temporal directory set in the system
|
||||||
|
* by looking in its environments variables.
|
||||||
|
* Note: php.ini-recommended removes the "E" from the variables_order setting,
|
||||||
|
* making unavaible the $_ENV array, that s why we do tests with _ENV
|
||||||
|
*
|
||||||
|
* @return string The temporal directory on the system
|
||||||
|
*/
|
||||||
|
function tmpdir()
|
||||||
|
{
|
||||||
|
if (OS_WINDOWS) {
|
||||||
|
if ($var = isset($_ENV['TEMP']) ? $_ENV['TEMP'] : getenv('TEMP')) {
|
||||||
|
return $var;
|
||||||
|
}
|
||||||
|
if ($var = isset($_ENV['TMP']) ? $_ENV['TMP'] : getenv('TMP')) {
|
||||||
|
return $var;
|
||||||
|
}
|
||||||
|
if ($var = isset($_ENV['windir']) ? $_ENV['windir'] : getenv('windir')) {
|
||||||
|
return $var;
|
||||||
|
}
|
||||||
|
return getenv('SystemRoot') . '\temp';
|
||||||
|
}
|
||||||
|
if ($var = isset($_ENV['TMPDIR']) ? $_ENV['TMPDIR'] : getenv('TMPDIR')) {
|
||||||
|
return $var;
|
||||||
|
}
|
||||||
|
return '/tmp';
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The "which" command (show the full path of a command)
|
||||||
|
*
|
||||||
|
* @param string $program The command to search for
|
||||||
|
* @return mixed A string with the full path or false if not found
|
||||||
|
* @author Stig Bakken <ssb@php.net>
|
||||||
|
*/
|
||||||
|
function which($program, $fallback = false)
|
||||||
|
{
|
||||||
|
// is_executable() is not available on windows
|
||||||
|
if (OS_WINDOWS) {
|
||||||
|
$pear_is_executable = 'is_file';
|
||||||
|
} else {
|
||||||
|
$pear_is_executable = 'is_executable';
|
||||||
|
}
|
||||||
|
|
||||||
|
// full path given
|
||||||
|
if (basename($program) != $program) {
|
||||||
|
return (@$pear_is_executable($program)) ? $program : $fallback;
|
||||||
|
}
|
||||||
|
|
||||||
|
// XXX FIXME honor safe mode
|
||||||
|
$path_delim = OS_WINDOWS ? ';' : ':';
|
||||||
|
$exe_suffixes = OS_WINDOWS ? array('.exe','.bat','.cmd','.com') : array('');
|
||||||
|
$path_elements = explode($path_delim, getenv('PATH'));
|
||||||
|
foreach ($exe_suffixes as $suff) {
|
||||||
|
foreach ($path_elements as $dir) {
|
||||||
|
$file = $dir . DIRECTORY_SEPARATOR . $program . $suff;
|
||||||
|
if (@is_file($file) && @$pear_is_executable($file)) {
|
||||||
|
return $file;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $fallback;
|
||||||
|
}
|
||||||
|
|
||||||
|
/**
|
||||||
|
* The "find" command
|
||||||
|
*
|
||||||
|
* Usage:
|
||||||
|
*
|
||||||
|
* System::find($dir);
|
||||||
|
* System::find("$dir -type d");
|
||||||
|
* System::find("$dir -type f");
|
||||||
|
* System::find("$dir -name *.php");
|
||||||
|
* System::find("$dir -name *.php -name *.htm*");
|
||||||
|
* System::find("$dir -maxdepth 1");
|
||||||
|
*
|
||||||
|
* Params implmented:
|
||||||
|
* $dir -> Start the search at this directory
|
||||||
|
* -type d -> return only directories
|
||||||
|
* -type f -> return only files
|
||||||
|
* -maxdepth <n> -> max depth of recursion
|
||||||
|
* -name <pattern> -> search pattern (bash style). Multiple -name param allowed
|
||||||
|
*
|
||||||
|
* @param mixed Either array or string with the command line
|
||||||
|
* @return array Array of found files
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
function find($args)
|
||||||
|
{
|
||||||
|
if (!is_array($args)) {
|
||||||
|
$args = preg_split('/\s+/', $args, -1, PREG_SPLIT_NO_EMPTY);
|
||||||
|
}
|
||||||
|
$dir = array_shift($args);
|
||||||
|
$patterns = array();
|
||||||
|
$depth = 0;
|
||||||
|
$do_files = $do_dirs = true;
|
||||||
|
for ($i = 0; $i < count($args); $i++) {
|
||||||
|
switch ($args[$i]) {
|
||||||
|
case '-type':
|
||||||
|
if (in_array($args[$i+1], array('d', 'f'))) {
|
||||||
|
if ($args[$i+1] == 'd') {
|
||||||
|
$do_files = false;
|
||||||
|
} else {
|
||||||
|
$do_dirs = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$i++;
|
||||||
|
break;
|
||||||
|
case '-name':
|
||||||
|
$patterns[] = "(" . preg_replace(array('/\./', '/\*/'),
|
||||||
|
array('\.', '.*'),
|
||||||
|
$args[$i+1])
|
||||||
|
. ")";
|
||||||
|
$i++;
|
||||||
|
break;
|
||||||
|
case '-maxdepth':
|
||||||
|
$depth = $args[$i+1];
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$path = System::_dirToStruct($dir, $depth);
|
||||||
|
if ($do_files && $do_dirs) {
|
||||||
|
$files = array_merge($path['files'], $path['dirs']);
|
||||||
|
} elseif ($do_dirs) {
|
||||||
|
$files = $path['dirs'];
|
||||||
|
} else {
|
||||||
|
$files = $path['files'];
|
||||||
|
}
|
||||||
|
if (count($patterns)) {
|
||||||
|
$patterns = implode('|', $patterns);
|
||||||
|
$ret = array();
|
||||||
|
for ($i = 0; $i < count($files); $i++) {
|
||||||
|
if (preg_match("#^$patterns\$#", $files[$i])) {
|
||||||
|
$ret[] = $files[$i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
return $files;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
?>
|
||||||
|
|
@ -0,0 +1,356 @@
|
||||||
|
<?php
|
||||||
|
//
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | PHP Version 4 |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Copyright (c) 1997-2003 The PHP Group |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | This source file is subject to version 2.02 of the PHP license, |
|
||||||
|
// | that is bundled with this package in the file LICENSE, and is |
|
||||||
|
// | available at through the world-wide-web at |
|
||||||
|
// | http://www.php.net/license/2_02.txt. |
|
||||||
|
// | If you did not receive a copy of the PHP license and are unable to |
|
||||||
|
// | obtain it through the world-wide-web, please send a note to |
|
||||||
|
// | license@php.net so we can mail you a copy immediately. |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
// | Author: Stig Bakken <ssb@fast.no> |
|
||||||
|
// +----------------------------------------------------------------------+
|
||||||
|
//
|
||||||
|
// $Id: Parser.php,v 1.5 2003/02/23 10:48:31 ssb Exp $
|
||||||
|
|
||||||
|
require_once 'PEAR.php';
|
||||||
|
|
||||||
|
/**
|
||||||
|
* XML Parser class. This is an XML parser based on PHP's "xml" extension,
|
||||||
|
* based on the bundled expat library.
|
||||||
|
*
|
||||||
|
* @author Stig Bakken <ssb@fast.no>
|
||||||
|
* @todo Tests that need to be made:
|
||||||
|
* - error class
|
||||||
|
* - mixing character encodings
|
||||||
|
* - a test using all expat handlers
|
||||||
|
* - options (folding, output charset)
|
||||||
|
* - different parsing modes
|
||||||
|
*
|
||||||
|
* @notes - It requires PHP 4.0.4pl1 or greater
|
||||||
|
* - From revision 1.17, the function names used by the 'func' mode
|
||||||
|
* are in the format "xmltag_$elem", for example: use "xmltag_name"
|
||||||
|
* to handle the <name></name> tags of your xml file.
|
||||||
|
*/
|
||||||
|
class XML_Parser extends PEAR
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var resource XML parser handle
|
||||||
|
*/
|
||||||
|
var $parser;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var resource File handle if parsing from a file
|
||||||
|
*/
|
||||||
|
var $fp;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var boolean Whether to do case folding
|
||||||
|
*/
|
||||||
|
var $folding = true;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var string Mode of operation, one of "event" or "func"
|
||||||
|
*/
|
||||||
|
var $mode;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Mapping from expat handler function to class method.
|
||||||
|
*
|
||||||
|
* @var array
|
||||||
|
*/
|
||||||
|
var $handler = array(
|
||||||
|
'character_data_handler' => 'cdataHandler',
|
||||||
|
'default_handler' => 'defaultHandler',
|
||||||
|
'processing_instruction_handler' => 'piHandler',
|
||||||
|
'unparsed_entity_decl_handler' => 'unparsedHandler',
|
||||||
|
'notation_decl_handler' => 'notationHandler',
|
||||||
|
'external_entity_ref_handler' => 'entityrefHandler'
|
||||||
|
);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var string source encoding
|
||||||
|
*/
|
||||||
|
var $srcenc;
|
||||||
|
|
||||||
|
/**
|
||||||
|
* @var string target encoding
|
||||||
|
*/
|
||||||
|
var $tgtenc;
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Use call_user_func when php >= 4.0.7
|
||||||
|
* @var boolean
|
||||||
|
* @see setMode()
|
||||||
|
*/
|
||||||
|
var $use_call_user_func = true;
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Creates an XML parser.
|
||||||
|
*
|
||||||
|
* @param string source charset encoding, use NULL (default) to use
|
||||||
|
* whatever the document specifies
|
||||||
|
* @param string how this parser object should work, "event" for
|
||||||
|
* startelement/endelement-type events, "func"
|
||||||
|
* to have it call functions named after elements
|
||||||
|
*
|
||||||
|
* @see xml_parser_create
|
||||||
|
*/
|
||||||
|
function XML_Parser($srcenc = null, $mode = "event", $tgtenc = null)
|
||||||
|
{
|
||||||
|
$this->PEAR('XML_Parser_Error');
|
||||||
|
|
||||||
|
if ($srcenc === null) {
|
||||||
|
$xp = @xml_parser_create();
|
||||||
|
} else {
|
||||||
|
$xp = @xml_parser_create($srcenc);
|
||||||
|
}
|
||||||
|
if (is_resource($xp)) {
|
||||||
|
if ($tgtenc !== null) {
|
||||||
|
if (!@xml_parser_set_option($xp, XML_OPTION_TARGET_ENCODING,
|
||||||
|
$tgtenc)) {
|
||||||
|
return $this->raiseError("invalid target encoding");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$this->parser = $xp;
|
||||||
|
$this->setMode($mode);
|
||||||
|
xml_parser_set_option($xp, XML_OPTION_CASE_FOLDING, $this->folding);
|
||||||
|
}
|
||||||
|
$this->srcenc = $srcenc;
|
||||||
|
$this->tgtenc = $tgtenc;
|
||||||
|
}
|
||||||
|
// }}}
|
||||||
|
|
||||||
|
// {{{ setMode()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the mode and all handler.
|
||||||
|
*
|
||||||
|
* @param string
|
||||||
|
* @see $handler
|
||||||
|
*/
|
||||||
|
function setMode($mode)
|
||||||
|
{
|
||||||
|
|
||||||
|
$this->mode = $mode;
|
||||||
|
|
||||||
|
xml_set_object($this->parser, $this);
|
||||||
|
|
||||||
|
switch ($mode) {
|
||||||
|
|
||||||
|
case "func":
|
||||||
|
// use call_user_func() when php >= 4.0.7
|
||||||
|
// or call_user_method() if not
|
||||||
|
if (version_compare(phpversion(), '4.0.7', 'lt')) {
|
||||||
|
$this->use_call_user_func = false;
|
||||||
|
} else {
|
||||||
|
$this->use_call_user_func = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
xml_set_element_handler($this->parser, "funcStartHandler", "funcEndHandler");
|
||||||
|
break;
|
||||||
|
|
||||||
|
case "event":
|
||||||
|
xml_set_element_handler($this->parser, "startHandler", "endHandler");
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ($this->handler as $xml_func => $method)
|
||||||
|
if (method_exists($this, $method)) {
|
||||||
|
$xml_func = "xml_set_" . $xml_func;
|
||||||
|
$xml_func($this->parser, $method);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ setInputFile()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Defines
|
||||||
|
*
|
||||||
|
* @param string Filename (full path)
|
||||||
|
* @return resource fopen handle of the given file
|
||||||
|
* @throws XML_Parser_Error
|
||||||
|
* @see setInput(), parse()
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function setInputFile($file)
|
||||||
|
{
|
||||||
|
|
||||||
|
$fp = @fopen($file, "rb");
|
||||||
|
if (is_resource($fp)) {
|
||||||
|
$this->fp = $fp;
|
||||||
|
return $fp;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $this->raiseError($php_errormsg);
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ setInput()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Sets the file handle to use with parse().
|
||||||
|
*
|
||||||
|
* @param resource fopen
|
||||||
|
* @access public
|
||||||
|
* @see parse(), setInputFile()
|
||||||
|
*/
|
||||||
|
function setInput($fp)
|
||||||
|
{
|
||||||
|
if (is_resource($fp)) {
|
||||||
|
$this->fp = $fp;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
return $this->raiseError("not a file resource");
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ parse()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Central parsing function.
|
||||||
|
*
|
||||||
|
* @throws XML_Parser_Error
|
||||||
|
* @return boolean true on success
|
||||||
|
* @see parseString()
|
||||||
|
* @access public
|
||||||
|
*/
|
||||||
|
function parse()
|
||||||
|
{
|
||||||
|
if (!is_resource($this->fp)) {
|
||||||
|
return $this->raiseError("no input");
|
||||||
|
}
|
||||||
|
|
||||||
|
while ($data = fread($this->fp, 2048)) {
|
||||||
|
|
||||||
|
$err = $this->parseString($data, feof($this->fp));
|
||||||
|
if (PEAR::isError($err)) {
|
||||||
|
fclose($this->fp);
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
fclose($this->fp);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ parseString()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* Parses a string.
|
||||||
|
*
|
||||||
|
* @param string XML data
|
||||||
|
* @param boolean ???
|
||||||
|
* @throws XML_Parser_Error
|
||||||
|
* @return mixed true on success or a string with the xml parser error
|
||||||
|
*/
|
||||||
|
function parseString($data, $eof = false)
|
||||||
|
{
|
||||||
|
if (!xml_parse($this->parser, $data, $eof)) {
|
||||||
|
$err = $this->raiseError($this->parser);
|
||||||
|
xml_parser_free($this->parser);
|
||||||
|
return $err;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ funcStartHandler()
|
||||||
|
|
||||||
|
function funcStartHandler($xp, $elem, $attribs)
|
||||||
|
{
|
||||||
|
$func = 'xmltag_' . $elem;
|
||||||
|
if (method_exists($this, $func)) {
|
||||||
|
if ($this->use_call_user_func) {
|
||||||
|
call_user_func(array(&$this, $func), $xp, $elem, $attribs);
|
||||||
|
} else {
|
||||||
|
call_user_method($func, $this, $xp, $elem, $attribs);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ funcEndHandler()
|
||||||
|
|
||||||
|
function funcEndHandler($xp, $elem)
|
||||||
|
{
|
||||||
|
$func = 'xmltag_' . $elem . '_';
|
||||||
|
if (method_exists($this, $func)) {
|
||||||
|
if ($this->use_call_user_func) {
|
||||||
|
call_user_func(array(&$this, $func), $xp, $elem);
|
||||||
|
} else {
|
||||||
|
call_user_method($func, $this, $xp, $elem);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ startHandler()
|
||||||
|
|
||||||
|
/**
|
||||||
|
*
|
||||||
|
* @abstract
|
||||||
|
*/
|
||||||
|
function startHandler($xp, $elem, &$attribs)
|
||||||
|
{
|
||||||
|
return NULL;
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ endHandler()
|
||||||
|
|
||||||
|
/**
|
||||||
|
*
|
||||||
|
* @abstract
|
||||||
|
*/
|
||||||
|
function endHandler($xp, $elem)
|
||||||
|
{
|
||||||
|
return NULL;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
|
||||||
|
class XML_Parser_Error extends PEAR_Error
|
||||||
|
{
|
||||||
|
// {{{ properties
|
||||||
|
|
||||||
|
var $error_message_prefix = 'XML_Parser: ';
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
// {{{ constructor()
|
||||||
|
|
||||||
|
function XML_Parser_Error($msgorparser = 'unknown error', $code = 0, $mode = PEAR_ERROR_RETURN, $level = E_USER_NOTICE)
|
||||||
|
{
|
||||||
|
if (is_resource($msgorparser)) {
|
||||||
|
$code = xml_get_error_code($msgorparser);
|
||||||
|
$msgorparser = sprintf("%s at XML input line %d",
|
||||||
|
xml_error_string($code),
|
||||||
|
xml_get_current_line_number($msgorparser));
|
||||||
|
}
|
||||||
|
$this->PEAR_Error($msgorparser, $code, $mode, $level);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
// }}}
|
||||||
|
}
|
||||||
|
?>
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,310 @@
|
||||||
|
<?php
|
||||||
|
// /* vim: set expandtab tabstop=4 shiftwidth=4: */
|
||||||
|
// by Edd Dumbill (C) 1999,2000
|
||||||
|
// <edd@usefulinc.com>
|
||||||
|
|
||||||
|
// License is granted to use or modify this software ("XML-RPC for PHP")
|
||||||
|
// for commercial or non-commercial use provided the copyright of the author
|
||||||
|
// is preserved in any distributed or derivative work.
|
||||||
|
|
||||||
|
// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESSED OR
|
||||||
|
// IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
||||||
|
// OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
||||||
|
// IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
||||||
|
// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
||||||
|
// NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||||||
|
// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||||||
|
// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||||
|
// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
||||||
|
// THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||||
|
|
||||||
|
// Adapted to PEAR standards by Stig S<>her Bakken <stig@php.net>
|
||||||
|
// /* $Id: Server.php,v 1.6 2004/03/15 13:58:39 pajoye Exp $ */
|
||||||
|
|
||||||
|
require_once "XML/RPC.php";
|
||||||
|
|
||||||
|
// listMethods: either a string, or nothing
|
||||||
|
$GLOBALS['XML_RPC_Server_listMethods_sig'] =
|
||||||
|
array(array($GLOBALS['XML_RPC_Array'], $GLOBALS['XML_RPC_String']),
|
||||||
|
array($GLOBALS['XML_RPC_Array']));
|
||||||
|
$GLOBALS['XML_RPC_Server_listMethods_doc'] =
|
||||||
|
'This method lists all the methods that the XML-RPC server knows how to dispatch';
|
||||||
|
|
||||||
|
function XML_RPC_Server_listMethods($server, $m)
|
||||||
|
{
|
||||||
|
global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
|
||||||
|
$v = new XML_RPC_Value();
|
||||||
|
$dmap = $server->dmap;
|
||||||
|
$outAr = array();
|
||||||
|
for (reset($dmap); list($key, $val) = each($dmap); ) {
|
||||||
|
$outAr[] = new XML_RPC_Value($key, "string");
|
||||||
|
}
|
||||||
|
$dmap = $XML_RPC_Server_dmap;
|
||||||
|
for (reset($dmap); list($key, $val) = each($dmap); ) {
|
||||||
|
$outAr[] = new XML_RPC_Value($key, "string");
|
||||||
|
}
|
||||||
|
$v->addArray($outAr);
|
||||||
|
return new XML_RPC_Response($v);
|
||||||
|
}
|
||||||
|
|
||||||
|
$GLOBALS['XML_RPC_Server_methodSignature_sig'] =
|
||||||
|
array(array($GLOBALS['XML_RPC_Array'], $GLOBALS['XML_RPC_String']));
|
||||||
|
$GLOBALS['XML_RPC_Server_methodSignature_doc'] =
|
||||||
|
'Returns an array of known signatures (an array of arrays) for the method name passed. If no signatures are known, returns a none-array (test for type != array to detect missing signature)';
|
||||||
|
|
||||||
|
function XML_RPC_Server_methodSignature($server, $m)
|
||||||
|
{
|
||||||
|
global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
|
||||||
|
|
||||||
|
$methName = $m->getParam(0);
|
||||||
|
$methName = $methName->scalarval();
|
||||||
|
if (ereg("^system\.", $methName)) {
|
||||||
|
$dmap = $XML_RPC_Server_dmap;
|
||||||
|
$sysCall = 1;
|
||||||
|
} else {
|
||||||
|
$dmap = $server->dmap;
|
||||||
|
$sysCall = 0;
|
||||||
|
}
|
||||||
|
// print "<!-- ${methName} -->\n";
|
||||||
|
if (isset($dmap[$methName])) {
|
||||||
|
if ($dmap[$methName]["signature"]) {
|
||||||
|
$sigs = array();
|
||||||
|
$thesigs = $dmap[$methName]["signature"];
|
||||||
|
for ($i = 0; $i < sizeof($thesigs); $i++) {
|
||||||
|
$cursig = array();
|
||||||
|
$inSig = $thesigs[$i];
|
||||||
|
for ($j = 0; $j < sizeof($inSig); $j++) {
|
||||||
|
$cursig[] = new XML_RPC_Value($inSig[$j], "string");
|
||||||
|
}
|
||||||
|
$sigs[] = new XML_RPC_Value($cursig, "array");
|
||||||
|
}
|
||||||
|
$r = new XML_RPC_Response(new XML_RPC_Value($sigs, "array"));
|
||||||
|
} else {
|
||||||
|
$r = new XML_RPC_Response(new XML_RPC_Value("undef", "string"));
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$r = new XML_RPC_Response(0, $XML_RPC_err["introspect_unknown"],
|
||||||
|
$XML_RPC_str["introspect_unknown"]);
|
||||||
|
}
|
||||||
|
return $r;
|
||||||
|
}
|
||||||
|
|
||||||
|
$GLOBALS['XML_RPC_Server_methodHelp_sig'] =
|
||||||
|
array(array($GLOBALS['XML_RPC_String'], $GLOBALS['XML_RPC_String']));
|
||||||
|
$GLOBALS['XML_RPC_Server_methodHelp_doc'] =
|
||||||
|
'Returns help text if defined for the method passed, otherwise returns an empty string';
|
||||||
|
|
||||||
|
function XML_RPC_Server_methodHelp($server, $m)
|
||||||
|
{
|
||||||
|
global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
|
||||||
|
|
||||||
|
$methName = $m->getParam(0);
|
||||||
|
$methName = $methName->scalarval();
|
||||||
|
if (ereg("^system\.", $methName)) {
|
||||||
|
$dmap = $XML_RPC_Server_dmap;
|
||||||
|
$sysCall = 1;
|
||||||
|
} else {
|
||||||
|
$dmap = $server->dmap;
|
||||||
|
$sysCall = 0;
|
||||||
|
}
|
||||||
|
// print "<!-- ${methName} -->\n";
|
||||||
|
if (isset($dmap[$methName])) {
|
||||||
|
if ($dmap[$methName]["docstring"]) {
|
||||||
|
$r = new XML_RPC_Response(new XML_RPC_Value($dmap[$methName]["docstring"]), "string");
|
||||||
|
} else {
|
||||||
|
$r = new XML_RPC_Response(new XML_RPC_Value("", "string"));
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$r = new XML_RPC_Response(0, $XML_RPC_err["introspect_unknown"],
|
||||||
|
$XML_RPC_str["introspect_unknown"]);
|
||||||
|
}
|
||||||
|
return $r;
|
||||||
|
}
|
||||||
|
|
||||||
|
$GLOBALS['XML_RPC_Server_dmap'] = array(
|
||||||
|
"system.listMethods" =>
|
||||||
|
array("function" => "XML_RPC_Server_listMethods",
|
||||||
|
"signature" => $GLOBALS['XML_RPC_Server_listMethods_sig'],
|
||||||
|
"docstring" => $GLOBALS['XML_RPC_Server_listMethods_doc']),
|
||||||
|
|
||||||
|
"system.methodHelp" =>
|
||||||
|
array("function" => "XML_RPC_Server_methodHelp",
|
||||||
|
"signature" => $GLOBALS['XML_RPC_Server_methodHelp_sig'],
|
||||||
|
"docstring" => $GLOBALS['XML_RPC_Server_methodHelp_doc']),
|
||||||
|
|
||||||
|
"system.methodSignature" =>
|
||||||
|
array("function" => "XML_RPC_Server_methodSignature",
|
||||||
|
"signature" => $GLOBALS['XML_RPC_Server_methodSignature_sig'],
|
||||||
|
"docstring" => $GLOBALS['XML_RPC_Server_methodSignature_doc'])
|
||||||
|
);
|
||||||
|
|
||||||
|
$GLOBALS['XML_RPC_Server_debuginfo'] = "";
|
||||||
|
|
||||||
|
function XML_RPC_Server_debugmsg($m)
|
||||||
|
{
|
||||||
|
global $XML_RPC_Server_debuginfo;
|
||||||
|
$XML_RPC_Server_debuginfo = $XML_RPC_Server_debuginfo . $m . "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
class XML_RPC_Server
|
||||||
|
{
|
||||||
|
var $dmap = array();
|
||||||
|
|
||||||
|
function XML_RPC_Server($dispMap, $serviceNow = 1)
|
||||||
|
{
|
||||||
|
global $HTTP_RAW_POST_DATA;
|
||||||
|
// dispMap is a despatch array of methods
|
||||||
|
// mapped to function names and signatures
|
||||||
|
// if a method
|
||||||
|
// doesn't appear in the map then an unknown
|
||||||
|
// method error is generated
|
||||||
|
$this->dmap = $dispMap;
|
||||||
|
if ($serviceNow) {
|
||||||
|
$this->service();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
function serializeDebug()
|
||||||
|
{
|
||||||
|
global $XML_RPC_Server_debuginfo;
|
||||||
|
if ($XML_RPC_Server_debuginfo != "")
|
||||||
|
return "<!-- DEBUG INFO:\n\n" . $XML_RPC_Server_debuginfo . "\n-->\n";
|
||||||
|
else
|
||||||
|
return "";
|
||||||
|
}
|
||||||
|
|
||||||
|
function service()
|
||||||
|
{
|
||||||
|
$r = $this->parseRequest();
|
||||||
|
$payload = "<?xml version=\"1.0\"?>\n" .
|
||||||
|
$this->serializeDebug() .
|
||||||
|
$r->serialize();
|
||||||
|
header('Content-Length: ' . strlen($payload));
|
||||||
|
header('Content-Type: text/xml');
|
||||||
|
print $payload;
|
||||||
|
}
|
||||||
|
|
||||||
|
function verifySignature($in, $sig)
|
||||||
|
{
|
||||||
|
for ($i = 0; $i < sizeof($sig); $i++) {
|
||||||
|
// check each possible signature in turn
|
||||||
|
$cursig = $sig[$i];
|
||||||
|
if (sizeof($cursig) == $in->getNumParams() + 1) {
|
||||||
|
$itsOK = 1;
|
||||||
|
for ($n = 0; $n < $in->getNumParams(); $n++) {
|
||||||
|
$p = $in->getParam($n);
|
||||||
|
// print "<!-- $p -->\n";
|
||||||
|
if ($p->kindOf() == "scalar") {
|
||||||
|
$pt = $p->scalartyp();
|
||||||
|
} else {
|
||||||
|
$pt = $p->kindOf();
|
||||||
|
}
|
||||||
|
// $n+1 as first type of sig is return type
|
||||||
|
if ($pt != $cursig[$n+1]) {
|
||||||
|
$itsOK = 0;
|
||||||
|
$pno = $n+1;
|
||||||
|
$wanted = $cursig[$n+1];
|
||||||
|
$got = $pt;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if ($itsOK)
|
||||||
|
return array(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return array(0, "Wanted ${wanted}, got ${got} at param ${pno})");
|
||||||
|
}
|
||||||
|
|
||||||
|
function parseRequest($data = "")
|
||||||
|
{
|
||||||
|
global $XML_RPC_xh,$HTTP_RAW_POST_DATA;
|
||||||
|
global $XML_RPC_err, $XML_RPC_str, $XML_RPC_errxml,
|
||||||
|
$XML_RPC_defencoding, $XML_RPC_Server_dmap;
|
||||||
|
|
||||||
|
if ($data == "") {
|
||||||
|
$data = $HTTP_RAW_POST_DATA;
|
||||||
|
}
|
||||||
|
$parser = xml_parser_create($XML_RPC_defencoding);
|
||||||
|
|
||||||
|
$XML_RPC_xh[$parser] = array();
|
||||||
|
$XML_RPC_xh[$parser]['st'] = "";
|
||||||
|
$XML_RPC_xh[$parser]['cm'] = 0;
|
||||||
|
$XML_RPC_xh[$parser]['isf'] = 0;
|
||||||
|
$XML_RPC_xh[$parser]['params'] = array();
|
||||||
|
$XML_RPC_xh[$parser]['method'] = "";
|
||||||
|
|
||||||
|
$plist = '';
|
||||||
|
|
||||||
|
// decompose incoming XML into request structure
|
||||||
|
|
||||||
|
xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, true);
|
||||||
|
xml_set_element_handler($parser, "XML_RPC_se", "XML_RPC_ee");
|
||||||
|
xml_set_character_data_handler($parser, "XML_RPC_cd");
|
||||||
|
xml_set_default_handler($parser, "XML_RPC_dh");
|
||||||
|
if (!xml_parse($parser, $data, 1)) {
|
||||||
|
// return XML error as a faultCode
|
||||||
|
$r = new XML_RPC_Response(0,
|
||||||
|
$XML_RPC_errxml+xml_get_error_code($parser),
|
||||||
|
sprintf("XML error: %s at line %d",
|
||||||
|
xml_error_string(xml_get_error_code($parser)),
|
||||||
|
xml_get_current_line_number($parser)));
|
||||||
|
xml_parser_free($parser);
|
||||||
|
} else {
|
||||||
|
xml_parser_free($parser);
|
||||||
|
$m = new XML_RPC_Message($XML_RPC_xh[$parser]['method']);
|
||||||
|
// now add parameters in
|
||||||
|
for ($i = 0; $i < sizeof($XML_RPC_xh[$parser]['params']); $i++) {
|
||||||
|
// print "<!-- " . $XML_RPC_xh[$parser]['params'][$i]. "-->\n";
|
||||||
|
$plist .= "$i - " . $XML_RPC_xh[$parser]['params'][$i] . " \n";
|
||||||
|
eval('$m->addParam(' . $XML_RPC_xh[$parser]['params'][$i] . ");");
|
||||||
|
}
|
||||||
|
XML_RPC_Server_debugmsg($plist);
|
||||||
|
// now to deal with the method
|
||||||
|
$methName = $XML_RPC_xh[$parser]['method'];
|
||||||
|
if (ereg("^system\.", $methName)) {
|
||||||
|
$dmap = $XML_RPC_Server_dmap;
|
||||||
|
$sysCall = 1;
|
||||||
|
} else {
|
||||||
|
$dmap = $this->dmap;
|
||||||
|
$sysCall = 0;
|
||||||
|
}
|
||||||
|
if (isset($dmap[$methName]['function'])) {
|
||||||
|
// dispatch if exists
|
||||||
|
if (isset($dmap[$methName]['signature'])) {
|
||||||
|
$sr = $this->verifySignature($m,
|
||||||
|
$dmap[$methName]['signature'] );
|
||||||
|
}
|
||||||
|
if ( (!isset($dmap[$methName]['signature'])) || $sr[0]) {
|
||||||
|
// if no signature or correct signature
|
||||||
|
if ($sysCall) {
|
||||||
|
eval('$r=' . $dmap[$methName]['function'] . '($this, $m);');
|
||||||
|
} else {
|
||||||
|
eval('$r=' . $dmap[$methName]['function'] . '($m);');
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$r = new XML_RPC_Response(0, $XML_RPC_err["incorrect_params"],
|
||||||
|
$XML_RPC_str["incorrect_params"] .
|
||||||
|
": " . $sr[1]);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
// else prepare error response
|
||||||
|
$r = new XML_RPC_Response(0, $XML_RPC_err["unknown_method"],
|
||||||
|
$XML_RPC_str["unknown_method"]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return $r;
|
||||||
|
}
|
||||||
|
|
||||||
|
function echoInput() {
|
||||||
|
global $HTTP_RAW_POST_DATA;
|
||||||
|
|
||||||
|
// a debugging routine: just echos back the input
|
||||||
|
// packet as a string value
|
||||||
|
|
||||||
|
$r = new XML_RPC_Response;
|
||||||
|
$r->xv = new XML_RPC_Value("'Aha said I: '" . $HTTP_RAW_POST_DATA, "string");
|
||||||
|
print $r->serialize();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
?>
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue