Change MozEmbed subcommand communications.
[techtalk-pse.git] / techtalk-pse.pl
1 #!/usr/bin/perl -w
2 # -*- perl -*-
3 # @configure_input@
4 #
5 # Tech Talk PSE
6 # Copyright (C) 2010 Red Hat Inc.
7 #
8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 2 of the License, or
11 # (at your option) any later version.
12 #
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 # GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21
22 use warnings;
23 use strict;
24 use utf8;
25
26 use POSIX qw(setsid);
27 use Pod::Usage;
28 use Getopt::Long;
29 use Cwd qw(getcwd abs_path);
30 use Glib qw(TRUE FALSE);
31 use Gtk2 -init;
32 use Gtk2::MozEmbed;
33
34 =encoding utf8
35
36 =head1 NAME
37
38 techtalk-pse - superior technical demonstration software
39
40 =head1 SYNOPSIS
41
42  cd /path/to/talk/; techtalk-pse
43
44  techtalk-pse /path/to/talk/
45
46 =head1 DESCRIPTION
47
48 Tech Talk "Platinum Supreme Edition" (PSE) is Linux Presentation
49 Software designed by technical people to give technical software
50 demonstrations to other technical people.  It is designed to be simple
51 to use (for people who know how to use an editor and the command line)
52 and powerful, so that you can create informative, technically accurate
53 and entertaining talks and demonstrations.
54
55 Tech Talk PSE is good at opening editors at the right place, opening
56 shell prompts with preloaded history, compiling and running things
57 during the demonstration, displaying text, photos, figures and video.
58
59 Tech Talk PSE is I<bad> at slide effects, chart junk and bullet
60 points.
61
62 This manual page covers all the documentation you will need to use
63 Tech Talk PSE.  The next section covers running the tool from the
64 command line.  After that there is a L</TUTORIAL> section to get you
65 started.  Then there is a detailed L</REFERENCE> section.  Finally
66 there is a discussion on L<WHAT MAKES A GOOD TALK>.
67
68 =head1 RUNNING THE TOOL FROM THE COMMAND LINE
69
70 A Tech Talk PSE talk is not a single file, but a directory full of
71 files.  (If you want to start a new talk, see the L</TUTORIAL> section
72 below).  To display or run the talk, change into the directory
73 containing all those files and run the C<techtalk-pse> command:
74
75  cd /path/to/talk/; techtalk-pse
76
77 You can also run C<techtalk-pse> without changing directory, instead
78 specifying the path to the talk:
79
80  techtalk-pse /path/to/talk/
81
82 =head2 OPTIONS
83
84 =over 4
85
86 =cut
87
88 my $help;
89
90 =item B<--help>
91
92 Display brief help and exit.
93
94 =cut
95
96 my $last;
97
98 =item B<--last>
99
100 Start at the last slide.
101
102 You cannot use this with the B<-n> / B<--start> option.
103
104 =cut
105
106 my $start;
107
108 =item B<-n SLIDE> | B<--start SLIDE>
109
110 Start at the named slide.  I<SLIDE> is the shortest unique prefix of
111 the slide name, so to start at a slide named
112 I<00010-introduction.html>, you could use I<-n 00010> or I<-n 00010-intro>,
113 or give the full filename I<-n 00010-introduction.html>.
114
115 The default is to start at the first slide in the talk.
116
117 =cut
118
119 my $splash = 1;
120
121 =item B<--no-splash>
122
123 Don't display the initial "splash" screen which advertises Tech Talk
124 PSE to your audience.  Just go straight into the talk.
125
126 =cut
127
128 my $verbose;
129
130 =item B<--verbose>
131
132 Display verbose messages, useful for debugging or tracing
133 what the program is doing.
134
135 =cut
136
137 my $version;
138
139 =item B<--version>
140
141 Display version number and exit.
142
143 =cut
144
145 my $mozembed;
146 my $mozembed_first;
147 my $mozembed_last;
148
149 GetOptions ("help|?" => \$help,
150             "last" => \$last,
151             "mozembed" => \$mozembed,
152             "mozembed-first" => \$mozembed_first,
153             "mozembed-last" => \$mozembed_last,
154             "n=s" => \$start,
155             "splash!" => \$splash,
156             "start=s" => \$start,
157             "verbose" => \$verbose,
158             "version" => \$version,
159     ) or pod2usage (2);
160
161 =back
162
163 =cut
164
165 pod2usage (1) if $help;
166 if ($version) {
167     print "@PACKAGE@ @VERSION@\n";
168     exit
169 }
170 die "techtalk-pse: cannot use --start and --last options together\n"
171     if defined $last && defined $start;
172
173 # Run with --mozembed: see below.
174 run_mozembed () if $mozembed;
175
176 # Normal run of the program.
177 die "techtalk-pse: too many arguments\n" if @ARGV >= 2;
178
179 # Get the true name of the program.
180 $0 = abs_path ($0);
181
182 # Locate the talk.
183 if (@ARGV > 0) {
184     my $d = $ARGV[0];
185     if (-d $d) {
186         chdir $d or die "techtalk-pse: chdir: $d: $!";
187     } else {
188         # XXX In future allow people to specify an archive and unpack
189         # it for them.
190         die "techtalk-pse: argument is not a directory"
191     }
192 }
193
194 # Get the talk directory and set environment variable $talkdir
195 # which is inherited by all the scripts.
196 my $talkdir = getcwd;
197 $ENV{talkdir} = $talkdir;
198
199 # Get the files.
200 my @files;
201 my %files;
202 sub reread_directory
203 {
204     @files = ();
205
206     my $i = 0;
207     foreach (glob ("*")) {
208         if (/^(\d+)(?:-.*)\.(html|sh)$/) {
209             print STDERR "reading $_\n" if $verbose;
210
211             my $seq = $1;
212             my $ext = $2;
213             warn "techtalk-pse: $_: command file is not executable (+x)\n"
214                 if $ext eq "sh" && ! -x $_;
215
216             my $h = { name => $_, seq => $1, ext => $2, i => $i };
217             push @files, $h;
218             $files{$_} = $h;
219             $i++;
220         } else {
221             print STDERR "ignoring $_\n" if $verbose;
222         }
223     }
224
225     if (@files > 0) {
226         $files[0]->{first} = 1;
227         $files[$#files]->{last} = 1;
228     }
229 }
230 reread_directory ();
231 print STDERR "read ", 0+@files, " files\n" if $verbose;
232 if (@files == 0) {
233     warn "techtalk-pse: no files found, continuing anyway ...\n"
234 }
235
236 # Work out what slide we're starting on.
237 my $current;
238 if (defined $current) {
239     die "start slide not implemented yet XXX"
240 }
241 elsif (@files) {
242     $current = $files[0];
243 }
244 # else $current is undefined
245
246 if ($splash) {
247     my $w = Gtk2::AboutDialog->new;
248     $w->set_authors ("Richard W.M. Jones");
249     $w->set_comments (
250         "Superior technical demonstration software\n"
251         );
252     $w->set_program_name ("Tech Talk Platinum Supreme Edition (PSE)");
253     $w->set_version ("@VERSION@");
254     $w->set_website ("http://people.redhat.com/~rjones");
255     $w->set_license ("GNU General Public License v2 or above");
256     $w->run;
257     print STDERR "calling \$w->destroy on about dialog\n" if $verbose;
258     $w->destroy;
259
260     # The dialog doesn't really get destroyed here.  We have
261     # to add this hack to really destroy it.
262     Glib::Idle->add (sub { Gtk2->main_quit; return FALSE; });
263     Gtk2->main;
264 }
265
266 MAIN: while (1) {
267     if (defined $current) {
268         my $go = show_slide ($current);
269         if (defined $go) {
270             print STDERR "go = $go\n" if $verbose;
271             last MAIN if $go eq "QUIT";
272
273             my $i = $current->{i};
274             print STDERR "i = $i\n" if $verbose;
275             $i-- if $go eq "PREV" && $i > 0;
276             $i++ if $go eq "NEXT" && $i+1 < @files;
277             $current = $files[$i];
278         }
279     } else {
280         print "No slides found.  Press any key to reload directory ...\n";
281         $_ = <STDIN>;
282     }
283
284     # Reread directory between slides.
285     reread_directory ();
286
287     if (defined $current && !exists $files{$current->{name}}) {
288         # Current slide was deleted.
289         undef $current;
290         $current = $files[0] if @files;
291     }
292 }
293
294 sub show_slide
295 {
296     my $slide = shift;
297
298     # Display an HTML page.
299     if ($slide->{ext} eq "html") {
300         # MozEmbed is incredibly crashy, so we run ourself as a
301         # subprocess, so when it segfaults we don't care.  If all goes
302         # well and it doesn't crash, it should print a line 'RESULT FOO'
303         # where 'FOO' is the instruction (eg. 'NEXT', 'PREV', 'QUIT' etc).
304         my @cmd = ($0, "--mozembed");
305         push @cmd, "--mozembed-first" if exists $slide->{first};
306         push @cmd, "--mozembed-last" if exists $slide->{last};
307         my $url = "file://$talkdir/" . $slide->{name};
308         push @cmd, $url;
309         print STDERR "running subcommand: ", join (" ", @cmd), "\n"
310             if $verbose;
311         open CMD, "-|", @cmd
312             or die "failed to execute subcommand: ", join(" ", @cmd), ": $!\n";
313         my $r;
314         while (<CMD>) {
315             if (/^RESULT ([A-Z]+.*)/) {
316                 $r = $1;
317                 print STDERR "subcommand result: $r\n" if $verbose;
318                 last;
319             }
320         }
321         # No RESULT line?  Subcommand probably segfaulted, just
322         # continue to next slide.
323         $r ||= "NEXT";
324         return $r;
325     }
326     # Run a shell command.
327     elsif ($slide->{ext} eq "sh") {
328         my $pid;
329         # http://docstore.mik.ua/orelly/perl/cookbook/ch10_17.htm
330         local *run_process = sub {
331             $pid = fork ();
332             die "fork: $!" unless defined $pid;
333             unless ($pid) {
334                 # Child.
335                 POSIX::setsid ();
336                 exec ("./".$slide->{name});
337                 die "failed to execute command: ", $slide->{name}, ": $!";
338             }
339             # Parent returns.
340         };
341         local *kill_process = sub {
342             print STDERR "sending TERM signal to process group $pid\n"
343                 if $verbose;
344             kill "TERM", -$pid;
345         };
346         run_process ();
347
348         my $r = "NEXT";
349
350         my $w = Gtk2::Window->new ();
351
352         my $s = $w->get_screen;
353         $w->set_default_size ($s->get_width, -1);
354         $w->move (0, 0);
355         $w->set_decorated (0);
356
357         my $bbox = Gtk2::HButtonBox->new ();
358         $bbox->set_layout ('start');
359
360         my $bnext = Gtk2::Button->new ("Next slide");
361         $bnext->signal_connect (clicked => sub { $r = "NEXT"; $w->destroy });
362         $bnext->set_sensitive (!(exists $slide->{last}));
363         $bbox->add ($bnext);
364
365         my $bback = Gtk2::Button->new ("Back");
366         $bback->signal_connect (clicked => sub { $r = "PREV"; $w->destroy });
367         $bback->set_sensitive (!(exists $slide->{first}));
368         $bbox->add ($bback);
369
370         my $brestart = Gtk2::Button->new ("Kill & restart");
371         $brestart->signal_connect (clicked => sub {
372             kill_process ();
373             run_process ();
374         });
375         $bbox->add ($brestart);
376
377         my $bquit = Gtk2::Button->new ("Quit");
378         $bquit->signal_connect (clicked => sub { $r = "QUIT"; $w->destroy });
379         $bbox->add ($bquit);
380         $bbox->set_child_secondary ($bquit, 1);
381
382         $w->add ($bbox);
383
384         $w->signal_connect (destroy => sub {
385             Gtk2->main_quit;
386             return FALSE;
387         });
388         $w->show_all ();
389
390         Gtk2->main;
391
392         kill_process ();
393         print STDERR "returning r=$r\n" if $verbose;
394         return $r;
395     }
396 }
397
398 # If invoked with the --mozembed parameter then we just display a
399 # single page.  This is just to prevent crashes in MozEmbed from
400 # killing the whole program.
401 sub run_mozembed
402 {
403     my $w = Gtk2::Window->new ();
404     my $vbox = Gtk2::VBox->new ();
405     my $moz = Gtk2::MozEmbed->new ();
406
407     my $bbox = Gtk2::HButtonBox->new ();
408     $bbox->set_layout ('start');
409
410     $vbox->pack_start ($bbox, 0, 0, 0);
411     $vbox->add ($moz);
412     $w->fullscreen ();
413     #$w->set_default_size (640, 480);
414     $w->add ($vbox);
415
416     my $bnext = Gtk2::Button->new ("Next slide");
417     $bnext->signal_connect (clicked =>
418                             sub { print "RESULT NEXT\n"; $w->destroy });
419     $bnext->set_sensitive (!$mozembed_last);
420     $bbox->add ($bnext);
421
422     my $bback = Gtk2::Button->new ("Back");
423     $bback->signal_connect (clicked =>
424                             sub { print "RESULT PREV\n"; $w->destroy });
425     $bback->set_sensitive (!$mozembed_first);
426     $bbox->add ($bback);
427
428     my $bquit = Gtk2::Button->new ("Quit");
429     $bquit->signal_connect (clicked =>
430                             sub { print "RESULT QUIT\n"; $w->destroy });
431     $bbox->add ($bquit);
432     $bbox->set_child_secondary ($bquit, 1);
433
434     $w->signal_connect (destroy => sub {
435         Gtk2->main_quit;
436         return FALSE;
437     });
438     $w->show_all ();
439
440     $moz->load_url ($ARGV[0]);
441     Gtk2->main;
442
443     exit 0;
444 }
445
446 1;
447
448 =head1 TUTORIAL
449
450 =head2 START WRITING A TALK
451
452 [Before you start writing your real talk, I urge you to read
453 L</WHAT MAKES A GOOD TALK> below].
454
455 To start your talk, all you have to do is to make a new directory
456 somewhere:
457
458  mkdir talk
459  cd talk
460
461 A tech talk consists of HTML files ("slides") and shell scripts.  The
462 filenames must start with a number, followed optionally by a
463 description, followed by the extension (C<.html> or C<.sh>).  So to
464 start our talk with two slides:
465
466  echo "This is the introduction" > 0010-introduction.html
467  echo "This is the second slide" > 0020-second.html
468
469 To run it, run the command from within the talk directory:
470
471  techtalk-pse
472
473 Any other file in the directory is ignored, so if you want to add
474 Makefiles, version control files etc, just go ahead.
475
476 =head2 TIPS FOR WRITING HTML
477
478 You may have your own techniques and tools for writing HTML, so
479 this section is just to share my ideas.  I start every
480 HTML file with a standard stylesheet and Javascript header:
481
482  <link rel="stylesheet" href="style.css" type="text/css"/>
483  <script src="code.js" type="text/javascript"></script>
484
485 That just ensures that I can put common styling instructions for all
486 my slides in a single file (C<style.css>), and I have one place where
487 I can add all Javascript, if I need to use any (C<code.js>).
488
489 =head3 BACKGROUNDS, FONTS AND LOGOS
490
491 To add a common background and font size to all slides, put this in
492 C<style.css>:
493
494  body {
495      font-size: 24pt;
496      background: url(background-image.jpg) no-repeat;
497  }
498
499 To add a logo in one corner:
500
501  body {
502      background: url(logo.jpg) top right no-repeat;
503  }
504
505 =head3 SCALING AND CENTERING
506
507 Scaling slide text and images so that they appear at the same
508 proportionate size for any screen resolution can be done using
509 Javascript.  (See
510 L<https://developer.mozilla.org/En/DOM/window.innerHeight>).
511
512 If you want to center text horizontally, use CSS, eg:
513
514  p.center {
515      text-align: center;
516  }
517
518 To center text vertically, CSS3 is supposed to offer a solution some
519 time, but while you're waiting for that try
520 L<http://www.w3.org/Style/Examples/007/center#vertical>.
521
522 =head3 PREVIEWING HTML
523
524 I find it helpful to have Firefox open to display the HTML files and
525 styles as I edit them.  Just start firefox in the talk directory:
526
527  firefox file://$(pwd) &
528
529 When you edit an HTML file, click the Firefox reload button to
530 immediately see your changes.
531
532 Tech Talk PSE uses Mozilla embedding to display HTML, which uses the
533 same Mozilla engine as Firefox, so what you should see in Firefox
534 should be identical to what Tech Talk PSE displays.
535
536 =head2 CREATING FIGURES
537
538 Use your favorite tool to draw the figure, convert it to an image (in
539 any format that the Mozilla engine can display) and include it using
540 an C<E<lt>imgE<gt>> tag, eg:
541
542  <img src="fig1.gif">
543
544 Suitable tools include: XFig, GnuPlot, GraphViz, and many TeX tools
545 such as PicTex and in particular TikZ.
546
547 =head2 EMBEDDING VIDEOS, ANIMATIONS, ETC.
548
549 Using HTML 5, embedding videos in the browser is easy.  See:
550 L<https://developer.mozilla.org/En/Using_audio_and_video_in_Firefox>
551
552 For animations, you could try L<Haxe|http://haxe.org/> which has a
553 Javascript back-end.  There are many other possibilities.
554
555 If you are B<sure> that the venue will have an internet connection,
556 why not embed a YouTube video.
557
558 =head2 DISPLAYING EXISTING WEB PAGES
559
560 Obviously you could just have an HTML file that contains a redirect to
561 the public web page:
562
563  <meta http-equiv="Refresh" content="0; url=http://www.example.com/">
564
565 However if you want your talk to work offline, then it's better to
566 download the web page in advance, eg. using Firefox's "Save Page As
567 -E<gt> Web Page, complete" feature, into the talk directory, then
568 either rename or make a symbolic link to the slide name:
569
570  ln -s "haXe - Welcome to haXe.html" 0010-haxe-homepage.html
571
572 =head2 TIPS FOR WRITING SHELL SCRIPTS
573
574 Make sure each C<*.sh> file you write is executable, otherwise Tech
575 Talk PSE won't be able to run it.  (The program gives a warning if you
576 forget this).
577
578 A good idea is to start each script by sourcing some common functions.
579 All my scripts start with:
580
581  #!/bin/bash -
582  source functions
583
584 where C<functions> is another file (ignored by Tech Talk PSE) which
585 contains common functions for setting shell history and starting a
586 terminal.
587
588 In C<functions>, I have:
589
590  # -*- shell-script -*-
591  
592  # Place any local environment variables required in 'local'.
593  if [ -f local ]; then source local; fi
594  
595  export PS1="$ "
596  
597  export HISTFILE=$talkdir/history
598  
599  rm -f $HISTFILE
600  touch $HISTFILE
601  
602  add_history ()
603  {
604      echo "$@" >> $HISTFILE
605  }
606  
607  terminal ()
608  {
609      # Make $HISTFILE unwritable so the shell won't update it
610      # when it exits.
611      chmod -w $HISTFILE
612  
613      # Run gnome-terminal.
614      exec \
615          gnome-terminal \
616          --window \
617          --geometry=+100+100 \
618          --hide-menubar \
619          --disable-factory \
620          -e '/bin/bash --norc' \
621          "$@"
622  }
623
624 By initializing the shell history, during your talk you can rapidly
625 recall commands to start parts of the demonstration just by hitting
626 the Up arrow.  A complete shell script from one of my talks would look
627 like this:
628
629  #!/bin/bash -
630  source functions
631  add_history guestfish -i debian.img
632  terminal --title="Examining a Debian guest image in guestfish"
633
634 This is just a starting point for your own scripts.  You may want to
635 use a different terminal, such as xterm, and you may want to adjust
636 terminal fonts.
637
638 =head1 REFERENCE
639
640 =head2 ORDER OF FILES
641
642 Tech Talk PSE displays the slides in the directory in lexicographic
643 order (the same order as C<LANG=C ls -1>).  Only files matching the
644 following regexp are considered:
645
646  ^(\d+)(?:-.*)\.(html|sh)$
647
648 For future compatibility, you should ensure that every slide has a
649 unique numeric part (ie. I<don't> have C<0010-aaa.html> and
650 C<0010-bbb.html>).  This is because in future we want to have the
651 ability to display multiple files side by side.
652
653 Also for future compatibility, I<don't> use file names that have an
654 uppercase letter immediately after the numeric part.  This is because
655 in future we want to allow placement hints using filenames like
656 C<0010L-on-the-left.html> and C<0010R-on-the-right.html>.
657
658 =head2 BASE URL AND CURRENT DIRECTORY
659
660 The base URL is set to the be the directory containing the talk files.
661 Thus you should use relative paths, eg:
662
663  <img src="fig1.gif">
664
665 You can also place assets into subdirectories, because subdirectories
666 are ignored by Tech Talk PSE, eg:
667
668  <img src="images/fig1.gif">
669
670 When running shell scripts, the current directory is also set to be
671 the directory containing the talk files, so the same rules about using
672 relative paths apply there too.
673
674 The environment variable C<$talkdir> is exported to scripts and it
675 contains the absolute path of the directory containing the talk files.
676 When a script is run, the current directory is the same as
677 C<$talkdir>, but if your script changes directory (eg. into a
678 subdirectory containing supporting files) then it can be useful to use
679 C<$talkdir> to refer back to the original directory.
680
681 =head1 WHAT MAKES A GOOD TALK
682
683 I like what Edward Tufte writes, for example his evisceration of
684 PowerPoint use at NASA here:
685 L<http://www.edwardtufte.com/bboard/q-and-a-fetch-msg?msg_id=0001yB>
686
687 However it is sometimes hard to translate his ideas into clear
688 presentations, and not all of that is the fault of the tools.  Here
689 are my thoughts and rules on how to deliver a good talk.
690
691 B<First, most important rule:> Before you start drawing any slides at
692 all, write your talk as a short essay.
693
694 This is the number one mistake that presenters make, and it is partly
695 a tool fault, because PowerPoint, OpenOffice, even Tech Talk PSE, all
696 open up on an initial blank slide, inviting you to write a title and
697 some bullet points.  If you start that way, you will end up using the
698 program as a kind of clumsy outlining tool, and then reading that
699 outline to your audience.  That's boring and a waste of time for you
700 and your audience.  (It would be quicker for them just to download the
701 talk and read it at home).
702
703 B<Secondly:> How long do you want to spend preparing the talk?  A good
704 talk, with a sound essay behind it, well thought out diagrams and
705 figures, and interesting demonstrations, takes many hours to prepare.
706 How many hours?  I would suggest thinking about how many hours of
707 effort your audience are putting in.  Even just 20 people sitting
708 there for half an hour is 10 man-hours of attention, and that is a
709 very small talk, and doesn't include all the extra time and hassle
710 that it took to get them all in one place.
711
712 I don't think you can get away with spending less than two full days
713 preparing a talk, if you want to master the topic and draw up accurate
714 slides.  Steve Jobs is reputed to spend weeks preparing his annual
715 sales talk to the Apple faithful.
716
717 B<Thirdly:> Now that you're going to write your talk as an essay, what
718 should go in the slides?  I would say that you should consider
719 delivering the essay, I<not> the slides, to people who don't make the
720 talk.  An essay can be turned into an article or blog posting, whereas
721 even "read-out-the-bullet-point" slides have a low information
722 density, large size, and end-user compatibility problems (*.pptx
723 anyone?).
724
725 What, then, goes on the slides?  Anything you cannot just say:
726 diagrams, graphs, videos, animations, and of course (only with Tech
727 Talk PSE!) demonstrations.
728
729 B<Lastly:> Once you've got your talk as an essay and slides, practice,
730 practice and practice again.  Deliver the talk to yourself in the
731 mirror, to your colleagues.  Practice going backwards and forwards
732 through the slides, using your actual laptop and the software so you
733 know what to click and what keys to press.  Partly memorize what you
734 are going to say (but use short notes written on paper if you need
735 to).
736
737 =head1 SEE ALSO
738
739 The Cognitive Style of PowerPoint, Tufte, Edward R.
740
741 =head1 AUTHOR
742
743 Richard W.M. Jones L<http://people.redhat.com/~rjones/>
744
745 =head1 COPYRIGHT
746
747 Copyright (C) 2010 Red Hat Inc.
748
749 This program is free software; you can redistribute it and/or modify
750 it under the terms of the GNU General Public License as published by
751 the Free Software Foundation; either version 2 of the License, or
752 (at your option) any later version.
753
754 This program is distributed in the hope that it will be useful,
755 but WITHOUT ANY WARRANTY; without even the implied warranty of
756 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
757 GNU General Public License for more details.
758
759 You should have received a copy of the GNU General Public License
760 along with this program; if not, write to the Free Software
761 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.