lazreport, removed old perl scripts

git-svn-id: trunk@13944 -
This commit is contained in:
jesus 2008-02-01 17:04:04 +00:00
parent adb8e77d8c
commit 231fbb81d3
3 changed files with 0 additions and 3234 deletions

2
.gitattributes vendored
View File

@ -367,7 +367,6 @@ components/images/lazxpm.pas svneol=native#text/pascal
components/images/readme.txt svneol=native#text/plain
components/images/registerimg4laz.pas svneol=native#text/plain
components/lazreport/doc/contributors.txt svneol=native#text/plain
components/lazreport/doc/cvs2cl.pl -text svneol=unset#application/x-perl
components/lazreport/doc/firststeps.odt -text
components/lazreport/doc/fr_eng.sxw -text
components/lazreport/doc/readme.txt svneol=native#text/plain
@ -384,7 +383,6 @@ components/lazreport/images/bitmaps/fr_italic.bmp -text
components/lazreport/images/bitmaps/fr_radio.bmp -text
components/lazreport/images/bitmaps/fr_script.bmp -text
components/lazreport/images/bitmaps/fr_undrline.bmp -text
components/lazreport/images/bitmaps/rename_lower.pl -text svneol=unset#application/x-perl
components/lazreport/images/bitmaps/tfrbarcodeobject.png -text svneol=unset#image/png
components/lazreport/images/bitmaps/tfrchartobject.bmp -text
components/lazreport/images/bitmaps/tfrcheckboxobject.png -text svneol=unset#image/png

File diff suppressed because it is too large Load Diff

View File

@ -1,10 +0,0 @@
#!/usr/bin/perl
opendir(FILES,".")|| die "can't open .";
while($filename=readdir(FILES)){
$file=$filename;
$filename=~tr/[A-Z]/[a-z]/;
$filename=~tr/ /_/d;
$filename=~tr/!/_/d;
rename($file,$filename) || warn "can't rename $file";
}