cd2iso/0040755000000000000000000000000007676115322010754 5ustar rootrootcd2iso/images/0040755000000000000000000000000007676077464012237 5ustar rootrootcd2iso/images/icon.gif0100744000000000000000000000437707676077464013667 0ustar rootrootGIF89a00fff^fƾrrrپo~ސNNNš>քjjjšΦ=:.꺊rvήchʿҾ~–|–ᾢv~ꆂ"""¾޲jnŠ¾pξvr ښ޾>>>...–RRR֤Ҿޣʺzy}֚¶͑ƨF22w©Ƃnv։pƾ꾎tꮦζœ־¾‚ZZZҔº<6.ڕsޞFFFʾ zzњ¢668ʺڋɖ~ɞ’꾊vھʊ¾vǾorŠΊɚ^^^򾔦ֈJJJxҁzv~:::222Ƒꦦ’֌zΆޒˆֺƞv‚!,00 H*4X`Ç ,GEو8v|hjқp3>lťK V?d%% %r*b*`@7x67Z9jA RSV;:@ clM:ŽW@`jE77(byIKv,0췿>Z6.')~xHfziK-dVh I78,@>,l)_nk \[@=ya"C*" Ց_ E$tn"kUgr X0 :0@M(@ [.|wH=4*^r dC aaQ:L0XxPUXb2 !91R8lbׄ2H5u;`Ηv 'L%!90[xa*OF9c,D<'XMS\`HrJr U(GXI܃ &D#LiPU)tFwXHKHX Beiġ.?]#"U\@]C&ZA* TSgģ  2m ~0JH B4c8?eȬ" #."("gKYLT\ 䡍#>B@U/|" P00A(*g@' L L!hA?aN&Ҋ2$j6s+H A5w"8@-0IPk #Bwwd3R]-8c H0g$>Mj= ;2k&d,E@8l,uN+YO-81# "8 )y ,/tRGz,+,x3g,L2 S3L(눫>MBJQ&8  "0a,E_# ψE Z``4#@XbD !?\bXB+pQ \S  n}/lH$(N-|"H`jԃ0AJq-laGc%` NPA "!By0bA0|\x!oh XBB Q"bD@@ʑ"P5GThDP``0!$8)JCQ$QTc`!8 m {B#J@J1T 01XAcp $Ȁ)D<X1mP<&  'A,<|RGm> J} T:)1&Na=IC*DdB:5>$'6NQ@ǟ I)pR}6(2QS HJ|?e OP 2 Pէ DDtjZ Rԫ՟IHB4 Pß'LT UjQgEV Y}E\&KZlB;cd2iso/module.info0100744000000000000000000000013007676054334013113 0ustar rootrootname=CD2iso desc=Create ISO images from CD's os_support=*-linux depends= category=Otherscd2iso/index.cgi0100744000000000000000000000665007676101257012556 0ustar rootroot#!/usr/bin/perl $| = 1; #Unbuffered output require './CD2iso-lib.pl'; &header($text{'title'}, "", "intro", 1); print '
'; # Check out configuration vars &error_setup("Configuration"); if (length($config{'iso_path'}) < 3) { &error("ISO Path is too short (" . $config{'iso_path'} . ")") }; if ($config{'cd_dev'} =~ "^//dev//") { &error('CD Dev does not start with /dev/ (' . $config{'cd_dev'} .")") }; &ReadParse(); # Puts form data into %in unless (-d $config{'iso_path'}) { if ($in{'createisopath'} eq '') { print "The ISO Path " . $config{'iso_path'} . " does not exist!"; print '

Click the button to create it now. '; } else { mkdir($config{'iso_path'}); &ShowStep1($text{'description'}); }; } elsif ($in{'action'} eq 'backup') { if (!&cd_in_drive()) { # Check that there is a CD in the drive ShowStep1("No CD could be detected in the drive. Please insert a CD and try again!"); if ($config{'eject_tray'} == 1) { backquote_logged("eject") }; } else { # Check that CD is readable &error_setup('Failed to write iso image'); $cdtitle = get_cd_title(); if ($cdtitle eq '') { if ($config{'eject_tray'} == 1) { backquote_logged("eject") }; &error("Reading the CD's title, or the CD has a blank title!"); } else { # So we've got a readable CD in the drive! print "Found a data CD in the drive with the title '$cdtitle'."; $iso_image = $config{'iso_path'} . "/" . $cdtitle . ".iso"; $comment_file = $config{'iso_path'} . "/" . $cdtitle . ".txt"; print "

Reading CD data and creating $iso_image"; &CreateImage($config{'cd_dev'}, $iso_image); print " ... done."; if ($in{'comment'} ne '') { print "

Creating comment file $comment_file"; &CreateCommentFile($comment_file, $in{'comment'}); print " ... done."; }; if ($in{'mountiso'} eq 'true') { # Mount iso image # Mount iso image $mntdir = $config{'iso_path'} . "/" . $cdtitle; print "

Creating mount directory for samba share $mntdir"; mkdir($mntdir); print " ... done."; print "

Mounting iso file as iso9660 loop."; backquote_logged("mount -t iso9660 -o loop $iso_image $mntdir"); print " ... done."; # Create fstab entry print "

Adding new mount to fstab file"; open(FH, ">>/etc/fstab"); print FH "$iso_image\t$mntdir\tiso9660\tloop,ro\t0 0\n"; close(FH); print " ... done."; }; if ($config{'eject_tray'} > 0) { backquote_logged("eject") }; print "

Completed successfully!"; }; }; } else { &ShowStep1($text{'description'}); }; print '

'; &footer(); sub ShowStep1 { local($intro) = $_[0]; if ($config{'mountiso'} == 1) { $createshare_status = ' checked' }; print $intro; print '

CD2iso Options
' . &hlink("Optional comments", "comments") . '
' . &hlink("Mount iso image as a directory", "mountiso") . '

'; print ''; }; cd2iso/CD2iso-lib.pl0100744000000000000000000000134007676114554013142 0ustar rootroot#!/usr/bin/perl do '../web-lib.pl'; &init_config(); sub cd_in_drive { return (get_cd_title() ne ""); }; sub get_cd_title { local($title) = backquote_logged("dd if=" . $config{'cd_dev'} . " bs=1 skip=32808 count=32 2>/dev/null | sed 's/ [ \t]*//'"); $title =~ s/\W*$//; $title =~ s/ /-/; # Change any spaces to dashes return $title; }; sub CreateImage { local($cd_dev) = $_[0]; local($iso_image) = $_[1]; if (-e $iso_image) { &error("File '$iso_image' already exists") }; $ret = backquote_logged("dd if=" . $config{'cd_dev'} . " of=" . $iso_image); # print "

ret = 

'$ret'
"; return 1; }; sub CreateCommentFile { local($file) = $_[0]; local($text) = $_[1]; open(FH, ">$file"); print FH $text; close(FH); };cd2iso/help/0040755000000000000000000000000007676065156011715 5ustar rootrootcd2iso/help/comments.html0100744000000000000000000000024007676051672014420 0ustar rootroot
Optional Comments
You can optioanlly enter comments about the CD here and there will appear in a .txt file along side the .iso omage file.
cd2iso/help/mountiso.html0100744000000000000000000000033607676052146014453 0ustar rootroot
Mount iso image as a directory
Once the iso file has been created, CD2iso can optionally create a directory and mount the iso file. This allows you to browse (read only) the files on the CD iso image.
cd2iso/help/intro.html0100744000000000000000000000132707676065323013733 0ustar rootroot
cd2iso

This module allows you to copy a data CD from to a standard iso image format that can then be burnt to a cd using standard CD writing software (cdrecord, Nero etc).

cd2iso can also save a text file with any users comments about the cd along side the iso image for future reference (usfull for cd keys etc).

Additionally cd2iso will create a directory and mount the iso image (read only) in this new directory allowing you to browse the data on the CD. If you then share this directory using samba you now have both a backup of your CD and a networkable copy!

cd2iso was written by Kevin Golding - www.cix.co.uk/~kgolding/
cd2iso/lang/0040755000000000000000000000000007676016206011676 5ustar rootrootcd2iso/lang/en0100744000000000000000000000022107676054267012225 0ustar rootroottitle=CD2iso description=Insert a data CD to be backed up into the CD drive on the Webmin server, and then click Backup. btn_backup=Create ISO cd2iso/config.info0100744000000000000000000000037707676063557013117 0ustar rootrootiso_path=Path to iso image store,7 cd_dev=Path to the cdrom dev entry,8 mountiso=Default status of mount iso option,1,1-Checked,0-Unchecked eject_tray=When do you want cd2iso open the cd drive tray,1,0-Never,1-When required,2-Only after a successful read cd2iso/config-*-linux0100744000000000000000000000010207676071261013422 0ustar rootrootiso_path=/var/cdimages cd_dev=/dev/cdrom eject_tray=1 mountiso=1