Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Felix Eckhofer
tools
Commits
0d87e02d
Commit
0d87e02d
authored
Jul 04, 2013
by
Felix Eckhofer
🤹🏼
Browse files
add vboxconvert.pl
parent
b1863ffb
Changes
1
Hide whitespace changes
Inline
Side-by-side
vboxconvert/vboxconvert.pl
0 → 100644
View file @
0d87e02d
#!/usr/bin/perl
# vboxconvert.pl (c) 2002 felix eckhofer <felix@tribut.de>
use
CGI
qw(:standard)
;
use
CGI
qw/escapeHTML unescapeHTML/
;
use
CGI::
Carp
'
fatalsToBrowser
';
$
CGI::
POST_MAX
=
1024
*
2048
;
# max 2mb
$tempbase
=
"
/usr/local/httpd/htdocs/kunden/web255/vbox/temp
";
$autovbox
=
"
/usr/local/httpd/htdocs/kunden/web255/vbox/autovbox
";
$autemp
=
"
$tempbase
/autemp
";
$lockfile
=
"
$tempbase
/lockfile
";
$errorfile
=
"
$tempbase
/errors
";
$logfile
=
"
$tempbase
/log
";
$scriptversion
=
"
1.0
";
if
(
param
()){
$aufile
=
param
("
aufile
");
if
(
!
$aufile
){
Fehler
("
You did not provide any File!
");}
if
(
-
e
$lockfile
){
$NoCleanUp
=
"
true
";
Fehler
("
The System is currently busy - please retry in a minute!
");
}
else
{
open
(
LOCKFILE
,
"
>
$lockfile
")
||
Fehler
("
could not open lockfile ($!)
");
print
LOCKFILE
"
locked
";
close
(
LOCKFILE
);
}
open
(
LOGFILE
,"
>>
$logfile
")
||
Fehler
("
file open problem ($!)
");
(
$sec
,
$min
,
$hour
,
$mday
,
$mon
,
$year
,
$wday
,
$yday
,
$isdst
)
=
localtime
(
time
);
$mon
++
;
$year
=
$year
+
1900
;
# Y2K bug fix
if
(
length
(
$min
)
==
1
)
{
$min
=
"
0
"
.
$min
;
}
print
LOGFILE
"
$mday
.
$mon
.
$year
$hour
:
$min
-
$ENV
{'REMOTE_HOST'} (
$ENV
{'REMOTE_ADDR'}) -
$aufile
-
$ENV
{'CONTENT_LENGTH'}
\n
";
close
(
LOGFILE
);
open
(
TEMPFILE
,
"
>
$autemp
")
||
Fehler
("
could not open autemp ($!)
");
while
(
<
$aufile
>
){
print
TEMPFILE
;
}
close
(
TEMPFILE
);
if
(
-
z
$autemp
){
Fehler
("
File does not contain anything
");
}
if
(
param
("
useulaw
")
eq
'
true
'){
$finalcommand
=
"
$autovbox
-u <
$autemp
";
}
else
{
$finalcommand
=
"
$autovbox
<
$autemp
";
}
unlink
$errorfile
;
$abc
=
`
$finalcommand
>/dev/null 2>
$errorfile
`;
$the_errors
=
`
cat
$errorfile
`;
if
(
$the_errors
){
Fehler
("
autovbox had Problems processing your file -
"
.
"
maybe it is not a valid au-file?
"
.
p
.
"
<PRE>
"
.
escapeHTML
(
$the_errors
)
.
"
</PRE>
");
}
else
{
print
"
Content-type:application/octet-stream
\n
";
print
"
Content-Disposition:attachment;filename=temp.msg
\n\n
";
print
`
$finalcommand
`;
}
unlink
$autemp
;
unlink
$lockfile
;
exit
0
;
}
else
{
print
header
;
print
start_html
('
Main >> VboxConvert
');
print
h1
("
VboxConvert - Interface to autovbox
"),
p
,
start_multipart_form
,
"
The au-File:
",
filefield
(
-
name
=>
'
aufile
'),
p
,
checkbox
(
-
name
=>
'
useulaw
',
-
value
=>
'
true
',
-
label
=>
'
Use ULAW Compression (otherwise ADPCM-4 is assumed)
'),
p
,
submit
(
-
value
=>
'
Convert
'),
defaults
('
reset
'),
"
Please click only once!
",
VCFooter
(),
end_html
;
exit
0
;
}
sub
Fehler
{
print
header
;
print
start_html
('
Error >> VboxConvert
');
print
h1
("
Error
");
print
p
(
@
_
);
print
VCFooter
();
print
end_html
;
CleanUp
();
exit
1
;
}
sub
CleanUp
{
if
(
$NoCleanup
)
{
return
};
unlink
$autemp
;
unlink
$lockfile
;
}
sub
VCFooter
{
my
@progv
=
`
$autovbox
-v 2>&1
`;
return
hr
,
font
({
-
size
=>
"
1
"},"
VboxConvert.pl by <a href=mailto:felix
\@
tribut.de>Felix Eckhofer</a>, Version
$scriptversion
, running
@progv
");
}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment