Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

comment on

( [id://3333]=superdoc: print w/replies, xml ) Need Help??
#!/usr/bin/perl # $Id: mkcopyright,v 1.2 2000/05/11 16:34:02 kayos Exp $ my $cols = 70; my $writer = "Virtual Focus, Inc."; my $licensee = $ARGV[0] || "the licensee"; my $date = (localtime)[5] + 1900; my $c = "#"; my $body; # policies my $allow_modification = 1; # implemented my $warranty = 0; # implemented my $responsible_for_damage = 0; # implemented my $client_can_resell = 0; # implemented my $indefinite_licensing = 1; my $limited_time_licensing = 0; #-------------------------------------------------------------- my $tmpbody = '<' x ($cols - 5); eval(qq{ format STDOUT = \@ ^$tmpbody \@ \$c,\$body,\$c . }); sub print_divider { print $c x $cols,"\n"; } sub print_body { $body = join(' ',@_); $body =~ s/\s+/ /gs; $body =~ s/^\s+//g; $body =~ s/\.+/./g; $body ||= " "; while($body) { write; } } #-------------------------------------------------------------- print_divider(); print_body("This program Copyright $date $writer"); print_body(qq{ Program originally Copyrighted by $writer, now licensed for use to $licensee }); print_divider(); print_body(" COPYRIGHT NOTICE:"); print_body("Copyright $date $writer. All Rights Reserved."); print_body(); print_body(); # do we warranty that the program does a particular function? if(! $warranty) { print_body(qq{ The program is provided "as is" without warranty of an +y kind, either express or implied, including, but not li +mited to warranties of merchantability or fitness for a particular purpose. }); print_body(); } # do we accept responsibility if "bad things" happen? if(! $responsible_for_damage) { print_body(qq{ In no event will $writer be liable to $licensee for an +y damages, including incidental or consequential damages +, arising out of the use of the program, even if advised + of the possibility of such damages. By licensing this cod +e, $licensee is now legally responsible for this copy of +the program, and further agrees to indemnify $writer from +any liability that might arise from its use. }); print_body(); } if( $allow_modification ) { print_body(qq{ This script may modified free of charge by $licensee. Any changes made to this program by $licensee will not + be the responsibility of $writer. }); print_body(); } if(! $client_can_resell) { print_body(qq{ Selling the code for this program without prior writte +n consent is expressly forbidden. }); print_body(); } print_body(qq{ $temp1 $writer is still the owner of this program but grants indefinite licensing use permission to $licensee. }); print_body(); print_body(qq{ You acknowledge that you have read the license, understand it and agree to be bound by its terms as the complete and exclusi +ve statement of the agreement between us, superseding any proposa +l or prior agreement, oral or written, and any other communicati +ons between us relating to the subject matter of this license. }); print_body(); print_divider();

In reply to Copyright Writer by kayos

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (6)
As of 2024-03-29 13:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found