inherit PAPER_OBJ; string file_name; /** @ignore yes */ void create() { seteuid(getuid()); ::create(); } /* create() */ void set_file_name(string fname) { file_name = fname; } /* set_file_name() */ string query_file_name() { return file_name; } /* query_file_name() */ /** @ignore yes */ mixed query_read_mess() { mixed stuff; string str; stuff = ({ }); if( file_name ) { str = unguarded( (: NROFF_H->cat_file( file_name+"_nroff", 1 ) :) ); if( !str ) { unguarded( (: NROFF_H->create_nroff( file_name, file_name+"_nroff") :) ); str = unguarded( (: NROFF_H->cat_file( file_name+"_nroff", 1 ) :) ); } if( str ) { stuff = ({ ({ str, 0, "common", 0 }) }); } else { stuff = ({ ({"Unable to nroff file.\n", 0, "common", 0 }) }); } } return ::query_read_mess() + stuff; } /* query_read_mess() */