Subversion Repositories wimsdev

r=!randint 2^30,2^31

boundary=--------------$r----------------
Boundary=$boundary
webget_option=direct normalread
webget_host=$centralhost
webget_port=80
webget_post=$wims_home/$wims_sesdir/pubpost

!sh rm -fR $wims_home/$wims_sesdir/pubprep\
mkdir -p $wims_home/$wims_sesdir/pubprep\
cp -pPR $devdir/$mod $wims_home/$wims_sesdir/pubprep/$mname\
cd $wims_home/$wims_sesdir/pubprep\
tar -czf ../module.tgz $mname\
cd ..\
cat >pubpost <<@\
$Boundary\
Content-Disposition: form-data; name="module"\
\
$collector\
$Boundary\
Content-Disposition: form-data; name="author"\
\
$submitauth\
$Boundary\
Content-Disposition: form-data; name="pass"\
\
$submitpass\
$Boundary\
Content-Disposition: form-data; name="mname"\
\
$mdir/$mname\
$Boundary\
Content-Disposition: form-data; name="wver"\
\
$cheatversion\
$Boundary\
Content-Disposition: form-data; name="submittype"\
\
$submittype\
$Boundary\
Content-Disposition: form-data; name="istranslate"\
\
$istranslate\
$Boundary\
Content-Disposition: form-data; name="modifiers"\
\
$modifiers\
$Boundary\
Content-Disposition: form-data; name="comment"\
\
$comment\
$Boundary\
Content-Disposition: form-data; name="job"\
\
submit\
$Boundary\
Content-Disposition: form-data; name="wims_deposit"; filename="module.tgz"\
Content-Type: application/octet-stream\
\
@\
cat module.tgz >>pubpost\
echo "\
\
$Boundary--" >>pubpost

len=!sh wc -c $wims_home/$wims_sesdir/pubpost | awk '{print $$1}'

rep=!exec webget POST /$centralcgi?form-data HTTP/1.1\
Host: $centralhost\
User-Agent: Mozilla (WIMS Webget)\
Content-Type: multipart/form-data; boundary=$boundary\
Content-Length: $len

wims_exec_error=