Subversion Repositories wimsdev

Rev

Details | 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\
12 
. $wims_home/bin/dircptest\
13 
$$dircp $devdir/$mod $wims_home/$wims_sesdir/pubprep/$mname\
14 
cd $wims_home/$wims_sesdir/pubprep\
15 
tar -czf ../module.tgz $mname\
16 
cd ..\
17 
cat >pubpost <<@\
18 
$Boundary\
19 
Content-Disposition: form-data; name="module"\
20 
\
992 bpr 21 
$collector\
23 reyssat 22 
$Boundary\
23 
Content-Disposition: form-data; name="author"\
24 
\
25 
$submitauth\
26 
$Boundary\
27 
Content-Disposition: form-data; name="pass"\
28 
\
29 
$submitpass\
30 
$Boundary\
31 
Content-Disposition: form-data; name="mname"\
32 
\
33 
$mdir/$mname\
34 
$Boundary\
35 
Content-Disposition: form-data; name="wver"\
36 
\
37 
$cheatversion\
38 
$Boundary\
39 
Content-Disposition: form-data; name="submittype"\
40 
\
41 
$submittype\
42 
$Boundary\
43 
Content-Disposition: form-data; name="istranslate"\
44 
\
45 
$istranslate\
46 
$Boundary\
47 
Content-Disposition: form-data; name="modifiers"\
48 
\
49 
$modifiers\
50 
$Boundary\
51 
Content-Disposition: form-data; name="job"\
52 
\
53 
submit\
54 
$Boundary\
55 
Content-Disposition: form-data; name="wims_deposit"; filename="module.tgz"\
56 
Content-Type: application/octet-stream\
57 
\
58 
@\
59 
cat module.tgz >>pubpost\
60 
echo "\
61 
\
62 
$Boundary--" >>pubpost
63 
 
992 bpr 64 
len=!sh wc -c $wims_home/$wims_sesdir/pubpost | awk '{print $$1}'
23 reyssat 65 
 
66 
rep=!exec webget POST /$centralcgi?form-data HTTP/1.0\
67 
User-Agent: Mozilla (WIMS Webget)\
68 
Content-Type: multipart/form-data; boundary=$boundary\
69 
Content-Length: $len
70 
 
71 
wims_exec_error=
72