← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/horae/jaunty

« back to all changes in this revision

Viewing changes to 0CPAN/Spreadsheet-WriteExcel-2.15/examples/bug_report.pl

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
0CPAN/Spreadsheet-WriteExcel-2.15/examples/bug_report.pl
1
 
#!/usr/bin/perl -w
2
 
 
3
 
 
4
 
###############################################################################
5
 
#
6
 
# A template for submitting a bug report.
7
 
#
8
 
# Run this program and read the output from the command line.
9
 
#
10
 
# reverse('�'), March 2004, John McNamara, jmcnamara@cpan.org
11
 
#
12
 
 
13
 
 
14
 
use strict;
15
 
 
16
 
print << 'HINTS_1';
17
 
 
18
 
REPORTING A BUG OR ASKING A QUESTION
19
 
 
20
 
    Feel free to report bugs or ask questions. However, to save time
21
 
    consider the following steps first:
22
 
 
23
 
    Read the documentation:
24
 
 
25
 
        The Spreadsheet::WriteExcel documentation has been refined in
26
 
        response to user questions. Therefore, if you have a question it is
27
 
        possible that someone else has asked it before you and that it is
28
 
        already addressed in the documentation. Since there is a lot of
29
 
        documentation to get through you should at least read the table of
30
 
        contents and search for keywords that you are interested in.
31
 
 
32
 
    Look at the example programs:
33
 
 
34
 
        There are over 40 example programs shipped with the standard
35
 
        Spreadsheet::WriteExcel distribution. Many of these were created in
36
 
        response to user questions. Try to identify an example program that
37
 
        corresponds to your query and adapt it to your needs.
38
 
 
39
 
HINTS_1
40
 
print "Press enter ..."; <STDIN>;
41
 
 
42
 
print << 'HINTS_2';
43
 
 
44
 
    If you submit a bug report here are some pointers.
45
 
 
46
 
    1.  Put "WriteExcel:" at the beginning of the subject line. This helps
47
 
        to filter genuine messages from spam.
48
 
 
49
 
    2.  Describe the problems as clearly and as concisely as possible.
50
 
 
51
 
    3.  Send a sample program. It is often easier to describe a problem in
52
 
        code than in written prose.
53
 
 
54
 
    4.  The sample program should be as small as possible to demonstrate the
55
 
        problem. Don't copy and past large sections of your program. The
56
 
        program should also be self contained and working.
57
 
 
58
 
    A sample bug report is generated below. If you use this format then it
59
 
    will help to analyse your question and respond to it more quickly.
60
 
 
61
 
    Please don't send patches without contacting the author first.
62
 
 
63
 
 
64
 
HINTS_2
65
 
print "Press enter ..."; <STDIN>;
66
 
 
67
 
 
68
 
print << 'EMAIL';
69
 
 
70
 
=======================================================================
71
 
 
72
 
To:      John McNamara <jmcnamara@cpan.org>
73
 
Subject: WriteExcel: Problem with something.
74
 
 
75
 
Hi John,
76
 
 
77
 
I am using Spreadsheet::WriteExcel and I have encountered a problem. I
78
 
want it to do SOMETHING but the module appears to do SOMETHING_ELSE.
79
 
 
80
 
Here is some code that demonstrates the problem.
81
 
 
82
 
    #!/usr/bin/perl -w
83
 
 
84
 
    use strict;
85
 
    use Spreadsheet::WriteExcel;
86
 
 
87
 
    my $workbook  = Spreadsheet::WriteExcel->new("reload.xls");
88
 
    my $worksheet = $workbook->add_worksheet();
89
 
 
90
 
    $worksheet->write(0, 0, "Hi Excel!");
91
 
 
92
 
    __END__
93
 
 
94
 
 
95
 
I tested using Excel XX (or Gnumeric or OpenOffice.org).
96
 
 
97
 
My automatically generated system details are as follows:
98
 
EMAIL
99
 
 
100
 
 
101
 
print "\n    Perl version   : $]";
102
 
print "\n    OS name        : $^O";
103
 
print "\n    Module versions: (not all are required)\n";
104
 
 
105
 
 
106
 
my @modules = qw(
107
 
                  Spreadsheet::WriteExcel
108
 
                  Parse::RecDescent
109
 
                  File::Temp
110
 
                  OLE::Storage_Lite
111
 
                  IO::Stringy
112
 
                );
113
 
 
114
 
 
115
 
for my $module (@modules) {
116
 
    my $version;
117
 
    eval "require $module";
118
 
 
119
 
    if (not $@) {
120
 
        $version = $module->VERSION;
121
 
        $version = '(unknown)' if not defined $version;
122
 
    }
123
 
    else {
124
 
        $version = '(not installed)';
125
 
    }
126
 
 
127
 
    printf "%21s%-24s\t%s\n", "", $module, $version;
128
 
}
129
 
 
130
 
 
131
 
print << "BYE";
132
 
Yours etc.,
133
 
 
134
 
A. Person
135
 
--
136
 
 
137
 
BYE
138
 
 
139
 
__END__