view release on metacpan or  search on metacpan

Makefile.old  view on Meta::CPAN

CCDLFLAGS =  
DLEXT = dll
DLSRC = dl_win32.xs
EXE_EXT = .exe
FULL_AR = 
LD = C:\Perl\site\bin\g++.exe
LDDLFLAGS = -mdll -L"C:\Perl\lib\CORE"
LDFLAGS = -L"C:\Perl\lib\CORE"
LIBC = msvcrt.lib
LIB_EXT = .a
OBJ_EXT = .o

 view release on metacpan or  search on metacpan

corpus/config-ok.pro  view on Meta::CPAN

!   * TEMPLATE_DRAWING          $PRO_DIRECTORY\templates\imw_a3_drawing.drw
!   * TEMPLATE_SHEETMETALPART   $PRO_DIRECTORY\templates\imw_mmns_part_sheetmetal.prt
!   * TOLERANCE_STANDARD        ISO
!   * WELD_UI_STANDARD          ISO
! * CHANGED
!   * BMGR_PREF_FILE                $PRO_DIRECTORY\text\graph.pro                  $PRO_DIRECTORY\imw_graph.pro
!   * COMP_ASSEMBLE_START           Constrain_in_window                            CONSTRAIN_IN_WINDOW
!   * DISPLAY                       HIDDENVIS                                      SHADE
!   * DRAWING_SETUP_FILE            $PRO_DIRECTORY\text\din.dtl                    $PRO_DIRECTORY\imw_din.dtl
!   * FILE_OPEN_DEFAULT_FOLDER      working_directory                              WORKING_DIRECTORY
!   * NCCHECK_TYPE                  nccheck                                        NCCHECK

corpus/config-ok.pro  view on Meta::CPAN

!   * SPIN_CONTROL              DRAG
!   * SYSTEM_EDGE_HIGH_COLOR    60 60 100
!   * TOL_MODE                  NOMINAL
! 2011-08-04 jl
!  - ADDED
!    - bmgr_pref_file $PRO_DIRECTORY\text\graph.pro   (Legt die Farbkomposition für Diagramme fest (z.B. Mechanismus))
!    - sketcher_lock_modified_dims yes                (Fixiert geänderte Bemaßungen)
!    - default_draw_scale 1                           (Standardmaßstab in Zeichnungen ist 1:1)
! 2011-03-24 jr
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 view release on metacpan or  search on metacpan

t/STL-outputStl.t  view on Meta::CPAN

    note "\n", $test_name;
    $ascii_string =~ s/\h+/ /gm;  # normalize horizontal whitespace
    $ascii_string =~ s/^\s+//gm;  # trim leading whitespace on any line
    $ascii_string =~ s/\s+$//gm;  # trim trailing whitespace on any line
    #note "-----\n", $ascii_string, "\n=====\n";
    $ascii_string =~ m/^solid *(?<name>\V*?)$(?<content>.*)^endsolid *\g{name}*$/ms;
    my $name = $+{name};
    #note "\t", name => "\t", $name;
    my $content = $+{content};
    #note "\t", content => "\t", $content;
    ok $content, "${test_name}: solid/endsolid has content";

 view release on metacpan or  search on metacpan

lib/CGI/Application/Framework.pm  view on Meta::CPAN

You will want the web application to be able to access the "example"
database as a non-root user, so you need to grant access to the
database.  Do the following

    # mysql
    Welcome to the MySQL monitor.  Commands end with ; or \g.
    Your MySQL connection id is 28 to server version: 4.0.21-log

    Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

    mysql> GRANT ALL PRIVILEGES ON example.* TO

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

       ~/dev/MyApp1$ export CONFIG_FILE=/home/gordon/dev/MyApp1/config/config-dev.pl

    On windows you could use something like:

        C:\Users\gordon\dev\MyApp1: set CONFIG_FILE=C:\Users\gordon\dev\MyApp1\config\config-dev.pl

    Run the server:

        ~/dev/MyApp1$ perl server.pl 
        access your default runmode at /cgi-bin/index.cgi

 view release on metacpan or  search on metacpan

Authent.pm  view on Meta::CPAN

If you want to restrict the access to a group of users you may
check whether the script as it runs has enough permissions
to access a file and then restrict the access to this file.

    use CGI::Authent {test => 'CGI::Authent::can_read "c:\\inetpub\\group1.lck"'}

=head2 Ussage

    use CGI::Authent;
     Use the default options as set in CGI/Authent.config.pl.

Authent.pm  view on Meta::CPAN

  just 403 Forbiden response!


You may of course combine several tests :

 test => 'CGI::Authent::can_read "c:\\inetpub\\group1.lck" and CGIAuthent::between '8:00-17:00'
          or
          CGI::Authent::can_read "c:\\inetpub\\group2.lck" and CGI::Authent::between '17:00-8:00'
         '

=head2 Other functions

 CGI::Authent::forbide [$message]

 view release on metacpan or  search on metacpan

t/01-ids.t  view on Meta::CPAN

                    d=alert
                    d(",
        6  => "1
                    alert(1)",
        7  => "crypto [ [ 'aler' , 't' ] [ 'join' ] ( [] ) ] (1) ",
        8  => '<div/style=\-\mo\z\-b\i'."\n".'d\in\g:\url(//business\i'."\n".'fo.co.uk\/labs\/xbl\/xbl\.xml\#xss)>',
        9  => "_content/alert(1)",
        10  => "RegExp(/a/,alert(1))",
        11  => "x=[/&/,alert,/&/][1],x(1)",
        12  => "[1,alert,1][1](1)",
        13  => "throw alert(1)",