View on
MetaCPAN is shutting down
For details read Perl NOC. After June 25th this page will redirect to
Thorsten Schwander > TeX-AutoTeX > TeX::AutoTeX::PostScript



Annotate this POD


New  2
Open  0
View/Report Bugs
Module Version:   Source  


TeX::AutoTeX::PostScript - watermark PostScript files and related manipulations


Contains two methods that make changes to postscript files.


 AutoTeX automatic TeX processing system
 Copyright (c) 1994-2006 and contributors

 AutoTeX is supplied under the GNU Public License and comes
 with ABSOLUTELY NO WARRANTY; see COPYING for more details.

 AutoTeX is an automatic TeX processing system designed to
 process TeX/LaTeX/AMSTeX/etc source code of papers submitted
 to the (nee e-print archive. The
 portable part of this code has been extracted and is made
 available in the hope that it will be useful to other projects
 and that the input of others will benefit

 Code developed and contributed to by Tanmoy Bhattacharya, Rob
 Hartill, Mark Doyle, Thorsten Schwander, and Simeon Warner.
 Refactored to separate generic code from specific code
 by Stephen Marsh, Michael Fromerth, and Simeon Warner 2005/2006.

 Major cleanups and algorithmic improvements/corrections by
 Thorsten Schwander 2006 - 2011


fix_ps_title($file, $title, $log)

Changes the %%Title line (the first occurrence) in the given PostScript file if found within the first 6 lines. $log is a TeX::AutoTeX::Log object to log errors.

stamp_postscript($file, $stampref, $log)

Adds a stamp to the PostScript file, and if $stampref specifies a link target as its second element, makes the stamp an active hyperlink.

Input parameters:

  file name relative to cwd
$stampref = [$stamp, $link]
 $stamp string to add
 $link URL to link stamp to (if set, otherwise no link)
 this is an _optional_ TeX::AutoTeX::Log object to log errors:
 $log set   => usual $log->verbose() and $log->error()
 $log undef => no logging, returns error code else 0 for OK


The placement of the stamp assumes US letter size paper (11.5in tall) and makes assumptions about the average character width at the given size. These are expedients that work well most of the time. Obviously these would need to be modified for say e-book reader formats.

Please report bugs to www-admin


Thorsten Schwander for


Copyright (c) 2007 - 2011

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.

syntax highlighting: