Help for this page

Select Code to Download


  1. or download this
    sgw sketch sgwpts1 format EMS,SGW1,%date%,%time%,%sgw-vpnname%,%sgw-vp
    +nid%,%sgw-servname%,%sgw-servid%
    sgw sketch sgwptsh format EMS,SGWh,%date%,%time%,%sgw-vpnname%,%sgw-vp
    +nid%,%sgw-servname%,%sgw-servid%
    sgw sketch sgwptsi format EMS,SGWi,%date%,%time%,%sgw-vpnname%,%sgw-vp
    +nid%,%sgw-servname%,%sgw-servid%
    sgw sketch, sgwptsH format, EMS,SGWH,%date%,%time%,%sgw-vpnname%,%sgw-
    +vpnid%,%sgw-servname%,%sgw-servid%
    sgw sketch sgwptsI format EMS,SGWI,%date%,%time%,%sgw-vpnname%,%sgw-vp
    +nid%,%sgw-servname%,%sgw-servid%
    
  2. or download this
        sub load_sketch {
        my ($sketch_file) = @_;
    ...
        return %all_sketches;
    }
    1;    # tells perl that the package is ready to run