</font><pre><strong><strong>    <u>list</u>(<a>$pathWithName</a>,<a>$tmp</a>) = explode(<s>'?'</s>,<a>$pathWithName</a>);
    
                 <u>if</u> (<a>$ftp</a>[<s>"scheme"</s>] == <s>"ftp"</s> && !<a>$_GET</a>[<s>"proxy"</s>])
                     {
                     <u>require_once</u>(CLASS_DIR.<s>"ftp.php"</s>);
                     <a>$file</a> = getftpurl(<a>$_GET</a>[<s>"host"</s>], <a>$ftp</a>[<s>"port"</s>] ? <a>$ftp</a>[<s>"port"</s>] : 21, <a>$_GET</a>[<s>"path"</s>], &<a>$pathWithName</a>);
                     }
                 <u>else</u>
                     {
                     <u>require_once</u>(CLASS_DIR.<s>"http.php"</s>);
                     <a>$_GET</a>[<s>"force_name"</s>] ? <a>$force_name</a> = urldecode(<a>$_GET</a>[<s>"force_name"</s>]) : <s>''</s>;
                     <a>$file</a> = geturl(<a>$_GET</a>[<s>"host"</s>], <a>$_GET</a>[<s>"port"</s>], <a>$_GET</a>[<s>"path"</s>], <a>$_GET</a>[<s>"referer"</s>], <a>$_GET</a>[<s>"cookie"</s>], <a>$_GET</a>[<s>"post"</s>], &<a>$pathWithName</a>, <a>$_GET</a>[<s>"proxy"</s>], <a>$pauth</a>, <a>$auth</a>, <a>$ftp</a>[<s>"scheme"</s>]);
                     }
                 
                 <u>if</u>(<a>$redir</a> && <a>$lastError</a> && stristr(<a>$lastError</a>,<s>"Error! it is redirected to ["</s>))
                     {
                         <a>$redirectto</a> = trim(cut_str(<a>$lastError</a>,<s>"Error! it is redirected to ["</s>,<s>"]"</s>));
                         <u>print</u> <s>"Redirecting to: <b><b></b><a>$redirectto</a><b></b></b> ... <b>
     </b><a>$nn</a>"</s>;
                         <a>$_GET</a>[<s>"link"</s>] = <a>$redirectto</a>;
                         <a>$purl</a> = parse_url(<a>$redirectto</a>);
                         <u>list</u>(<a>$_GET</a>[<s>"filename"</s>],<a>$tmp</a>) = explode(<s>'?'</s>,basename(<a>$redirectto</a>));
                         <a>$_GET</a>[<s>"host"</s>] = <a>$purl</a>[<s>"host"</s>];
                         <a>$_GET</a>[<s>"path"</s>] = <a>$purl</a>[<s>"path"</s>].(<a>$purl</a>[<s>"query"</s>] ? <s>"?"</s>.<a>$purl</a>[<s>"query"</s>] : <s>""</s>);
                         <a>$_GET</a>[<s>'port'</s>] = <a>$purl</a>[<s>'port'</s>] ? <a>$purl</a>[<s>'port'</s>] : 80;
                         <a>$lastError</a> = <s>""</s>;
                     }
                 
             } <u>while</u> (<a>$redirectto</a> && !<a>$lastError</a>);
         
         <u>if</u>(<a>$lastError</a>)
           {
             html_error(<a>$lastError</a>, 0);
           }
         <u>elseif</u>(<a>$file</a>[<s>"bytesReceived"</s>] == <a>$file</a>[<s>"bytesTotal"</s>] || <a>$file</a>[<s>"size"</s>] == <s>"Unknown"</s>)
           {
             <a>$inCurrDir</a> = stristr(dirname(<a>$pathWithName</a>), ROOT_DIR) ? TRUE : FALSE;
             <u>if</u>(<a>$inCurrDir</a>)
               {
                 <a>$Path</a> = parse_url(<a>$PHP_SELF</a>);
                 <a>$Path</a> = substr(<a>$Path</a>[<s>"path"</s>], 0, strlen(<a>$Path</a>[<s>"path"</s>]) - strlen(strrchr(<a>$Path</a>[<s>"path"</s>], <s>"/"</s>)));
               }
             <u>print</u> <s>"<b><ins><script></ins><ins></ins></b><ins>pr(100, <s>'"</s>.<a>$file</a>[<s>"size"</s>].<s>"'</s>, <s>'"</s>.<a>$file</a>[<s>"speed"</s>].<s>"'</s>)</ins><b><ins></script></ins></b>\r\n"</s>;
             <u>print</u> <s>"File <b><b></b>"</s>.(<a>$inCurrDir</a> ? <s>"<b><a href=\"</b></s><b><s>".<a>$Path.</a>"</s>/<s>".substr(dirname(<a>$pathWithName</a>), strlen(ROOT_DIR) + 1)."</s>/<s>".basename(<a>$file</a>["</s>file<s>"])."</s>\<s>"></s></b><s>"</s> : <s>""</s>).basename(<a>$file</a>[<s>"file"</s>]).(<a>$inCurrDir</a> ? <s>"<b></a></b>"</s> : <s>""</s>).<s>"<b></b></b> (<b><b></b>"</s>.<a>$file</a>[<s>"size"</s>].<s>"<b></b></b>) Saved!<b>
     </b>Time: <b><b></b>"</s>.<a>$file</a>[<s>"time"</s>].<s>"<b></b></b><b>
     </b>Average Speed: <b><b></b>"</s>.<a>$file</a>[<s>"speed"</s>].<s>" KB/s<b></b></b><b>
     </b>"</s>;
             <a>$file</a>[<s>'date'</s>] = time();
             <a>$file</a>[<s>"date"</s>]  = time();
             <u>if</u>(!write_file(CONFIG_DIR.<s>"files.lst"</s>, serialize(<u>array</u>(<s>"name"</s> => <a>$file</a>[<s>"file"</s>], <s>"size"</s> => <a>$file</a>[<s>"size"</s>], <s>"date"</s> => <a>$file</a>[<s>"date"</s>], <s>"link"</s> => <a>$_GET</a>[<s>"link"</s>], <s>"comment"</s> => str_replace(<s>"\n"</s>, <s>"\\n"</s>, str_replace(<s>"\r"</s>, <s>"\\r"</s>, <a>$_GET</a>[<s>"comment"</s>])))).<s>"\r\n"</s>, 0))
               {
               <u>print</u> <s>"Couldn<s>'t update the files <u>list</u><b>
     </b>"</s>;
     </s>          }
             <u>if</u>(<a>$_GET</a>[<s>"email"</s>])
               {
                 <u>require_once</u>(CLASS_DIR.<s>"mail.php"</s>);
                 <a>$_GET</a>[<s>"partSize"</s>] = (<u>isset</u>(<a>$_GET</a>[<s>"partSize"</s>]) ? <a>$_GET</a>[<s>"partSize"</s>] * 1024 * 1024 : FALSE);
                 <u>if</u>(xmail(<a>$fromaddr</a>, <a>$_GET</a>[<s>"email"</s>], <s>"File "</s>.basename(<a>$file</a>[<s>"file"</s>]), <s>"File: "</s>.basename(<a>$file</a>[<s>"file"</s>]).<s>"\r\n"</s>.<s>"Link: "</s>.<a>$_GET</a>[<s>"link"</s>].(<a>$_GET</a>[<s>"comment"</s>]? <s>"\r\n"</s>.<s>"Comments: "</s>.str_replace(<s>"\\r\\n"</s>, <s>"\r\n"</s>, <a>$_GET</a>[<s>"comment"</s>]) : <s>""</s>), <a>$pathWithName</a>, <a>$_GET</a>[<s>"partSize"</s>], <a>$_GET</a>[<s>"method"</s>]))
                   {
                   <u>print</u> <s>"<b><ins><script></ins><ins></ins></b><ins>mail(<s>'File was sent to <u>this</u> address<b><b></b>"</s>.<a>$_GET</a>[<s>"email"</s>].<s>"<b></b></b>.'</s>, <s>'"</s>.basename(<a>$file</a>[<s>"file"</s>]).<s>"'</s>);</ins><b><ins></script></ins></b>\r\n"</s>;
                   }    
                 <u>else</u>
                   {
                   <u>print</u> <s>"Error sending file!<b>
     </b>"</s>;
                   }
               }

   </font><pre><strong><strong><u>print</u> <s>"Couldn<s>'t update the files <u>list</u><b>
   </b>"</s>;)