123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343 |
- /*
- * dpkg-deb - construction and deconstruction of *.deb archives
- * extract.c - extracting archives
- *
- * Copyright (C) 1994,1995 Ian Jackson <ian@chiark.greenend.org.uk>
- *
- * This 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,
- * or (at your option) any later version.
- *
- * This 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 dpkg; if not, write to the Free Software
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- */
- #include <config.h>
- #include <stdio.h>
- #include <string.h>
- #include <stdlib.h>
- #include <signal.h>
- #include <sys/stat.h>
- #include <sys/types.h>
- #include <sys/wait.h>
- #include <errno.h>
- #include <unistd.h>
- #include <dirent.h>
- #include <limits.h>
- #include <ctype.h>
- #include <assert.h>
- #include <ar.h>
- #ifdef WITH_ZLIB
- #include <zlib.h>
- #endif
- #include <dpkg.h>
- #include <dpkg-deb.h>
- #include <myopt.h>
- static void movecontrolfiles(const char *thing) {
- char buf[200];
- pid_t c1;
-
- sprintf(buf, "mv %s/* . && rmdir %s", thing, thing);
- if (!(c1= m_fork())) {
- execlp("sh","sh","-c",buf,(char*)0); ohshite(_("failed to exec sh -c mv foo/* &c"));
- }
- waitsubproc(c1,"sh -c mv foo/* &c",0);
- }
- static void readfail(FILE *a, const char *filename, const char *what) NONRETURNING;
- static void readfail(FILE *a, const char *filename, const char *what) {
- if (ferror(a)) {
- ohshite(_("error reading %s from %.255s"),what,filename);
- } else {
- ohshit(_("unexpected end of file in %s in %.255s"),what,filename);
- }
- }
- static unsigned long parseheaderlength(const char *inh, size_t len,
- const char *fn, const char *what) {
- char lintbuf[15];
- unsigned long r;
- char *endp;
- if (memchr(inh,0,len))
- ohshit(_("file `%.250s' is corrupt - %.250s length contains nulls"),fn,what);
- assert(sizeof(lintbuf) > len);
- memcpy(lintbuf,inh,len);
- lintbuf[len]= ' ';
- *strchr(lintbuf,' ')= 0;
- r= strtoul(lintbuf,&endp,10);
- if (*endp)
- ohshit(_("file `%.250s' is corrupt - bad digit (code %d) in %s"),fn,*endp,what);
- return r;
- }
- void extracthalf(const char *debar, const char *directory,
- const char *taroption, int admininfo) {
- char versionbuf[40];
- float versionnum;
- char ctrllenbuf[40], *infobuf;
- size_t ctrllennum, memberlen= 0;
- int dummy, l= 0;
- pid_t c1=0,c2,c3;
- unsigned char *ctrlarea= 0;
- int p1[2], p2[2];
- FILE *ar, *pi;
- struct stat stab;
- char nlc;
- char *cur;
- struct ar_hdr arh;
- int readfromfd, oldformat= 0, header_done, adminmember;
- #if defined(__GLIBC__) && (__GLIBC__ == 2) && (__GLIBC_MINOR__ > 0)
- fpos_t fpos;
- #endif
- enum compression_type compress_type = GZ;
-
- ar= fopen(debar,"r"); if (!ar) ohshite(_("failed to read archive `%.255s'"),debar);
- if (fstat(fileno(ar),&stab)) ohshite(_("failed to fstat archive"));
- if (!fgets(versionbuf,sizeof(versionbuf),ar)) readfail(ar,debar,_("version number"));
- if (!strcmp(versionbuf,"!<arch>\n")) {
- oldformat= 0;
- ctrllennum= 0;
- header_done= 0;
- for (;;) {
- if (fread(&arh,1,sizeof(arh),ar) != sizeof(arh))
- readfail(ar,debar,_("between members"));
- if (memcmp(arh.ar_fmag,ARFMAG,sizeof(arh.ar_fmag)))
- ohshit(_("file `%.250s' is corrupt - bad magic at end of first header"),debar);
- memberlen= parseheaderlength(arh.ar_size,sizeof(arh.ar_size),
- debar,"member length");
- if (memberlen<0)
- ohshit(_("file `%.250s' is corrupt - negative member length %zi"),debar,memberlen);
- if (!header_done) {
- if (memcmp(arh.ar_name,"debian-binary ",sizeof(arh.ar_name)) &&
- memcmp(arh.ar_name,"debian-binary/ ",sizeof(arh.ar_name)))
- ohshit(_("file `%.250s' is not a debian binary archive (try dpkg-split?)"),debar);
- infobuf= m_malloc(memberlen+1);
- if (fread(infobuf,1, memberlen + (memberlen&1), ar) != memberlen + (memberlen&1))
- readfail(ar,debar,_("header info member"));
- infobuf[memberlen]= 0;
- cur= strchr(infobuf,'\n');
- if (!cur) ohshit(_("archive has no newlines in header"));
- *cur= 0;
- cur= strchr(infobuf,'.');
- if (!cur) ohshit(_("archive has no dot in version number"));
- *cur= 0;
- if (strcmp(infobuf,"2"))
- ohshit(_("archive version %.250s not understood, get newer dpkg-deb"), infobuf);
- *cur= '.';
- strncpy(versionbuf,infobuf,sizeof(versionbuf));
- versionbuf[sizeof(versionbuf)-1]= 0;
- header_done= 1;
- } else if (arh.ar_name[0] == '_') {
- /* Members with `_' are noncritical, and if we don't understand them
- * we skip them.
- */
- stream_null_copy(ar, memberlen + (memberlen&1),_("skipped member data from %s"), debar);
- } else {
- adminmember=
- (!memcmp(arh.ar_name,ADMINMEMBER,sizeof(arh.ar_name)) ||
- !memcmp(arh.ar_name,ADMINMEMBER_COMPAT,sizeof(arh.ar_name))) ? 1 : -1;
- if (adminmember == -1) {
- if (!memcmp(arh.ar_name,DATAMEMBER_GZ,sizeof(arh.ar_name)) ||
- !memcmp(arh.ar_name,DATAMEMBER_COMPAT_GZ,sizeof(arh.ar_name))) {
- adminmember= 0;
- compress_type= GZ;
- } else if (!memcmp(arh.ar_name,DATAMEMBER_BZ2,sizeof(arh.ar_name)) ||
- !memcmp(arh.ar_name,DATAMEMBER_COMPAT_BZ2,sizeof(arh.ar_name))) {
- adminmember= 0;
- compress_type= BZ2;
- } else if (!memcmp(arh.ar_name,DATAMEMBER_CAT,sizeof(arh.ar_name)) ||
- !memcmp(arh.ar_name,DATAMEMBER_COMPAT_CAT,sizeof(arh.ar_name))) {
- adminmember= 0;
- compress_type= CAT;
- } else {
- ohshit(_("file `%.250s' contains ununderstood data member %.*s, giving up"),
- debar, (int)sizeof(arh.ar_name), arh.ar_name);
- }
- }
- if (adminmember == 1) {
- if (ctrllennum != 0)
- ohshit(_("file `%.250s' contains two control members, giving up"), debar);
- ctrllennum= memberlen;
- }
- if (!adminmember != !admininfo) {
- stream_null_copy(ar, memberlen + (memberlen&1),_("skipped member data from %s"), debar);
- } else {
- break; /* Yes ! - found it. */
- }
- }
- }
- if (admininfo >= 2)
- if (printf(_(" new debian package, version %s.\n"
- " size %ld bytes: control archive= %zi bytes.\n"),
- versionbuf, (long)stab.st_size, ctrllennum) == EOF ||
- fflush(stdout)) werr("stdout");
-
- } else if (!strncmp(versionbuf,"0.93",4) &&
- sscanf(versionbuf,"%f%c%d",&versionnum,&nlc,&dummy) == 2 &&
- nlc == '\n') {
-
- oldformat= 1;
- l= strlen(versionbuf); if (l && versionbuf[l-1]=='\n') versionbuf[l-1]=0;
- if (!fgets(ctrllenbuf,sizeof(ctrllenbuf),ar))
- readfail(ar,debar,_("ctrl information length"));
- if (sscanf(ctrllenbuf,"%zi%c%d",&ctrllennum,&nlc,&dummy) !=2 || nlc != '\n')
- ohshit(_("archive has malformatted ctrl len `%s'"),ctrllenbuf);
- if (admininfo >= 2)
- if (printf(_(" old debian package, version %s.\n"
- " size %ld bytes: control archive= %zi, main archive= %ld.\n"),
- versionbuf, (long)stab.st_size, ctrllennum,
- (long) (stab.st_size - ctrllennum - strlen(ctrllenbuf) - l)) == EOF ||
- fflush(stdout)) werr("stdout");
-
- ctrlarea= malloc(ctrllennum); if (!ctrlarea) ohshite("malloc ctrlarea failed");
- errno=0; if (fread(ctrlarea,1,ctrllennum,ar) != ctrllennum)
- readfail(ar,debar,_("ctrlarea"));
- } else {
-
- if (!strncmp(versionbuf,"!<arch>",7)) {
- if (fprintf(stderr,
- _("dpkg-deb: file looks like it might be an archive which has been\n"
- "dpkg-deb: corrupted by being downloaded in ASCII mode\n"))
- == EOF) werr("stderr");
- }
- ohshit(_("`%.255s' is not a debian format archive"),debar);
- }
- #if defined(__GLIBC__) && (__GLIBC__ == 2) && (__GLIBC_MINOR__ > 0)
- if(fgetpos(ar, &fpos)) ohshit(_("fgetpos failed"));
- #endif
- fflush(ar);
- #if defined(__GLIBC__) && (__GLIBC__ == 2) && (__GLIBC_MINOR__ > 0)
- if(fsetpos(ar, &fpos)) ohshit(_("fsetpos failed"));
- #endif
- if (oldformat) {
- if (admininfo) {
- m_pipe(p1);
- if (!(c1= m_fork())) {
- close(p1[0]);
- if (!(pi= fdopen(p1[1],"w"))) ohshite(_("failed to fdopen p1 in paste"));
- errno=0; if (fwrite(ctrlarea,1,ctrllennum,pi) != ctrllennum)
- ohshit(_("failed to write to gzip -dc"));
- if (fclose(pi)) ohshit(_("failed to close gzip -dc"));
- exit(0);
- }
- close(p1[1]);
- readfromfd= p1[0];
- } else {
- if (lseek(fileno(ar),l+strlen(ctrllenbuf)+ctrllennum,SEEK_SET) == -1)
- ohshite(_("failed to syscall lseek to files archive portion"));
- c1= -1;
- readfromfd= fileno(ar);
- }
- } else {
- m_pipe(p1);
- if (!(c1= m_fork())) {
- close(p1[0]);
- stream_fd_copy(ar, p1[1], memberlen, _("failed to write to pipe in copy"));
- if (close(p1[1]) == EOF) ohshite(_("failed to close pipe in copy"));
- exit(0);
- }
- close(p1[1]);
- readfromfd= p1[0];
- }
-
- if (taroption) m_pipe(p2);
-
- if (!(c2= m_fork())) {
- m_dup2(readfromfd,0);
- if (admininfo) close(p1[0]);
- if (taroption) { m_dup2(p2[1],1); close(p2[0]); close(p2[1]); }
- decompress_cat(compress_type, 0, 1, _("data"));
- }
- if (readfromfd != fileno(ar)) close(readfromfd);
- if (taroption) close(p2[1]);
- if (taroption && directory) {
- if (chdir(directory)) {
- if (errno == ENOENT) {
- if (mkdir(directory,0777)) ohshite(_("failed to create directory"));
- if (chdir(directory)) ohshite(_("failed to chdir to directory after creating it"));
- } else {
- ohshite(_("failed to chdir to directory"));
- }
- }
- }
- if (taroption) {
- if (!(c3= m_fork())) {
- char buffer[30+2];
- if(strlen(taroption) > 30) internerr(taroption);
- strcpy(buffer, taroption);
- strcat(buffer, "f");
- m_dup2(p2[0],0);
- close(p2[0]);
- execlp(TAR,"tar",buffer,"-",(char*)0);
- ohshite(_("failed to exec tar"));
- }
- close(p2[0]);
- waitsubproc(c3,"tar",0);
- }
-
- waitsubproc(c2,"<decompress>",PROCPIPE);
- if (c1 != -1) waitsubproc(c1,"paste",0);
- if (oldformat && admininfo) {
- if (versionnum == 0.931F) {
- movecontrolfiles(OLDOLDDEBDIR);
- } else if (versionnum == 0.932F || versionnum == 0.933F) {
- movecontrolfiles(OLDDEBDIR);
- }
- }
- }
- static void controlextractvextract(int admin,
- const char *taroptions,
- const char *const *argv) {
- const char *debar, *directory;
-
- if (!(debar= *argv++))
- badusage(_("--%s needs a .deb filename argument"),cipaction->olong);
- if (!(directory= *argv++)) {
- if (admin) directory= EXTRACTCONTROLDIR;
- else ohshit(_("--%s needs a target directory.\n"
- "Perhaps you should be using dpkg --install ?"),cipaction->olong);
- } else if (*argv) {
- badusage(_("--%s takes at most two arguments (.deb and directory)"),cipaction->olong);
- }
- extracthalf(debar, directory, taroptions, admin);
- }
- void do_fsystarfile(const char *const *argv) {
- const char *debar;
-
- if (!(debar= *argv++))
- badusage(_("--%s needs a .deb filename argument"),cipaction->olong);
- if (*argv)
- badusage(_("--%s takes only one argument (.deb filename)"),cipaction->olong);
- extracthalf(debar,0,0,0);
- }
-
- void do_control(const char *const *argv) { controlextractvextract(1, "x", argv); }
- void do_extract(const char *const *argv) { controlextractvextract(0, "xp", argv); }
- void do_vextract(const char *const *argv) { controlextractvextract(0, "xpv", argv); }
|