Rev 14515 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | r=!randint 2^30,2^31 |
| 2 | |||
| 3 | boundary=--------------$r---------------- |
||
| 4 | Boundary=$boundary |
||
| 5 | webget_option=direct normalread |
||
| 6 | webget_host=$centralhost |
||
| 7 | webget_port=80 |
||
| 8 | webget_post=$wims_home/$wims_sesdir/pubpost |
||
| 9 | |||
| 10 | !sh rm -fR $wims_home/$wims_sesdir/pubprep\ |
||
| 11 | mkdir -p $wims_home/$wims_sesdir/pubprep\ |
||
| 3854 | bpr | 12 | cp -pPR $devdir/$mod $wims_home/$wims_sesdir/pubprep/$mname\ |
| 23 | reyssat | 13 | cd $wims_home/$wims_sesdir/pubprep\ |
| 14 | tar -czf ../module.tgz $mname\ |
||
| 15 | cd ..\ |
||
| 16 | cat >pubpost <<@\ |
||
| 17 | $Boundary\ |
||
| 18 | Content-Disposition: form-data; name="module"\ |
||
| 19 | \ |
||
| 992 | bpr | 20 | $collector\ |
| 23 | reyssat | 21 | $Boundary\ |
| 22 | Content-Disposition: form-data; name="author"\ |
||
| 23 | \ |
||
| 24 | $submitauth\ |
||
| 25 | $Boundary\ |
||
| 26 | Content-Disposition: form-data; name="pass"\ |
||
| 27 | \ |
||
| 28 | $submitpass\ |
||
| 29 | $Boundary\ |
||
| 30 | Content-Disposition: form-data; name="mname"\ |
||
| 31 | \ |
||
| 32 | $mdir/$mname\ |
||
| 33 | $Boundary\ |
||
| 34 | Content-Disposition: form-data; name="wver"\ |
||
| 35 | \ |
||
| 36 | $cheatversion\ |
||
| 37 | $Boundary\ |
||
| 38 | Content-Disposition: form-data; name="submittype"\ |
||
| 39 | \ |
||
| 40 | $submittype\ |
||
| 41 | $Boundary\ |
||
| 42 | Content-Disposition: form-data; name="istranslate"\ |
||
| 43 | \ |
||
| 44 | $istranslate\ |
||
| 45 | $Boundary\ |
||
| 46 | Content-Disposition: form-data; name="modifiers"\ |
||
| 47 | \ |
||
| 48 | $modifiers\ |
||
| 49 | $Boundary\ |
||
| 14515 | bpr | 50 | Content-Disposition: form-data; name="comment"\ |
| 51 | \ |
||
| 52 | $comment\ |
||
| 53 | $Boundary\ |
||
| 23 | reyssat | 54 | Content-Disposition: form-data; name="job"\ |
| 55 | \ |
||
| 56 | submit\ |
||
| 57 | $Boundary\ |
||
| 58 | Content-Disposition: form-data; name="wims_deposit"; filename="module.tgz"\ |
||
| 59 | Content-Type: application/octet-stream\ |
||
| 60 | \ |
||
| 61 | @\ |
||
| 62 | cat module.tgz >>pubpost\ |
||
| 63 | echo "\ |
||
| 64 | \ |
||
| 65 | $Boundary--" >>pubpost |
||
| 66 | |||
| 992 | bpr | 67 | len=!sh wc -c $wims_home/$wims_sesdir/pubpost | awk '{print $$1}' |
| 23 | reyssat | 68 | |
| 12332 | obado | 69 | rep=!exec webget POST /$centralcgi?form-data HTTP/1.1\ |
| 70 | Host: $centralhost\ |
||
| 23 | reyssat | 71 | User-Agent: Mozilla (WIMS Webget)\ |
| 72 | Content-Type: multipart/form-data; boundary=$boundary\ |
||
| 73 | Content-Length: $len |
||
| 74 | |||
| 75 | wims_exec_error= |
||
| 76 |