diff options
| author | Matteo Pasotti <matteo@mageia.org> | 2013-01-07 19:01:53 +0000 |
|---|---|---|
| committer | Matteo Pasotti <matteo@mageia.org> | 2013-01-07 19:01:53 +0000 |
| commit | e822b14bab0e0d759c4647c725f94d362e984dbb (patch) | |
| tree | d16d331869da0630089261809dd6c738a4c1a4be /AdminPanel | |
| parent | b64480f0522d5221a75acbef91f99886242b8590 (diff) | |
| download | manatools-e822b14bab0e0d759c4647c725f94d362e984dbb.tar manatools-e822b14bab0e0d759c4647c725f94d362e984dbb.tar.gz manatools-e822b14bab0e0d759c4647c725f94d362e984dbb.tar.bz2 manatools-e822b14bab0e0d759c4647c725f94d362e984dbb.tar.xz manatools-e822b14bab0e0d759c4647c725f94d362e984dbb.zip | |
added trim subroutine
Diffstat (limited to 'AdminPanel')
| -rw-r--r-- | AdminPanel/Shared.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/AdminPanel/Shared.pm b/AdminPanel/Shared.pm index 503a0782..dce5061e 100644 --- a/AdminPanel/Shared.pm +++ b/AdminPanel/Shared.pm @@ -29,7 +29,8 @@ our @EXPORT = qw(warningMsgBox msgBox infoMsgBox ask_YesOrNo - ask_OkCancel); + ask_OkCancel + trim); sub warningMsgBox { my ($st) = @_; @@ -141,6 +142,13 @@ sub ask_YesOrNo { return $retVal; } +sub trim { + my ($st) = shift; + $st =~s /^\s+//g; + $st =~s /\s+$//g; + return $st; +} + 1; =head1 NAME |