mirror of
				https://github.com/pragma-/pbot.git
				synced 2025-10-31 06:37:35 +01:00 
			
		
		
		
	 3d97dc2c33
			
		
	
	
		3d97dc2c33
		
	
	
	
	
		
			
			"Applet" is a much better name for the external command-line scripts and programs that can be loaded as PBot commands. They will no longer be confused with Perl modules. https://en.wikipedia.org/wiki/Applet
		
			
				
	
	
		
			28 lines
		
	
	
		
			653 B
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			28 lines
		
	
	
		
			653 B
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
| #!/usr/bin/env perl
 | |
| 
 | |
| # SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
 | |
| # SPDX-License-Identifier: MIT
 | |
| 
 | |
| use warnings;
 | |
| use strict;
 | |
| 
 | |
| package ksh;
 | |
| use parent '_default';
 | |
| 
 | |
| sub initialize {
 | |
|   my ($self, %conf) = @_;
 | |
| 
 | |
|   $self->{sourcefile}      = 'prog.ksh';
 | |
|   $self->{execfile}        = 'prog.ksh';
 | |
|   $self->{default_options} = '';
 | |
|   $self->{cmdline}         = 'ksh $options $sourcefile';
 | |
| 
 | |
|   $self->{cmdline_opening_comment} = ": <<'____CMDLINE____'\n";
 | |
|   $self->{cmdline_closing_comment} = "____CMDLINE____\n";
 | |
| 
 | |
|   $self->{output_opening_comment} = ": << '____OUTPUT____'\n";
 | |
|   $self->{output_closing_comment} = "____OUTPUT____\n";
 | |
| }
 | |
| 
 | |
| 1;
 |