diff options
| -rw-r--r-- | AUTHORS | 3 | ||||
| -rw-r--r-- | INSTALL | 15 | ||||
| -rw-r--r-- | LICENSE | 339 | ||||
| -rw-r--r-- | README | 26 | ||||
| -rw-r--r-- | TODO | 12 | ||||
| -rw-r--r-- | VERSION | 1 | ||||
| -rw-r--r-- | apache.conf | 6 | ||||
| -rwxr-xr-x | urpmi-proxy.cgi | 423 | ||||
| -rw-r--r-- | urpmi-proxy.conf | 50 |
9 files changed, 875 insertions, 0 deletions
@@ -0,0 +1,3 @@ +AUTHORS: +-------- +- Maarten Vanraes <maarten.vanraes@gmail.com> @@ -0,0 +1,15 @@ +URPMI-PROXY: +------------ +HOW TO INSTALL: + +1. copy urpmi-proxy.cgi to /usr/share/urpmi-proxy/cgi-bin/ +2. copy urpmi-proxy.conf to /etc/ and possibly adjust the settings. +3. copy the apache.conf file to be included into apache config somewhere. + Something like /etc/httpd/conf/webapps.d/ is a good idea, but rename it + to urpmi-proxy.conf or something, if all webapps had apache.conf files, + it'd be a mess. +4. reload apache to take into effect the configuration file. +5. and voila; http://server.com/mageia should be usable as a local mirror + +NOTE: take care to look over the settings, especially the cache directories. + @@ -0,0 +1,339 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 Free Software Foundation, Inc., + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Lesser General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +You may charge a fee for the physical act of transferring a copy, and +you may at your option offer warranty protection in exchange for a fee. + + 2. You may modify your copy or copies of the Program or any portion +of it, thus forming a work based on the Program, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Program, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) Accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of Sections + 1 and 2 above on a medium customarily used for software interchange; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, complete source +code means all the source code for all modules it contains, plus any +associated interface definition files, plus the scripts used to +control compilation and installation of the executable. However, as a +special exception, the source code distributed need not include +anything that is normally distributed (in either source or binary +form) with the major components (compiler, kernel, and so on) of the +operating system on which the executable runs, unless that component +itself accompanies the executable. + +If distribution of executable or object code is made by offering +access to copy from a designated place, then offering equivalent +access to copy the source code from the same place counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program is +void, and will automatically terminate your rights under this License. +However, parties who have received copies, or rights, from you under +this License will not have their licenses terminated so long as such +parties remain in full compliance. + + 5. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program subject to +these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties to +this License. + + 7. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under +any particular circumstance, the balance of the section is intended to +apply and the section as a whole is intended to apply in other +circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system, which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program under this License +may add an explicit geographical distribution limitation excluding +those countries, so that distribution is permitted only in or among +countries not thus excluded. In such case, this License incorporates +the limitation as if written in the body of this License. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of this License which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + <one line to give the program's name and a brief idea of what it does.> + Copyright (C) <year> <name of author> + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License along + with this program; if not, write to the Free Software Foundation, Inc., + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + <signature of Ty Coon>, 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. @@ -0,0 +1,26 @@ +URPMI-PROXY: +------------ + +The CGI file is meant as an alias for /mageia on a webserver; so that +it can be used as a urpmi repository and it proxies the calls with caching to +configured repositories. Overriding with an extra local repos and turning is +also possible. + +After installation (see INSTALL file), you can use eg: +http://your.server.com/mageia/distrib/1/x86_64/ +as an urpmi distrib repository to install from or setting it in your other +mageia machines. + +It proxies all releases, versions and architectures and even iso files, +since it just caches files. Only the files you'll effectively request, +will be stored in the cache though. Even though some files are always checked +before checking for cache, in the event that those files can't be checked, +it'll use those cached files anyway. + +ADVANCED USAGE: +--------------- +This standard usages will let you cache your whole network (or chroots), but +not the machine this urpmi-proxy is running on. You can actually do this by +configuring the sources in the config file to the ones you were using in your +urpmi settings, and then remove all configured media from urpmi; then +adding the media, directly from your server with this proxy url. @@ -0,0 +1,12 @@ +urpmi-proxy TODO: +----------------- + - fix sending 304 not modified when requested! + - check unmodified for FTP + - fix chosen mirrorlist better + - fix rsync + - delete old rpm versions (or another way to keep cache small) + - better config system + - default extension based mime type checking + - using progress for size checking (configurable) + - using buffered data for mime type checking (configurable) + - check for a better apache.conf system to be used in webapps.d/ @@ -0,0 +1 @@ +0.2.4 diff --git a/apache.conf b/apache.conf new file mode 100644 index 0000000..60b1e6a --- /dev/null +++ b/apache.conf @@ -0,0 +1,6 @@ +ScriptAlias /mageia /usr/share/urpmi-proxy/cgi-bin/urpmi-proxy.cgi +<Directory /usr/share/urpmi-proxy/cgi-bin> + Options +ExecCGI + Order Allow,Deny + Allow from all +</Directory> diff --git a/urpmi-proxy.cgi b/urpmi-proxy.cgi new file mode 100755 index 0000000..12475a0 --- /dev/null +++ b/urpmi-proxy.cgi @@ -0,0 +1,423 @@ +#!/usr/bin/perl -w +## written by Maarten Vanraes (c) 2009-2011 +## urpmi-proxy is GPLv2+ + +use strict; +use warnings; + +my $debug = 0; +my $config_file = '/etc/urpmi-proxy.conf'; + +# config defaults +my $cache_tmp_path = '/var/tmp/urpmi-proxy'; +my $cache_path = '/var/cache/urpmi-proxy'; +my $logfile = '/var/log/urpmi-proxy.log'; +my $check_updates_only_files = 'MD5SUM'; +my $check_no_updates_files; +my $merge_files = 'media.cfg'; +my $sources = [ + 'urpmi' +]; +my $connect_timeout = 120; +my $ftp_response_timeout = 30; +my $max_stall_speed = 8192; +my $max_stall_time = 60; + +# load config file +if (-R $config_file) { + my $r = open(FILE, '<', $config_file); + if ($r) { + my $l = ''; + while (<FILE>) { + $l .= $_; + } + eval $l; + close FILE; + } +} +print STDERR "logfile: $logfile\n" if $debug; + +my $sou; +print STDERR "orig sources: " . scalar(@$sources) . "\n" if $debug; +if ($debug) { + foreach $sou (@$sources) { + print STDERR " - " . $sou . "\n"; + } +} + +# prepare cache path +system("mkdir -p $cache_tmp_path"); + +# check for valid request +my $file = $ENV{PATH_INFO}; +return_error(500, 'Server error') if !$file; + +# split up request +return_error(500, 'Server error') if $file !~ m!^(.+)/([^/]*)$!; +my $dest_path = $1; +my $filename = $2; +my $file_type = ""; +my $merge = 0; + +print STDERR "file: $file\n" if $debug; +print STDERR "dest_path: $dest_path\n" if $debug; +print STDERR "filename: $filename\n" if $debug; + +# check if request needs update checking +my $check_file = 1; +$check_file = 0 if defined $check_no_updates_files && $filename =~ m/$check_no_updates_files/; +if (defined $check_updates_only_files) { + $check_file = 0; + $check_file = 1 if $filename =~ m/$check_updates_only_files/; +} + +# check if request needs merging +$merge = 1 if $filename =~ m/$merge_files/; +$check_file = 1 if $merge; + +print STDERR "check_file: $check_file\n" if $debug; +print STDERR "merge: $merge\n" if $debug; + +# if the file needs no update checks, check in cache +return_file($cache_path, $file, $logfile, 'CACHED_NO_CHECK') if (!$check_file && $filename && -R $cache_path . $file); + +# get datetime from local file if it exists +my $timestamp = 0; +if ($filename && !$check_file && -R $cache_path . $file) { + my @sv = lstat($cache_path . $file); + $timestamp = $sv[9]; + print STDERR "timestamp: $timestamp\n" if $debug; +} + +# set up curl with timecheck +my $curl; +my $r = 0; +my $file_sent = 0; +#my $file_deleted = 0; +my $file_unmodified = 0; +my $file_time = -1; +my $err = 200; + +# prepare curl transfer +my $tmp_file = $cache_tmp_path . "/" . rand() . $$; +open(FILEHANDLE, ">", $tmp_file) or do { + _log($logfile, $file, 500, 'MISS'); + return_error(500, 'Server error'); +}; +binmode(FILEHANDLE); +my %curldata = (fh => \*FILEHANDLE, file_sent => \$file_sent, content_type => $file_type, size => -1, merge => \$merge); + +print STDERR "sources: " . scalar(@$sources) . "\n" if $debug; +if ($debug) { + foreach $sou (@$sources) { + print STDERR " - " . $sou . "\n"; + } +} + +# filter out duplicate sources (and expand urpmi) +my @sources; +my %seen; +foreach my $s (@$sources) { + # heh + next if $seen{$s}++; + if ($s eq "urpmi") { + # urpmi support is required + use urpm; + use urpm::cfg; + my $urpm = new urpm(); + urpm::get_global_options($urpm); + my $config = urpm::cfg::load_config($urpm->{config}); + my %s; + foreach my $media (@{$config->{media}}) { + if (!$media->{ignore}) { + if ($media->{mirrorlist} && !($seen{'mirrorlist:' . $media->{mirrorlist}}++)) { + # push mirrorlists now so they'll be first + push @sources, 'mirrorlist://' . $media->{mirrorlist}; + } + elsif ($media->{url} && !($seen{$media->{url}}++)) { + $s{$media->{url}} = 1; + } + } + } + # push the urls + push @sources, keys %s if scalar(keys %s); + } + else { + push @sources, $s; + } +} + +# check for source +print STDERR "interpolated sources: " . scalar(@sources) . "\n" if $debug; +if ($debug) { + foreach $sou (@sources) { + print STDERR " - " . $sou . "\n"; + } +} +foreach my $source (@sources) { + my ($type, @loc) = split('://', $source); + my $loc = join('://', @loc); + print STDERR "source of type $type: '" . $source . "'\n" if $debug; + if ($type eq 'mirrorlist') { + # get exact url from cache and parse + my $res = open(FILE, '<', '/var/cache/urpmi/mirrors.cache'); + if ($res) { + my $mirrorcache = ''; + while (<FILE>) { + $mirrorcache .= $_; + } + close FILE; + my $host_loc = $loc; + $host_loc =~ s/\$/\\\$/g; + if ($mirrorcache =~ m/'$host_loc'\s+=>\s+{[\r\n]+\s+'chosen'\s+=>\s+'([^']+)'/m) { + $source = $1; + # rectify source to remove '/distrib/version/arch' + $source =~ s!/[^/]+/[^/]+/[^/]+$!!; + print STDERR "mirrorlist returns source '$source'\n" if $debug; + ($type, @loc) = split('://', $source); + $loc = join('://', @loc); + if (defined $type) { + print STDERR "mirrorlist returns type $type: '" . $source . "'\n" if $debug; + } + else { + print STDERR "transfer error: mirrorlist is no url '" . $source . "'.\n" if $debug; + $type = ''; + } + } + else { + print STDERR "transfer error: mirrorlist has no chosen url '" . $source . "'.\n" if $debug; + $type = ''; + } + } + else { + print STDERR "transfer error: couldn't open mirrorlist cache.\n" if $debug; + } + } + if ($type eq 'rsync') { + # find the equivalent ftp mirror location by hostname + my $res = open(FILE, '<', '/var/cache/urpmi/mirrors.cache'); + if ($res) { + my $mirrorcache = ''; + while (<FILE>) { + $mirrorcache .= $_; + } + close FILE; + my $loc_host = $loc; + $loc_host =~ s!/.+!!; + if ($mirrorcache =~ m!'url'\s+=>\s+'((ftp|http)://$loc_host/[^']+)'!) { + $source = $1; + # rectify source to remove '/distrib/version/arch' + $source =~ s!/[^/]+/[^/]+/[^/]+$!!; + print STDERR "rsync switch returns source '$source'\n" if $debug; + ($type, @loc) = split('://', $source); + $loc = join('://', @loc); + if (defined $type) { + print STDERR "rsync switch returns type $type: '" . $source . "'\n" if $debug; + } + else { + print STDERR "transfer error: rsync switch is no url '" . $source . "'.\n" if $debug; + $type = ''; + } + } + else { + print STDERR "transfer error: rsync switch has no suitable url '" . $source . "'.\n" if $debug; + $type = ''; + } + } + else { + print STDERR "transfer error: couldn't open mirrorlist cache.\n" if $debug; + } + } + if ($type eq 'file') { + if ($filename && -R $loc . $file) { + my $ft = `file -b --mime-type $loc$file`; + $ft =~ s/[\s\r\n]*$//; + print STDERR "mimetype: '$ft'\n" if $debug; + print STDERR "size: " . (-s $loc . $file) . "\n" if $debug; + $r = open(FILE, "<", $loc . $file); + if ($r) { + print STDERR "file fetch url '" . $loc . $file . "'\n" if $debug; + if (!$file_sent) { + $file_sent = 1; + print "Content-Type: " . $ft . "\r\n"; + print "Content-Length: " . (-s $loc . $file) . "\r\n" if !$merge; + print "\r\n"; + } + binmode(FILE); + my $buf; + while (read(FILE, $buf, 1024)) { + print FILEHANDLE $buf; + print $buf; + } + close FILE; + $r = 0; + } + else { + print STDERR "transfer error: couldn't open file '" . $loc . $file . "'.\n" if $debug; + $r = 1; + $err = 404; + } + } + else { + print STDERR "transfer error: couldn't read file '" . $loc . $file . "'.\n" if $debug; + } + } + elsif ($type) { + if (!defined $curl) { + use WWW::Curl::Easy; + # set up curl stuff + $curl = new WWW::Curl::Easy; + if ($timestamp > 0) { + $curl->setopt(CURLOPT_TIMECONDITION, 1); # CURL_TIMECOND_IFMODSINCE + $curl->setopt(CURLOPT_TIMEVALUE, $timestamp); + } + $curl->setopt(CURLOPT_CONNECTTIMEOUT, $connect_timeout); + $curl->setopt(CURLOPT_FTP_RESPONSE_TIMEOUT, $ftp_response_timeout); + $curl->setopt(CURLOPT_LOW_SPEED_LIMIT, $max_stall_speed); + $curl->setopt(CURLOPT_LOW_SPEED_TIME, $max_stall_time); + $curl->setopt(CURLOPT_FOLLOWLOCATION, 1); + $curl->setopt(CURLOPT_FILETIME, 1); + # hook curl transfer functions for local caching + $curl->setopt(CURLOPT_WRITEDATA, \%curldata); + $curl->setopt(CURLOPT_WRITEFUNCTION, \&write_function); + $curl->setopt(CURLOPT_WRITEHEADER, \%curldata); + $curl->setopt(CURLOPT_HEADERFUNCTION, \&header_function); + } + # depending on type check if remote file is newer + print STDERR "curl fetch url '" . $source . $file . "'\n" if $debug; + $curl->setopt(CURLOPT_URL, $source . $file); + $r = $curl->perform; + print STDERR "curl return value: " . $err . "\n" if $debug; + # use curl to get it and output it directly + if ($r == 0) { + $err = $curl->getinfo(CURLINFO_HTTP_CODE); + if ($err =~ m/^2/ || $err == 304) { + if ($curl->getinfo(CURLINFO_CONDITION_UNMET)) { + $file_unmodified = 1; + } + $file_time = $curl->getinfo(CURLINFO_FILETIME); + } + else { + # error stuff ? + print STDERR "transfer error: http code " . $err . "\n" if $debug; + } + } + else { + # error stuff ? + print STDERR "transfer error: " . $curl->strerror($r) . " ($r)\n" if $debug; + } + } + else { + print STDERR "transfer error: this source does not have a type\n" if $debug; + } + last if $file_sent && !$merge; +} + +my $extra = ''; + +close(FILEHANDLE); + +if ($file_sent && $r == 0 && $err =~ m/^2/ && $filename) { + # clean up file and move to correct location + if (system("mkdir -p $cache_path$dest_path") == 0) { + if (rename($tmp_file, $cache_path . $file)) { + utime(time(), $file_time, $cache_path . $file) if $file_time > 0; + } + else { + print STDERR "WARNING: file '$tmp_file' could not be moved to '$cache_path$file'\n"; + } + } + else { + print STDERR "WARNING: containing path for '$cache_path$file' could not be created\n"; + } + _log($logfile, $file, 200, 'MISS'); +} +else { + unlink($tmp_file); + if ($file_sent) { + if ($filename) { + _log($logfile, $file, $err, 'MISS_FAIL_SENT'); + } + else { + # It was actually successful, but paths can't be saved... + print STDERR "NOTICE: paths cant be saved: '$file'\n" if $debug; + _log($logfile, $file, $err, 'MISS'); + } + exit 0; + } + $extra = '_UNMODIFIED' if $file_unmodified; + return_file($cache_path, $file, $logfile, 'HIT_AFTER_FAIL' . $extra) if $filename && -R $cache_path . $file; + _log($logfile, $file, 404, 'MISS_FAIL'); + return_error(404, 'File not found'); +} + +print STDERR "finished." if $debug; + +exit 0; + +sub header_function { + my ($ptr, $data) = @_; + if (!${$data->{file_sent}}) { + $data->{http_header} = $1 if $ptr =~ m!^HTTP/[0-9.]+\s+(.+?)[\s\r\n]*$!; + $data->{content_type} = $1 if $ptr =~ m/^Content-[tT]ype:\s+(.+?)[\s\r\n]*$/; + $data->{size} = $1 if $ptr =~ m/^Content-[lL]ength:\s+(.+?)[\s\r\n]*$/; + $data->{size} = $1 if $ptr =~ m/^213\s+(.+?)[\s\r\n]*$/; + } + return length($ptr); +} + +sub write_function { + my ($ptr, $data) = @_; + my $f = ${$data->{fh}}; + print $f ($ptr); + if (!${$data->{file_sent}}) { + ${$data->{file_sent}} = 1; + print STDERR "HTTP header: " . $data->{http_header} . "\n" if $debug && defined $data->{http_header}; + print STDERR "Content-Type: " . $data->{content_type} . "\n" if $debug && defined $data->{content_type}; + print STDERR "Content-Length: " . $data->{size} . "\n" if $debug; + print "Status: " . $data->{http_header} . "\r\n" if $data->{http_header} && $data->{http_header} !~ m/^2/; + print "Content-Type: " . $data->{content_type} . "\r\n" if $data->{content_type}; + print "Content-Length: " . $data->{size} . "\r\n" if $data->{size} > -1 && !${$data->{merge}}; + print "\r\n"; + } + print $ptr; + return length($ptr); +} + +sub _log { + my ($logfile, $file, $code, $cached) = @_; + my $date = `date`; + $date =~ s/[\s\r\n]*$//; + open(FILE, ">>" . $logfile) or return; + print FILE "[" . $date . "] $file - $code - $cached\n"; + close(FILE); +} + +sub return_file { + my ($cache_path, $file, $logfile, $cached)=@_; + open(FILE, "<", $cache_path . $file) or do { + _log($logfile, $file, 500, $cached); + return_error(500, 'Server error'); + }; + my $ft = `file -b --mime-type $cache_path$file`; + $ft =~ s/[\s\r\n]*$//; + print STDERR "mimetype: '$ft'\n" if $debug; + print STDERR "size: " . (-s $cache_path . $file) . "\n" if $debug; + print "Content-Type: " . $ft . "\r\n"; + print "Content-Length: " . (-s $cache_path . $file) . "\r\n\r\n"; + binmode(FILE); + my $buf; + while (read(FILE, $buf, 1024)) { + print $buf; + } + close FILE; + _log($logfile, $file, 200, $cached); + exit 0; +} + +sub return_error { + my ($code, $text) = @_; + print "Status: $code $text\r\n\r\n"; + print STDERR "$code $text.\n" if $debug; + exit 0; +} diff --git a/urpmi-proxy.conf b/urpmi-proxy.conf new file mode 100644 index 0000000..2017b31 --- /dev/null +++ b/urpmi-proxy.conf @@ -0,0 +1,50 @@ +## URPMI-PROXY: +## ============ +## urpmi-proxy's config file, defaults are commented out. +## urpmi-proxy is a cgi script that's to be used as a repository mirror, it'll +## get what you need and download it from configured sources. + +## Define your sources here; The paths have to be configured to stop at the +## base path of the mirror, most of them end in either /mageia or /Mageia . +## (don't end them on a / !) +## possible sources: +## urpmi the urpmi sources of this machine +## mirrorlist://url a mirrorlist url (url can be $MIRRORLIST) +## file://path a local path on the filesystem +## http://server/path an http mirror +## ftp://server/path an ftp mirror +## rsync://server/path an rsync mirror (rsync is not yet supported) + +# $sources = [ +## 'file:///var/lib/urpmi-proxy/repository', ## local extra repos +# 'urpmi' +# ]; + +## Location of the logfile, it's a request log with cache status results. +# $logfile = '/var/log/urpmi-proxy.log'; + +## Debug +# $debug = 0; + +## Define the urpmi-proxy cache (be careful, can take a huge amount of space). +# $cache_path = '/var/cache/urpmi-proxy'; + +## Define the temporary cache which is used while downloading files. +## (Keep this path preferably in the same filesystem as the cache_path.) +# $cache_tmp_path = '/var/tmp/urpmi-proxy'; + +## These files will always be checked for newer versions. +# $check_updates_only_files = 'MD5SUM'; + +## These files will not be check for newer versions if they exist. +# $check_no_updates_files = undef; + +## These files will be merged from every sources. +# $merge_files = 'media.cfg'; + +## These are the tuning settings when downloading files. +# $connect_timeout = 120; +# $ftp_response_timeout = 30; +# $max_stall_speed = 8192; +# $max_stall_time = 60; + |