Changeset 26

Timestamp:

04/19/07 10:40:20 (2 years ago)

Author:

root

Message:

Improve perl code (LINworks GmbH)

Files:

• trunk/op_server.pl (modified) (3 diffs)

trunk/op_server.pl

@@ -644 +644 @@
-
-    if ( $tipo eq "buttons" ) {
-inArray( $filename, @btninclude )
+ grep {$filename eq $_} @btninclude
-            push( @btninclude, $filename );
-        }
@@ -653 +653 @@
-    }
-    if ( $tipo eq "style" ) {
-inArray( $filename, @styleinclude )
+ grep {$filename eq $_} @styleinclude
-            push( @styleinclude, $filename );
-        }
@@ -9003 +9003 @@
-}
-
-sub inArray {
-    my $val = shift;
-    for my $elem (@_) {
-        if ( $val eq $elem ) {
-            return 1;
-        }
-    }
-    return 0;
-}
-
-sub encode_base64 {
-    my $res = "";