![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.539, 2004/09/02 21:23:13 | version 1.540, 2004/09/09 08:26:46 |
|---|---|
| Line 1284 sub clean_filename { | Line 1284 sub clean_filename { |
| $fname=~s/\s+/\_/g; | $fname=~s/\s+/\_/g; |
| # Replace all other weird characters by nothing | # Replace all other weird characters by nothing |
| $fname=~s/[^\w\.\-]//g; | $fname=~s/[^\w\.\-]//g; |
| # Replace all .\d. sequences with _\d. so they no longer look like version | |
| # numbers | |
| $fname=~s/\.(\d+)(?=\.)/_$1/g; | |
| return $fname; | return $fname; |
| } | } |