repo.or.cz
/
tomato
/
davidwu.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Correct PPTP server firewall rules chain.
[tomato/davidwu.git]
/
release
/
src
/
router
/
dropbear
/
libtomcrypt
/
fixupind.pl
blob
543ae967d8791782680fe218c9472451da2405d0
1
open
(
IN
,
"<crypt.ind"
);
2
open
(
OUT
,
">crypt.ind.tmp"
);
3
$a
= <
IN
>;
4
print
OUT
"
$a
\n\\
addcontentsline{toc}{chapter}{Index}
\n
"
;
5
while
(<
IN
>) {
6
print
OUT
$_
;
7
}
8
close
OUT
;
9
close
IN
;
10
system
(
"mv -f crypt.ind.tmp crypt.ind"
);
11